Hướng dẩn l2net hoàn chỉnh

Thảo luận trong 'L2's Third Party' bắt đầu bởi khanhnnt, 13/1/10.

  1. kukumalupu

    kukumalupu Donkey Kong

    Tham gia ngày:
    30/9/09
    Bài viết:
    441
    @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
     
  2. sdzienfet

    sdzienfet Youtube Master Race

    Tham gia ngày:
    17/2/12
    Bài viết:
    1
    mình cũng cài cả 2 3 cái SlimDx lẫn xóa đi cài lại cả l2net đủ ver vẫn bị dính cái lỗi này. Mình xin Win7 pác nào biết nguyên nhân có thể chỉ giáo ko ? cảm ơn
     
  3. KingOfWolfer

    KingOfWolfer Youtube Master Race

    Tham gia ngày:
    15/3/12
    Bài viết:
    20
    Nơi ở:
    HCM City
    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
     
  4. mega_game47

    mega_game47 Youtube Master Race

    Tham gia ngày:
    3/7/08
    Bài viết:
    26
    l2net hỗ trợ OOG bản GOD chưa vậy các bác.
     
  5. dortita

    dortita Donkey Kong

    Tham gia ngày:
    23/12/09
    Bài viết:
    328
    ai có scrip auto Q 10k ở dion không? Q tên này nè Bard's Mandolin...
     
  6. seomyr

    seomyr Youtube Master Race

    Tham gia ngày:
    11/8/09
    Bài viết:
    34
    khanh ơi mình cài l2net , tất cả đều ok , nhưng kì lạ 1 chỗ cái l2net của mình chạy tầm hơn 30 phút thì nó dừng lại không đánh quái nũa . minh phai thoát hết vô lại mới được. bạn có cách nào giải quyết dùm với
     
  7. spellsinger1991

    spellsinger1991 Dragon Quest

    Tham gia ngày:
    4/10/10
    Bài viết:
    1,237
    Nơi ở:
    TROLL Corp.
    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
     
  8. hihoha_x

    hihoha_x Mr & Ms Pac-Man

    Tham gia ngày:
    23/4/03
    Bài viết:
    126
    Nơi ở:
    Far Far Away
    Mình muốn xin auto Party và Auto Buff của Iss với :D
    hay ít ra auto Sonatas là ngon rồi :D
     
  9. Mua & Bán

    Mua & Bán Mr & Ms Pac-Man

    Tham gia ngày:
    3/4/07
    Bài viết:
    194
    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
     
  10. spellsinger1991

    spellsinger1991 Dragon Quest

    Tham gia ngày:
    4/10/10
    Bài viết:
    1,237
    Nơi ở:
    TROLL Corp.
    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: 29/3/12
  11. Mua & Bán

    Mua & Bán Mr & Ms Pac-Man

    Tham gia ngày:
    3/4/07
    Bài viết:
    194
    Thanks for your help, mate!
















    (............................................)
     
  12. seomyr

    seomyr Youtube Master Race

    Tham gia ngày:
    11/8/09
    Bài viết:
    34
    trời chắc vậy rồi . mình thấy cái ô đó màu đỏ , hì cảm ơn bạn nhiều lắm . nhưng gio làm sao để nó không bị như vậy nữa bạn ?
     
  13. spellsinger1991

    spellsinger1991 Dragon Quest

    Tham gia ngày:
    4/10/10
    Bài viết:
    1,237
    Nơi ở:
    TROLL Corp.
    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 :D ở 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 :D, rãnh rãnh thì ngó wa nó 1 cái là dc :cuteonion36:
     
  14. seomyr

    seomyr Youtube Master Race

    Tham gia ngày:
    11/8/09
    Bài viết:
    34
    hì vậy là ok lắm rồi . chắc đợi l2net ra v393 thì được khắc phục chăng
     
  15. 7oo13ad

    7oo13ad Mario & Luigi

    Tham gia ngày:
    4/12/07
    Bài viết:
    811
    Nơi ở:
    Used to be my playground
    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.
     
  16. seomyr

    seomyr Youtube Master Race

    Tham gia ngày:
    11/8/09
    Bài viết:
    34
    oh vậy ra là phím "`" hic thiệt tình . cảm ơn ban nhiều nha. giờ biết rùi thanks !
     
  17. seomyr

    seomyr Youtube Master Race

    Tham gia ngày:
    11/8/09
    Bài viết:
    34
    ai có thể giúp mình việc này được không ? là thế này . mình có 1 con ISS và 1 mage . mình muốn ISS tự động pt mage và buff . sau khi buff xong thì tự out party. bạn nào có thể làm được điều này thì giúp mình với nha . cảm ơn các bạn !!!
     
  18. Extend

    Extend Mr & Ms Pac-Man

    Tham gia ngày:
    6/9/11
    Bài viết:
    137
    Ai có Scripts Anti-backstab kô cho mìh xin đi :D:D

    ---------- Post added at 05:52 ---------- Previous post was at 05:44 ----------

    KingOfWolfer@ Cái chổ tên ls bạn bấm sai rồi...!!!
    Của nó là Top-Grade Life Stone: level 76
     
  19. Ring Mao

    Ring Mao T.E.T.Я.I.S

    Tham gia ngày:
    28/7/10
    Bài viết:
    640
    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 ^^!
     
  20. seomyr

    seomyr Youtube Master Race

    Tham gia ngày:
    11/8/09
    Bài viết:
    34
    thank ban. nhưng vào chỗ nào đẻ thay đổi phim "`" thanh f12?
     

Chia sẻ trang này