Re: Huong dan l2net hoan chinh.

vanh3lsing Thu Dec 23, 2010 12:41 pm

tui lấy đoạn script trong topic này nhưng mà nó k tự ngưng aug khi được cái mình cần, làm sao đây?

Code:: // New Script 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 "-unknown item-" // tên item agu (c?t h?t item cùng tên vào kho,ko th? nó agu h?t) DEFINE_GLOBAL STRING gem_for_aug "Gemstone B" // Gemstone used for augment DEFINE_GLOBAL STRING ls_for_aug "Top-Grade Life Stone - level 84" // tên life stone DEFINE_GLOBAL INT num_of_gems 36 // 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 //=========================================================================================== //ph?n này ð? l?c skill, nh?p ID skill d?ng search_for_skills.ADD #i3244 (skill ID trong file ðíng kèm) [You must be registered and logged in to see this link.] #i3244 // Item Skill: Shield - Passive: Increases P. Def. when equipped. search_for_skills.ADD #i3240 // Item Skill: Might - Passive: Increases P. Atk. when equipped. //=========================================================================================== 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 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 END_SCRIPT

**Admin** Thu Dec 23, 2010 7:44 pm

Đây nè

Code:: ///////////////////////////////////////////////////////////////////////////////////// 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 = "#$-unknown item-" // CHANGE THE LIFE STONE NAME WITH THE EXACT NAME OF YOURS AA_ScrObj.WRK_LS.NAME = "#$Top-Grade Life Stone - level 84" // 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 // ...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

vanh3lsing Fri Dec 24, 2010 11:45 am

l2386 báo lỗi như sau:

Code:: 11:44:42 AM :[ERROR: SCRIPT ERROR : THREAD[602] LINE[1] : FAILED TO INCLUDE FILE : D:\Lineage II\L2NET_386\Scripts\Include/AutoAugEngine.l2c

tớ không có file này AutoAugEngine.l2c, search trên mạng cũng chẳng có tongue

djchjp Tue Feb 08, 2011 11:13 am

Sao tui dow l2net v388 về mà cài vào thì đăng nhập vào thì ngoài L2net hok nhận thông tin nhân vật vậy. như vậy hok bít có được hay không nữa Mad

còn sài Script thì Error Crying or Very sad

Mong các Sư Huynh Đệ nào giúp giùm

Lần đầu sài L2net

bubbleprince Sun Feb 13, 2011 12:02 pm

con ai o sever sexi khong co du dinh choi nua khong vay

aabbccdd Tue May 31, 2011 7:18 pm

Có bác nào có script manor freya ko vậy?
Tiện cho em hỏi luôn, khi bấm vào npc bán đồ để mua đồ thì l2net nó ko hiện ra gì ở bảng NPC chat. Có phải chức năng này chưa support phải ko?

Sponsored content