ze1as

[L2J] L2Oreo

ze1as replied to Lineal's topic in Private Servers

Looks good , i will join :)

[L2J]L2Castrol

ze1as replied to CastrolTeam's topic in Private Servers

offline again? :troll:

Problem with augment script for Interlude (l2net)

ze1as posted a topic in Request Botting [English]

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