Script de agument

SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" CheckSkillList 95

INCLUDE StdLib\inventory.l2c
INCLUDE StdLib/npc.l2c

DEFINE_GLOBAL ARRAYLIST search_for_skills 0 // DON'T CHANGE

//===========================================================================================
//
// Augmentation script fully automated. v1.3
// Tested on tow lagfree servers and works flawlessly (03.06.09)
// L2NET v370 on Gracia Final (ct 2.3)
//
// made by undercover iosc :P
//===========================================================================================



DEFINE_GLOBAL STRING item_to_aug "Angel Slayer" // The name of the weapon you want to augment
DEFINE_GLOBAL STRING gem_for_aug "Gemstone C" // Gemstone used for augment
DEFINE_GLOBAL STRING ls_for_aug "Top-Grade Life Stone: level 80" // The EXACT name of the Life Stone used for augment
DEFINE_GLOBAL INT num_of_gems 25 // The number of Gemstones used


//===========================================================================================
// The skill ID's that you want to get
// You can add or delete some "search_for_skills.ADD #i" lines
// The IDs of skills are after "#i" ex: #i3250 - 3250
//===========================================================================================

search_for_skills.ADD #i3244 // Item Skill: Shield - Passive: Increases P. Def. when equipped.
search_for_skills.ADD #i3240 // Item Skill: Might - Passive: Increases P. Atk. when equipped.
search_for_skills.ADD #i3135 // Item Skill: Shield - Active: Increases P. Def. temporarily.
search_for_skills.ADD #i3132 // Item Skill: Might - Active: Increases P. Atk. temporarily.


//===========================================================================================

DEFINE_GLOBAL INT packet_delay 800 // delay between sent packets ... if it's lag and get some errors you can increase this
DEFINE_GLOBAL INT little_delay 400


//===========================================================================================
// DON'T EDIT ANYTHING FROM BELOW UNLESS U KNOW WHAT U'RE DOING
//===========================================================================================
SET_TARGETING TYPE TWO
SET_TARGETING ATTACKABLE TWO
SET_TARGETING ALIVE TWO
SET_TARGETING INBOX TWO

DEFINE_GLOBAL INT npc_id 0

npc_id = "#i<&TARGET_TYPEID&>"

IF TARGET_TYPE != #I3
PRINT_TEXT "Target the augmentation NPC before start the script."
JUMP_TO_LABEL THE_END
ENDIF

DEFINE_GLOBAL INT random_delay 0
DEFINE_GLOBAL INT loop_flag 0
DEFINE_GLOBAL INT another_flag 0

DEFINE_GLOBAL ARRAYLIST skill_ids 0
DEFINE_GLOBAL ARRAYLIST full_invent 0
DEFINE_GLOBAL Inventory work_item 0
DEFINE_GLOBAL Inventory work_ls 0
DEFINE_GLOBAL Inventory work_gem 0
DEFINE_GLOBAL INT ls_count 0
DEFINE_GLOBAL INT gem_count 0
DEFINE_GLOBAL INT id_of_ls 0
DEFINE_GLOBAL INT id_of_gem 0
ITEM_GET_ID id_of_ls "<&ls_for_aug&>"
ITEM_GET_ID id_of_gem "<&gem_for_aug&>"
ITEM_COUNT ls_count "<&id_of_ls&>"
ITEM_COUNT gem_count "<&id_of_gem&>"

CALL reload_invet

GET_RAND random_delay 150 300
SLEEP "<&random_delay&>"




LABEL INFINITE_LOOP

WHILE loop_flag == ONE

SLEEP 1000

WEND

CALL reload_invet

CALL remove_augment

GET_RAND random_delay 150 300
SLEEP "<&random_delay&>"

CALL reload_invet

another_flag = ONE

CALL add_augment

loop_flag = ONE

GET_RAND random_delay 150 300
SLEEP "<&random_delay&>"

CALL equip_augmented_item

JUMP_TO_LABEL INFINITE_LOOP


LABEL THE_END


PRINT_TEXT "Script Ended."

END_SCRIPT




FUNCTION add_augment

IF work_item.aug_id > ZERO
RETURN VOID
ENDIF


ITEM_COUNT ls_count "<&id_of_ls&>"
GET_RAND random_delay 150 300
SLEEP "<&random_delay&>"
ITEM_COUNT gem_count "<&id_of_gem&>"
GET_RAND random_delay 150 300
SLEEP "<&random_delay&>"

IF ls_count < ONE

ITEM_COUNT ls_count "<&id_of_ls&>"
GET_RAND random_delay 700 1100 begin_of_the_skype_highlighting              700 1100      end_of_the_skype_highlighting begin_of_the_skype_highlighting              700 1100      end_of_the_skype_highlighting begin_of_the_skype_highlighting              700 1100      end_of_the_skype_highlighting
SLEEP "<&random_delay&>"

IF ls_count < ONE

PRINT_TEXT "Not enough <&ls_for_aug&>."
JUMP_TO_LABEL THE_END

ENDIF
ENDIF

IF gem_count < num_of_gems

ITEM_COUNT gem_count "<&id_of_gem&>"
GET_RAND random_delay 700 1100
SLEEP "<&random_delay&>"

IF gem_count < num_of_gems

PRINT_TEXT "Not enough <&gem_for_aug&>."
JUMP_TO_LABEL THE_END

ENDIF
ENDIF


TARGET_NEAREST_ID "<&npc_id&>"
SLEEP "<&little_delay&>"
TALK_TARGET
SLEEP "<&little_delay&>"
NPC_DIALOG "bypass -h npc_<&TARGET_ID&>_Link common/augmentation_01.htm"
SLEEP "<&little_delay&>"
NPC_DIALOG "bypass -h npc_<&TARGET_ID&>_Augment 1"
SLEEP "<&little_delay&>"


DEFINE BYTEBUFFER select_item_buffer 256
DEFINE BYTEBUFFER select_ls_buffer 256
DEFINE BYTEBUFFER select_gem_buffer 256
DEFINE BYTEBUFFER start_aug_buffer 256

select_item_buffer.write_byte #i208
select_item_buffer.write_int16 #i38
select_item_buffer.write_int32 work_item.id
select_item_buffer.trim_to_index
INJECTBB select_item_buffer
SLEEP "<&packet_delay&>"

select_ls_buffer.write_byte #i208
select_ls_buffer.write_int16 #i39
select_ls_buffer.write_int32 work_item.id
select_ls_buffer.write_int32 work_ls.id
select_ls_buffer.trim_to_index
INJECTBB select_ls_buffer
SLEEP "<&packet_delay&>"

select_gem_buffer.write_byte #i208
select_gem_buffer.write_int16 #i40
select_gem_buffer.write_int32 work_item.id
select_gem_buffer.write_int32 work_ls.id
select_gem_buffer.write_int32 work_gem.id
select_gem_buffer.write_int64 num_of_gems
select_gem_buffer.trim_to_index
INJECTBB select_gem_buffer
SLEEP "<&packet_delay&>"

start_aug_buffer.write_byte #i208
start_aug_buffer.write_int16 #i65
start_aug_buffer.write_int32 work_item.id
start_aug_buffer.write_int32 work_ls.id
start_aug_buffer.write_int32 work_gem.id
start_aug_buffer.write_int64 num_of_gems
start_aug_buffer.trim_to_index
INJECTBB start_aug_buffer
SLEEP "<&packet_delay&>"

DELETE select_item_buffer
DELETE select_ls_buffer
DELETE select_gem_buffer
DELETE start_aug_buffer

RETURN VOID



FUNCTION remove_augment

IF work_item.aug_id == ZERO
RETURN VOID
ENDIF

TARGET_NEAREST_ID "<&npc_id&>"
SLEEP "<&little_delay&>"
TALK_TARGET
SLEEP "<&little_delay&>"
NPC_DIALOG "bypass -h npc_<&TARGET_ID&>_Link common/augmentation_02.htm"
SLEEP "<&little_delay&>"
NPC_DIALOG "bypass -h npc_<&TARGET_ID&>_Augment 2"
SLEEP "<&little_delay&>"


DEFINE BYTEBUFFER select_item_buffer 256
DEFINE BYTEBUFFER rem_aug_buffer 256

select_item_buffer.write_byte #i208
select_item_buffer.write_int16 #i66
select_item_buffer.write_int32 work_item.id
select_item_buffer.trim_to_index
INJECTBB select_item_buffer
SLEEP "<&packet_delay&>"

rem_aug_buffer.write_byte #i208
rem_aug_buffer.write_int16 #i67
rem_aug_buffer.write_int32 work_item.id
rem_aug_buffer.trim_to_index
INJECTBB rem_aug_buffer
SLEEP "<&packet_delay&>"

DELETE select_item_buffer
DELETE rem_aug_buffer


RETURN VOID

FUNCTION CheckSkillList

IF another_flag == ZERO
RETURN VOID
ENDIF
another_flag = ZERO

DEFINE INT skill_byte 0
DEFINE INT skill_list_size 0

PACKET.READ_BYTE skill_byte
PACKET.READ_INT32 skill_list_size

FOR Z 0 "<&skill_list_size&>" 1

DEFINE INT _i64
PACKET.READ_INT64 _i64
DELETE _i64

DEFINE INT skillID
PACKET.READ_INT32 skillID
skill_ids.ADD skillID
DELETE skillID

DEFINE INT c_byte
PACKET.READ_BYTE c_byte
DELETE c_byte

NEXT

DELETE skill_byte
DELETE skill_list_size

FOREACH X INT skill_ids
FOREACH Z INT search_for_skills

IF skill_ids.X == search_for_skills.Z
PRINT_TEXT "Augmentation with Skill ID <&search_for_skills.Z&> was succesfull."
PRINT_TEXT " "
JUMP_TO_LABEL THE_END
ENDIF

NEXTEACH
NEXTEACH

PRINT_TEXT "No luck this round... "
PRINT_TEXT " "

CALL equip_augmented_item
GET_RAND random_delay 150 300
SLEEP "<&random_delay&>"

loop_flag = ZERO

RETURN VOID

FUNCTION reload_invet

GET_INVENTORY full_invent
GET_RAND random_delay 400 800
SLEEP "<&random_delay&>"

FOREACH item Inventory full_invent
if full_invent.item.name == item_to_aug
work_item = full_invent.item
endif
if full_invent.item.name == gem_for_aug
work_gem = full_invent.item
endif
if full_invent.item.name == ls_for_aug
work_ls = full_invent.item
endif
NEXTEACH

RETURN VOID



FUNCTION equip_augmented_item

DEFINE BYTEBUFFER equip_item 256

equip_item.write_byte #i25
equip_item.write_int32 work_item.id
equip_item.write_int32 #i0
equip_item.trim_to_index
INJECTBB equip_item
SLEEP "<&packet_delay&>"

DELETE equip_item

RETURN VOID

/////////////////////////////////////////////////////////////////////////////////////
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 = "#$Infinity Rapier"

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


// CHANGE FOR WHAT AUGMENT CONFIGURATION YOU WANT
// #i1 - just skills ; #i2 - just base stat passive
// #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

// ...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