[Share] Auto-Enchant 100% working and more!

[skskio]

thanks :)

[masterkingg]

good good

[free989]

for my dont work in l2inc :(  :-[  :-[  :-[  :-[  :-[  :-\  :-\  :-\  :-\

Help!!!  ???

[arranca]

work fine in l2inc

[masterkingg]

 

please give me a script for weapons a-grade please

  and armour

[masterkingg]

//made by rocket666

//edited and tweaked by masterkingg

//testing, bug solutions and just being cool, masterkingg

INCLUDE StdLib\inventory.l2c

 

//Settings

DEFINE STRING ITEMNAME "Sword of Miracles"            //Item name, don't write the SA

DEFINE STRING ITGRADE A                    //Item grade (A=s)

DEFINE STRING ENCHNAME "Scroll: Enchant Weapon (A)"    //Enchant name

DEFINE STRING ENCHANT 5          //Enchant amount wanted to every weapon in inventory

DEFINE INT DELAY 1100                  //Delay of all actions in MS, this may help dodge anti enchanting bans if there are any. Put at least 600.

 

 

//Some definitions

DEFINE INT CURENCHANT 0                   

DEFINE INT SUCCESSENCHANTED 0

DEFINE STRING CRYSTAL "Crystal: <&ITGRADE&> Grade"

DEFINE INT CRYID 0

DEFINE INT CRYCOUNT 0

DEFINE INT CRYCOUNT2 0

ITEM_GET_ID CRYID "<&CRYSTAL&>"

DEFINE STRING ITNAME 0

DEFINE INT ENCHID 0

DEFINE INT ENCHCOUNT 0

DEFINE INT ENCHUID 0

DEFINE STRING ENCHCODE 0

DEFINE STRING ITEM 0

DEFINE ARRAYLIST INVEN_AL 0

GET_INVENTORY INVEN_AL

 

//Calc enchant unique id

ITEM_GET_ID ENCHID "<&ENCHNAME&>"

INVEN_GET_UID ENCHUID "<&ENCHID&>"

ENCHCODE = ENCHUID.GET_HEX32

DEFINE STRING ENCH "19 <&ENCHCODE&> 00 00 00 00"

 

//Start actions

FOREACH I Inventory INVEN_AL

    ITNAME = INVEN_AL.I.NAME

    IF ITNAME == ITEMNAME

        CALLSUB ENCHANT

        PRINT_TEXT "<&ENCHCOUNT&> enchants remaining."

        CURENCHANT = ZERO

    ENDIF

NEXTEACH

PRINT_TEXT "<&SUCCESSENCHANTED&> are currently enchanted successfully to <&ENCHANT&>"

PRINT_TEXT "Done"

SCRIPT_END

 

SUB ENCHANT

DEFINE bytebuffer my_bb 256

my_bb.WRITE_BYTE #i95

my_bb.WRITE_INT32 INVEN_AL.I.ID

my_bb.WRITE_INT32 #i0

 

 

WHILE ZERO == ZERO

ITEM_COUNT CRYCOUNT "<&CRYID&>"

IF CURENCHANT < ENCHANT

    ITEM_COUNT ENCHCOUNT "<&ENCHID&>"

    IF ENCHCOUNT > ONE

        CURENCHANT = CURENCHANT + ONE

        PRINT_TEXT "Your weapon is enchanting to <&CURENCHANT&>"

        INJECT "<&ENCH&>"

        SLEEP "<&DELAY&>"

        my_bb.TRIM_TO_INDEX

        injectbb my_bb

        SLEEP 300

        ITEM_COUNT CRYCOUNT2 "<&CRYID&>"

        IF CRYCOUNT2 > CRYCOUNT

            DELETE my_bb

            RETURNSUB

        ELSE

          IF CURENCHANT == ENCHANT

          SUCCESSENCHANTED = SUCCESSENCHANTED + #i1

          ENDIF

        ENDIF

    ELSE

        PRINT_TEXT "Enchant is over."

        PRINT_TEXT "<&SUCCESSENCHANTED&> are currently enchanted successfully to <&ENCHANT&>"

        SCRIPT_END

    ENDIF

ELSE

    PRINT_TEXT "Successfully enchanted."

    DELETE my_bb

    RETURNSUB

ENDIF

WEND

RETURNSUB

 

 

we succeeded

[free989]

work fine in l2inc

 

Post your scripts plz

[mpj123]

topic locked, topic is old now, new versions are available at www.ltwonet.com.