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

[monkey333]

I think I've found out why some enchant works and some don't. When the enchant scrolls run out, l2net still registers the scroll in the inventory. When you buy some more scrolls, it doesn't add to the first one but instead registers as a second group of identifcal scrolls. When you run the script again, it keeps trying to use the scrolls in the first group which doesn't exist anymore as it ran out. The only way for me to keep the script working is to always have more enchant scrolls than needed. Perhaps a bug ?

[mpj123]

I can fix that easily.... 1 second. Just a matter of changing the itemcount to see if theres more then one scroll instead of more then zero.

 

I'll report this to slothmo, but I think this is normal.

 

Each stack of items.... either it be adena, FA, seal stones get a Unique ID. If that pile is depleted, then you get a new Unique ID. So the client sees this item as a "new" item you didn't have before.

 

thanks for the bug report, I never ran out of enchants myself :P

[eikon]

dudes , i don't understand anything :((( ... for me is nothing clearly with auto-enchanter ... where i must put this ?   

 

//edited and tweaked by mpj123
//testing, bug solutions and just being cool, MeatWod
INCLUDE StdLib\inventory.l2c

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


//Some definitions
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

 

:| please help a little cheatr like me ..thx

[eikon]

oh, seems to be clear, first i copy the l2.net from www.ltwonet.com... and than i copy mpj123 post.. and than ... omg i am nooooooB in this CHAPTER

[mpj123]

you put it in the l2.net scripting window.... Scripting ==> Script editor ==> copy paste my script, ==>save

 

Then go back to Scripting ==> Set Main Script, choose the script you named, Start script.

 

dont forget to edit the line

 

DEFINE STRING ITEMNAME "WEAPON HERE/ARMOR HERE" 

 

and

 

DEFINE STRING ENCHNAME "Scroll: Enchant Weapon (S)"

 

with your weapon name and enchant scroll.

[metralha]

error erro thered [9] Line [32] ..... dont work

edit:in gracia ct2 ..... my time lose

[mpj123]

l2.net 358 and over.

 

I used this script, I know it works. You did something wrong.

[Flarez]

something wrong, don't work for me... :[

[mpj123]

Flarez.... what exactly isn't working. If you dont tell me whats wrong and inform me, then I cannot help you.

 

I need to know:

What l2.net version -

What the dump is -

What language your l2 client is in -

What server chronicle you are playing on -

 

optional:

What server is it if you dont mind -

What the server web site is -

Any other additional error logs or information I should know know about:

[alaninhabr]

Usefull Share.

Nice Share.

[deme]

didn't work for me either :(

 

it says:

 

[ERROR: SCRIPT ERROR : THREAD[10] LINE[20] : ITEM_GET_ID

[ERROR: SCRIPT ERROR : THREAD[10] LINE[31] : ITEM_GET_ID

[0 are currently enchanted successfully to 35

[Done

 

but when i log-in my weap is still +0

 

I am using l2.net v359

 

the script is as below:

 

//made by rocket666

//edited and tweaked by mpj123

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

INCLUDE StdLib\inventory.l2c

 

//Settings

DEFINE STRING ITEMNAME "Icarus Dual Sword"            //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 35              //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

 

Any help would be appreciated,thnx.

[mpj123]

not sure why ur getting that error.... you are logged in completely correct? You can move on the minimap?

 

I just tried the script again, and it works....

 

2:41:46 PM :[2 are currently enchanted successfully to 4

2:41:46 PM :[Done

 

if thats the case,

try this

 

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

//Settings
DEFINE STRING ITEMNAME "Icarus Dual Sword"            //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 35              //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

[deme]

My bad,i forgot to download the Data folder...Now everything work perfectly,ty mpj123  ;D

[sltbnjr]

It should enchant for a goal level instead of a static amount of scrolls per item ~

[mpj123]

that script has been made, its just not public. I'd feel like a douche if I were to edit mine with the same stuff and post it. Its up to the maker of the script to post it :<

 

And this does the trick...