Problem with augment script for Interlude (l2net)

[ze1as]

Hello people!

I dunno what i do wrong,l2net ask me check Life Stones count.(On Interlude LS not stackable)

 

This error all time when i try to use script. :rage: :rage: :rage: :rage: :rage: :rage:

Make sure you have more than 1 Life Stone.

Not enough Mid-Grade Life Stone: level 76 for starting auto augmentation.

 

And this is script what i use.

///////////////////////////////////////////////////////////////////////////////////// 
INCLUDE Include/AutoAugEngine.l2c 
INCLUDE StdLib/player.l2c 
DEFINE_GLOBAL AugEngine AA_ScrObj 0 
///////////////////////////////////////////////////////////////////////////////////// 




// CHANGE THE WEAPON NAME WITH THE EXACT NAME OF YOURS 
AA_ScrObj.WRK_ITEM.NAME = "#$Draconic Bow" 

// CHANGE THE LIFE STONE NAME WITH THE EXACT NAME OF YOURS 
AA_ScrObj.WRK_LS.NAME = "#$Mid-Grade Life Stone: level 76" 


// CHANGE FOR WHAT AUGMENT CONFIGURATION YOU WANT 
// #i1 - just skills ; #i2 - just base stat 
// #i3 - skills or base stat 
// #i4 - skills and base stat <- THIS COULD NEVER HAPPEN 
AA_ScrObj.AUG_TYPE = #i1 


// ADD THE SKILL ID THAT ARE YOU LOOKING FOR(if you don't want just the base stat) 
AA_ScrObj.CHOSE_SKILL.ADD #i3241 
AA_ScrObj.CHOSE_SKILL.ADD #i3240 
AA_ScrObj.CHOSE_SKILL.ADD #i3244 
AA_ScrObj.CHOSE_SKILL.ADD #i3243 
AA_ScrObj.CHOSE_SKILL.ADD #i3247 
// ...YOU CAND ADD MORE OR REMOVE AND KEEP JUST ONE 


// #$STR - for STR+1 
// #$CON - for CON+1 
// #$MEN - for MEN+1 
// #$INT - for INT+1 
// CHANGE BELOW FOR WHAT BASE STAT YOU WANT(if you don't want just the skills) 
AA_ScrObj.BASE_STAT = #$STR	




// CHANGE TO "TRUE" TO ADD THE 2 SECONDS DELAY, LIKE INGAME, 
// WHEN ADDING OR REMOVING AUGMENTATION 
AA_ScrObj.PROTECT_DELAY = FALSE 

// CHANGE TO "FALSE" IF YOU DON'T WANT TO SAVE LOGS 
AA_ScrObj.SAVE_LOG = TRUE 
// NUMBER OF LOG LINES PER File 
AA_ScrObj.LOG_LINES = #i2000 


// NPC DIALOG STRINGS, NEED TO CHNAGE ONLY IF THEY DIFFER (FOR RETAIL THIS IS A MUST) 
AA_ScrObj.NPC_DIAG11 = "#$bypass -h npc_<&TARGET_ID&>_Link common/augmentation_01.htm" 
AA_ScrObj.NPC_DIAG12 = "#$bypass -h npc_<&TARGET_ID&>_Augment 1" 
AA_ScrObj.NPC_DIAG21 = "#$bypass -h npc_<&TARGET_ID&>_Link common/augmentation_02.htm" 
AA_ScrObj.NPC_DIAG22 = "#$bypass -h npc_<&TARGET_ID&>_Augment 2" 





// DON'T CHANGE NOTHING BELOW (ONLY IF YOU KNOW WHAT ARE YOU DOING) 
///////////////////////////////////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////////////////////////////////// 

//for event anti stuck 
DEFINE_GLOBAL STRING EVT_LABEL "" 
THREAD EVT_ANTI_STUCK 
LOCK ASTK 
IF AA_ScrObj.SAVE_LOG == TRUE 
THREAD LOG_N_PROTECT 
ENDIF 
AA_ScrObj.LOAD_AND_CHECK 

PRINT_TEXT "=====================================" 
PRINT_TEXT "== Gemstone grade and count will be verified on augmentation process." 
PRINT_TEXT "=====================================" 
PRINT_TEXT "== '<&AA_ScrObj.WRK_LS.NAME&>' x <&AA_ScrObj.LS_COUNT&>" 
PRINT_TEXT "== 'Adena' x <&AA_ScrObj.ADENA_COUNT&>" 
PRINT_TEXT "== " 
PRINT_TEXT "== '<&AA_ScrObj.WRK_ITEM.NAME&>' +<&AA_ScrObj.WRK_ITEM.ENCHANT&>" 
AA_ScrObj.PRINT_AUGMENT 
PRINT_TEXT "=====================================" 
PRINT_TEXT "= You have 15 seconds to stop the script if something it's wrong." 
PRINT_TEXT "=====================================" 
SLEEP 15000 

DO 
IF AA_ScrObj.HAS_AUG == FALSE 
ADD_AUGMENT 
ELSE 
REMOVE_AUGMENT 
ENDIF 
LOOP ONE == ONE 

AA_ScrObj.SCRIPT_END 

FUNCTION CHECK_DIAG 0 
UNLOCK ASTK 
EVT_SET VOID 2 #$_subdchk1 #i25 
AA_ScrObj.S_RAND_500 
TALK_TARGET 
SLEEP 500 
LOCK DIAG_EVT_CHK 
SLEEP 50 
UNLOCK DIAG_EVT_CHK 
RETURN VOID 

FUNCTION _subdchk1 0 
UNSET_EVENT VOID 1 #i25 
DEFINE STRING _html 0 
PACKET.READ_BYTE NULL 
PACKET.READ_INT32 NULL 
PACKET.READ_STRING _html 
IF "_html.CONTAINS AA_ScrObj.NPC_DIAG11" == FALSE 
AA_ScrObj.NPC_DIAG_NOMATCH 
ELSE 
EVT_SET VOID 2 #$_subdchk2 #i25 
AA_ScrObj.S_RAND_500 
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG11&>" 
ENDIF 
SLEEP 300 
RETURN VOID 

FUNCTION _subdchk2 0 
UNSET_EVENT VOID 1 #i25 
DEFINE STRING _html 0 
PACKET.READ_BYTE NULL 
PACKET.READ_INT32 NULL 
PACKET.READ_STRING _html 
IF "_html.CONTAINS AA_ScrObj.NPC_DIAG12" == FALSE 
AA_ScrObj.NPC_DIAG_NOMATCH 
ELSE 
EVT_SET VOID 2 #$_subdchk3 #i25 
AA_ScrObj.S_RAND_500 
TALK_TARGET 
ENDIF 
SLEEP 300 
RETURN VOID 

FUNCTION _subdchk3 0 
UNSET_EVENT VOID 1 #i25 
DEFINE STRING _html 0 
PACKET.READ_BYTE NULL 
PACKET.READ_INT32 NULL 
PACKET.READ_STRING _html 
IF "_html.CONTAINS AA_ScrObj.NPC_DIAG21" == FALSE 
AA_ScrObj.NPC_DIAG_NOMATCH 
ELSE 
EVT_SET VOID 2 #$_subdchk4 #i25 
AA_ScrObj.S_RAND_500 
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG21&>" 
ENDIF 
SLEEP 300 
RETURN VOID 

FUNCTION _subdchk4 0 
UNSET_EVENT VOID 1 #i25 
DEFINE STRING _html 0 
PACKET.READ_BYTE NULL 
PACKET.READ_INT32 NULL 
PACKET.READ_STRING _html 
IF "_html.CONTAINS AA_ScrObj.NPC_DIAG22" == FALSE 
AA_ScrObj.NPC_DIAG_NOMATCH 
ENDIF 
SLEEP 100 
LOCK ASTK 
UNLOCK DIAG_EVT_CHK 
RETURN VOID 


FUNCTION ADD_AUGMENT 
UNLOCK ASTK 
AA_ScrObj.CHK_STOK 
PRINT_TEXT "== Augmenting item..." 
PRINT_TEXT "=====================================" 
EVT_SET VOID 2 #$_add_interogate #i25 
AA_ScrObj.S_RAND_300 
TALK_TARGET 
SLEEP 500 
LOCK ADMAG 
SLEEP 50 
UNLOCK ADMAG 
RETURN VOID 

FUNCTION _add_interogate 
//	LOCK ADMAG 
UNSET_EVENT VOID 1 #i25 
EVT_SET VOID 2 #$_add_navdiag11 #i25 
AA_ScrObj.S_RAND_300 
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG11&>" 
RETURN VOID 

FUNCTION _add_navdiag11 
UNSET_EVENT VOID 1 #i25 
EVTEX_SET VOID 2 #$_add_navdiag12 #i81 
AA_ScrObj.S_RAND_300 
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG12&>" 
RETURN VOID 

FUNCTION _add_navdiag12 
UNSET_EVENTEX VOID 1 #i81 
EVTEX_SET VOID 2 #$_add_insitem #i83 
AA_ScrObj.ADD_ITEM 
RETURN VOID 

FUNCTION _add_insitem 
UNSET_EVENTEX VOID 1 #i83 
EVTEX_SET VOID 2 #$_add_insls #i84 
AA_ScrObj.ADD_LS 
RETURN VOID 

FUNCTION _add_insls 
UNSET_EVENTEX VOID 1 #i84 
IF AA_ScrObj.AUG_TIMES < ONE 
PACKET.READ_BYTE NULL 
PACKET.READ_INT16 NULL 
PACKET.READ_INT32 NULL 
PACKET.READ_INT32 NULL 
PACKET.READ_INT32 AA_ScrObj.WRK_GEM.ITEM_ID 
PACKET.READ_INT32 AA_ScrObj.GEMS_REQ 
AA_ScrObj.LOAD_GEMINF 
IF AA_ScrObj.GEMS_COUNT <= AA_ScrObj.GEMS_REQ 
PRINT_TEXT "Not enough Gemstones for augmentation." 
AA_ScrObj.SCRIPT_END 
ENDIF 
ENDIF 
EVTEX_SET VOID 2 #$_add_insgems #i85 
AA_ScrObj.ADD_GEMS 
RETURN VOID 

FUNCTION _add_insgems 
UNSET_EVENTEX VOID 1 #i85 
EVTEX_SET VOID 2 #$_add_confirm #i86 
AA_ScrObj.CONFIRM_AUG 
RETURN VOID 

FUNCTION _add_confirm 
UNSET_EVENTEX VOID 1 #i86 
PACKET.READ_BYTE NULL 
PACKET.READ_INT16 NULL 
AA_ScrObj.AUG_DATA.CLEAN 
PACKET.READ_INT32 AA_ScrObj.AUG_DATA.LVAL 
PACKET.READ_INT32 AA_ScrObj.AUG_DATA.RVAL 
AA_ScrObj.COMPARE 
LOCK ASTK 
UNLOCK ADMAG 
RETURN VOID 

FUNCTION REMOVE_AUGMENT 
UNLOCK ASTK 
PRINT_TEXT "== Removing augmentation..." 
PRINT_TEXT "=====================================" 
EVT_SET VOID 2 #$_rem_interogate #i25 
AA_ScrObj.S_RAND_300 
TALK_TARGET 
SLEEP 500 
LOCK RVMAG 
SLEEP 50 
UNLOCK RVMAG 
RETURN VOID 

FUNCTION _rem_interogate 
//LOCK RVMAG 
UNSET_EVENT VOID 1 #i25 
EVT_SET VOID 2 #$_rem_navdiag21 #i25 
AA_ScrObj.S_RAND_300 
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG21&>" 
RETURN VOID 

FUNCTION _rem_navdiag21 
UNSET_EVENT VOID 1 #i25 
EVTEX_SET VOID 2 #$_rem_navdiag22 #i82 
AA_ScrObj.S_RAND_300 
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG22&>" 
RETURN VOID 

FUNCTION _rem_navdiag22 
UNSET_EVENTEX VOID 1 #i82 
EVTEX_SET VOID 2 #$_rem_insitem #i87	
AA_ScrObj.ARM_ITEM 
RETURN VOID 

FUNCTION _rem_insitem 
UNSET_EVENTEX VOID 1 #i87 
IF AA_ScrObj.ADENA_REQ == ZERO 
PACKET.READ_BYTE NULL 
PACKET.READ_INT16 NULL 
PACKET.READ_INT64 NULL 
PACKET.READ_INT64 NULL 
PACKET.READ_INT64 AA_ScrObj.ADENA_REQ 
ENDIF 
AA_ScrObj.CHK_ADENA 
EVTEX_SET VOID 2 #$_rem_confirm #i88 
AA_ScrObj.ARM_CONFIRM 
RETURN VOID 

FUNCTION _rem_confirm 
UNSET_EVENTEX VOID 1 #i88 
AA_ScrObj.HAS_AUG = FALSE 
PRINT_TEXT "=====================================" 
PRINT_TEXT "== Augmentation removed successfully." 
PRINT_TEXT "== Proceeding to re-augmenting." 
PRINT_TEXT "=====================================" 
LOCK ASTK 
UNLOCK RVMAG 
RETURN VOID 

FUNCTION LOG_WFILE 
DEFINE INT _fcnt 1 
DEFINE STRING _temptime "" 
AA_ScrObj.TObj.LTIMER_START 
AA_ScrObj.TObj.PGET_TIME _temptime 
_temptime = "#$Auto augmentation started at <&_temptime&>, with:" 
AA_ScrObj._logaug.PUSH _temptime 
DO 
IF AA_ScrObj._logaug.LENGTH >= AA_ScrObj.LOG_LINES 
SLEEP 100 
LOCK FLWRT 
AA_ScrObj.TObj.SFN_DateTime AA_ScrObj._logfname 
AA_ScrObj._logfname = "#$ALogAug_<&CHAR_NAME&>_<&_fcnt&>_<&AA_ScrObj._logfname&>" 
PRINT_TEXT "writing augment logs to file..." 
CALL_EXTERN "Include/Utils.l2s" WRITE_FILE VOID 3 AA_ScrObj._logfname AA_ScrObj._logaug #$w 
//	 WRITE_LOG 
PRINT_TEXT "logs saved under <&AA_ScrObj._logfname&>.txt" 
_fcnt = _fcnt + ONE 
SLEEP 50 
UNLOCK FLWRT 
ENDIF 
SLEEP 500 
LOOP ONE == ONE 
RETURN VOID 

FUNCTION WRITE_LOG 
PRINT_TEXT "writing augment logs to file..." 
DEFINE FILEWRITER _fwopened "<&AA_ScrObj._logfname&>" 
WHILE AA_ScrObj._logaug.LENGTH > ZERO 
_fwopened.WRITE AA_ScrObj._logaug.POP 
WEND 
_fwopened.FLUSH 
_fwopened.CLOSE 
PRINT_TEXT "logs saved under <&AA_ScrObj._logfname&>.txt" 
RETURN VOID 

FUNCTION EVTEX_SET 2 _evt_func _evt_id 
SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" "<&_evt_func&>" "<&_evt_id&>" 
AA_ScrObj.S_RAND_300 
EVT_LABEL = "#$<&_evt_func&>" 
RETURN VOID 

FUNCTION EVT_SET 2 _evt_func _evt_id 
SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" "<&_evt_func&>" "<&_evt_id&>" 
AA_ScrObj.S_RAND_300 
EVT_LABEL = "#$<&_evt_func&>" 
IF #$_add_interogate == "#$<&_evt_func&>" 
LOCK ADMAG 
ENDIF 
IF #$_rem_interogate == "#$<&_evt_func&>" 
LOCK RVMAG 
ENDIF 
IF #$_subdchk1 == "#$<&_evt_func&>" 
LOCK DIAG_EVT_CHK 
ENDIF 
RETURN VOID 

FUNCTION UNSET_EVENT 1 _evtid 
SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" _nof "<&_evtid&>" 
AA_ScrObj.S_RAND_100 
EVT_LABEL = #$none 
RETURN VOID 

FUNCTION UNSET_EVENTEX 1 _evtid 
SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" _nof "<&_evtid&>" 
AA_ScrObj.S_RAND_100 
EVT_LABEL = #$none 
RETURN VOID 

FUNCTION _nof 
SLEEP 50 
RETURN VOID 

FUNCTION EVT_ANTI_STUCK 
DEFINE STRING _chkstuk "" 
WHILE ONE == ONE 
_chkstuk = EVT_LABEL 
SLEEP 3000 
LOCK ASTK 
SLEEP 50 
UNLOCK ASTK 
IF ( _chkstuk == EVT_LABEL ) && ( EVT_LABEL != #$none ) 
PRINT_TEXT "anti stuck action..." 
SWITCH EVT_LABEL 
CASE #$_add_interogate 
CASE #$_rem_interogate 
CASE #$_subdchk1 
CASE #$_subdchk3 
TALK_TARGET 
BREAK 1 
CASE #$_add_navdiag11 
CASE #$_subdchk2 
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG11&>" 
BREAK 1 
CASE #$_add_navdiag12 
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG12&>" 
BREAK 1 
CASE #$_add_insitem 
AA_ScrObj.ADD_ITEM 
BREAK 1 
CASE #$_add_insls 
AA_ScrObj.ADD_LS 
BREAK 1 
CASE #$_add_insgems 
AA_ScrObj.ADD_GEMS 
BREAK 1 
CASE #$_add_confirm 
AA_ScrObj.CONFIRM_AUG 
BREAK 1 
CASE #$_rem_navdiag21 
CASE #$_subdchk4 
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG21&>" 
BREAK 1 
CASE #$_rem_navdiag22 
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG22&>" 
BREAK 1 
CASE #$_rem_insitem 
AA_ScrObj.ARM_ITEM 
BREAK 1 
CASE #$_rem_confirm 
AA_ScrObj.ARM_CONFIRM 
BREAK 1 
ENDSWITCH 
ENDIF 
WEND 
RETURN VOID 

FUNCTION LOG_N_PROTECT 
THREAD LOG_WFILE 
AA_ScrObj.TObj.SFN_DateTime AA_ScrObj._evtlogfn 
AA_ScrObj._evtlogfn = "#$ALogEvt_<&CHAR_NAME&>_<&AA_ScrObj._evtlogfn&>" 
CALL_EXTERN "Include/Utils.l2s" WRITE_FILE VOID 3 AA_ScrObj._evtlogfn "#$" #$w 
PRINT_TEXT "Log <&AA_ScrObj._evtlogfn&>.txt created" 
SET_EVENT "<&SCRIPTEVENT_CHAT&>" "<&SYSTEM_CURRENTFILE&>" _chatter 
SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" _ptinv 57 
SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" _traderq 112 
SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" _claninv 44 
THREAD LOG_WRITER 
RETURN VOID 

PUBLIC LOG_WRITER 
WHILE ONE == ONE 
SLEEP 300000 
AA_ScrObj.EVT_LOGS_WR 
WEND 
RETURN VOID 

FUNCTION _chatter 
IF MESSAGETYPE == TWO 
AA_ScrObj.ADD_LMEM VOID 4 SENDERNAME MESSAGETYPE MESSAGE NULL 
ELSE 
IF "MESSAGE.CONTAINS CHAR_NAME" == TRUE 
AA_ScrObj.ADD_LMEM VOID 4 SENDERNAME MESSAGETYPE MESSAGE TRUE 
THREAD _allchtlog 
SET_EVENT "<&SCRIPTEVENT_CHAT&>" "<&SYSTEM_CURRENTFILE&>" _logallchat 
PRINT_TEXT "Your name was mentioned, logging all chat for 3 minutes..." 
ENDIF 
ENDIF 
RETURN VOID 

FUNCTION _allchtlog 
SLEEP 180000 
SET_EVENT "<&SCRIPTEVENT_CHAT&>" "<&SYSTEM_CURRENTFILE&>" _chatter 
PRINT_TEXT "Logging all chat stopped." 
RETURN VOID 

FUNCTION _logallchat 
AA_ScrObj.ADD_LMEM VOID 4 SENDERNAME MESSAGETYPE MESSAGE TRUE 
RETURN VOID 

FUNCTION _ptinv 
DEFINE STRING _crtime 0 
AA_ScrObj.TObj.PGET_TIME _crtime 
PACKET.READ_BYTE NULL 
DEFINE STRING _tmppers "" 
PACKET.READ_STRING _tmppers 
AA_ScrObj._evtlogs.PUSH "#$ [<&_crtime&>]: Party invitation by <&_tmppers&>" 
AA_ScrObj.S_RANDL_1500 
INJECT "43 00 00 00 00" // reject party 
RETURN VOID 

FUNCTION _traderq 
DEFINE STRING _crtime 0 
AA_ScrObj.TObj.PGET_TIME _crtime 
DEFINE INT _astobj 0 
PACKET.READ_BYTE NULL 
PACKET.READ_INT32 _astobj 
DEFINE STRING _tmppers "" 
DEFINE ARRAYLIST _playersc 0 
GET_PLAYERS _playersc 
FOREACH _ixs Player _playersc 
IF _playersc._ixs.ID == _astobj 
_tmppers = "#$<&_playersc._ixs.NAME&>" 
BREAK 2 
ENDIF 
NEXTEACH 
AA_ScrObj._evtlogs.PUSH "#$ [<&_crtime&>]: Trade requeste by <&_tmppers&>" 
AA_ScrObj.S_RANDL_1500 
INJECT "55 00 00 00 00" // reject trade 
RETURN VOID 

FUNCTION _claninv 
DEFINE STRING _crtime 0 
AA_ScrObj.TObj.PGET_TIME _crtime 
DEFINE INT _astobj 0 
PACKET.READ_BYTE NULL 
PACKET.READ_INT32 _astobj 
DEFINE STRING _tmppers "" 
DEFINE ARRAYLIST _playersc 0 
GET_PLAYERS _playersc 
FOREACH _ixs Player _playersc 
IF _playersc._ixs.ID == _astobj 
_tmppers = "#$<&_playersc._ixs.NAME&>" 
BREAK 2 
ENDIF 
NEXTEACH 
AA_ScrObj._evtlogs.PUSH "#$ [<&_crtime&>]: Clan invitation by <&_tmppers&>" 
AA_ScrObj.S_RANDL_1500 
INJECT "27 00 00 00 00" // reject clan 
RETURN VOID