Jump to content
MaxCheaters Official Group on Discord
--> Place your ad text here <--
Celestine's L2 Dark H5 x25 Project Launching This Summer!

[Script]L2 NET v387-389-390 Auto Augment Freya

meier

By meier
in Botting [English]

 Share

Recommended Posts

meier Rookie

meier

Posted
Posted

Hi Guys, I have this L2 NET IG Script for Auto Augment for Freya:

 

/////////////////////////////////////////////////////////////////////////////////////
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 = "#$Recurve Thorne Bow"

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

 

But this config is for Retail Server, I want to know that changes need for working in Freya Private Server, I test modify the lines of npc in target but not work say this error :

 

8:24:15 :[ERROR: SCRIPT ERROR : THREAD[3] LINE[1] : FAILED TO INCLUDE FILE : C:\DOCUMENTS AND SETTINGS\USUARIO\ESCRITORIO\L2 NET\L2NET\SCRIPTS\INCLUDE\AUTOAUGENGINE.L2C

 

Npc diag for Blacksmith in this Private Server for augment is:

 

1-Smelt and Item.

2-Start Smelting.

 

And for Remove:

 

1-Cancel smelting.

2-Remove the refined Life Stone

 

Any can help me with this ?

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing


×
×
  • Create New...