Jump to content

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


Recommended Posts

Posted

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 ?

Posted

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

Posted

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

Posted

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

Posted

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.

Posted

l2.net 358 and over.

 

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

Posted

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:

Posted

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.

Posted

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

Posted

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

Guest
This topic is now closed to further replies.



  • Posts

    • ElmoreLab Harbor - Eternal C1 x1: ✅ https://harbor.elmorelab.com ElmoreLab Harbor - Eternal C1 x1 - is an exclusive server of the Eternal C1 chronicles from the top project ElmoreLab Harbor.   A unique server of its kind, on which everyone will have maximum pleasure, such as oldschool players who dream of nostalgia and to feel the warmest and classic C1 chronicles, as well as experienced players who are tired of thousands unbalanced servers of late chronicles. Due to the professional corrections of the balance system and the HONEST gameplay system - on this server, EVERY player will feel like in their own, warm and cozy Harbor C1. Let's return to the origins of L2 - back to 2004 in C1! ❤️   ⭐ Server characteristics:   STRICTLY 1 window, NO BOXES Bans for RMT and bots/cheats No donations with benefits Unique and high-quality PTS-build from Master Toma Professional corrections and full class-balance Reworked economy and closed all abuses Improved animations and all aspects of the game Exclusive HD-client with high-quality textures Experienced administration and management Fixed all bugs, geodata, exploits and holes Maximum sociality due to the 1-box system Discovering, exploring and researching Big online International server Nostalgia and oldschool-feelings   Rates: x1 Server start: 14.02.2025   The server is at the final stages of development and preparation for release. Information on the server will be updated, soon the patchnotes and changes/edits will be posted. Don't miss the legendary and epic experience on the best server in the last 20 years! ❤️ Join our C1-forum with a lot of information about server and active discussions.   ⭐ Website: https://harbor.elmorelab.com   ✅ Forum: https://forum-harbor.elmorelab.com   💥 Telegram: https://t.me/l2harbor https://t.me/l2harbor_chat   ⚡ Discord: https://discord.gg/harborelmorelab
    • yeah ok, if you say what is fuctional 100% i can't say something different 😛  but if someone find hard to compile it or get vs and all that things i have here one more simple way here to put overlay in your own server or to change your window name with few money.
    • I've been using this for 2 years now with no issues from Discord. I don't use ogg.dll either. This one works with any l2.exe too; I don’t see any difference between them.
    • hmm.. ok i just see that, is different code first of all. My sources is totally different based in other way, with else libraries.  I have access to modify everything even to make the clock to stop show how many time users play in server. 1) so maybe keep some personal info more hide. 2) i dont use ogg.dll 3) i create it and give it ready + support to install it. Plus what is mine can working with what ever .exe you want not just l2 with same simple method. And i am sure if you try this source to compile it, after 3 hours discord will like shadowban your API too thats my source
  • Topics

×
×
  • Create New...