Jump to content

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


mpj123

Recommended Posts

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

Link to comment
Share on other sites

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 :((

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.


  • Posts

    • Hi everyone,   As the title says 306 - Return of Queen Ant. Thank you.
    • Well my friend, I'm not going to stay here arguing anymore, because you won't give up and much less have the humility to accept something you did wrong, as you saw, I value the work of others, I know who really creates or even takes a block of code and does something better and different, but the subject here was about a guy, nicknamed Vraekar, who steals and SELLS interfaces as if they were his, and is that within your beliefs?, belief that if the guy creates something it has to be stolen and whoever stole it can profit from it?, that's what I'm talking about, you've fought a lot against this, and today you help a guy like that to do wrong, but anyway, you know what you're doing, I hope you reflect, the community knows who does and who helps the wrong. Stay with God, because six of the problems that go around.
    • You claim you thought I was a "serious" person before. Well, maybe you just never took the time to actually know me. People evolve, but I stay true to what I do and believe in. If you’re that hung up on what I’ve been doing, maybe it's time to stop speculating and start focusing on yourself. 🙂
    • Well, at least it's clear that you don't respect the work of others. Secondly, everyone knows that you code nothing. Your group has devs. known that you've asked for a lot of help and code exchange with some well-known BRs. there are chats and I can prove it, then don't come playing the good guy because you're not. So, Celestine, I'm not judging you. I'm saying that I know that your group helped vraekar steal the codes, and I have proof. In the past, I thought you were a serious, good-natured guy, but lately, you're a different person. Your text above speaks for you.
    • What I do or who I work with is none of your concern, and honestly, I couldn't care less. Lately, I've seen a lot of people trying to make a quick buck off scams, so let's not even mention names you wouldn't want them getting upset, right? 🙂  As for the projects I've been involved with, there's a server about to launch that I’m personally waiting for, and when it does, I’ll release the work publicly for free because people deserve better than what these so called "developers" are pushing. I’m not here to defend anyone, but if you had any real knowledge, you’d see how poorly written some of these scripts are. I’ve worked with Vraekar in the past, and I know for a fact he’s never sold anything I’ve created. So before you start running your mouth, ask yourself: why are you even juding me?
  • Topics

×
×
  • Create New...