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

monkey333 · January 14, 2009

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 · January 14, 2009

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 · January 14, 2009

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 · January 14, 2009

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 · January 15, 2009

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 · January 17, 2009

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

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

mpj123 · January 18, 2009

l2.net 358 and over.

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

Flarez · January 18, 2009

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

mpj123 · January 18, 2009

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 · January 19, 2009

Usefull Share.

Nice Share.

deme · January 19, 2009

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 · January 19, 2009

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 · January 19, 2009

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

sltbnjr · January 20, 2009

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

mpj123 · January 20, 2009

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...

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

Recommended Posts

monkey333

mpj123

eikon

eikon

mpj123

metralha

mpj123

Flarez

mpj123

alaninhabr

deme

mpj123

deme

sltbnjr

mpj123

Posts

Topics

Browse

Activity

Store