kukumalupu
Donkey Kong
- 30/9/09
- 441
- 20
@quingyu: cài lại SlimDx xem
không up dc thì xóa hết cài lại cái v392 mới luôn zz
không up dc thì xóa hết cài lại cái v392 mới luôn zz
Hướng dẩn l2net hoàn chỉnh
- Thread starter khanhnnt
- Ngày gửi
- 15/3/12
- 20
- 0
Khanh ơi. Kiễm tra dum mình Sicript Auto Agu này.sao no chỉ thực hiện được 1 lần.Rồi báo lỗi "anti **** action..." 
/////////////////////////////////////////////////////////////////////////////////////
INCLUDE Include/AutoAugEngine.l2c
INCLUDE StdLib/player.l2c
DEFINE_GLOBAL AugEngine AA_ScrObj 0
/////////////////////////////////////////////////////////////////////////////////////
//nome da arma aqui...
AA_ScrObj.WRK_ITEM.NAME = "#$Mamba Edge"
//bota o nome da pedra aqui...
AA_ScrObj.WRK_LS.NAME = "#$Top-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 = #i2
// ADD THE SKILL ID THAT ARE YOU LOOKING FOR(if you don't want just the base stat)
AA_ScrObj.CHOSE_SKILL.ADD #i2
/* lista de augments
3132 - Active: Temporarily increases P. Atk..
3133 - Active: Temporarily increases M. Atk..
3134 - Active: Temporarily increases PvP P. Atk.
3135 - Active: Temporarily increases P. Def..
3136 - Active: Temporarily increases M. Def..
3138 - Active: Temporarily increases HP recovery magic power.
3139 - Active: Temporarily increase Evasion.
3140 - Active: Temporarily increases accuracy.
3141 - Active: Temporarily increases the probability of critical attack.
3142 - Active: Temporarily increases the critical rate of damage attack magic.
3148 - Active: Temporarily bestows the ability to recover some of the damage inflicted on the enemy as HP. Excludes damage by skill and long-range attacks.
3204 - Active: Temporarily bestows on yourself the ability to reflect some of the damage back to the enemy. Excludes damage caused by skills and long-range attack.
3238 - Passive: Increases HP recovery magic effect.
3239 - Passive: Increases the recovery rate when MP is being recovered by recharge.
3240 - Passive: Increases one's own P. Atk.
3241 - Passive: Increases one's own M. Atk.
3243 - Passive: Increases PvP P. Atk.
3244 - Passive: Increases one's own P. Def.
3245 - Passive: Increases one's own M. Def.
3246 - Passive: Increases HP recovery magic power.
3247 - Passive: Increases evasion.
3248 - Passive: Increases one's own accuracy.
3249 - Passive: Increases the rate of critical attacks.
3250 - Passive: Increases the critical rate of damage attack magic.
3259 - Passive: Bestows on yourself the ability to reflect some of the damage back to the enemy. Excludes damage caused by skills and long-range attack.
3192 - Active: Inflicts paralysis on the target by a fixed rate.
*/
// #$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&>_Chat 5"
AA_ScrObj.NPC_DIAG12 = "#$bypass -h npc_<&TARGET_ID&>_Link common/augmentation_01.htm"
AA_ScrObj.NPC_DIAG13 = "#$bypass -h npc_<&TARGET_ID&>_Augment 1"
AA_ScrObj.NPC_DIAG21 = "#$bypass -h npc_<&TARGET_ID&>_Chat 5"
AA_ScrObj.NPC_DIAG22 = "#$bypass -h npc_<&TARGET_ID&>_Link common/augmentation_02.htm"
AA_ScrObj.NPC_DIAG23 = "#$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 500
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 _subdchk5 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_DIAG13" == FALSE
AA_ScrObj.NPC_DIAG_NOMATCH
ELSE
EVT_SET VOID 2 #$_subdchk5 #i25
AA_ScrObj.S_RAND_500
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG13&>"
ENDIF
SLEEP 300
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
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_EVENT VOID 1 #i25
EVTEX_SET VOID 2 #$_add_navdiag13 #i81
AA_ScrObj.S_RAND_300
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG13&>"
RETURN VOID
FUNCTION _add_navdiag13
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_EVENT VOID 1 #i25
EVTEX_SET VOID 2 #$_rem_navdiag23 #i82
AA_ScrObj.S_RAND_300
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG23&>"
RETURN VOID
FUNCTION _rem_navdiag23
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
/******
* Destravar...
*****/
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
CASE #$_add_navdiag11
CASE #$_subdchk2
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG11&>"
SLEEP 1000
CASE #$_add_navdiag12
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG12&>"
SLEEP 1000
CASE #$_add_navdiag13
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG13&>"
SLEEP 1000
CASE #$_add_insitem
AA_ScrObj.ADD_ITEM
CASE #$_add_insls
AA_ScrObj.ADD_LS
CASE #$_add_insgems
AA_ScrObj.ADD_GEMS
CASE #$_add_confirm
AA_ScrObj.CONFIRM_AUG
CASE #$_rem_navdiag21
CASE #$_subdchk4
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG21&>"
SLEEP 1000
CASE #$_rem_navdiag22
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG22&>"
SLEEP 1000
CASE #$_rem_navdiag23
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG23&>"
SLEEP 1000
CASE #$_rem_insitem
AA_ScrObj.ARM_ITEM
CASE #$_rem_confirm
AA_ScrObj.ARM_CONFIRM
ENDSWITCH
ENDIF
WEND
RETURN VOID
/********************************
* Prote誽o contra bloqueios de envio party/trade/clan e afins
*
* Em geral serve apenas para cancelamento, mas tem fun踥es aleat鏎ias
* adicionadas implementadas sem o consentimento do usu嫫io.
* Depois verificar
*******************************/
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
/////////////////////////////////////////////////////////////////////////////////////
INCLUDE Include/AutoAugEngine.l2c
INCLUDE StdLib/player.l2c
DEFINE_GLOBAL AugEngine AA_ScrObj 0
/////////////////////////////////////////////////////////////////////////////////////
//nome da arma aqui...
AA_ScrObj.WRK_ITEM.NAME = "#$Mamba Edge"
//bota o nome da pedra aqui...
AA_ScrObj.WRK_LS.NAME = "#$Top-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 = #i2
// ADD THE SKILL ID THAT ARE YOU LOOKING FOR(if you don't want just the base stat)
AA_ScrObj.CHOSE_SKILL.ADD #i2
/* lista de augments
3132 - Active: Temporarily increases P. Atk..
3133 - Active: Temporarily increases M. Atk..
3134 - Active: Temporarily increases PvP P. Atk.
3135 - Active: Temporarily increases P. Def..
3136 - Active: Temporarily increases M. Def..
3138 - Active: Temporarily increases HP recovery magic power.
3139 - Active: Temporarily increase Evasion.
3140 - Active: Temporarily increases accuracy.
3141 - Active: Temporarily increases the probability of critical attack.
3142 - Active: Temporarily increases the critical rate of damage attack magic.
3148 - Active: Temporarily bestows the ability to recover some of the damage inflicted on the enemy as HP. Excludes damage by skill and long-range attacks.
3204 - Active: Temporarily bestows on yourself the ability to reflect some of the damage back to the enemy. Excludes damage caused by skills and long-range attack.
3238 - Passive: Increases HP recovery magic effect.
3239 - Passive: Increases the recovery rate when MP is being recovered by recharge.
3240 - Passive: Increases one's own P. Atk.
3241 - Passive: Increases one's own M. Atk.
3243 - Passive: Increases PvP P. Atk.
3244 - Passive: Increases one's own P. Def.
3245 - Passive: Increases one's own M. Def.
3246 - Passive: Increases HP recovery magic power.
3247 - Passive: Increases evasion.
3248 - Passive: Increases one's own accuracy.
3249 - Passive: Increases the rate of critical attacks.
3250 - Passive: Increases the critical rate of damage attack magic.
3259 - Passive: Bestows on yourself the ability to reflect some of the damage back to the enemy. Excludes damage caused by skills and long-range attack.
3192 - Active: Inflicts paralysis on the target by a fixed rate.
*/
// #$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&>_Chat 5"
AA_ScrObj.NPC_DIAG12 = "#$bypass -h npc_<&TARGET_ID&>_Link common/augmentation_01.htm"
AA_ScrObj.NPC_DIAG13 = "#$bypass -h npc_<&TARGET_ID&>_Augment 1"
AA_ScrObj.NPC_DIAG21 = "#$bypass -h npc_<&TARGET_ID&>_Chat 5"
AA_ScrObj.NPC_DIAG22 = "#$bypass -h npc_<&TARGET_ID&>_Link common/augmentation_02.htm"
AA_ScrObj.NPC_DIAG23 = "#$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 500
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 _subdchk5 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_DIAG13" == FALSE
AA_ScrObj.NPC_DIAG_NOMATCH
ELSE
EVT_SET VOID 2 #$_subdchk5 #i25
AA_ScrObj.S_RAND_500
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG13&>"
ENDIF
SLEEP 300
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
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_EVENT VOID 1 #i25
EVTEX_SET VOID 2 #$_add_navdiag13 #i81
AA_ScrObj.S_RAND_300
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG13&>"
RETURN VOID
FUNCTION _add_navdiag13
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_EVENT VOID 1 #i25
EVTEX_SET VOID 2 #$_rem_navdiag23 #i82
AA_ScrObj.S_RAND_300
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG23&>"
RETURN VOID
FUNCTION _rem_navdiag23
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
/******
* Destravar...
*****/
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
CASE #$_add_navdiag11
CASE #$_subdchk2
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG11&>"
SLEEP 1000
CASE #$_add_navdiag12
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG12&>"
SLEEP 1000
CASE #$_add_navdiag13
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG13&>"
SLEEP 1000
CASE #$_add_insitem
AA_ScrObj.ADD_ITEM
CASE #$_add_insls
AA_ScrObj.ADD_LS
CASE #$_add_insgems
AA_ScrObj.ADD_GEMS
CASE #$_add_confirm
AA_ScrObj.CONFIRM_AUG
CASE #$_rem_navdiag21
CASE #$_subdchk4
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG21&>"
SLEEP 1000
CASE #$_rem_navdiag22
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG22&>"
SLEEP 1000
CASE #$_rem_navdiag23
NPC_DIALOG "<&AA_ScrObj.NPC_DIAG23&>"
SLEEP 1000
CASE #$_rem_insitem
AA_ScrObj.ARM_ITEM
CASE #$_rem_confirm
AA_ScrObj.ARM_CONFIRM
ENDSWITCH
ENDIF
WEND
RETURN VOID
/********************************
* Prote誽o contra bloqueios de envio party/trade/clan e afins
*
* Em geral serve apenas para cancelamento, mas tem fun踥es aleat鏎ias
* adicionadas implementadas sem o consentimento do usu嫫io.
* Depois verificar
*******************************/
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
mega_game47
Youtube Master Race
- 3/7/08
- 26
- 0
l2net hỗ trợ OOG bản GOD chưa vậy các bác.
spellsinger1991
Dragon Quest
- 4/10/10
- 1,237
- 59
bạn nhìn ô level của nó xem có bị đỏ ko...nếu bị đỏ thì Command => Toogle Botting là nó chạy tiếp ngay
Mua & Bán
Mr & Ms Pac-Man
- 3/4/07
- 194
- 3
Mình đã dùng tới chức năng tìm kiếm trên diễn đàn cũng như trên google về đoạn mã auto Augment cho Lineage Freya Final nhưng không sao tìm thấy được. Có rất nhiều đoạn mã ngắn dài đủ loại nhưng khi run nó trong l2net thì lúc bị báo lỗi thế này, khi thế nọ. Đặc biệt là lỗi không tìm thấy Top-Grade Life Stone - level 84 (trong server l2Crimson nó ghi ts 84 như vậy). Mặc dù mình đã đứng kế bên thằng thợ rèn Pushkin hỗ trợ up augment tại Giran. Cẩn thận trong việc chỉnh đúng tên vũ khí, Gemstone B số lượng 36.
Vậy bạn nào hiện đang có đoạn script auto augment chạy ngon trên L2 Freya Final xin chia sẻ bản full của các bạn cho mình với. Mvif mình muốn làm một bản L2net hoàn chỉnh rồi up lên mediafire cho anh em trong clan cùng sử dụng. Hiện nay mình đang xài bản L2net version mới nhất. Xin cảm ơn
Vậy bạn nào hiện đang có đoạn script auto augment chạy ngon trên L2 Freya Final xin chia sẻ bản full của các bạn cho mình với. Mvif mình muốn làm một bản L2net hoàn chỉnh rồi up lên mediafire cho anh em trong clan cùng sử dụng. Hiện nay mình đang xài bản L2net version mới nhất. Xin cảm ơn
spellsinger1991
Dragon Quest
- 4/10/10
- 1,237
- 59
của bạn đây
////////////////////////////////////////////////////////////////////////////////////
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 = "#$Eternal Core Sword" => tên weapon muốn agu
// CHANGE THE LIFE STONE NAME WITH THE EXACT NAME OF YOURS
AA_ScrObj.WRK_LS.NAME = "#$Top-Grade Life Stone - level 86" => tên life stone (viết hoa đúng như tên hiển thị)
// 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 #i3204 => Skills ID (trong file kèm theo, chỉ việc đổi 4 số sau chữ "i")
// ...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 = #$CON
// 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
lưu ý cần target NPC Pushkin hoặc NPC agu tùy server trước khi auto agu = l2net
Chỉnh sửa cuối:
spellsinger1991
Dragon Quest
- 4/10/10
- 1,237
- 59
cái đó thì mình chịu...có rất nhìu lý do...mình nghĩ là có thể do database bị đụng chạm, có thể do đường truyền của bạn, host có vấn đề,...vv...nhưng muốn chính xác thì đợi các cao nhân trả lời vậy
ở thớt này thì bác khanh và bác ring mao chẳng hạn 
nhưng bạn đã bot thì phải chịu thôi
, rãnh rãnh thì ngó wa nó 1 cái là dc 
7oo13ad
Mario & Luigi
- 4/12/07
- 811
- 22
do bạn đụng vào nút toggle ON OFF bot của l2net thôi. Ô màu đỏ là OFF màu xanh là ON.
Default nút đó trong l2net là nút ` bên trái số 1.
Ring Mao
T.E.T.Я.I.S
- 28/7/10
- 640
- 69
Lâu lắm rồi mói có time quay lại cái box này, mà ngay đúng vào ngày April Fool 
.
Phím Toggle bot của L2net là phím "`" ( phím tận cùng bên trái dãy phím số ), để không bi tắt bot giữa chừng mọi người nên set nó về phím khác ít xài nhất , ví dụ mình hay set phím F12. Còn về script OOP Iss Enchanter, mình đã viết từ lâu cho clan, khi nào quay về SG mình sẽ up, hiện tại đang du hí dưới miền tây rồi ^^!
.Phím Toggle bot của L2net là phím "`" ( phím tận cùng bên trái dãy phím số ), để không bi tắt bot giữa chừng mọi người nên set nó về phím khác ít xài nhất , ví dụ mình hay set phím F12. Còn về script OOP Iss Enchanter, mình đã viết từ lâu cho clan, khi nào quay về SG mình sẽ up, hiện tại đang du hí dưới miền tây rồi ^^!
thank ban. nhưng vào chỗ nào đẻ thay đổi phim "`" thanh f12?Lâu lắm rồi mói có time quay lại cái box này, mà ngay đúng vào ngày April Fool
Phím Toggle bot của L2net là phím "`" ( phím tận cùng bên trái dãy phím số ), để không bi tắt bot giữa chừng mọi người nên set nó về phím khác ít xài nhất , ví dụ mình hay set phím F12. Còn về script OOP Iss Enchanter, mình đã viết từ lâu cho clan, khi nào quay về SG mình sẽ up, hiện tại đang du hí dưới miền tây rồi ^^!