free989 Posted March 11, 2009 Posted March 11, 2009 for my dont work in l2inc :( :-[ :-[ :-[ :-[ :-[ :-\ :-\ :-\ :-\ Help!!! ???
masterkingg Posted March 11, 2009 Posted March 11, 2009 please give me a script for weapons a-grade please and armour
masterkingg Posted March 11, 2009 Posted March 11, 2009 //made by rocket666 //edited and tweaked by masterkingg //testing, bug solutions and just being cool, masterkingg INCLUDE StdLib\inventory.l2c //Settings DEFINE STRING ITEMNAME "Sword of Miracles" //Item name, don't write the SA DEFINE STRING ITGRADE A //Item grade (A=s) DEFINE STRING ENCHNAME "Scroll: Enchant Weapon (A)" //Enchant name DEFINE STRING ENCHANT 5 //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 we succeeded
mpj123 Posted March 12, 2009 Author Posted March 12, 2009 topic locked, topic is old now, new versions are available at www.ltwonet.com.
Recommended Posts