Jump to content

Recommended Posts

Posted

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

 

Posted

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

Posted

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.

Posted

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

  • 2 weeks later...
  • 2 weeks later...
Posted

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

Posted

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

  • 3 weeks later...
Guest
This topic is now closed to further replies.


  • Posts

    • First of all, I never challenged you at any point.   Second, congratulations—this is what you should have done from the start: shown how it worked, how to exploit it, etc. Now, let’s look at the facts:   The flaw requires the person to be the OWNER of the castle.   It requires the use of third-party programs or a modified client—and most private servers don’t even allow the use of modified clients, thanks to their anti-cheat systems.   Are you honestly certain that a castle owner on a private server would risk losing their account just to pull off this exploit? They’d have to be a complete idiot.   You’ve spent months going on about how you discovered a bug that has ZERO impact on the actual gameplay—congratulations.   I’m not saying that flaws are bad or that they shouldn’t be fixed—in fact, the flaw *was* fixed.   What I’m saying is that you’ve been harping on the same point for months, even though the issue had already been resolved in the closed branch.   It’s the prerogative of those who maintain the code to fix things however they see fit, don’t you think?   And learn this: when you report a bug, you MUST: 1- Report the bug (obviously) 2- Explain in detail how the bug occurs 3- Prove that the bug actually happens   And instead of contributing to the project through the proper, public channels, you chose to turn this into a whole circus—I’d just like to understand why...   It’s a good thing everyone in this thread will get to see who the "asshole" is.
    • To use this exploit you have to:   1) Have access to the castle vault, aka you have to own a castle. 2) Send through Adrenaline Engine.BypassToServer(Bypass) as emommy said 3) In the crafted packet you will put a negative amount eg -100000000 What this does is it multiplies it by -1 so it becomes positive. 4) You won't see anything in your inventory, but if you open the castle vault through the Chamberlain you will see that the warehouse now has 10000000 adena. The negative became positive. 5) Withdraw the adena normally and you now have all the adena you need.   I wouldn't bother explaining how to do it, but this idiot (Galagard) wanted to challenge me. And from what I can see, they haven't patched the exploit even if I reported it to them a week ago so it's obvious that people will start sharing it around.   Maybe I should start positing here instead of the official channels.   All public versions of L2JMobius for all chronicles are vulnerable and not patched yet.   And thanks to this idiot (Galagard), everyone now knows.   Baldurian. EDIT:    Ok I just got informed that Mobius decided to accept the fix in the public repo.   So I will now post a proof of the exploit as Galagard requested. Normally I don't do so, but my good friend Galagard who has his nose so far stuck up his asshole, insulted me, and challenged me to show proof:     And to be fair to everyone, this is not an L2JMobius issue as the thread claims. It's L2JServer leftover, so if you have L2JServer derivative packs, you should patch too. 
    • Already fixed in subscriber version, but this bug report is classified as "Invalid" because since the author did not explain the method in detail, the validation flaw does indeed exist—but that alone does not prove it is possible to duplicate adena or any other item by exploiting said flaw. It looks like yet another AI hallucinating a vulnerability, then deducing that it could be used to exploit a different vulnerability. No have proofs in video or a detailed way to reproduce the potential failure Go find something else to do, Baldurian; you don’t even know how to exploit the flaw you reported yourself.
    • Interface sources for P196 (Secret of Empire 2 or aka Fafurion) for Main/Classic. This protocol is commonly used for classic interlude. You can use the xdat editors which support this protocol from my other shares.   NWindow + Interface UC + L2Editor Compiler   Download  
    • Interface sources for P166 (Secret of Empire 1) for Main/Classic. This protocol is commonly used for classic interlude. You can use the xdat editors which support this protocol from my other shares.   NWindow + Interface UC + L2Editor Compiler   Download  
  • Topics

×
×
  • Create New...

Important Information

This community uses essential cookies to function properly. Non-essential cookies and third-party services are used only with your consent. Read our Privacy Policy and We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue..