l2net auto aug

[spiros1995]

vsk 8elw na balw to autoaug na doulebei os scriptaki :/

[spiros1995]

Για να καταλάβω,θες να βάλεις augument και όταν πιάνεις αυτό που θες,να σταματάει αυτόματα?

vsk 8elw na balw to scriptaki na doulebei...tr an 8a pianei ta agument kai ti 8a pianei alo 8ema :D

[Matthew]

Όταν πιάνεις το  augument που του έχεις βάλει να πιάνει,σταματάει αυτόματα να ξες,δες στα μνματα κ πες μου αν δουλεύουν τα λινκ.

[spiros1995]

Για να καταλάβω,θες να βάλεις augument και όταν πιάνεις αυτό που θες,να σταματάει αυτόματα?

ne ayto :D

[spiros1995]

NCLUDE StdLib\inventory.l2c

INCLUDE StdLib/npc.l2c

 

DEFINE_GLOBAL ARRAYLIST search_for_skills 0        // DON'T CHANGE

 

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

//

// Augmentation script fully automated. v2.0.1 (13.06.09)

// Fully working with L2NET v370 and on L2J Gracia Final (ct2.3) servers.

//

//

// special thanks to: slothmo and everybody working for l2net project

// made by iosc

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

 

 

 

DEFINE_GLOBAL STRING item_to_aug "Sword of Miracles"        // The name of the weapon you want to augment

DEFINE_GLOBAL STRING ls_for_aug "Top-Grade Life Stone: level 80"        // The EXACT name of the Life Stone used for augment

 

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

// 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 #i3240 // Item Skill: Might - Passive: Increases P. Atk. when equipped.

  search_for_skills.ADD #i3249 // Item Skill: Focus - Passive: Increases critical attack rate when equipped.

 

 

 

 

 

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

// DON'T EDIT ANYTHING FROM BELOW UNLESS U KNOW WHAT U'RE DOING

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

DEFINE_GLOBAL STRING l2incgem "Magic Gem"

 

DEFINE_GLOBAL INT skills_flag 0

DEFINE_GLOBAL INT add_loop 0

DEFINE_GLOBAL INT rem_loop 0

DEFINE_GLOBAL INT first_round 0

DEFINE_GLOBAL INT _50d 50

DEFINE_GLOBAL INT adena_rem_aug 0

DEFINE_GLOBAL INT adena_checked 0

DEFINE_GLOBAL STRING request_skills "50"

DEFINE_GLOBAL STRING adena "Adena"

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 num_of_gems 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

DEFINE_GLOBAL INT id_of_adena 0

DEFINE_GLOBAL INT adena_count 0

DEFINE_GLOBAL INT uid_of_incgem 0

ITEM_GET_ID id_of_ls "<&ls_for_aug&>"

ITEM_GET_ID id_of_adena "<&adena&>"

ITEM_COUNT adena_count "<&id_of_adena&>"

ITEM_COUNT ls_count "<&id_of_ls&>"

CALL reload_invent

 

CALL f_random_delay VOID 1 ZERO

DEFINE STRING itemfound_name " "

ITEM_GET_NAME itemfound_name "<&work_item.ITEM_ID&>"

DEFINE STRING lsfound_name " "

ITEM_GET_NAME lsfound_name "<&work_ls.ITEM_ID&>"

 

 

PRINT_TEXT "====================================="

PRINT_TEXT "== Auto Augment Script started."

PRINT_TEXT "== Augmenting <&itemfound_name&>"

PRINT_TEXT "== With: <&lsfound_name&> (<&ls_count&>)"

PRINT_TEXT "====================================="

 

SLEEP 3000

 

LABEL INFINITE_LOOP

 

 

  CALL reload_invent

 

  CALL remove_augment

 

  CALL f_random_delay VOID 1 ONE

 

  CALL reload_invent

 

  CALL add_augment

 

  CALL f_random_delay VOID 1 ONE

 

  CALL equip_augmented_item

 

  CALL BeforeCheck

 

  LOCK C

  SLEEP 50

  UNLOCK C

 

JUMP_TO_LABEL INFINITE_LOOP

 

 

LABEL THE_END

 

 

PRINT_TEXT "== Please go on ltwonet.org forum"

PRINT_TEXT "== and post you experience with this script."

PRINT_TEXT "====================================="

 

END_SCRIPT

 

 

 

 

FUNCTION add_augment

 

  add_loop = ZERO

 

  IF work_item.aug_id > ZERO

      CALL f_random_delay VOID 1 ONE

      CALL reload_invent

      CALL f_random_delay VOID 1 ONE

      IF work_item.aug_id > ZERO 

        RETURN VOID

      ENDIF

  ENDIF

 

 

  ITEM_COUNT ls_count "<&id_of_ls&>"

  CALL f_random_delay VOID 1 ZERO

 

  IF ls_count <= ONE

      CALL reload_invent

      ITEM_COUNT ls_count "<&id_of_ls&>"

      CALL f_random_delay VOID 1 ONE

      CALL f_random_delay VOID 1 ONE     

      IF ls_count <= ONE

        PRINT_TEXT "====================================="

        PRINT_TEXT "== Not enough <&ls_for_aug&>."

        PRINT_TEXT "====================================="

        JUMP_TO_LABEL THE_END

 

      ENDIF

  ENDIF

 

  IF first_round == ONE

      ITEM_COUNT gem_count "<&id_of_gem&>"

      CALL f_random_delay VOID 1 ZERO

 

      IF gem_count <= num_of_gems

        CALL reload_invent

        ITEM_COUNT gem_count "<&id_of_gem&>"

        CALL f_random_delay VOID 1 ONE

        CALL f_random_delay VOID 1 ONE

       

        IF gem_count <= num_of_gems

            DEFINE STRING gem_name " "

            ITEM_GET_NAME gem_name "<&id_of_gem&>"

            PRINT_TEXT "====================================="

            PRINT_TEXT "== Not enough <&gem_name&>."

            PRINT_TEXT "====================================="

            JUMP_TO_LABEL THE_END

       

        ENDIF

      ENDIF

  ENDIF

  PRINT_TEXT "====================================="

  PRINT_TEXT "== Adding Augment..."

  PRINT_TEXT "====================================="

 

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" add_after_target_talk 25

 

  CALL f_random_delay VOID 1 ONE

 

  CALL use_magic_gem

 

  WHILE add_loop == ZERO

  SLEEP 50

  WEND

  LOCK A

  SLEEP 50

  UNLOCK A

 

 

RETURN VOID

 

 

FUNCTION add_after_target_talk

 

  LOCK A

  add_loop = ONE

 

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" selecting_html_add_augment 25

 

  NPC_DIALOG "bypass -h pc_augment_chat 0"

 

RETURN VOID

 

 

FUNCTION selecting_html_add_augment

  CALL f_random_delay VOID 1 ONE

     

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" blankfunc 25

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" aug_insert_item 81

  NPC_DIALOG "bypass -h pc_augment_start 1"

 

 

RETURN VOID

 

 

FUNCTION aug_insert_item

 

  CALL f_random_delay VOID 1 ONE

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" blankfunc 81 

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" aug_insert_ls 83

 

  DEFINE BYTEBUFFER select_item_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

  DELETE select_item_buffer

 

RETURN VOID

 

 

FUNCTION aug_insert_ls

 

  CALL f_random_delay VOID 1 ONE

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" blankfunc 83

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" aug_read_ins_gems 84

 

  DEFINE BYTEBUFFER select_ls_buffer 256

  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

  DELETE select_ls_buffer

 

RETURN VOID

 

 

FUNCTION aug_read_ins_gems

 

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" blankfunc 84

 

  IF first_round == ZERO

      DEFINE INT firstbyte 0

      PACKET.READ_BYTE firstbyte

      DELETE firstbyte

     

      DEFINE INT expacket 0

      PACKET.READ_INT16 expacket

      DELETE expacket

 

      DEFINE INT itemuid

      PACKET.READ_INT32 itemuid

      DELETE itemuid

     

      DEFINE INT lsid

      PACKET.READ_INT32 lsid

      DELETE lsid

     

      PACKET.READ_INT32 id_of_gem

      PACKET.READ_INT32 num_of_gems

     

      ITEM_COUNT gem_count "<&id_of_gem&>"

     

      first_round = ONE

      CALL reload_invent

 

      ITEM_COUNT gem_count "<&id_of_gem&>"

      CALL f_random_delay VOID 1 ZERO

     

      IF gem_count <= num_of_gems

        CALL reload_invent

        ITEM_COUNT gem_count "<&id_of_gem&>"

        CALL f_random_delay VOID 1 ONE

        CALL f_random_delay VOID 1 ONE

       

        IF gem_count <= num_of_gems

            DEFINE STRING gem_name " "

            ITEM_GET_NAME gem_name "<&id_of_gem&>"

            PRINT_TEXT "====================================="

            PRINT_TEXT "== Not enough <&gem_name&>."

            PRINT_TEXT "====================================="

            JUMP_TO_LABEL THE_END

       

        ENDIF

      ENDIF

  ENDIF

  CALL f_random_delay VOID 1 ONE

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" aug_start_aug 85

 

  DEFINE BYTEBUFFER select_gem_buffer 256

  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

  DELETE select_gem_buffer

 

RETURN VOID

 

 

FUNCTION aug_start_aug

  CALL f_random_delay VOID 1 ONE

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" blankfunc 85

 

  DEFINE BYTEBUFFER start_aug_buffer 256

  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

  DELETE start_aug_buffer

 

  UNLOCK A

 

RETURN VOID

 

FUNCTION remove_augment

  rem_loop = ZERO

 

  IF work_item.aug_id == ZERO

      CALL f_random_delay VOID 1 ONE

      CALL reload_invent

      CALL f_random_delay VOID 1 ONE

      IF work_item.aug_id == ZERO 

        RETURN VOID

      ENDIF

  ENDIF

  PRINT_TEXT "== Removing Augment..."

  PRINT_TEXT "====================================="

 

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" rem_after_target_talk 25

 

  CALL f_random_delay VOID 1 ONE

 

  CALL use_magic_gem

 

  WHILE rem_loop == ZERO

  SLEEP 50

  WEND

  LOCK B

  SLEEP 50

  UNLOCK B

RETURN VOID

 

FUNCTION rem_after_target_talk

 

  LOCK B

  rem_loop = ONE

 

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" selecting_html_rem_augment 25

  NPC_DIALOG "bypass -h pc_augment_chat 0"

 

RETURN VOID

 

 

FUNCTION selecting_html_rem_augment

  CALL f_random_delay VOID 1 ONE

 

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" blankfunc 25

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" rem_aug_item 82

  NPC_DIALOG "bypass -h pc_augment_start 2"

 

RETURN VOID

 

FUNCTION rem_aug_item

 

  CALL f_random_delay VOID 1 ONE

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" blankfunc 82 

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" aug_start_rem 87

 

  DEFINE BYTEBUFFER select_item_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

  DELETE select_item_buffer 

 

RETURN VOID

 

 

FUNCTION aug_start_rem

 

  SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" blankfunc 87

  IF adena_checked == ZERO

      DEFINE INT firstbyte 0

      PACKET.READ_BYTE firstbyte

      DELETE firstByte

     

      DEFINE INT expacket 0

      PACKET.READ_INT16 expacket

      DELETE expacket

     

      DEFINE INT notinteresting 0

      PACKET.READ_INT64 notinteresting

      PACKET.READ_INT64 notinteresting

      DELETE notinteresting 

     

      PACKET.READ_INT64 adena_rem_aug

      CALL reload_invent

      adena_checked = ONE

  ENDIF

     

  ITEM_COUNT adena_count "<&id_of_adena&>"

  CALL f_random_delay VOID 1 ZERO

  IF adena_count <= adena_rem_aug

      CALL reload_invent

      CALL f_random_delay VOID 1 ONE

      CALL f_random_delay VOID 1 ONE

      ITEM_COUNT adena_count "<&id_of_adena&>"

      IF adena_count <= adena_rem_aug

        PRINT_TEXT "====================================="

        PRINT_TEXT "== Not enough Adena(<&adena_count&>) to remove augment!"

        PRINT_TEXT "====================================="

        JUMP_TO_LABEL THE_END

      ENDIF

  ENDIF

 

  CALL f_random_delay VOID 1 ONE

  DEFINE BYTEBUFFER rem_aug_buffer 256

  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

  DELETE rem_aug_buffer

 

  UNLOCK B

 

RETURN VOID

 

 

FUNCTION BeforeCheck

 

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

  skills_flag = ZERO

 

  DO

  INJECT "<&request_skills&>"

  CALL f_random_delay VOID 1 ONE

  LOOP skills_flag == ZERO

 

RETURN VOID

 

 

FUNCTION CheckSkillList

 

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

  LOCK C

  skills_flag = ONE

 

  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 "====================================="

            PRINT_TEXT "== Augment Script finished."

            PRINT_TEXT "== Augmentation with Skill ID <&search_for_skills.Z&> was succesfull."

            PRINT_TEXT "====================================="

            JUMP_TO_LABEL THE_END

        ENDIF

     

      NEXTEACH

  NEXTEACH

  CALL equip_augmented_item

 

  ITEM_COUNT gem_count "<&id_of_gem&>"

  DEFINE STRING gem_name " "

  ITEM_GET_NAME gem_name "<&id_of_gem&>"

  ITEM_COUNT ls_count "<&id_of_ls&>"

 

  PRINT_TEXT "====================================="

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

  PRINT_TEXT "== Items Remaining:"

  PRINT_TEXT "== <&gem_count&> - <&gem_name&>"

  PRINT_TEXT "== <&ls_count&> - <&ls_for_aug&> "

  PRINT_TEXT "====================================="

 

  CALL f_random_delay VOID 1 ZERO

 

  UNLOCK C

 

RETURN VOID

 

FUNCTION f_random_delay 1 lmh

  DEFINE INT rand_min 0

  DEFINE INT rand_max 0

  SLEEP 25

  SWITCH lmh

      CASE #i0

        rand_min = #i150

        rand_max = #i300

        BREAK 1

      CASE #i1

        rand_min = #i400

        rand_max = #i550

        BREAK 1

      CASE #i2

        rand_min = #i2103

        rand_max = #i2408

        BREAK 1

      DEFAULT

        BREAK 1

  ENDSWITCH

  DEFINE INT random_delay 0

  GET_RAND random_delay "<&rand_min&>" "<&rand_max&>"

  SLEEP 25

  SLEEP "<&random_delay&>"

 

  DELETE rand_min

  DELETE rand_max

  DELETE random_delay

 

RETURN VOID

 

FUNCTION reload_invent

 

GET_INVENTORY full_invent

CALL f_random_delay VOID 1 ZERO

 

FOREACH item Inventory full_invent

  IF full_invent.item.name == item_to_aug   

      work_item = full_invent.item

  ENDIF

  IF first_round == ONE

      IF full_invent.item.ITEM_ID == id_of_gem   

        work_gem = full_invent.item

      ENDIF

  ENDIF

  IF full_invent.item.name == ls_for_aug   

      work_ls = full_invent.item

  ENDIF

  IF full_invent.item.name == l2incgem

      uid_of_incgem = full_invent.item.id

  ENDIF

NEXTEACH

 

RETURN VOID

 

FUNCTION blankfunc

SLEEP 50

RETURN VOID

 

 

FUNCTION use_magic_gem

 

DEFINE BYTEBUFFER use_magic_gem_bufer 256

 

use_magic_gem_bufer.write_byte #i25

use_magic_gem_bufer.write_int32 uid_of_incgem

use_magic_gem_bufer.write_int32 #i0

use_magic_gem_bufer.trim_to_index

INJECTBB use_magic_gem_bufer

CALL f_random_delay VOID 1 ONE

 

DELETE use_magic_gem_bufer

 

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

CALL f_random_delay VOID 1 ONE

 

DELETE equip_item

 

RETURN VOID

 

 

 

 

anyone who know what i must do here to play on (interlude)

[JaharakaL]

Την επόμενη φορά διάβασε τα rules πρωτού κάνεις νέο topic.

 

Locked.