PeterGriffin Posted February 27, 2009 Share Posted February 27, 2009 It work for me... I make u notice that if u wanna enchant an A grade item u have to put " - " in crystal definition Like: //Some definitions DEFINE INT CURENCHANT 0 DEFINE INT SUCCESSENCHANTED 0 DEFINE STRING CRYSTAL "Crystal: <&ITGRADE&>-Grade" Link to comment Share on other sites More sharing options...
Ep1c* Posted March 6, 2009 Share Posted March 6, 2009 Don't Working for me. I think i make something wrong... Link to comment Share on other sites More sharing options...
mpj123 Posted March 6, 2009 Author Share Posted March 6, 2009 yea.... I just kinda thought that most people were enchanting S grade i guess :P Link to comment Share on other sites More sharing options...
masterkingg Posted March 6, 2009 Share Posted March 6, 2009 i using l2net v361 and use script //edited and tweaked by mpj123 //testing, bug solutions and just being cool, MeatWod INCLUDE StdLib\inventory.l2c //Settings DEFINE STRING ITEMNAME "Icarus Disperser/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 and result: 8:12:57 PM :[0 are currently enchanted successfully to 12 8:12:57 PM :[Done ??? Link to comment Share on other sites More sharing options...
mpj123 Posted March 6, 2009 Author Share Posted March 6, 2009 OH MY GOD. DEFINE STRING ITEMNAME "Icarus Disperser/ARMOR HERE" should be DEFINE STRING ITEMNAME "Icarus Disperser" Link to comment Share on other sites More sharing options...
masterkingg Posted March 6, 2009 Share Posted March 6, 2009 I HAVE DEFINE DEFINE STRING ITEMNAME "Icarus Disperser" AND RESULT 8:32:23 PM :[ERROR: SCRIPT ERROR : THREAD[14] LINE[39] : VARIABLE ITEMNAME IS UNDEFINED 8:32:23 PM :[0 are currently enchanted successfully to 4 8:32:23 PM :[Done Link to comment Share on other sites More sharing options...
masterkingg Posted March 6, 2009 Share Posted March 6, 2009 give me please complete the script and you post here, here and give you the ip l2inc do you test to see if the server goes enchant safe IP: 85.14.219.81 PORT: 2106 www.l2inc.eu Link to comment Share on other sites More sharing options...
free989 Posted March 6, 2009 Share Posted March 6, 2009 in l2inc dont work :( !!! Link to comment Share on other sites More sharing options...
mpj123 Posted March 6, 2009 Author Share Posted March 6, 2009 I was using it in l2inc, it works. Link to comment Share on other sites More sharing options...
masterkingg Posted March 6, 2009 Share Posted March 6, 2009 but what I don scriptu I go? Gimme scriptu you please try to complete echantez Icarus Disperser //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 Disperser" //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 4 //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 result 11:39:35 PM :[Enchant is over. 11:39:35 PM :[0 are currently enchanted successfully to 4 Link to comment Share on other sites More sharing options...
free989 Posted March 6, 2009 Share Posted March 6, 2009 I was using it in l2inc, it works. U can post your scripts for any icarus weapon in L2inc plz and what i need in my inventory??? sorry for my english xD Link to comment Share on other sites More sharing options...
mpj123 Posted March 6, 2009 Author Share Posted March 6, 2009 you probably wrote the item name wrong or you don't have S enchants...? Link to comment Share on other sites More sharing options...
free989 Posted March 7, 2009 Share Posted March 7, 2009 you probably wrote the item name wrong or you don't have S enchants...? I have :( Link to comment Share on other sites More sharing options...
erelis123 Posted March 7, 2009 Share Posted March 7, 2009 works perfect Link to comment Share on other sites More sharing options...
CalyXTen Posted March 7, 2009 Share Posted March 7, 2009 yea it work for me good job Link to comment Share on other sites More sharing options...
Recommended Posts