Jump to content

[SHARE] L2.NET Auto Add Element


mochitto

Recommended Posts

This script is for auto add attribute to your weapon/armor.

 

How I use it?

All what you need for use is Elemental stone/crystal/jewel and item.

You must edit line 16 and 17 and put your name of elemental stone and item like

STONE = "#$Divine Stone"  
ITEM  = "#$Recurve Thorne Bow"

You dont forget syntax of string is #$ and full string must be in "" so "#$My jewel name" is correct.

 

// Auto Add Attribute
// Server: all
// Autor: mochitto
// Date: 1. 10. 2010
// Special thanks for L2.NET contributors
// rev.: 11
PRINT_TEXT "SCRIPT STARTED!]"
INCLUDE "StdLib\Inventory.l2c"

DEFINE_GLOBAL ARRAYLIST Inven
DEFINE_GLOBAL INT       ItemID
DEFINE_GLOBAL STRING    STONE
DEFINE_GLOBAL STRING    ITEM

// Edit the elemental stone name and name of item
STONE = "#$Fire Stone"  
ITEM  = "#$Archangel Sword {PvP}"

// Main section
// ===============================
GET_INVENTORY Inven
FOREACH A INVENTORY Inven
IF Inven.A.NAME == ITEM
	SLEEP 200
	PRINT_TEXT "Found item: +<&Inven.A.ENCHANT&> <&Inven.A.NAME&>"
	PRINT_TEXT "Elements start in 5 sec."
	SLEEP 5000
	ItemID = Inven.A.ID
	ADD_ELEMENT
ENDIF
NEXTEACH  

PRINT_TEXT "Item <&ITEM&> was not found :("   

PRINT_TEXT "SCRIPT STOPED!]"
END_SCRIPT

FUNCTION ADD_ELEMENT
DEFINE INT COUNT 0
WHILE ZERO == ZERO
	GET_INVENTORY Inven
	SLEEP 800
	FOREACH A INVENTORY Inven
		IF Inven.A.NAME == STONE
			COUNT = Inven.A.COUNT
			USE_ITEM "<&Inven.A.ITEM_ID&>"
			SLEEP 400
			IF COUNT > 1
				PRINT_TEXT "Element with <&Inven.A.NAME&>"
				INJECT "D0 35 00 <&ItemID.GET_HEX32&>"
			ELSE
				BREAK 4
			ENDIF
		ENDIF
	NEXTEACH
	IF COUNT == 0
		BREAK 2
	ENDIF
	SLEEP 25
WEND
PRINT_TEXT "<&STONE&> was not found :("
PRINT_TEXT "SCRIPT STOPED!]"
END_SCRIPT	
RETURN VOID

Link to comment
Share on other sites

  • 4 months later...
  • 2 months later...
  • 2 weeks later...
  • 4 weeks later...

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now


×
×
  • Create New...