L2InC farmer script.

mpj123 · January 8, 2009

you will need to download l2.net, look at the stickied thread for it. (you may also want to look for the enchant script :P)

www.ltwonet.com

These are the complete scripts to farm in l2inc be able to buff automatically, go hunting, die, get buffed, go hunting.... Do as you wish with them, all you need to do it set your SH/SPS.... w/e the class to use his skills. You can also use this script for fighters as long as you change what the script communicates to the buffers.

I've ran these scripts for over 2 weeks straight.... most likely because:

1: gms dont think people bot

2: gms dont think bots can attack their special mobs (seen as players)... which is the case for other bots

3: gms dont care because no matter what you do, you wont be able to beat the donators.... +30 skills, +30 weapons, +30 armor. Unless you were in a skilled clan which were smarter then the donators.

To anybody else that plays this server and the clan I was in... sorry but I dont play that server anymore, the pvp is boring and gms gave out more then +25 weapons and amor even though they claim to have +25 as a cap. I personally made +20 armor sets and +25 weapons "legit" with enchant scripts and such, but really, I cant imagine how complete legit players do it. Just a money scramble in my opinion. Enjoy the power of l2.net.

I will not leak my name until all my clan mates leave that server or they allow me to anyways.

if you run mages, you need the following buffers:

BD,SWS,WC

NOTE

//I have blocked off two threads, one to check if you are gaining any

//exp, and the other to say something when people attack you, such

//as "lol", which was my case

//You will need to change the location of the buffers, and change the

//script's pathing to your buffers.

Main script:

//I have blocked off two threads, one to check if you are gaining any
//exp, and the other to say something when people attack you, such
//as "lol", which was my case
//You will need to change the location of the buffers, and change the
//script's pathing to your buffers.
SET_TARGETING TYPE TWO
SET_TARGETING ALIVE ZERO
SET_TARGETING INBOX ZERO
SET_TARGETING COMBAT TWO
DEFINE_GLOBAL INT TDIST 0
DEFINE_GLOBAL INT MAXMOVES 0
DEFINE_GLOBAL INT NeedMoving 0
DEFINE_GLOBAL INT THREE 3
DEFINE_GLOBAL INT FOUR 4
DEFINE_GLOBAL INT FIVE 5
DEFINE_GLOBAL INT FIFTY 50
DEFINE_GLOBAL INT TWENTYFIVE 25
DEFINE_GLOBAL INT FIGHT ZERO
DEFINE_GLOBAL INT HOW_GAY_IS_MPJ 20
DEFINE_GLOBAL INT MAXDEATH 0
DEFINE_GLOBAL INT ADENAAMOUNT 0
DEFINE_GLOBAL INT id2 0
DEFINE_GLOBAL INT FA " "
DEFINE_GLOBAL INT FA2 " "
DEFINE INT RANGE 0
DEFINE INT x 0
DEFINE INT y 0
DEFINE INT z 0
DEFINE_GLOBAL INT Adena 0
SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" AdenaCount 98
SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" cancel_trade 112
SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" cancel_party 57
SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" cancel_clan 44

DEFINE STRING itemname2 "Festival Adena"
ITEM_GET_ID id2 "<&itemname2&>"
PRINT_TEXT "<&id2&>"
//THREAD XPCHECK
//THREAD CPCHECK

IF CHAR_CUR_HP <= ZERO
TAP_TO TOWN
SLEEP 6000
ENDIF

PRINT_TEXT "MAKE SURE YOU LOADED MY SET!"
x = #i-84665
y = #i244294
z = #i-3730
DISTANCE RANGE X Y Z CHAR_X CHAR_Y CHAR_Z

IF RANGE <= #i2000
PRINT_TEXT "we are in talking island"
CALLSUB TALKINGISLANDTOZONE
CALLSUB HuntersVillage
CALLSUB INFINITLOOP
ENDIF

x = #i-11936
y = #i236619
z = #i-3252
DISTANCE RANGE X Y Z CHAR_X CHAR_Y CHAR_Z
IF RANGE <= #i5000
PRINT_TEXT "we are in Hellbound 2"
x = #i-16107
y = #i237673
z = #i-3361
CALL MPJ_IS_A_HOMO VOID 3 X Y Z
FIGHT = #i0
INJECT "39 51 01 00 00 00 00 00 00 00"
INJECT "59 D4 C2 FF FF 01 A4 03 00 26 F3 FF FF B1 B6 00 00 00 00 00 00"
CALLSUB INFINITLOOP
ENDIF

x = #i117128
y = #i76891
z = #i-2690
DISTANCE RANGE X Y Z CHAR_X CHAR_Y CHAR_Z
IF RANGE <= #i3000
PRINT_TEXT "we are in Hunters Village"
CALLSUB HuntersVillage
CALLSUB INFINITLOOP
ENDIF

PRINT_TEXT "you are in an unknown location, script is terminating, please start in hunters, talking island or in the hellbound area."
SCRIPT_END
SUB INFINITLOOP
DO
CALLSUB AUTOFIGHTER
CALLSUB TALKINGISLANDTOZONE
CALLSUB HuntersVillage
LOOP ZERO == ZERO
SCRIPT_END
RETURNSUB

SUB TALKINGISLANDTOZONE
FIGHT = #i1
FIGHT = FIGHT + #i1
INJECT "14"
INJECT "19 F6 2B 16 10 00 00 00 00"
SLEEP 1000
NPC_DIALOG "bypass -h pc_magic_chat"
SLEEP 1000
NPC_DIALOG "bypass -h pc_magic_pre 0"


x = #i-84783
y = #i243289
z = #i-3729
CALL MPJ_IS_A_HOMO VOID 3 X Y Z

x = #i-85188
y = #i244031
z = #i-3729
CALL MPJ_IS_A_HOMO VOID 3 X Y Z

x = #i-84246
y = #i244677
z = #i-3729
CALL MPJ_IS_A_HOMO VOID 3 X Y Z

TARGET_NEAREST_NAME "Teleporter"
SLEEP 1000
TALK_TARGET
SLEEP 1000
NPC_DIALOG "bypass -h pc_tele_chat 21"
SLEEP 1000
NPC_DIALOG "bypass -h pc_tele_chat 3"
SLEEP 1000
NPC_DIALOG "bypass -h pc_teleport 2811"
SLEEP 1000
RETURNSUB

SUB HuntersVillage
command "/leave"
FIGHT = #i1
FIGHT = FIGHT + #i1
x = #i117409
y = #i76371
z = #i-2698
CALL MPJ_IS_A_HOMO VOID 3 X Y Z

x = #i117942
y = #i76705
z = #i-2599
CALL MPJ_IS_A_HOMO VOID 3 X Y Z

x = #i117833
y = #i76784
z = #i-2589
CALL MPJ_IS_A_HOMO VOID 3 X Y Z

x = #i117616
y = #i77101
z = #i-2588
CALL MPJ_IS_A_HOMO VOID 3 X Y Z

SAY_TEXT "<&CHANNEL_PRIVATE&>" "invite" "clam"
SLEEP 5000
SAY_TEXT "<&CHANNEL_PARTY&>" "mage"
SLEEP 1000
USE_SKILL 1457
SLEEP 60000
command "/leave"


x = #i117616
y = #i77101
z = #i-2588
CALL MPJ_IS_A_HOMO VOID 3 X Y Z


x = #i117833
y = #i76784
z = #i-2589
CALL MPJ_IS_A_HOMO VOID 3 X Y Z

x = #i117942
y = #i76705
z = #i-2599
CALL MPJ_IS_A_HOMO VOID 3 X Y Z

x = #i117409
y = #i76371
z = #i-2698
CALL MPJ_IS_A_HOMO VOID 3 X Y Z

x = #i117081
y = #i76901
z = #i-2698
CALL MPJ_IS_A_HOMO VOID 3 X Y Z


TARGET_NEAREST_NAME "Teleporter"
SLEEP 1000
TALK_TARGET
SLEEP 1000
NPC_DIALOG "bypass -h pc_tele_chat 28"
SLEEP 1000
NPC_DIALOG "bypass -h pc_teleport 6010"
SLEEP 3000

x = #i-13608
y = #i236934
z = #i-3266
CALL MPJ_IS_A_HOMO VOID 3 X Y Z

x = #i-16107
y = #i237673
z = #i-3361
CALL MPJ_IS_A_HOMO VOID 3 X Y Z
FIGHT = #i0
INJECT "39 51 01 00 00 00 00 00 00 00"
INJECT "59 D4 C2 FF FF 01 A4 03 00 26 F3 FF FF B1 B6 00 00 00 00 00 00"
RETURNSUB




_<&TARGET_ID&>_
x = #i
y = #i
z = #i
CALL MPJ_IS_A_HOMO VOID 3 X Y Z
//lets make a variable to store the hp to rest when we drop below
//we make it equal to half our max

SUB AUTOFIGHTER
WHILE FIGHT == ZERO
//lets make sure we start with decent hp
       CALLSUB Target
       SLEEP 1000
       //if we got a target

       WHILE TARGET_CUR_HP > ZERO
           //lets kill it
           IF CHAR_CUR_HP == ZERO
           FIGHT = #i0
           TAP_TO TOWN
           SLEEP 10000
           RETURNSUB
           ENDIF
           CALLSUB KillTarget
       WEND
WEND
RETURNSUB
END_SCRIPT

////////SUBS//////////

SUB Target
   TARGET_NEAREST_NAME "L2InC"
   SLEEP 750
RETURNSUB

SUB KillTarget
   SLEEP 200
   IF CHAR_CUR_HP == ZERO
   FIGHT = #i0
   ENDIF
   //PRINT_TEXT "killtarget sub finished"
RETURNSUB


FUNCTION MPJ_IS_A_HOMO 3 X Y Z
MAXMOVES = #i0
PRINT_TEXT "TDIST = <&tdist&>"
DISTANCE TDIST X Y Z CHAR_X CHAR_Y CHAR_Z
WHILE TDIST > HOW_GAY_IS_MPJ
MAXMOVES = MAXMOVES + #i1
   MOVE_TO "<&X&>" "<&Y&>" "<&Z&>"
   SLEEP 500
   DISTANCE TDIST X Y Z CHAR_X CHAR_Y CHAR_Z
   PRINT_TEXT "TDIST = <&tdist&>"
       IF MAXMOVES >= #i60 //30 seconds until antistuck kicks in
           IF tdist <= #i500
           PRINT_TEXT "Unstuck mode ON"
           RETURN VOID
           ELSE
           PRINT_TEXT "seems like our distance to tdist is greater then 500... TDIST"
           PRINT_TEXT "= <&tdist&>"
           //PRINT_TEXT "I do not want to screw up this whole script, you will need to move"                
           //PRINT_TEXT "your char close to the point manually."
           SLEEP 5000
           ENDIF
       ENDIF
   WEND
RETURN VOID

FUNCTION CPCHECK
WHILE ZERO == ZERO
IF CHAR_CUR_CP < CHAR_MAX_CP
   SAY_TEXT "<&CHANNEL_ALL&>" "lol"
   SLEEP 120000
ENDIF
SLEEP 2000
WEND
RETURNVOID


FUNCTION AdenaCount
   DEFINE INT messageid 0
   DEFINE INT size 0
   DEFINE INT type 0
   DEFINE INT AdenaCount 0

   PACKET.READ_BYTE NULL
   PACKET.READ_INT32 messageid
   PACKET.READ_INT32 size
   
   FOR x 0 "<&size&>" 1
       PACKET.READ_INT32 type
       IF type == #i1
           IF messageid == #i52
               PACKET.READ_INT32 AdenaCount
               Adena = adena + adenacount
               WHILE Adena > #i500000000
                   SLEEP 500
                   SAY_TEXT "<&CHANNEL_ALL&>" ".deposit"
                   Print_text "got jew a gold bar nig <&adena&>"
                   Adena = adena - #i500000000
               WEND
           ENDIF
       ENDIF
   NEXT
RETURN VOID

FUNCTION cancel_trade
PRINT_TEXT "received trade invite... sleeping 2 seconds"
SLEEP 2000
PRINT_TEXT "canceling trade invite"
INJECT "55 00 00 00 00"
SLEEP 1000
RETURN VOID

FUNCTION cancel_party
PRINT_TEXT "received party invite... sleeping 2 seconds"
SLEEP 2000
PRINT_TEXT "canceling party invite"
INJECT "43 00 00 00 00"
SLEEP 1000
RETURN VOID

FUNCTION cancel_clan
PRINT_TEXT "received clan invite... sleeping 2 seconds"
SLEEP 2000
PRINT_TEXT "canceling clan invite"
INJECT "27 00 00 00 00"
SLEEP 1000
RETURN VOID

FUNCTION XPCHECK
WHILE ZERO == ZERO
ITEM_COUNT FA 6673
PRINT_TEXT "<&FA&>"
SLEEP 300000 //5 minutes
ITEM_COUNT FA2 6673
PRINT_TEXT "<&FA&>"
IF FA2 == FA
   PRINT_TEXT "WE ARE NOT LEVELING! SOMETHING IS WRONG!"
   IF CHAR_CUR_HP <= ZERO
       TAP_TO TOWN
       SLEEP 9000
   ENDIF
   FIGHT = #i1
   INJECT "14"
   INJECT "19 F6 2B 16 10 00 00 00 00"
   SLEEP 1000
   NPC_DIALOG "bypass -h pc_magic_chat"
   SLEEP 1000
   NPC_DIALOG "bypass -h pc_magic_pre 0"
   SLEEP 1000
   TARGET_NEAREST_NAME "Teleporter"
   SLEEP 1000
   TALK_TARGET
   SLEEP 1000
   NPC_DIALOG "bypass -h pc_tele_chat 21"
   SLEEP 1000
   NPC_DIALOG "bypass -h pc_tele_chat 3"
   SLEEP 1000
   NPC_DIALOG "bypass -h pc_teleport 2811"
   SLEEP 1000
   CALLSUB HuntersVillage
   FIGHT = #i0
ELSE
   PRINT_TEXT "Everything checked out ok."
ENDIF
WEND
RETURN VOID

BD

SET_EVENT "<&SCRIPTEVENT_CHAT&>" Buffers/BufferBD.l2s parsechat

//*************************************************************************************
//*************************************************************************************
//*************************************************************************************
//********************************BD******************************************
//********************************Script**********************************************
//*************************************************************************************
//*************************************************************************************
//*************************************************************************************

DEFINE_GLOBAL INT THREE 3
DEFINE_GLOBAL INT XPLUS ZERO
DEFINE_GLOBAL INT YPLUS ZERO
DEFINE_GLOBAL INT XMINUS ZERO
DEFINE_GLOBAL INT YMINUS ZERO
DEFINE_GLOBAL INT LOCOK ZERO
DEFINE_GLOBAL INT XYAR ZERO
DEFINE_GLOBAL INT YYAR ZERO
DEFINE_GLOBAL INT ZYAR ZERO
DEFINE_GLOBAL INT XYAR2 ZERO
DEFINE_GLOBAL INT YYAR2 ZERO
DEFINE_GLOBAL INT EYE ZERO
DEFINE_GLOBAL INT Hundred 50
DEFINE_GLOBAL INT FOUR 4


THREAD DontMoveFar

SLEEP 70000000000
PRINT_TEXT "end script"
END_SCRIPT


FUNCTION parsechat
LOCK parsechat
DEFINE STRING MSG_FIGHTER "fighter"
DEFINE STRING MSG_MAGE "mage"
DEFINE STRING MSG_SIT "sit"
DEFINE STRING MSG_INVITE "invite"
DEFINE STRING MSG_LEADER "setmeleader"


IF MESSAGETYPE == CHANNEL_PARTY
   IF MESSAGE == MSG_FIGHTER
           PRINT_TEXT "Buffing fighter buffs..."
           COMMAND "/target <&SenderName&>"

   SLEEP 2500
   CALLSUB POTS
   USE_SKILL 271
   SLEEP 2500
   CALLSUB POTS
   USE_SKILL 272
   SLEEP 2500
   CALLSUB POTS
   USE_SKILL 274    
   SLEEP 2500
   CALLSUB POTS
   USE_SKILL 275
   SLEEP 2500
   CALLSUB POTS
   USE_SKILL 277
   SLEEP 2500
   CALLSUB POTS
   USE_SKILL 307
   SLEEP 2500
   CALLSUB POTS
   USE_SKILL 309
   SLEEP 2500
   CALLSUB POTS
   USE_SKILL 311
   SLEEP 2500
   CALLSUB POTS
   USE_SKILL 310
   SLEEP 2500
   CALLSUB POTS
   USE_SKILL 530
   SLEEP 2500
   CALLSUB POTS
   USE_SKILL 307
   SLEEP 3000
   CALLSUB POTS
   SAY_TEXT "#BD DONE"
   ENDIF

   IF MESSAGE == MSG_MAGE
           PRINT_TEXT "Buffing mage buffs..."
           COMMAND "/target <&SenderName&>"
   SLEEP 2500
   USE_SKILL 273
   SLEEP 1000
   SLEEP 2500
   USE_SKILL 276
   SLEEP 1000
   CALLSUB POTS
   SLEEP 2500
   USE_SKILL 307
   SLEEP 1000
   SLEEP 2500
   USE_SKILL 277
   SLEEP 1000
   CALLSUB POTS
   SLEEP 2500
   USE_SKILL 307
   SLEEP 1000
   SLEEP 2500
   USE_SKILL 309
   CALLSUB POTS
   SLEEP 2500
   USE_SKILL 311
   SLEEP 1000
   SLEEP 2500
   USE_SKILL 310
   SLEEP 1000
   CALLSUB POTS
   SLEEP 2500
   USE_SKILL 365
   SLEEP 1000
   SLEEP 2500
   USE_SKILL 530
   SLEEP 3000
   CALLSUB POTS
   SAY_TEXT "#BD DONE"
   ENDIF
       
       IF MESSAGE == MSG_SIT
           PRINT_TEXT "sitting down..."
           COMMAND "/sit"
       ENDIF
       
               IF MESSAGE == MSG_INVITE
           PRINT_TEXT "inviting <&SenderName&>..."
           COMMAND "/invite <&SenderName&>"
       ENDIF

        IF MESSAGE == MSG_LEADER
           PRINT_TEXT "changing leader to <&SenderName&>..."
           COMMAND "/changepartyleader <&SenderName&>"
       ENDIF



ENDIF

UNLOCK parsechat
RETURN VOID

SUB POTS
SLEEP 1500
WHILE CHAR_CUR_MP < CHAR_MAX_MP
   SLEEP 1500
   USE_ITEM 728
WEND
RETURNSUB

FUNCTION DontMoveFar
XYAR = "<&char_X&>"
YYAR = "<&char_Y&>"
ZYAR = "<&char_Z&>"
WHILE ZERO == ZERO
    //Add the X and Y of the position where you soe
    //PRINT_TEXT "<&XYAR&> and <&YYAR&> and <&ZYAR&>"
    CALLSUB WhereAmI
    //If we are in range of the four locations, proceed, else skip

    IF EYE == FOUR
        //PRINT_TEXT "Were OK"
        SLEEP "5000"
    ELSE
        PRINT_TEXT "Were NOT OK, moving back to starting location"
        CALLSUB MOVEBACKTOPOSITION
        SLEEP "1000"
    ENDIF
WEND
RETURN VOID

SUB WhereAmI
// we just need X and Y to find where we are... allowing 100 square arround your position for randomizing.
XPLUS = XYAR + Hundred
YPLUS = YYAR + Hundred
XMINUS = XYAR - Hundred
YMINUS = YYAR - Hundred
//PRINT_TEXT "These four following are the calculated values"
//PRINT_TEXT "<&XPLUS&>"
//PRINT_TEXT "<&YPLUS&>"
//PRINT_TEXT "<&XMINUS&>"
//PRINT_TEXT "<&YMINUS&>"

EYE = ZERO

IF CHAR_X < XPLUS
    //PRINT_TEXT "First ok"
    MATH EYE EYE ADD ONE
ENDIF

IF CHAR_X > XMINUS
    //PRINT_TEXT "second ok"
    EYE = EYE + ONE
ENDIF

IF CHAR_Y < YPLUS
    //PRINT_TEXT "third ok"
    EYE = EYE + ONE
ENDIF

IF CHAR_Y > YMINUS
    //PRINT_TEXT "fourth ok"
    EYE = EYE + ONE
ENDIF

//PRINT_TEXT "<&EYE&>"
RETURNSUB

SUB MOVEBACKTOPOSITION
LOCK parsechat
PRINT_TEXT "BACK IN POSITION SOLDIER!"
MOVE_TO "<&XYAR&>" "<&YYAR&>" "<&ZYAR&>"
SLEEP 1000
UNLOCK parsechat
RETURNSUB

mpj123 · January 8, 2009

SWS script

SET_EVENT "<&SCRIPTEVENT_CHAT&>" Buffers/BufferSWS.l2s parsechat

//*************************************************************************************
//*************************************************************************************
//*************************************************************************************
//********************************SWS******************************************
//********************************Script**********************************************
//*************************************************************************************
//*************************************************************************************
//*************************************************************************************

DEFINE_GLOBAL INT THREE 3
DEFINE_GLOBAL INT XPLUS ZERO
DEFINE_GLOBAL INT YPLUS ZERO
DEFINE_GLOBAL INT XMINUS ZERO
DEFINE_GLOBAL INT YMINUS ZERO
DEFINE_GLOBAL INT LOCOK ZERO
DEFINE_GLOBAL INT XYAR ZERO
DEFINE_GLOBAL INT YYAR ZERO
DEFINE_GLOBAL INT ZYAR ZERO
DEFINE_GLOBAL INT XYAR2 ZERO
DEFINE_GLOBAL INT YYAR2 ZERO
DEFINE_GLOBAL INT EYE ZERO
DEFINE_GLOBAL INT Hundred 50
DEFINE_GLOBAL INT FOUR 4


THREAD DontMoveFar

SLEEP 70000000000
PRINT_TEXT "end script"
END_SCRIPT


FUNCTION parsechat
LOCK parsechat
DEFINE STRING MSG_FIGHTER "fighter"
DEFINE STRING MSG_MAGE "mage"
DEFINE STRING MSG_SIT "sit"
DEFINE STRING MSG_INVITE "invite"
DEFINE STRING MSG_LEADER "setmeleader"

IF MESSAGETYPE == CHANNEL_PARTY


    IF MESSAGE == MSG_FIGHTER
            PRINT_TEXT "Buffing fighter buffs..."
            COMMAND "/target <&SenderName&>"

    SLEEP 1500
    USE_SKILL 264
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 265
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 266
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 267
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 268
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 269
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 304
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 270
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 270
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 306
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 308
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 349
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 364
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 529
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 764
    CALLSUB POTS
    SLEEP 3000
    SAY_TEXT "#SWS DONE"
    CALLSUB POTS
    ENDIF

    IF MESSAGE == MSG_MAGE
            PRINT_TEXT "Buffing mage buffs..."
            COMMAND "/target <&SenderName&>"
    SLEEP 1500
    USE_SKILL 264
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 266
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 267
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 268
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 270
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 304
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 305
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 306
    CALLSUB POTS
    SLEEP 1500
    USE_SKILL 308
    CALLSUB POTS
    SLEEP 3000
    USE_SKILL 349
    CALLSUB POTS
    SLEEP 3000
    USE_SKILL 529
    CALLSUB POTS
    SLEEP 3000
    USE_SKILL 764
    SLEEP 3000
    SAY_TEXT "#SWS DONE"
    CALLSUB POTS
    ENDIF
        
        IF MESSAGE == MSG_SIT
            PRINT_TEXT "sitting down..."
            COMMAND "/sit"
        ENDIF
        
                IF MESSAGE == MSG_INVITE
            PRINT_TEXT "inviting <&SenderName&>..."
            COMMAND "/invite <&SenderName&>"
        ENDIF

         IF MESSAGE == MSG_LEADER
            PRINT_TEXT "changing leader to <&SenderName&>..."
            COMMAND "/changepartyleader <&SenderName&>"
        ENDIF



ENDIF

UNLOCK parsechat
RETURN VOID

SUB POTS
    SLEEP 1500
WHILE CHAR_CUR_MP < CHAR_MAX_MP
    SLEEP 1500
    USE_ITEM 728
WEND
RETURNSUB


FUNCTION DontMoveFar
XYAR = "<&char_X&>"
YYAR = "<&char_Y&>"
ZYAR = "<&char_Z&>"
WHILE ZERO == ZERO
    //Add the X and Y of the position where you soe
    //PRINT_TEXT "<&XYAR&> and <&YYAR&> and <&ZYAR&>"
    CALLSUB WhereAmI
    //If we are in range of the four locations, proceed, else skip

    IF EYE == FOUR
        //PRINT_TEXT "Were OK"
        SLEEP "5000"
    ELSE
        PRINT_TEXT "Were NOT OK, moving back to starting location"
        CALLSUB MOVEBACKTOPOSITION
        SLEEP "1000"
    ENDIF
WEND
RETURN VOID

SUB WhereAmI
// we just need X and Y to find where we are... allowing 100 square arround your position for randomizing.
XPLUS = XYAR + Hundred
YPLUS = YYAR + Hundred
XMINUS = XYAR - Hundred
YMINUS = YYAR - Hundred
//PRINT_TEXT "These four following are the calculated values"
//PRINT_TEXT "<&XPLUS&>"
//PRINT_TEXT "<&YPLUS&>"
//PRINT_TEXT "<&XMINUS&>"
//PRINT_TEXT "<&YMINUS&>"

EYE = ZERO

IF CHAR_X < XPLUS
    //PRINT_TEXT "First ok"
    MATH EYE EYE ADD ONE
ENDIF

IF CHAR_X > XMINUS
    //PRINT_TEXT "second ok"
    EYE = EYE + ONE
ENDIF

IF CHAR_Y < YPLUS
    //PRINT_TEXT "third ok"
    EYE = EYE + ONE
ENDIF

IF CHAR_Y > YMINUS
    //PRINT_TEXT "fourth ok"
    EYE = EYE + ONE
ENDIF

//PRINT_TEXT "<&EYE&>"
RETURNSUB

SUB MOVEBACKTOPOSITION
LOCK parsechat
PRINT_TEXT "BACK IN POSITION SOLDIER!"
MOVE_TO "<&XYAR&>" "<&YYAR&>" "<&ZYAR&>"
SLEEP 1000
UNLOCK parsechat
RETURNSUB

WC script

SET_EVENT "<&SCRIPTEVENT_CHAT&>" Buffers/BufferWC.l2s parsechat
//*************************************************************************************
//*************************************************************************************
//*************************************************************************************
//********************************WarCryer******************************************
//********************************Script**********************************************
//*************************************************************************************
//*************************************************************************************
//*************************************************************************************
DEFINE_GLOBAL INT THREE 3
DEFINE_GLOBAL INT XPLUS ZERO
DEFINE_GLOBAL INT YPLUS ZERO
DEFINE_GLOBAL INT XMINUS ZERO
DEFINE_GLOBAL INT YMINUS ZERO
DEFINE_GLOBAL INT LOCOK ZERO
DEFINE_GLOBAL INT XYAR ZERO
DEFINE_GLOBAL INT YYAR ZERO
DEFINE_GLOBAL INT ZYAR ZERO
DEFINE_GLOBAL INT XYAR2 ZERO
DEFINE_GLOBAL INT YYAR2 ZERO
DEFINE_GLOBAL INT EYE ZERO
DEFINE_GLOBAL INT Hundred 50
DEFINE_GLOBAL INT FOUR 4


THREAD DontMoveFar

SLEEP 70000000000
PRINT_TEXT "end script"
END_SCRIPT


FUNCTION parsechat
LOCK parsechat
DEFINE STRING MSG_FIGHTER "fighter"
DEFINE STRING MSG_MAGE "mage"
DEFINE STRING MSG_SIT "sit"
DEFINE STRING MSG_INVITE "invite"
DEFINE STRING MSG_LEADER "setmeleader"
DEFINE STRING MSG_COV "cov"
DEFINE STRING MSG_MAGNUS "mag"

IF MESSAGETYPE == CHANNEL_PARTY
        IF MESSAGE == MSG_MAGNUS
            COMMAND "/target <&SenderName&>"
            SLEEP 1500
            USE_SKILL 1413
            SLEEP 3000
            COMMAND "/leave"
         ENDIF


        IF MESSAGE == MSG_COV
            SLEEP 1500
            USE_SKILL 1363
            SLEEP 3000
        COMMAND "/leave"
       ENDIF


    IF MESSAGE == MSG_FIGHTER
            PRINT_TEXT "Buffing fighter buffs..."
            COMMAND "/target <&SenderName&>"

    SLEEP 1500
    USE_SKILL 1006
    SLEEP 1500
    USE_SKILL 1007
    SLEEP 1500
    USE_SKILL 1009
    SLEEP 1500
    USE_SKILL 1251
    SLEEP 1500
    USE_SKILL 1252
    SLEEP 1500
    USE_SKILL 1253
    SLEEP 1500
    USE_SKILL 1284
    SLEEP 1500
    USE_SKILL 1308
    SLEEP 1500
    USE_SKILL 1309
    SLEEP 1500
    USE_SKILL 1310
    SLEEP 1500
    USE_SKILL 1363
    SLEEP 1500
    USE_SKILL 1390
    SLEEP 1500
    USE_SKILL 1461
    SLEEP 1500
    USE_SKILL 1362
    SLEEP 3000
    CALLSUB POTS
    ENDIF

    IF MESSAGE == MSG_MAGE
            PRINT_TEXT "Buffing mage buffs..."
            COMMAND "/target <&SenderName&>"
    SLEEP 1500
    USE_SKILL 1002
    SLEEP 1500
    USE_SKILL 1006
    SLEEP 1500
    USE_SKILL 1009
    SLEEP 1500
    USE_SKILL 1253
    SLEEP 1500
    USE_SKILL 1284
    SLEEP 1500
    USE_SKILL 1363
    SLEEP 1500
    USE_SKILL 1391
    SLEEP 1500
    USE_SKILL 1362
    SLEEP 1500
    USE_SKILL 1461
    SLEEP 3000
    CALLSUB POTS
    ENDIF
        
        IF MESSAGE == MSG_SIT
            PRINT_TEXT "sitting down..."
            COMMAND "/sit"
        ENDIF
        
                IF MESSAGE == MSG_INVITE
            PRINT_TEXT "inviting <&SenderName&>..."
            COMMAND "/invite <&SenderName&>"
        ENDIF

         IF MESSAGE == MSG_LEADER
            PRINT_TEXT "changing leader to <&SenderName&>..."
            COMMAND "/changepartyleader <&SenderName&>"
        ENDIF



ENDIF
IF MESSAGETYPE == CHANNEL_PRIVATE
                IF MESSAGE == MSG_INVITE
            PRINT_TEXT "inviting <&SenderName&>..."
            COMMAND "/invite <&SenderName&>"
        ENDIF
ENDIF
UNLOCK parsechat
RETURN VOID

SUB POTS
SLEEP 1000
USE_ITEM 728
SLEEP 1000
USE_ITEM 728
SLEEP 1000
USE_ITEM 728
SLEEP 1000
USE_ITEM 728
SLEEP 1000
USE_ITEM 728
SLEEP 1000
USE_ITEM 728
RETURNSUB


FUNCTION DontMoveFar
XYAR = "<&char_X&>"
YYAR = "<&char_Y&>"
ZYAR = "<&char_Z&>"
WHILE ZERO == ZERO
    //Add the X and Y of the position where you soe
    //PRINT_TEXT "<&XYAR&> and <&YYAR&> and <&ZYAR&>"
    CALLSUB WhereAmI
    //If we are in range of the four locations, proceed, else skip

    IF EYE == FOUR
        //PRINT_TEXT "Were OK"
        SLEEP "5000"
    ELSE
        PRINT_TEXT "Were NOT OK, moving back to starting location"
        CALLSUB MOVEBACKTOPOSITION
        SLEEP "1000"
    ENDIF
WEND
RETURN VOID

SUB WhereAmI
// we just need X and Y to find where we are... allowing 100 square arround your position for randomizing.
XPLUS = XYAR + Hundred
YPLUS = YYAR + Hundred
XMINUS = XYAR - Hundred
YMINUS = YYAR - Hundred
//PRINT_TEXT "These four following are the calculated values"
//PRINT_TEXT "<&XPLUS&>"
//PRINT_TEXT "<&YPLUS&>"
//PRINT_TEXT "<&XMINUS&>"
//PRINT_TEXT "<&YMINUS&>"

EYE = ZERO

IF CHAR_X < XPLUS
    //PRINT_TEXT "First ok"
    MATH EYE EYE ADD ONE
ENDIF

IF CHAR_X > XMINUS
    //PRINT_TEXT "second ok"
    EYE = EYE + ONE
ENDIF

IF CHAR_Y < YPLUS
    //PRINT_TEXT "third ok"
    EYE = EYE + ONE
ENDIF

IF CHAR_Y > YMINUS
    //PRINT_TEXT "fourth ok"
    EYE = EYE + ONE
ENDIF

//PRINT_TEXT "<&EYE&>"
RETURNSUB

SUB MOVEBACKTOPOSITION
LOCK parsechat
PRINT_TEXT "BACK IN POSITION SOLDIER!"
MOVE_TO "<&XYAR&>" "<&YYAR&>" "<&ZYAR&>"
SLEEP 1000
UNLOCK parsechat
RETURNSUB

heybroftw · January 13, 2009

Nice i was looking for something like this. How to bot on hellbound island but would this script work for my Tyrant? I currently use my Tyrant on IG walker and my buffs SWS, BD and WC on OGG L2Net. I only want the script for my Tyrant to kill the hellbound L2InC mobs.

Thanks.

heybroftw · January 13, 2009

Sorry to double post but i'm not very good with scripting. So would it be possible to do this with IG walker? I only want to do a really simple one such as /target L2InC and /attack script for IG walker. So my idea is to set up a path to run around but have a script running over and over just to hit back at the red chars.

Would this possible to do? If so, could you please help me putting this script together? Thanks

czitmax · January 13, 2009

Ty for scripts :)

cyperex · January 28, 2009

Wow, l2inc farming is boring, this outta help a friend out. Thanks.

loest · January 30, 2009

verry nice

owned91 · February 8, 2009

Super Scripts! ;D

EternalSoldier · February 8, 2009

Great share dude. Works perfectly.

mweinz · February 11, 2009

Gj thx for share this scrip

AlemanOtaku · February 12, 2009

this is the perfect server to bot xD all in one item, nice scripts, l2net is very powerfull, too much i think xD

Layne123 · February 13, 2009

thxsss

jdman2002 · February 14, 2009

i tryed your script, i was standing in hellbound island, automatly my char started hitting one player, i flagged and i was killed by a clan, maybe i have to config something on options ??? help please

mpj123 · February 15, 2009

look for the updated version at ltwonet.com. This one is old and dosen't work well because it attacks players for some reason.

kunghe · March 6, 2009

Gj thx for share this scrip

L2InC farmer script.

Recommended Posts

mpj123

mpj123

heybroftw

heybroftw

czitmax

cyperex

loest

owned91

EternalSoldier

mweinz

AlemanOtaku

Layne123

jdman2002

mpj123

kunghe

Posts

Topics

Browse

Activity

Store