[SHARE]Automatic enchant script L2.NET ct2.3

mpj123 · May 7, 2009

http://ltwonet.com/showthread.php?t=1846

This is rocket666's script, fixed and edited by me, and re-fixed and edited by trixy.

This is rocket666's enchant script now fixed for CT 2.3 (Gracia Final)

Special thanks to mpj123 for helping me to better understand the bytebuffer function!

Please post problems, suggestions, bugs. Thanks

(NOT auto detect S Grade)

//made by rocket666
//edited and tweaked by mpj123
//testing, bug solutions and just being cool, MeatWod
//new_bb edit done by trixy
INCLUDE StdLib\inventory.l2c

//Settings
DEFINE STRING ITEMNAME "WEAPON OR ARMOR NAME HERE"            //Item name, don't write the SA
DEFINE STRING ITGRADE "S"                    //Item grade (s80=s)
DEFINE STRING ENCHNAME "Scroll: Enchant Armor (S)"    //Enchant name
DEFINE STRING ENCHANT "16"              //Max enchant
DEFINE INT CURENCHANT 0                    //Current enchant, change line 38 too
DEFINE INT DELAY 1100                  //Delay of all actions in MS
DEFINE INT SUCCESSENCHANTED 0

//Some definitions
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
DEFINE bytebuffer new_bb 256

my_bb.WRITE_BYTE #i95
my_bb.WRITE_INT32 INVEN_AL.I.ID
my_bb.WRITE_INT32 #i0

new_bb.WRITE_BYTE #i208
new_bb.WRITE_BYTE #i76
new_bb.WRITE_BYTE #i0
new_bb.WRITE_INT32 INVEN_AL.I.ID

WHILE ZERO == ZERO
ITEM_COUNT CRYCOUNT "<&CRYID&>"
IF CURENCHANT < ENCHANT
    ITEM_COUNT ENCHCOUNT "<&ENCHID&>"
    IF ENCHCOUNT > ZERO
        CURENCHANT = CURENCHANT + ONE
        PRINT_TEXT "Your item is enchanting to <&CURENCHANT&>"
        INJECT "<&ENCH&>"
        SLEEP "<&DELAY&>"
        new_bb.TRIM_TO_INDEX
        injectbb new_bb
        SLEEP 1000
        my_bb.TRIM_TO_INDEX
        injectbb my_bb
        SLEEP 300
        ITEM_COUNT CRYCOUNT2 "<&CRYID&>"
        IF CRYCOUNT2 > CRYCOUNT
            DELETE new_bb
            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 new_bb
    DELETE my_bb
    RETURNSUB
ENDIF
WEND
RETURNSUB

EDIT: Ok So I went and changed a few things, I made it so it will now auto detect if you are enchanting S grade or not.

Just Remember to change the DEFINE STRING ITGRADE "S" line, to whatever you need.

Also I adjusted the placement of the Definable DELAY. It was after using the enchant scroll, now it's after clicking "ENCHANT".

The slower I ran this script with this DEFINE INT DELAY 4000 (4 seconds delay after clicking enchant button) the more accurate it was.

Had a little lag on the server while waiting for crystals or successful enchant.

Use either one you want, hope it works for ya, worked fine for me for an hour.

(AUTO detect S Grade)

//made by rocket666
//edited and tweaked by mpj123
//testing, bug solutions and just being cool, MeatWod
//new_bb & S-Grade Auto Detection - trixy
INCLUDE StdLib\inventory.l2c

//Settings
DEFINE STRING ITEMNAME "WEAPON OR ARMOR NAME"            //Item name, don't write the SA
DEFINE STRING ITGRADE "S"                                //Item grade (s80=S)
DEFINE STRING ENCHNAME "Scroll: Enchant Weapon (S)"        //Enchant name
DEFINE STRING ENCHANT "14"                          //Max enchant (# to stop at)
DEFINE INT CURENCHANT 0                           //Current enchant,change lines 44 & 48 ALSO!!!
DEFINE INT DELAY 4000                                  //Delay of all actions in MS
DEFINE INT SUCCESSENCHANTED 0

//Some definitions
DEFINE STRING CRYSTAL "Crystal: <&ITGRADE&> Grade"
DEFINE STRING CRYSTAL2 "Crystal: <&ITGRADE&>-Grade"
DEFINE INT CRYID 0
DEFINE INT CRYID2 0
DEFINE INT CRYCOUNT 0
DEFINE INT CRYCOUNT2 0
ITEM_GET_ID CRYID "<&CRYSTAL&>"
ITEM_GET_ID CRYID2 "<&CRYSTAL2&>"
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
       IF ITGRADE != #$S
            CURENCHANT = #i0
            CALLSUB ENCHANT_OTHER
            PRINT_TEXT "<&ENCHCOUNT&> enchants remaining."
       ELSE
            CURENCHANT = #i0
            CALLSUB ENCHANT_SGRADE
            PRINT_TEXT "<&ENCHCOUNT&> enchants remaining."
       ENDIF
  ENDIF
NEXTEACH
PRINT_TEXT "<&SUCCESSENCHANTED&> are currently enchanted successfully to <&ENCHANT&>"
PRINT_TEXT "Done"
SCRIPT_END

SUB ENCHANT_OTHER
DEFINE bytebuffer my_bb 256
DEFINE bytebuffer new_bb 256

my_bb.WRITE_BYTE #i95
my_bb.WRITE_INT32 INVEN_AL.I.ID
my_bb.WRITE_INT32 #i0

new_bb.WRITE_BYTE #i208
new_bb.WRITE_BYTE #i76
new_bb.WRITE_BYTE #i0
new_bb.WRITE_INT32 INVEN_AL.I.ID

WHILE ZERO == ZERO
ITEM_COUNT CRYCOUNT "<&CRYID2&>"
IF CURENCHANT < ENCHANT
    ITEM_COUNT ENCHCOUNT "<&ENCHID&>"
    IF ENCHCOUNT > ZERO
        CURENCHANT = CURENCHANT + ONE
        PRINT_TEXT "Your <&ITEMNAME&> is enchanting to <&CURENCHANT&>"
        INJECT "<&ENCH&>"
        SLEEP 500
        new_bb.TRIM_TO_INDEX
        injectbb new_bb
        SLEEP 500
        my_bb.TRIM_TO_INDEX
        injectbb my_bb
        SLEEP "<&DELAY&>"
        ITEM_COUNT CRYCOUNT2 "<&CRYID2&>"
        IF CRYCOUNT2 > CRYCOUNT
            DELETE new_bb
            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 new_bb
    DELETE my_bb
    RETURNSUB
ENDIF
WEND
RETURNSUB


SUB ENCHANT_SGRADE
DEFINE bytebuffer my_bb 256
DEFINE bytebuffer new_bb 256

my_bb.WRITE_BYTE #i95
my_bb.WRITE_INT32 INVEN_AL.I.ID
my_bb.WRITE_INT32 #i0

new_bb.WRITE_BYTE #i208
new_bb.WRITE_BYTE #i76
new_bb.WRITE_BYTE #i0
new_bb.WRITE_INT32 INVEN_AL.I.ID

WHILE ZERO == ZERO
ITEM_COUNT CRYCOUNT "<&CRYID&>"
IF CURENCHANT < ENCHANT
    ITEM_COUNT ENCHCOUNT "<&ENCHID&>"
    IF ENCHCOUNT > ZERO
        CURENCHANT = CURENCHANT + ONE
        PRINT_TEXT "Your <&ITEMNAME&> is enchanting to <&CURENCHANT&>"
        INJECT "<&ENCH&>"
        SLEEP 500
        new_bb.TRIM_TO_INDEX
        injectbb new_bb
        SLEEP 500
        my_bb.TRIM_TO_INDEX
        injectbb my_bb
        SLEEP "<&DELAY&>"
        ITEM_COUNT CRYCOUNT2 "<&CRYID&>"
        IF CRYCOUNT2 > CRYCOUNT
            DELETE new_bb
            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 new_bb
    DELETE my_bb
    RETURNSUB
ENDIF
WEND
RETURNSUB

Fakaman · May 8, 2009

Very Useful!!! thanks for share!!!

honi01 · May 8, 2009

er can u make the script enchant one by one like easy2k4 's script. his script doesnt work since l2 gracia ct2.3 have been updated!

i know this script very useful but when i enchant the weap to +5 and i have some weap still +4 when i want to enchant the weap still +4 to +5 but this script enchant my weap +5 frist, then +4 after and i get tons of cry :((

phear3d · May 8, 2009

er can u make the script enchant one by one like easy2k4 's script. his script doesnt work since l2 gracia ct2.3 have been updated!

i know this script very useful but when i enchant the weap to +5 and i have some weap still +4 when i want to enchant the weap still +4 to +5 but this script enchant my weap +5 frist, then +4 after and i get tons of cry :((

Slow down your int delay, and it wont mess up. The other enchant scripts could be easily fixed using the "new_bb" bytebuffers and inject them..... I just dont have the time right now to go through all the old enchant scripts to fix them. I like this one most :)

Enjoy.. Thanks mpj

mpj123 · May 8, 2009

this is my favorite, I just set the enchant to 5, then run the script once with 1 enchant to each until they all break.

honi01 · May 8, 2009

can u fix this script

EDIT: no I cant.

AnestikaSs · May 8, 2009

nice good work!

DeMeNs0s · May 8, 2009

it was alrdy known by me. very useful cuz ppl are tired to enchant all the time manuel

mpj123 · May 8, 2009

these enchant scripts were already made a while back, we just updated it to support ct2.3 packets now.

AsianFool · May 9, 2009

awesome, thanks or the script~!

SjaakieTrekhaakies · May 9, 2009

thanks alot for the script!

HarapALB · May 15, 2009

I play on L2Inc and this script is working for S grade , still , for A grade or lower it might have a problem or do i , when i try to enchant something it show me that .... tallum armor is enchanted to 10 , i got cristals , and he don`t start another armor it shows to me that he is enchanting to 11 ..... and all items are succeseful enchanted .... does anyone have any idea????

yhn · May 15, 2009

that's a good script, thanks up :p

yautja · May 15, 2009

Thx :) Nice share man

Thaira · May 16, 2009

Very useful. Thx.

[SHARE]Automatic enchant script L2.NET ct2.3

Recommended Posts

mpj123

Fakaman

honi01

phear3d

mpj123

honi01

AnestikaSs

DeMeNs0s

mpj123

AsianFool

SjaakieTrekhaakies

HarapALB

yhn

yautja

Thaira

Posts

Topics

Browse

Activity

Store