Dunno :) If you already found game base address, then search for all constants (search all game base address). It will be enoughQuote:
Originally Posted by unfaceguy [Only registered and activated users can see links. Click Here To Register...]
Printable View
Dunno :) If you already found game base address, then search for all constants (search all game base address). It will be enoughQuote:
Originally Posted by unfaceguy [Only registered and activated users can see links. Click Here To Register...]
Dwar makes programming so good^^
how did you search all game base address .... i tried and got error :Quote:
Dunno If you already found game base address, then search for all constants (search all game base address). It will be enough
Such notation is incorrect. You should write: mov EAX, [B7B054]
it got same error :|Quote:
Originally Posted by Dwar [Only registered and activated users can see links. Click Here To Register...]
I didn't analyzed why it happened, but with some old olly I got this error. But now, I've tested different modifications and tried following expressions (for my app):
and everything okCode:cmp esi, [47DF5C]
cmp esi, [0x47DF5C]
cmp esi, dword ptr [0x47DF5C]
wow.. thumbs up for you.:good:Quote:
Originally Posted by unfaceguy [Only registered and activated users can see links. Click Here To Register...]
can you share your bot? i want test bot farming. it's look nice.. :yahoo:
sorry for my bad english.
sorry , my bot can work on PW VietNam only ..Quote:
Originally Posted by kurniareza [Only registered and activated users can see links. Click Here To Register...]
I Have a source some bot, but the bot cann't work.. may be someone can fix it??
Code:
Help me please...:wall::wall:Code:#NoTrayIcon
#include <NomadMemory.au3>
#include <Memory.au3>
#include <GUIConstants.au3>
#include <Array.au3>
Opt("SendKeyDownDelay", 35)
HotKeySet("{F9}", "StartOrStop")
Opt("GUIOnEventMode", 1)
Global $SOFTWARE_TITLE = "Blak Bot"
Global $SOFTWARE_VERSION = "v34 "
Global $SOFTWARE_CONFIG = "setting.dll"
Global $STOP = True
Global $CURRENT_MOB_LIST[10]
Global $MOB_LIST_COUNT = "0"
Global $TARGET_STATE
Global $TARGET_ID
Global $LAST_KILLEDTIME
Global $LAST_KILLED
Global $KILL_STATE = 0
Global $KILLS_COUNT = 0
Global $ACTIVE_SKILL = 0
Global $ACTIVE_WEAPONS = 0
Global $TIMER_CHANGE_WEAPON
Global $TID = 0
Global $SKILL_DELAY_CHECK[10]
Global $HP = "0"
Global $MP = "0"
Global $MAXHP = "0"
Global $MAXMP = "0"
Global $HP_PERC = "0"
Global $MP_PERC = "0"
Global $EXP = "0"
Global $LAST_HP_READ = "0"
Global $CFG_OFFSET_PET_HP = "PetHP_OffSet"
Global $CFG_OFFSET_PET_MAXHP = "PetMaxHP_OffSet"
Global $CFG_OFFSET_SLOT = "PetSlot"
Global $PET_HP_PERC = "0"
Global $PET_HP = "0"
Global $CFG_HEAL_PET_ROOT_KEY = "HealPet"
Global $CFG_CHECK_PET_ROOT_KEY = "CheckHealPet"
Global $CFG_HEAL_PET_HP_FLAG_KEY = "HealPetKey"
Global $CFG_PET_CURRENT_HP = "PetCurrentHP"
Global $BUFFS_TIMER[9], $BUFFS_TIMER_DIFF[9]
Global $CFG_SKILLS_ROOT_KEY = "Skills"
Global $CFG_SKILL_UBOUND_KEY = "SkillUbound"
Global $CFG_SKILL_COMBO_KEY = "SkillComboKey"
Global $CFG_SKILL_DELAY_KEY = "SkillDelay"
Global $SKCOUNTCFG = IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_UBOUND_KEY, "1")
Global $CFG_BUFFS_ROOT_KEY = "Buffs"
Global $CFG_BUFFS_FLAG_KEY = "AutoBuffsFlag"
Global $CFG_BUFFS_UBOUND_KEY = "BuffsUbound"
Global $CFG_BUFFS_COMBO_KEY = "BuffsComboKey"
Global $CFG_BUFFS_DELAY_KEY = "BuffsDelay"
Global $CFG_BUFFS_FREQUENCY_KEY = "BuffsFrequency"
Global $SKCOUNTCFG_BUFFS = IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_UBOUND_KEY, "1")
Global $CFG_WEAPONS_ROOT_KEY = "ChangeWeapons"
Global $CFG_WEAPONS_FLAG_KEY = "ChangeWeaponsFlag"
Global $CFG_WEAPONS_UBOUND_KEY = "ChangeWeaponsUbound"
Global $CFG_WEAPONS_COMBO_KEY = "ChangeWeaponsComboKey"
Global $CFG_WEAPONS_DELAY_KEY = "ChangeWeaponsDelay"
Global $SKCOUNTCFG_WEAPONS = IniRead($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_UBOUND_KEY, "1")
Global $CFG_MOBLIST_ROOT_KEY = "MobList"
Global $CFG_MOBLIST_UBOUND_KEY = "MobListUbound"
Global $CFG_MOBLIST_MONSTER_KEY = "Monster"
Global $CFG_HEAL_ROOT_KEY = "Heal"
Global $CFG_HEAL_AUTOPOT_HP_FLAG_KEY1 = "AutoPotFlagHP1"
Global $CFG_HEAL_AUTOPOT_HP_PERC_KEY1 = "AutoPotHPPerc1"
Global $CFG_HEAL_AUTOPOT_MP_FLAG_KEY1 = "AutoPotFlagMP1"
Global $CFG_HEAL_AUTOPOT_MP_PERC_KEY1 = "AutoPotMPPerc1"
Global $CFG_HEAL_AUTOPOT_HP_KEY1 = "AutoPotHPKey1"
Global $CFG_HEAL_AUTOPOT_MP_KEY1 = "AutoPotMPKey1"
Global $CFG_HEAL_STOP_ON_DIE_KEY1 = "StopOnDie1"
Global $CFG_HEAL_AUTOPOT_HP_FLAG_KEY = "AutoPotFlagHP"
Global $CFG_HEAL_AUTOPOT_HP_PERC_KEY = "AutoPotHPPerc"
Global $CFG_HEAL_AUTOPOT_MP_FLAG_KEY = "AutoPotFlagMP"
Global $CFG_HEAL_AUTOPOT_MP_PERC_KEY = "AutoPotMPPerc"
Global $CFG_HEAL_AUTOPOT_HP_KEY = "AutoPotHPKey"
Global $CFG_HEAL_AUTOPOT_MP_KEY = "AutoPotMPKey"
Global $CFG_HEAL_STOP_ON_DIE_KEY = "StopOnDie"
Global $CFG_LOOT_ROOT_KEY = "Loot"
Global $CFG_LOOT_FLAG_KEY = "LootFlag"
Global $CFG_LOOT_TIMES_KEY = "Times"
Global $CFG_LOOT_KEY = "LootKey"
Global $CFG_FLYESCAPE_ROOT_KEY = "FlyEscape"
Global $CFG_FLYESCAPE_FLAG_KEY = "FlyEscapeFlag"
Global $CFG_FLYESCAPE_KEY = "FlyEscapeKey"
Global $CFG_FLYESCAPE_DAMAGE_KEY = "FlyEscapeDamage"
Global $CFG_FLYESCAPE_SPACE_KEY = "FlyEscapeTotalSpaces"
Global $SOFTWARE_OFFSET_CONFIG = "Offset.dll"
Global $CFG_OFFSET_ROOT_KEY = "DecimalOffset"
Global $CFG_OFFSET_AT = "Target_OffSet"
Global $CFG_OFFSET_HP = "HP_OffSet"
Global $CFG_OFFSET_MAXHP = "MaxHP_OffSet"
Global $CFG_OFFSET_MP = "MP_OffSet"
Global $CFG_OFFSET_MAXMP = "MaxMP_OffSet"
Global $CFG_BASEADDRESS_ROOT_KEY = "Perfect_World_Base_Address_In_Decimal"
Global $CFG_BASEADDRESS_APP_KEY = "Application_Title"
Global $CFG_BASEADDRESS_KEY = "Base_Address"
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_BASEADDRESS_ROOT_KEY, $CFG_BASEADDRESS_APP_KEY, IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_BASEADDRESS_ROOT_KEY, $CFG_BASEADDRESS_APP_KEY, "lempay"))
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_BASEADDRESS_ROOT_KEY, $CFG_BASEADDRESS_KEY, Dec(Hex(IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_BASEADDRESS_ROOT_KEY, $CFG_BASEADDRESS_KEY, "9607148"))))
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_AT, IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_AT, Dec("A24")))
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_HP, IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_HP, "1104"))
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_MAXHP, IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_MAXHP, "1152"))
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_MP, IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_MP, "1108"))
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_MAXMP, IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_MAXMP, "1156"))
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_SLOT, IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_SLOT, "16"))
Global $APP_BASE_ADDRESS = "0x" & Hex(IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_BASEADDRESS_ROOT_KEY, $CFG_BASEADDRESS_KEY, "9607148"))
Global $OFFSET_AT[3]
$OFFSET_AT[1] = 32
$OFFSET_AT[2] = IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_AT, Dec("A24"))
Global $OFFSET_HP[3], $OFFSET_MAX_HP[3]
$OFFSET_HP[1] = 32
$OFFSET_HP[2] = IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_HP, "1104")
$OFFSET_MAX_HP[1] = 32
$OFFSET_MAX_HP[2] = IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_MAXHP, "1152")
Global $OFFSET_MP[3], $OFFSET_MAX_MP[3]
$OFFSET_MP[1] = 32
$OFFSET_MP[2] = IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_MP, "1108")
$OFFSET_MAX_MP[1] = 32
$OFFSET_MAX_MP[2] = IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_MAXMP, "1156")
Global $OFFSET_PET_HP[5]
$OFFSET_PET_HP[1] = 32
$OFFSET_PET_HP[2] = 3040
$OFFSET_PET_HP[3] = IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_SLOT, "16")
$OFFSET_PET_HP[4] = 56
Global $OFFSET_FLY[3]
$OFFSET_FLY[1] = 32
$OFFSET_FLY[2] = 1592
HotKeySet("{Numpadadd}", "Terbang")
Global $OFFSET_NORM[3]
$OFFSET_NORM[1] = 32
$OFFSET_NORM[2] = 1592
HotKeySet("{Numpadsub}", "Biasa")
Global $APP_TITLE = IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_BASEADDRESS_ROOT_KEY, $CFG_BASEADDRESS_APP_KEY, "Element Client")
Global $PROCESS_ID = WinGetProcess($APP_TITLE)
Global $PROCESS_INFORMATION = _MEMORYOPEN($PROCESS_ID)
If @error Then
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_BASEADDRESS_ROOT_KEY, $CFG_BASEADDRESS_APP_KEY, "Element Client")
MsgBox(0, "Warning!!!", "Element Client tidak ditemukan. Jalakan Element Client ")
EndIf
$FORM_MAIN = GUICreate($SOFTWARE_TITLE & " " & $SOFTWARE_VERSION, 260, 400, 10, 10, -1, -1)
GUISetFont(8, 400, 0, "Comic Sans MS")
GUISetOnEvent($GUI_EVENT_CLOSE, "WindowCloseClicked")
GUISetBkColor(16777215)
$MENU = GUICtrlCreateMenu("Menu")
$SETMONSTER = GUICtrlCreateMenuItem("Set Monster F11", $MENU)
GUICtrlSetOnEvent(-1, "SetMobList")
$SETMONSTER = GUICtrlCreateMenuItem("Save Monster F10", $MENU)
GUICtrlSetOnEvent(-1, "EndSelectMobList")
$STARTORSTOP = GUICtrlCreateMenuItem("Start F9", $MENU)
GUICtrlSetOnEvent(-1, "StartOrStop")
$RESETMONSTER = GUICtrlCreateMenuItem("ReSet Monster", $MENU)
GUICtrlSetOnEvent(-1, "ResetMobList")
$EXIT = GUICtrlCreateMenuItem("Keluar", $MENU)
GUICtrlSetOnEvent(-1, "_Exit")
$SETTING = GUICtrlCreateMenu("Setting")
$SKILL = GUICtrlCreateMenuItem("Set Skill", $SETTING)
GUICtrlSetOnEvent(-1, "SetSkills")
$POT = GUICtrlCreateMenuItem("Set Pot", $SETTING)
GUICtrlSetOnEvent(-1, "SetAutoPotRest")
$PAKET = GUICtrlCreateMenuItem("Set Paket", $SETTING)
GUICtrlSetOnEvent(-1, "SetAutoBuffs")
$SENJATA = GUICtrlCreateMenuItem("Set Ganti Senjata", $SETTING)
GUICtrlSetOnEvent(-1, "SetChangeWeapons")
$KAKISERIBU = GUICtrlCreateMenuItem("Set Kaki Seribu", $SETTING)
GUICtrlSetOnEvent(-1, "SetFlyEscape")
$SLOTPET = GUICtrlCreateMenu("Pet Slot")
$SLOT0 = GUICtrlCreateMenuItem("Slot 1", $SLOTPET)
GUICtrlSetOnEvent(-1, "Slot0")
$SLOT1 = GUICtrlCreateMenuItem("Slot 2", $SLOTPET)
GUICtrlSetOnEvent(-1, "Slot1")
$SLOT2 = GUICtrlCreateMenuItem("Slot 3", $SLOTPET)
GUICtrlSetOnEvent(-1, "Slot2")
$SLOT3 = GUICtrlCreateMenuItem("Slot 4", $SLOTPET)
GUICtrlSetOnEvent(-1, "Slot3")
$SLOT4 = GUICtrlCreateMenuItem("Slot 5", $SLOTPET)
GUICtrlSetOnEvent(-1, "Slot4")
$SLOT5 = GUICtrlCreateMenuItem("Slot 6", $SLOTPET)
GUICtrlSetOnEvent(-1, "Slot5")
$SLOT6 = GUICtrlCreateMenuItem("Slot 7", $SLOTPET)
GUICtrlSetOnEvent(-1, "Slot6")
$SLOT7 = GUICtrlCreateMenuItem("Slot 8", $SLOTPET)
GUICtrlSetOnEvent(-1, "Slot7")
$SLOT8 = GUICtrlCreateMenuItem("Slot 9", $SLOTPET)
GUICtrlSetOnEvent(-1, "Slot8")
$SLOT9 = GUICtrlCreateMenuItem("Slot 10", $SLOTPET)
GUICtrlSetOnEvent(-1, "Slot9")
$ABOUT = GUICtrlCreateMenu("Help")
$SLOT9 = GUICtrlCreateMenuItem("About", $ABOUT)
GUICtrlSetOnEvent(-1, "About")
$LABEL_LIST_MOB = GUICtrlCreateLabel("Monster List [Max: 10]", 5, 1, 250, 20)
$LIST_MOB = GUICtrlCreateListView("Prioritas|Monster ID ", 5, 15, 250, 100)
REFRESHMOBLIST()
$GROUP_BOT_INFO = GUICtrlCreateGroup(" [Info] ", 5, 117, 250, 65)
$LABEL_BOT_STATUS = GUICtrlCreateLabel("Status: Stopped", 15, 131, 150, 20)
$LABEL_KILLED_STATUS = GUICtrlCreateLabel("Total Killed: 0", 150, 131, 100, 20)
$LABEL_GENERAL_STATUS = GUICtrlCreateLabel("Action: Nothing", 15, 151, 200, 20)
$LABEL_WEAPON = GUICtrlCreateLabel("Weapon: 0", 150, 151, 80, 20)
$GROUP_CHAR_INFO = GUICtrlCreateGroup(" [Char Info] ", 5, 184, 250, 57)
$LABEL_HP_STATUS = GUICtrlCreateLabel("HP: 0/0 (0%)", 15, 200, 150, 20)
$LABEL_MP_STATUS = GUICtrlCreateLabel("MP: 0/0 (0%)", 135, 200, 115, 20)
$LABEL_DAMAGE = GUICtrlCreateLabel("Damage: Undefined", 100, 218, 119, 20)
$LABEL_HP_PET_STATUS = GUICtrlCreateLabel("PetHP: 0", 15, 218, 60, 20)
$GROUP_OFFSET_INFO = GUICtrlCreateGroup(" [Warning] ", 5, 245, 250, 59)
$LABEL_OFFSET_TIP = GUICtrlCreateLabel("Keep Huning When Sleeping!!! Untuk Kalangan Sendiri. Tidak DiperJualBelikan", 15, 260, 230, 43)
GUICtrlCreatePic("IMG.dll", 155, 267, 90, 24)
$GROUP_OFFSET_INFO = GUICtrlCreateGroup(" [Target] ", 5, 307, 250, 60)
$LABEL_APP_NAME = GUICtrlCreateLabel("Target App: " & $APP_TITLE, 22, 323, 230, 18)
$CLIENT_LABEL = GUICtrlCreateLabel("Change to:", 22, 340, 90, 18)
$LABEL_APP_IN = GUICtrlCreateInput("", 75, 340, 90, 18)
GUICtrlSetData(-1, IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_BASEADDRESS_ROOT_KEY, $CFG_BASEADDRESS_APP_KEY, "Element Client"))
$LABEL_APP_SAVE = GUICtrlCreat****ton("Set", 182, 340, 50, 18)
GUICtrlSetOnEvent(-1, "SetAppName")
GUISetState(@SW_SHOW, $FORM_MAIN)
Do
Sleep(1000)
GUICtrlSetData($LABEL_BOT_STATUS, "Status: Stopped")
GUICtrlSetData($LABEL_GENERAL_STATUS, "Action: Nothing")
UPDATECHARINFO()
UPDATEPETINFO()
TIMERBUFFSSTART()
$ACTIVE_WEAPONS = 0
$TIMER_CHANGE_WEAPON = TimerInit()
Until $STOP = False
While (1)
UPDATECHARINFO()
UPDATEPETINFO()
MAIN()
WEnd
Func SLOT0()
UPDATEPETINFO()
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_SLOT, 16)
GUICtrlSetState($SLOT0, $GUI_CHECKED)
GUICtrlSetState($SLOT1, $GUI_UNCHECKED)
GUICtrlSetState($SLOT2, $GUI_UNCHECKED)
GUICtrlSetState($SLOT3, $GUI_UNCHECKED)
GUICtrlSetState($SLOT4, $GUI_UNCHECKED)
GUICtrlSetState($SLOT5, $GUI_UNCHECKED)
GUICtrlSetState($SLOT6, $GUI_UNCHECKED)
GUICtrlSetState($SLOT7, $GUI_UNCHECKED)
GUICtrlSetState($SLOT8, $GUI_UNCHECKED)
GUICtrlSetState($SLOT9, $GUI_UNCHECKED)
EndFunc
Func SLOT1()
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_SLOT, 20)
GUICtrlSetState($SLOT0, $GUI_UNCHECKED)
GUICtrlSetState($SLOT1, $GUI_CHECKED)
GUICtrlSetState($SLOT2, $GUI_UNCHECKED)
GUICtrlSetState($SLOT3, $GUI_UNCHECKED)
GUICtrlSetState($SLOT4, $GUI_UNCHECKED)
GUICtrlSetState($SLOT5, $GUI_UNCHECKED)
GUICtrlSetState($SLOT6, $GUI_UNCHECKED)
GUICtrlSetState($SLOT7, $GUI_UNCHECKED)
GUICtrlSetState($SLOT8, $GUI_UNCHECKED)
GUICtrlSetState($SLOT9, $GUI_UNCHECKED)
UPDATEPETINFO()
EndFunc
Func SLOT2()
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_SLOT, 24)
GUICtrlSetState($SLOT0, $GUI_UNCHECKED)
GUICtrlSetState($SLOT1, $GUI_UNCHECKED)
GUICtrlSetState($SLOT2, $GUI_CHECKED)
GUICtrlSetState($SLOT3, $GUI_UNCHECKED)
GUICtrlSetState($SLOT4, $GUI_UNCHECKED)
GUICtrlSetState($SLOT5, $GUI_UNCHECKED)
GUICtrlSetState($SLOT6, $GUI_UNCHECKED)
GUICtrlSetState($SLOT7, $GUI_UNCHECKED)
GUICtrlSetState($SLOT8, $GUI_UNCHECKED)
GUICtrlSetState($SLOT9, $GUI_UNCHECKED)
UPDATEPETINFO()
EndFunc
Func SLOT3()
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_SLOT, 34)
GUICtrlSetState($SLOT0, $GUI_UNCHECKED)
GUICtrlSetState($SLOT1, $GUI_UNCHECKED)
GUICtrlSetState($SLOT2, $GUI_UNCHECKED)
GUICtrlSetState($SLOT3, $GUI_CHECKED)
GUICtrlSetState($SLOT4, $GUI_UNCHECKED)
GUICtrlSetState($SLOT5, $GUI_UNCHECKED)
GUICtrlSetState($SLOT6, $GUI_UNCHECKED)
GUICtrlSetState($SLOT7, $GUI_UNCHECKED)
GUICtrlSetState($SLOT8, $GUI_UNCHECKED)
GUICtrlSetState($SLOT9, $GUI_UNCHECKED)
UPDATEPETINFO()
EndFunc
Func SLOT4()
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_SLOT, 38)
GUICtrlSetState($SLOT0, $GUI_UNCHECKED)
GUICtrlSetState($SLOT1, $GUI_UNCHECKED)
GUICtrlSetState($SLOT2, $GUI_UNCHECKED)
GUICtrlSetState($SLOT3, $GUI_UNCHECKED)
GUICtrlSetState($SLOT4, $GUI_CHECKED)
GUICtrlSetState($SLOT5, $GUI_UNCHECKED)
GUICtrlSetState($SLOT6, $GUI_UNCHECKED)
GUICtrlSetState($SLOT7, $GUI_UNCHECKED)
GUICtrlSetState($SLOT8, $GUI_UNCHECKED)
GUICtrlSetState($SLOT9, $GUI_UNCHECKED)
UPDATEPETINFO()
EndFunc
Func SLOT5()
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_SLOT, 48)
GUICtrlSetState($SLOT0, $GUI_UNCHECKED)
GUICtrlSetState($SLOT1, $GUI_UNCHECKED)
GUICtrlSetState($SLOT2, $GUI_UNCHECKED)
GUICtrlSetState($SLOT3, $GUI_UNCHECKED)
GUICtrlSetState($SLOT4, $GUI_UNCHECKED)
GUICtrlSetState($SLOT5, $GUI_CHECKED)
GUICtrlSetState($SLOT6, $GUI_UNCHECKED)
GUICtrlSetState($SLOT7, $GUI_UNCHECKED)
GUICtrlSetState($SLOT8, $GUI_UNCHECKED)
GUICtrlSetState($SLOT9, $GUI_UNCHECKED)
UPDATEPETINFO()
EndFunc
Func SLOT6()
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_SLOT, 52)
GUICtrlSetState($SLOT0, $GUI_UNCHECKED)
GUICtrlSetState($SLOT1, $GUI_UNCHECKED)
GUICtrlSetState($SLOT2, $GUI_UNCHECKED)
GUICtrlSetState($SLOT3, $GUI_UNCHECKED)
GUICtrlSetState($SLOT4, $GUI_UNCHECKED)
GUICtrlSetState($SLOT5, $GUI_UNCHECKED)
GUICtrlSetState($SLOT6, $GUI_CHECKED)
GUICtrlSetState($SLOT7, $GUI_UNCHECKED)
GUICtrlSetState($SLOT8, $GUI_UNCHECKED)
GUICtrlSetState($SLOT9, $GUI_UNCHECKED)
UPDATEPETINFO()
EndFunc
Func SLOT7()
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_SLOT, 56)
GUICtrlSetState($SLOT0, $GUI_UNCHECKED)
GUICtrlSetState($SLOT1, $GUI_UNCHECKED)
GUICtrlSetState($SLOT2, $GUI_UNCHECKED)
GUICtrlSetState($SLOT3, $GUI_UNCHECKED)
GUICtrlSetState($SLOT4, $GUI_UNCHECKED)
GUICtrlSetState($SLOT5, $GUI_UNCHECKED)
GUICtrlSetState($SLOT6, $GUI_UNCHECKED)
GUICtrlSetState($SLOT7, $GUI_CHECKED)
GUICtrlSetState($SLOT8, $GUI_UNCHECKED)
GUICtrlSetState($SLOT9, $GUI_UNCHECKED)
UPDATEPETINFO()
EndFunc
Func SLOT8()
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_SLOT, 66)
GUICtrlSetState($SLOT0, $GUI_UNCHECKED)
GUICtrlSetState($SLOT1, $GUI_UNCHECKED)
GUICtrlSetState($SLOT2, $GUI_UNCHECKED)
GUICtrlSetState($SLOT3, $GUI_UNCHECKED)
GUICtrlSetState($SLOT4, $GUI_UNCHECKED)
GUICtrlSetState($SLOT5, $GUI_UNCHECKED)
GUICtrlSetState($SLOT6, $GUI_UNCHECKED)
GUICtrlSetState($SLOT7, $GUI_UNCHECKED)
GUICtrlSetState($SLOT8, $GUI_CHECKED)
GUICtrlSetState($SLOT9, $GUI_UNCHECKED)
UPDATEPETINFO()
EndFunc
Func SLOT9()
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_OFFSET_ROOT_KEY, $CFG_OFFSET_SLOT, 70)
GUICtrlSetState($SLOT0, $GUI_UNCHECKED)
GUICtrlSetState($SLOT1, $GUI_UNCHECKED)
GUICtrlSetState($SLOT2, $GUI_UNCHECKED)
GUICtrlSetState($SLOT3, $GUI_UNCHECKED)
GUICtrlSetState($SLOT4, $GUI_UNCHECKED)
GUICtrlSetState($SLOT5, $GUI_UNCHECKED)
GUICtrlSetState($SLOT6, $GUI_UNCHECKED)
GUICtrlSetState($SLOT7, $GUI_UNCHECKED)
GUICtrlSetState($SLOT8, $GUI_UNCHECKED)
GUICtrlSetState($SLOT9, $GUI_CHECKED)
UPDATEPETINFO()
EndFunc
Func SETAPPNAME()
IniWrite($SOFTWARE_OFFSET_CONFIG, $CFG_BASEADDRESS_ROOT_KEY, $CFG_BASEADDRESS_APP_KEY, GUICtrlRead($LABEL_APP_IN))
If Not @error Then
$TITLE = IniRead($SOFTWARE_OFFSET_CONFIG, $CFG_BASEADDRESS_ROOT_KEY, $CFG_BASEADDRESS_APP_KEY, "Element Client")
GUICtrlSetData($LABEL_APP_NAME, "Target App: " & $TITLE)
EndIf
$CLIENT = GUICtrlRead($LABEL_APP_IN)
WinSetTitle($APP_TITLE, "", $CLIENT)
MsgBox(0, "Done", "App target telah berubah menjadi " & $TITLE & ". Dual client bisa dilakukan ^^V.")
EndFunc
Func ABOUT()
Global $FORM_ABOUT = GUICreate("About", 525, 330, -1, -1, -1, -1, $FORM_MAIN)
GUISetBkColor(16777215)
GUISetFont(8, 400, 0, "Comic Sans MS")
GUISetOnEvent($GUI_EVENT_CLOSE, "AboutCloseClicked")
GUISwitch($FORM_ABOUT)
$GROUP_ABOUT_INFO = GUICtrlCreateGroup(" *BlakBot v34", 5, 1, 515, 325)
GUICtrlCreateLabel("Bot PW Indo Versi 34", 10, 20)
GUICtrlCreateLabel("Edited by SiapeDee From MHS-BOT by MHS-Game in ElitePvPers.de", 10, 35)
GUICtrlCreateLabel("*Whats New", 10, 50)
GUICtrlCreateLabel("Heal Pet di Dalam Bagian Pot", 10, 65)
GUICtrlCreateLabel("Mengganti Nama Aplikasi Untuk Dual Client", 10, 80)
GUICtrlCreateLabel("Dua Bagian AutoPot", 10, 95)
GUICtrlCreateLabel("*Note", 10, 110)
GUICtrlCreateLabel("Untuk Heal Pet", 10, 125)
GUICtrlCreateLabel("Setelah Kamu Mengganti Slot Pet..Restart Bot Untuk Membaca Ulang Pet HP", 10, 140)
GUICtrlCreateLabel("Untuk Dual Client", 10, 155)
GUICtrlCreateLabel("Buat 2 Folder, Letakan Bot Di 2 Folder Ters****", 10, 170)
GUICtrlCreateLabel("Jalankan Elemen Client -> Buka Bot Folder 1 -> Rename Ke Hitter", 10, 185)
GUICtrlCreateLabel("Dengan Begitu Bot Otomatis Berjalan Ke Hitter", 10, 200)
GUICtrlCreateLabel("Jalankan Elemen Client -> Buka Bot Folder 2 -> Rename Ke Healer", 10, 215)
GUICtrlCreateLabel("Dengan Begitu Bot Otomatis Berjalan Ke Healer", 10, 230)
GUICtrlCreateLabel("*Perhatian", 10, 245)
GUICtrlCreateLabel("Perhatikan Space Dalam Rename Target", 10, 260)
GUICtrlCreateLabel("Jika Target Rename Ke Element Client1 Maka Bot Folder 2 Tetap Membaca Element Client Sebagai Targetnya", 10, 275)
GUICtrlCreateLabel("Jika Rename Ke Element Client 1 Bot Folder 2 Akan Membaca Element Client 1 Sebagai Targetnya", 10, 290)
GUICtrlCreateLabel("Bot Ini Gratis/Free Tidak DiPerjualBelikan", 10, 305, 200, 15)
GUISetState(@SW_SHOW, $FORM_ABOUT)
EndFunc
Func TERBANG()
_MEMORYPOINTERWRITE($APP_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_FLY, "16")
EndFunc
Func BIASA()
_MEMORYPOINTERWRITE($APP_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_FLY, "0")
EndFunc
Func MAIN()
If $STOP = False Then
GUICtrlSetData($LABEL_BOT_STATUS, "BOT Status: Started")
$TARGET_STATE = _MEMORYPOINTERREAD($APP_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_AT)
If Not @error Then
TARGETMOB()
If $TARGET_STATE[1] <> 0 Then
KILLTARGET()
EndIf
UPDATECHARINFO()
UPDATEPETINFO()
STOPCHECK()
EndIf
Else
Sleep(1000)
GUICtrlSetData($LABEL_BOT_STATUS, "BOT Status: Stopped")
GUICtrlSetData($LABEL_GENERAL_STATUS, "Action: Nothing")
TIMERBUFFSSTART()
RESETSKILLDELAYS()
$ACTIVE_WEAPONS = 0
$TIMER_CHANGE_WEAPON = TimerInit()
EndIf
EndFunc
Func WINDOWCLOSECLICKED()
Exit
EndFunc
Func WINDOWSKILLCLOSECLICKED()
GUIDelete($FORM_SKILL)
EndFunc
Func WINDOWAUTOPOTRESTCLOSECLICKED()
GUIDelete($FORM_AUTOPOTREST)
EndFunc
Func WINDOWFLYESCAPECLOSECLICKED()
GUIDelete($FORM_FLYESCAPE)
EndFunc
Func WINDOWAUTOBUFFCLOSECLICKED()
GUIDelete($FORM_BUFFS)
EndFunc
Func WINDOWCHANGEWEAPONSCLOSECLICKED()
GUIDelete($FORM_WEAPONS)
EndFunc
Func ABOUTCLOSECLICKED()
GUIDelete($FORM_ABOUT)
EndFunc
Func RESETSKILLDELAYS()
$SKILL_DELAY_CHECK[1] = TimerInit()
$SKILL_DELAY_CHECK[2] = TimerInit()
$SKILL_DELAY_CHECK[3] = TimerInit()
$SKILL_DELAY_CHECK[4] = TimerInit()
$SKILL_DELAY_CHECK[5] = TimerInit()
$SKILL_DELAY_CHECK[6] = TimerInit()
$SKILL_DELAY_CHECK[7] = TimerInit()
$SKILL_DELAY_CHECK[8] = TimerInit()
$SKILL_DELAY_CHECK[9] = TimerInit()
EndFunc
Func UPDATECHARINFO()
$HP = _MEMORYPOINTERREAD($APP_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_HP)
$MAXHP = _MEMORYPOINTERREAD($APP_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_MAX_HP)
If Not @error Then
$HP_PERC = $HP[1] / $MAXHP[1] * 100
GUICtrlSetData($LABEL_HP_STATUS, "HP: " & $HP[1] & "/" & $MAXHP[1] & " (" & Int($HP_PERC) & "%)")
EndIf
$MP = _MEMORYPOINTERREAD($APP_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_MP)
$MAXMP = _MEMORYPOINTERREAD($APP_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_MAX_MP)
If Not @error Then
$MP_PERC = $MP[1] / $MAXMP[1] * 100
GUICtrlSetData($LABEL_MP_STATUS, "MP: " & $MP[1] & "/" & $MAXMP[1] & " (" & Int($MP_PERC) & "%)")
EndIf
EndFunc
Func TARGETMOB()
HPMPAUTOPOTCHECK()
HPMPAUTOPOTCHECK1()
HPPETCHECK()
AUTOBUFFSCHECK()
RESETSKILLDELAYS()
CHANGEWEAPONSCHECK()
$TARGET_MOB = PREFERREDMOB(1)
GUICtrlSetData($LABEL_GENERAL_STATUS, "Action: Finding Target")
Do
GUICtrlSetData($LABEL_GENERAL_STATUS, "Action: Trying Mob" & $TARGET_MOB)
$TARGET_STATE = _MEMORYPOINTERREAD($APP_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_AT)
If $TARGET_STATE[1] = 0 Then
$TID = IniRead($SOFTWARE_CONFIG, $CFG_MOBLIST_ROOT_KEY, $CFG_MOBLIST_MONSTER_KEY & $TARGET_MOB, "")
_MEMORYPOINTERWRITE($APP_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_AT, "0x" & $TID)
If Not @error Then
Sleep(200)
$TARGET_STATE = _MEMORYPOINTERREAD($APP_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_AT)
If $TARGET_STATE[1] = 0 Then
$TARGET_MOB = PREFERREDMOB($TARGET_MOB + 1)
EndIf
EndIf
EndIf
$TARGET_STATE = _MEMORYPOINTERREAD($APP_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_AT)
Until $TARGET_STATE[1] <> 0 Or $TARGET_MOB > IniRead($SOFTWARE_CONFIG, $CFG_MOBLIST_ROOT_KEY, $CFG_MOBLIST_UBOUND_KEY, 1)
EndFunc
Func PREFERREDMOB($MOBID)
Local $MOBRET = $MOBID
GUICtrlSetData($LABEL_GENERAL_STATUS, "Action: Trying Mob " & $MOBRET)
If $KILL_STATE <> 0 Then
$TID = IniRead($SOFTWARE_CONFIG, $CFG_MOBLIST_ROOT_KEY, $CFG_MOBLIST_MONSTER_KEY & $MOBRET, "")
If $TID = Hex($KILL_STATE) And TimerDiff($LAST_KILLEDTIME) < 10 * 1000 Then
$MOBRET = $MOBRET + 1
EndIf
EndIf
Return $MOBRET
EndFunc
Func KILLTARGET()
UPDATECHARINFO()
UPDATEPETINFO()
$LAST_HP_READ = $HP[1]
$ACTIVE_SKILL = 0
$TS = TimerInit()
$TARGET_STATE = _MEMORYPOINTERREAD($APP_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_AT)
If Not @error And $TARGET_STATE[1] <> 0 Then
$KILL_STATE = $TARGET_STATE[1]
Do
$ACTIVE_SKILL = $ACTIVE_SKILL + 1
If $ACTIVE_SKILL > $SKCOUNTCFG Then
$ACTIVE_SKILL = 1
EndIf
$W8 = IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_DELAY_KEY & $ACTIVE_SKILL, "1")
If TimerDiff($SKILL_DELAY_CHECK[$ACTIVE_SKILL]) > ($W8 * 1000) Then
$SKILL_DELAY_CHECK[$ACTIVE_SKILL] = TimerInit()
$KEY = IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_COMBO_KEY & $ACTIVE_SKILL, "{F1}")
ControlSend($APP_TITLE, "", "", $KEY)
EndIf
HPMPAUTOPOTCHECK()
HPMPAUTOPOTCHECK1()
HPPETCHECK()
CHECKFLYESCAPE()
$K = 0
Do
$K = $K + 1
If Hex($KILL_STATE) = IniRead($SOFTWARE_CONFIG, $CFG_MOBLIST_ROOT_KEY, $CFG_MOBLIST_MONSTER_KEY & $K, "") Then
GUICtrlSetData($LABEL_GENERAL_STATUS, "Action: Killing Monster " & $K)
ExitLoop
EndIf
Until $K > IniRead($SOFTWARE_CONFIG, $CFG_MOBLIST_ROOT_KEY, $CFG_MOBLIST_UBOUND_KEY, 1)
$TARGET_STATE = _MEMORYPOINTERREAD($APP_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_AT)
$TIMER = TimerDiff($TS)
Until $KILL_STATE <> $TARGET_STATE[1] Or $TIMER > 2 * 60000 Or $TARGET_STATE[1] = 0
$LAST_KILLED = $K
$LAST_KILLEDTIME = TimerInit()
$KILLS_COUNT = $KILLS_COUNT + 1
GUICtrlSetData($LABEL_KILLED_STATUS, "Total Killed: " & $KILLS_COUNT)
PICKLOOT(IniRead($SOFTWARE_CONFIG, $CFG_LOOT_ROOT_KEY, $CFG_LOOT_TIMES_KEY, "1"))
EndIf
EndFunc
Func STOPCHECK()
If IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_STOP_ON_DIE_KEY, 0) = 1 Then
If $HP[1] = 0 Then
STARTORSTOP()
EndIf
EndIf
EndFunc
Func PICKLOOT($MAX)
If IniRead($SOFTWARE_CONFIG, $CFG_LOOT_ROOT_KEY, $CFG_LOOT_FLAG_KEY, "0") = 1 Then
For $P = $MAX To 1 Step -1
$PKEY = IniRead($SOFTWARE_CONFIG, $CFG_LOOT_ROOT_KEY, $CFG_LOOT_KEY, "0")
ControlSend($APP_TITLE, "", "", $PKEY)
Sleep(300)
Next
EndIf
EndFunc
Func HPMPAUTOPOTCHECK()
If IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_FLAG_KEY, 0) = 1 Then
If Int($HP_PERC) < Int(IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_PERC_KEY, 1)) Then
ControlSend($APP_TITLE, "", "", IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_KEY, ""))
EndIf
EndIf
If IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_FLAG_KEY, 0) = 1 Then
If Int($MP_PERC) < Int(IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_PERC_KEY, 1)) Then
ControlSend($APP_TITLE, "", "", IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_KEY, ""))
EndIf
EndIf
EndFunc
Func HPMPAUTOPOTCHECK1()
If IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_FLAG_KEY1, 0) = 1 Then
If Int($HP_PERC) < Int(IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_PERC_KEY1, 1)) Then
ControlSend($APP_TITLE, "", "", IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_KEY1, ""))
EndIf
EndIf
If IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_FLAG_KEY1, 0) = 1 Then
If Int($MP_PERC) < Int(IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_PERC_KEY1, 1)) Then
ControlSend($APP_TITLE, "", "", IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_KEY1, ""))
EndIf
EndIf
EndFunc
Func AUTOBUFFSCHECK()
If IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_FLAG_KEY, "0") = 1 Then
For $Q = 1 To IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_UBOUND_KEY, "1") Step +1
$BUFFS_TIMER_DIFF[$Q] = TimerDiff($BUFFS_TIMER[$Q])
Next
For $Q = 1 To IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_UBOUND_KEY, "1") Step +1
If $BUFFS_TIMER_DIFF[$Q] / 60000 > IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_FREQUENCY_KEY & $Q, "1") Then
SENDBUFF($Q)
$BUFFS_TIMER[$Q] = TimerInit()
EndIf
Next
EndIf
EndFunc
Func CHANGEWEAPONSCHECK()
If IniRead($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_FLAG_KEY, "0") = 1 Then
If TimerDiff($TIMER_CHANGE_WEAPON) / 60000 > IniRead($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_DELAY_KEY, "180") Then
$ACTIVE_WEAPONS = $ACTIVE_WEAPONS + 1
If $ACTIVE_WEAPONS <= IniRead($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_UBOUND_KEY, "1") Then
$KEY_WEAPON = IniRead($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_COMBO_KEY & $ACTIVE_WEAPONS, "")
ControlSend($APP_TITLE, "", "", $KEY_WEAPON)
$TIMER_CHANGE_WEAPON = TimerInit()
GUICtrlSetData($LABEL_WEAPON, "Weapon: " & $ACTIVE_WEAPONS)
Else
$TIMER_CHANGE_WEAPON = TimerInit()
GUICtrlSetData($LABEL_WEAPON, "Weapon: Last")
EndIf
EndIf
EndIf
EndFunc
Func SENDBUFF($BUFF_SEQ)
$KEY = IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_COMBO_KEY & $BUFF_SEQ, "0")
ControlSend($APP_TITLE, "", "", $KEY)
Sleep(Int(IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_DELAY_KEY & $BUFF_SEQ, "0")) * 1000)
EndFunc
Func TIMERBUFFSSTART()
If IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_FLAG_KEY, "0") = 1 Then
For $Q = 1 To IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_UBOUND_KEY, "1") Step +1
$BUFFS_TIMER[$Q] = TimerInit()
Next
EndIf
EndFunc
Func CHECKFLYESCAPE()
UPDATECHARINFO()
UPDATEPETINFO()
Local $POTENTIAL_DAMAGE = Int(Int($LAST_HP_READ) - Int($HP[1]))
If ($POTENTIAL_DAMAGE <= 0) Then
GUICtrlSetData($LABEL_DAMAGE, "Damage: " & ($POTENTIAL_DAMAGE * - 1) & " (LIFE UP)")
Else
GUICtrlSetData($LABEL_DAMAGE, "Damage: " & ($POTENTIAL_DAMAGE * - 1) & " (LIFE DOWN)")
EndIf
If IniRead($SOFTWARE_CONFIG, $CFG_FLYESCAPE_ROOT_KEY, $CFG_FLYESCAPE_FLAG_KEY, 0) = 1 Then
If $POTENTIAL_DAMAGE > Int(IniRead($SOFTWARE_CONFIG, $CFG_FLYESCAPE_ROOT_KEY, $CFG_FLYESCAPE_DAMAGE_KEY, $MAXHP)) Then
GUICtrlSetData($LABEL_BOT_STATUS, "Status: Flying To Escape")
ControlSend($APP_TITLE, "", "", IniRead($SOFTWARE_CONFIG, $CFG_FLYESCAPE_ROOT_KEY, $CFG_FLYESCAPE_KEY, ""))
Local $I = 0
For $I = 0 To IniRead($SOFTWARE_CONFIG, $CFG_FLYESCAPE_ROOT_KEY, $CFG_FLYESCAPE_SPACE_KEY, 10)
ControlFocus($APP_TITLE, "", "")
Sleep(300)
Send("{SPACE DOWN}")
Sleep(1000)
Send("{SPACE UP}")
Next
Sleep(30000)
GUICtrlSetData($LABEL_BOT_STATUS, "Status: Going Back")
ControlSend($APP_TITLE, "", "", IniRead($SOFTWARE_CONFIG, $CFG_FLYESCAPE_ROOT_KEY, $CFG_FLYESCAPE_KEY, ""))
EndIf
EndIf
EndFunc
Func UPDATEPETINFO()
$PET_HP = _MEMORYPOINTERREAD($APP_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_PET_HP)
If Not @error Then
GUICtrlSetData($LABEL_HP_PET_STATUS, "PetHP: " & $PET_HP[1])
EndIf
EndFunc
Func HPPETCHECK()
If IniRead($SOFTWARE_CONFIG, $CFG_HEAL_PET_ROOT_KEY, $CFG_CHECK_PET_ROOT_KEY, 0) = 1 Then
If Int($PET_HP[1]) < Int(IniRead($SOFTWARE_CONFIG, $CFG_HEAL_PET_ROOT_KEY, $CFG_PET_CURRENT_HP, 1)) Then
ControlSend($APP_TITLE, "", "", IniRead($SOFTWARE_CONFIG, $CFG_HEAL_PET_ROOT_KEY, $CFG_HEAL_PET_HP_FLAG_KEY, ""))
EndIf
EndIf
EndFunc
Func SETSKILLS()
Global $FORM_SKILL = GUICreate("Set Skills ", 255, 340, -1, -1, -1, -1, $FORM_MAIN)
GUISetBkColor(16777215)
GUISetFont(8, 400, 0, "Comic Sans MS")
GUISetOnEvent($GUI_EVENT_CLOSE, "WindowSkillCloseClicked")
GUISwitch($FORM_SKILL)
Global $SCOMBOKEY[9], $SKCOUNT, $LABELSK1[9], $LABELSK2[9], $LABELSK3[9], $SDELAY[9], $FORM_SKILL
$SKCOUNTCFG = IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_UBOUND_KEY, 1)
$GROUP_SKILLS = GUICtrlCreateGroup("Skills", 10, 10, 235, 325)
$BUTTON_ADD_SKILL = GUICtrlCreat****ton("Add", 75, 28, 50, 18)
GUICtrlSetOnEvent(-1, "AddSkill")
$BUTTON_REMOVE_SKILL = GUICtrlCreat****ton("Remove", 130, 28, 50, 18)
GUICtrlSetOnEvent(-1, "RemoveSkill")
$BUTTON_SAVE_SKILLS = GUICtrlCreat****ton("Save", 185, 28, 50, 18)
GUICtrlSetOnEvent(-1, "SaveSkills")
For $SKCOUNT = 1 To IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_UBOUND_KEY, 1) Step +1
$LABELSK1[$SKCOUNT] = GUICtrlCreateLabel("Key", 20, 57 + ($SKCOUNT - 1) * 42, 30, 20)
$SCOMBOKEY[$SKCOUNT] = GUICtrlCreateCombo("", 50, 55 + ($SKCOUNT - 1) * 42, 60, 150)
GUICtrlSetData(-1, "--|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|1|2|3|4|5|6|!1|!2|!3|!4", IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_COMBO_KEY & $SKCOUNT, "{F1}"))
$LABELSK2[$SKCOUNT] = GUICtrlCreateLabel("Every", 120, 57 + ($SKCOUNT - 1) * 42)
$SDELAY[$SKCOUNT] = GUICtrlCreateInput(IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_DELAY_KEY & $SKCOUNT, "1"), 155, 55 + ($SKCOUNT - 1) * 42, 40, 20)
$LABELSK3[$SKCOUNT] = GUICtrlCreateLabel("Sec", 200, 57 + ($SKCOUNT - 1) * 42, 35, 20)
Next
$SKCOUNT = $SKCOUNT - 1
GUISetState(@SW_SHOW, $FORM_SKILL)
EndFunc
Func SETAUTOPOTREST()
Global $FORM_AUTOPOTREST = GUICreate("Set Potion/Heal ", 541, 257, -1, -1, -1, -1, $FORM_MAIN)
GUISetFont(8, 400, 0, "Comic Sans MS")
GUISetOnEvent($GUI_EVENT_CLOSE, "WindowAutoPotRestCloseClicked")
GUISwitch($FORM_AUTOPOTREST)
$BUTTON_SAVE_AUTOPOTREST = GUICtrlCreat****ton("Save", 385, 237, 100, 18)
GUICtrlSetOnEvent(-1, "SaveAutoPotRest")
Global $CHECK_AUTOPOT_FLAG_HP1, $CHECK_AUTOPOT_FLAG_MP1, $SLIDE_AUTOPOT_HP1, $SLIDE_AUTOPOT_MP1, $AUTOPOT_HP_PERC, $AUTOPOT_MP_PERC
Global $AUTOPOT_HP_KEY1, $AUTOPOT_MP_KEY1
Global $CHECK_STOP_ON_DIE1
$GROUP_AUTOPOT = GUICtrlCreateGroup("First Pot", 5, 5, 160, 250)
$CHECK_AUTOPOT_FLAG_HP1 = GUICtrlCreateCheckbox("Restore HP", 20, 25, 90, 20)
If IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_FLAG_KEY1, "0") = 1 Then
$STATE = $GUI_CHECKED
Else
$STATE = $GUI_UNCHECKED
EndIf
GUICtrlSetState(-1, $STATE)
$SLIDE_AUTOPOT_HP1 = GUICtrlCreateSlider(25, 50, 100, 20)
GUICtrlSetData(-1, IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_PERC_KEY1, "0"))
GUICtrlSetLimit(-1, 100, 0)
GUICtrlCreateLabel("0 50 100% HP", 30, 80, 120, 20)
GUICtrlCreateLabel("Key:", 20, 100)
$AUTOPOT_HP_KEY1 = GUICtrlCreateCombo(IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_KEY1, "--"), 60, 100, 50, 20)
GUICtrlSetData(-1, "--|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|1|2|3|4|5|6", "")
$CHECK_AUTOPOT_FLAG_MP1 = GUICtrlCreateCheckbox("Restore MP", 20, 130, 90, 20)
If IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_FLAG_KEY1, "0") = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
$SLIDE_AUTOPOT_MP1 = GUICtrlCreateSlider(25, 150, 100, 20)
GUICtrlSetData(-1, IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_PERC_KEY1, "0"))
GUICtrlSetLimit(-1, 100, 0)
GUICtrlCreateLabel("0 50 100% MP", 30, 180, 120, 20)
GUICtrlCreateLabel("Key:", 20, 200)
$AUTOPOT_MP_KEY1 = GUICtrlCreateCombo(IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_KEY1, "--"), 60, 200, 50, 20)
GUICtrlSetData(-1, "--|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|1|2|3|4|5|6", "")
$CHECK_STOP_ON_DIE1 = GUICtrlCreateCheckbox("Stop On Die", 20, 225, 120, 20)
If IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_STOP_ON_DIE_KEY1, "0") = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
Global $CHECK_AUTOPOT_FLAG_HP, $CHECK_AUTOPOT_FLAG_MP, $SLIDE_AUTOPOT_HP, $SLIDE_AUTOPOT_MP, $AUTOPOT_HP_PERC, $AUTOPOT_MP_PERC, $PET_FUNC, $PET_HP_IN
Global $AUTOPOT_HP_KEY, $AUTOPOT_MP_KEY, $PET_HEALKEY
Global $CHECK_STOP_ON_DIE
$GROUP_AUTOPOT = GUICtrlCreateGroup("Second Pot", 170, 5, 160, 250)
$CHECK_AUTOPOT_FLAG_HP = GUICtrlCreateCheckbox("Pot HP", 185, 25, 90, 20)
If IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_FLAG_KEY, "0") = 1 Then
$STATE = $GUI_CHECKED
Else
$STATE = $GUI_UNCHECKED
EndIf
GUICtrlSetState(-1, $STATE)
$SLIDE_AUTOPOT_HP = GUICtrlCreateSlider(190, 50, 100, 20)
GUICtrlSetData(-1, IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_PERC_KEY, "0"))
GUICtrlSetLimit(-1, 100, 0)
GUICtrlCreateLabel("0 50 100% HP", 195, 80, 120, 20)
GUICtrlCreateLabel("Key:", 185, 100)
$AUTOPOT_HP_KEY = GUICtrlCreateCombo(IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_KEY, "--"), 220, 100, 50, 20)
GUICtrlSetData(-1, "--|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|1|2|3|4|5|6", "")
$CHECK_AUTOPOT_FLAG_MP = GUICtrlCreateCheckbox("Pot MP", 185, 130, 90, 20)
If IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_FLAG_KEY, "0") = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
$SLIDE_AUTOPOT_MP = GUICtrlCreateSlider(185, 150, 100, 20)
GUICtrlSetData(-1, IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_PERC_KEY, "0"))
GUICtrlSetLimit(-1, 100, 0)
GUICtrlCreateLabel("0 50 100% MP", 195, 180, 120, 20)
GUICtrlCreateLabel("Key:", 185, 200)
$AUTOPOT_MP_KEY = GUICtrlCreateCombo(IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_KEY, "--"), 220, 200, 50, 20)
GUICtrlSetData(-1, "--|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|1|2|3|4|5|6", "")
$CHECK_STOP_ON_DIE = GUICtrlCreateCheckbox("Stop On Die", 185, 225, 90, 20)
If IniRead($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_STOP_ON_DIE_KEY, "0") = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
$GROUP_PRIEST = GUICtrlCreateGroup("Healing", 335, 5, 200, 135)
$GROUP_PET = GUICtrlCreateGroup("Pet Healing", 335, 140, 100, 95)
$PET_FUNC = GUICtrlCreateCheckbox("Pet Functions", 345, 155)
If IniRead($SOFTWARE_CONFIG, $CFG_HEAL_PET_ROOT_KEY, $CFG_CHECK_PET_ROOT_KEY, "0") = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
GUICtrlCreateLabel("HP:", 340, 175)
$PET_HP_IN = GUICtrlCreateInput("", 370, 175, 50, 18)
GUICtrlSetData(-1, IniRead($SOFTWARE_CONFIG, $CFG_HEAL_PET_ROOT_KEY, $CFG_PET_CURRENT_HP, "50"))
GUICtrlCreateLabel("Key:", 340, 205)
$PET_HEALKEY = GUICtrlCreateCombo(IniRead($SOFTWARE_CONFIG, $CFG_HEAL_PET_ROOT_KEY, $CFG_HEAL_PET_HP_FLAG_KEY, "--"), 370, 205, 50, 50)
GUICtrlSetData(-1, "--|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|1|2|3|4|5|6", "")
Global $CHECK_AUTO_PICK, $AUTO_PICK_TIMES, $AUTO_PICK_KEY
$GROUP_AUTO_PICK = GUICtrlCreateGroup("Looting", 437, 140, 100, 95)
$CHECK_AUTO_PICK = GUICtrlCreateCheckbox("AutoLoot", 445, 155, 60, 20)
If IniRead($SOFTWARE_CONFIG, $CFG_LOOT_ROOT_KEY, $CFG_LOOT_FLAG_KEY, "0") = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
GUICtrlCreateLabel("Key:", 442, 175, 40, 20)
$AUTO_PICK_KEY = GUICtrlCreateCombo("", 480, 175, 50, 50)
GUICtrlSetData(-1, "--|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|1|2|3|4|5|6", IniRead($SOFTWARE_CONFIG, $CFG_LOOT_ROOT_KEY, $CFG_LOOT_KEY, "--"))
GUICtrlCreateLabel("Times:", 442, 205, 40, 20)
$AUTO_PICK_TIMES = GUICtrlCreateInput("", 480, 205, 50, 18)
GUICtrlSetData(-1, IniRead($SOFTWARE_CONFIG, $CFG_LOOT_ROOT_KEY, $CFG_LOOT_TIMES_KEY, "999"))
GUISetState(@SW_SHOW, $FORM_AUTOPOTREST)
EndFunc
Func SETAUTOBUFFS()
Global $FORM_BUFFS = GUICreate("Paket ", 293, 340, -1, -1, -1, -1, $FORM_MAIN)
GUISetBkColor(16777215)
GUISetFont(8, 400, 0, "Comic Sans MS")
GUISetOnEvent($GUI_EVENT_CLOSE, "WindowAutoBuffCloseClicked")
GUISwitch($FORM_BUFFS)
Global $BUFFSCOMBOKEY[9], $BUFFSCOUNT, $LABELBUFFS1[9], $LABELBUFFS2[9], $LABELBUFFS3[9], $LABELBUFFS4[9], $LABELBUFFS5[9], $BUFFSDELAY[9], $BUFFSFREQUENCY[9]
Global $BUFFS_FLAG
$SKCOUNTCFG_BUFFS = IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_UBOUND_KEY, 1)
$GROUP_BUFFS = GUICtrlCreateGroup("Buffs", 5, 5, 283, 330)
$BUTTON_ADD_BUFFS = GUICtrlCreat****ton("Add", 130, 28, 50, 18)
GUICtrlSetOnEvent(-1, "AddBuffs")
$BUTTON_REMOVE_BUFFS = GUICtrlCreat****ton("Remove", 180, 28, 50, 18)
GUICtrlSetOnEvent(-1, "RemoveBuffs")
$BUTTON_SAVE_BUFFS = GUICtrlCreat****ton("Save", 230, 28, 50, 18)
GUICtrlSetOnEvent(-1, "SaveBuffs")
$BUFFS_FLAG = GUICtrlCreateCheckbox("Use Buffs", 10, 28, 60, 18)
If IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_FLAG_KEY, "0") = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
For $BUFFSCOUNT = 1 To IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_UBOUND_KEY, 1) Step +1
$LABELBUFFS1[$BUFFSCOUNT] = GUICtrlCreateLabel("Key", 20, 57 + ($BUFFSCOUNT - 1) * 42)
$BUFFSCOMBOKEY[$BUFFSCOUNT] = GUICtrlCreateCombo("", 40, 55 + ($BUFFSCOUNT - 1) * 42, 40, 150)
GUICtrlSetData(-1, "--|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|1|2|3|4|5|6|!1|!2|!3|!4", IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_COMBO_KEY & $BUFFSCOUNT, "{F1}"))
$LABELBUFFS2[$BUFFSCOUNT] = GUICtrlCreateLabel("Wait", 90, 57 + ($BUFFSCOUNT - 1) * 42)
$BUFFSDELAY[$BUFFSCOUNT] = GUICtrlCreateInput(IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_DELAY_KEY & $BUFFSCOUNT, "1"), 120, 55 + ($BUFFSCOUNT - 1) * 42, 40, 20)
$LABELBUFFS3[$BUFFSCOUNT] = GUICtrlCreateLabel("Sec,", 165, 57 + ($BUFFSCOUNT - 1) * 42, 35, 20)
$LABELBUFFS4[$BUFFSCOUNT] = GUICtrlCreateLabel("Every", 190, 57 + ($BUFFSCOUNT - 1) * 42)
$BUFFSFREQUENCY[$BUFFSCOUNT] = GUICtrlCreateInput(IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_FREQUENCY_KEY & $BUFFSCOUNT, "1"), 220, 55 + ($BUFFSCOUNT - 1) * 42, 40, 20)
$LABELBUFFS5[$BUFFSCOUNT] = GUICtrlCreateLabel("Min", 265, 57 + ($BUFFSCOUNT - 1) * 42, 20, 20)
Next
$BUFFSCOUNT = $BUFFSCOUNT - 1
GUISetState(@SW_SHOW, $FORM_BUFFS)
EndFunc
Func SETCHANGEWEAPONS()
Global $FORM_WEAPONS = GUICreate("Ganti Senjata ", 310, 230, -1, -1, -1, -1, $FORM_MAIN)
GUISetBkColor(16777215)
GUISetFont(8, 400, 0, "Comic Sans MS")
GUISetOnEvent($GUI_EVENT_CLOSE, "WindowChangeWeaponsCloseClicked")
GUISwitch($FORM_WEAPONS)
Global $WEAPONSCOMBOKEY[9], $WEAPONSCOUNT, $LABELWEAPONS1[9], $WEAPONS_DELAY
Global $WEAPONS_FLAG
$SKCOUNTCFG_WEAPONS = IniRead($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_UBOUND_KEY, 1)
$GROUP_WEAPONS = GUICtrlCreateGroup("Ganti Senjata Options", 10, 10, 290, 210)
$BUTTON_ADD_WEAPONS = GUICtrlCreat****ton("Add", 25, 28, 50, 18)
GUICtrlSetOnEvent(-1, "AddWeapon")
$BUTTON_REMOVE_WEAPONS = GUICtrlCreat****ton("Remove", 80, 28, 50, 18)
GUICtrlSetOnEvent(-1, "RemoveWeapon")
$BUTTON_SAVE_WEAPONS = GUICtrlCreat****ton("Save", 135, 28, 50, 18)
GUICtrlSetOnEvent(-1, "SaveWeapons")
$WEAPONS_FLAG = GUICtrlCreateCheckbox("Use Function", 200, 28, 90, 18)
If IniRead($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_FLAG_KEY, "0") = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
$LABEL_WEAPONS_DELAY = GUICtrlCreateLabel("Interval (Min)", 200, 55, 90, 18)
$WEAPONS_DELAY = GUICtrlCreateInput(IniRead($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_DELAY_KEY, "180"), 200, 75, 50, 20)
For $WEAPONSCOUNT = 1 To IniRead($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_UBOUND_KEY, 1) Step +1
$LABELWEAPONS1[$WEAPONSCOUNT] = GUICtrlCreateLabel("Weapon " & $WEAPONSCOUNT, 20, 57 + ($WEAPONSCOUNT - 1) * 42, 50, 20)
$WEAPONSCOMBOKEY[$WEAPONSCOUNT] = GUICtrlCreateCombo("", 90, 55 + ($WEAPONSCOUNT - 1) * 42, 60, 150)
GUICtrlSetData(-1, "--|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|1|2|3|4|5|6|!1|!2|!3|!4", IniRead($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_COMBO_KEY & $WEAPONSCOUNT, "{F1}"))
Next
$WEAPONSCOUNT = $WEAPONSCOUNT - 1
GUISetState(@SW_SHOW, $FORM_WEAPONS)
EndFunc
Func SETFLYESCAPE()
Global $FORM_FLYESCAPE = GUICreate("Jurus Kaki Seribu ", 255, 170, -1, -1, -1, -1, $FORM_MAIN)
GUISetBkColor(16777215)
GUISetFont(8, 400, 0, "Comic Sans MS")
GUISetOnEvent($GUI_EVENT_CLOSE, "WindowFlyEscapeCloseClicked")
GUISwitch($FORM_FLYESCAPE)
Global $CHECK_FLYESCAPE, $FLYESCAPE_KEY, $FLYESCAPE_DAMAGE_KEY, $FLY_ESCAPE_SPACE_KEY, $BUTTON_FLY_ESCAPE_SAVE
$GROUP_FLYESCAPE = GUICtrlCreateGroup(" Kaki Seribu Options ", 5, 5, 250, 160)
$CHECK_FLYESCAPE = GUICtrlCreateCheckbox("Try to fly to escape death", 15, 25, 200, 20)
If IniRead($SOFTWARE_CONFIG, $CFG_FLYESCAPE_ROOT_KEY, $CFG_FLYESCAPE_FLAG_KEY, "0") = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
GUICtrlCreateLabel("Key to Fly:", 15, 55, 50, 20)
$FLYESCAPE_KEY = GUICtrlCreateCombo(IniRead($SOFTWARE_CONFIG, $CFG_FLYESCAPE_ROOT_KEY, $CFG_FLYESCAPE_KEY, "--"), 125, 50, 50, 20)
GUICtrlSetData(-1, "--|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|1|2|3|4|5|6", "")
GUICtrlCreateLabel("Check Damage >= ", 15, 85, 100, 20)
$FLYESCAPE_DAMAGE_KEY = GUICtrlCreateInput(IniRead($SOFTWARE_CONFIG, $CFG_FLYESCAPE_ROOT_KEY, $CFG_FLYESCAPE_DAMAGE_KEY, "0"), 125, 80, 50, 20)
GUICtrlCreateLabel("Total Spaces Hits", 15, 110, 110, 20)
$FLY_ESCAPE_SPACE_KEY = GUICtrlCreateInput(IniRead($SOFTWARE_CONFIG, $CFG_FLYESCAPE_ROOT_KEY, $CFG_FLYESCAPE_SPACE_KEY, "0"), 125, 105, 50, 20)
$BUTTON_FLY_ESCAPE_SAVE = GUICtrlCreat****ton("Save", 170, 140, 80, 20)
GUICtrlSetOnEvent(-1, "SaveFlyToEscape")
GUISetState(@SW_SHOW, $FORM_FLYESCAPE)
EndFunc
Func STARTORSTOP()
If $STOP = True Then
AdlibDisable()
GUICtrlSetData($STARTORSTOP, "Stop F9")
GUICtrlSetOnEvent($STARTORSTOP, "StartOrStop")
$STOP = False
Else
AdlibEnable("Main")
GUICtrlSetData($STARTORSTOP, "Start F9")
GUICtrlSetOnEvent($STARTORSTOP, "StartOrStop")
$STOP = True
EndIf
EndFunc
Func RESETMOBLIST()
$COUNT = 0
Do
$COUNT = $COUNT + 1
IniWrite($SOFTWARE_CONFIG, $CFG_MOBLIST_ROOT_KEY, $CFG_MOBLIST_MONSTER_KEY & $COUNT, "")
Until $COUNT > IniRead($SOFTWARE_CONFIG, $CFG_MOBLIST_ROOT_KEY, $CFG_MOBLIST_UBOUND_KEY, 1)
IniWrite($SOFTWARE_CONFIG, $CFG_MOBLIST_ROOT_KEY, $CFG_MOBLIST_UBOUND_KEY, "0")
REFRESHMOBLIST()
MsgBox(0, "Moster List DiReset", "Monster Clear!")
EndFunc
Func REFRESHMOBLIST()
GUICtrlDelete($LIST_MOB)
GUICtrlCreateListView("Prioritas|Monster ID ", 5, 15, 250, 100)
$COUNT = 0
Do
$COUNT = $COUNT + 1
GUICtrlCreateListViewItem($COUNT & ")|" & IniRead($SOFTWARE_CONFIG, $CFG_MOBLIST_ROOT_KEY, $CFG_MOBLIST_MONSTER_KEY & $COUNT, ""), $LIST_MOB)
Until $COUNT >= IniRead($SOFTWARE_CONFIG, $CFG_MOBLIST_ROOT_KEY, $CFG_MOBLIST_UBOUND_KEY, 1)
EndFunc
Func SETMOBLIST()
$MOB_LIST_COUNT = 0
ToolTip("Kembali Ke Game!", 0, 0)
WinWaitActive($APP_TITLE)
ToolTip("Klik Monster Lalu Tekan F11, Max. 9 Monster.", 0, 0)
HotKeySet("{F11}", "SaveMobInMobList")
EndFunc
Func SAVEMOBINMOBLIST()
HotKeySet("{F10}", "EndSelectMobList")
$MOB_LIST_COUNT = $MOB_LIST_COUNT + 1
If $MOB_LIST_COUNT <= 9 Then
$TARGET_STATE = _MEMORYPOINTERREAD($APP_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_AT)
If Not @error Then
$TARGET_ID = Hex($TARGET_STATE[1])
IniWrite($SOFTWARE_CONFIG, $CFG_MOBLIST_ROOT_KEY, $CFG_MOBLIST_MONSTER_KEY & $MOB_LIST_COUNT, $TARGET_ID)
If $MOB_LIST_COUNT <= 8 Then
ToolTip("Monster " & $MOB_LIST_COUNT & " Saved" & @CRLF & "Klik Monster Yg Lain. Tekan F10 Jika Sudah.", 0, 0)
IniWrite($SOFTWARE_CONFIG, $CFG_MOBLIST_ROOT_KEY, $CFG_MOBLIST_UBOUND_KEY, $MOB_LIST_COUNT)
Else
ToolTip("Monster " & $MOB_LIST_COUNT & " Saved" & @CRLF & "Tekan F9 Untuk Memulai / Berhenti.", 0, 0)
IniWrite($SOFTWARE_CONFIG, $CFG_MOBLIST_ROOT_KEY, $CFG_MOBLIST_UBOUND_KEY, $MOB_LIST_COUNT)
EndIf
Sleep(1000)
ToolTip("")
Else
ToolTip("Error!" & @error)
EndIf
Else
ToolTip("Monsters Sudah 9.", 0, 0)
EndIf
REFRESHMOBLIST()
EndFunc
Func ENDSELECTMOBLIST()
HotKeySet("{F11}")
ToolTip("Set Monster Selesai, Tekan F9 Untuk Memulai", 0, 0)
Sleep(1000)
ToolTip("")
HotKeySet("{F10}")
EndFunc
Func ADDSKILL()
GUISwitch($FORM_SKILL)
$SKCOUNTCFG = $SKCOUNTCFG + 1
If $SKCOUNTCFG >= 8 Then
$SKCOUNTCFG = 7
MsgBox(0, "Error", "Skill Max 7")
Else
$LABELSK1[$SKCOUNTCFG] = GUICtrlCreateLabel("Key", 20, 57 + ($SKCOUNTCFG - 1) * 42, 30, 20)
$SCOMBOKEY[$SKCOUNTCFG] = GUICtrlCreateCombo("", 50, 55 + ($SKCOUNTCFG - 1) * 42, 60, 150)
GUICtrlSetData(-1, "--|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|1|2|3|4|5|6|!1|!2|!3|!4", IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_COMBO_KEY & $SKCOUNTCFG, "{F1}"))
$LABELSK2[$SKCOUNTCFG] = GUICtrlCreateLabel("Every", 120, 57 + ($SKCOUNTCFG - 1) * 42)
$SDELAY[$SKCOUNTCFG] = GUICtrlCreateInput(IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_DELAY_KEY & $SKCOUNTCFG, "1"), 155, 55 + ($SKCOUNTCFG - 1) * 42, 40, 20)
$LABELSK3[$SKCOUNTCFG] = GUICtrlCreateLabel("Sec", 200, 57 + ($SKCOUNTCFG - 1) * 42, 35, 20)
EndIf
EndFunc
Func REMOVESKILL()
GUISwitch($FORM_SKILL)
If $SKCOUNTCFG < 2 Then
$SKCOUNTCFG = 1
MsgBox(0, "Error", "Minimum Skill Adalah 1")
Else
GUICtrlDelete($SCOMBOKEY[$SKCOUNTCFG])
GUICtrlDelete($LABELSK1[$SKCOUNTCFG])
GUICtrlDelete($LABELSK2[$SKCOUNTCFG])
GUICtrlDelete($LABELSK3[$SKCOUNTCFG])
GUICtrlDelete($SDELAY[$SKCOUNTCFG])
$SKCOUNTCFG = $SKCOUNTCFG - 1
EndIf
EndFunc
Func SAVESKILLS()
$COUNT = 1
$MAX = $SKCOUNTCFG
$ACTIVE_SKILL = 1
IniWrite($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_UBOUND_KEY, $MAX)
IniWrite($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_COMBO_KEY & $COUNT, GUICtrlRead($SCOMBOKEY[$COUNT]))
IniWrite($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_DELAY_KEY & $COUNT, GUICtrlRead($SDELAY[$COUNT]))
Do
$COUNT = $COUNT + 1
IniWrite($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_COMBO_KEY & $COUNT, GUICtrlRead($SCOMBOKEY[$COUNT]))
IniWrite($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_DELAY_KEY & $COUNT, GUICtrlRead($SDELAY[$COUNT]))
Until $COUNT >= $MAX
MsgBox(0, "Skills Tersimpan", "Setting Skill Sukses!")
GUIDelete($FORM_SKILL)
EndFunc
Func SAVEAUTOPOTREST()
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_FLAG_KEY1, GUICtrlRead($CHECK_AUTOPOT_FLAG_HP1))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_PERC_KEY1, GUICtrlRead($SLIDE_AUTOPOT_HP1))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_FLAG_KEY1, GUICtrlRead($CHECK_AUTOPOT_FLAG_MP1))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_PERC_KEY1, GUICtrlRead($SLIDE_AUTOPOT_MP1))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_KEY1, GUICtrlRead($AUTOPOT_HP_KEY1))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_KEY1, GUICtrlRead($AUTOPOT_MP_KEY1))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_STOP_ON_DIE_KEY1, GUICtrlRead($CHECK_STOP_ON_DIE1))
IniWrite($SOFTWARE_CONFIG, $CFG_LOOT_ROOT_KEY, $CFG_LOOT_FLAG_KEY, GUICtrlRead($CHECK_AUTO_PICK))
IniWrite($SOFTWARE_CONFIG, $CFG_LOOT_ROOT_KEY, $CFG_LOOT_KEY, GUICtrlRead($AUTO_PICK_KEY))
IniWrite($SOFTWARE_CONFIG, $CFG_LOOT_ROOT_KEY, $CFG_LOOT_TIMES_KEY, GUICtrlRead($AUTO_PICK_TIMES))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_FLAG_KEY, GUICtrlRead($CHECK_AUTOPOT_FLAG_HP))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_PERC_KEY, GUICtrlRead($SLIDE_AUTOPOT_HP))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_FLAG_KEY, GUICtrlRead($CHECK_AUTOPOT_FLAG_MP))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_PERC_KEY, GUICtrlRead($SLIDE_AUTOPOT_MP))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_HP_KEY, GUICtrlRead($AUTOPOT_HP_KEY))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_AUTOPOT_MP_KEY, GUICtrlRead($AUTOPOT_MP_KEY))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_ROOT_KEY, $CFG_HEAL_STOP_ON_DIE_KEY, GUICtrlRead($CHECK_STOP_ON_DIE))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_PET_ROOT_KEY, $CFG_CHECK_PET_ROOT_KEY, GUICtrlRead($PET_FUNC))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_PET_ROOT_KEY, $CFG_PET_CURRENT_HP, GUICtrlRead($PET_HP_IN))
IniWrite($SOFTWARE_CONFIG, $CFG_HEAL_PET_ROOT_KEY, $CFG_HEAL_PET_HP_FLAG_KEY, GUICtrlRead($PET_HEALKEY))
MsgBox(0, "Auto-Pot Tersimpan", "Settings Untuk Auto-Pot Sukses!")
GUIDelete($FORM_AUTOPOTREST)
EndFunc
Func SAVEFLYTOESCAPE()
IniWrite($SOFTWARE_CONFIG, $CFG_FLYESCAPE_ROOT_KEY, $CFG_FLYESCAPE_FLAG_KEY, GUICtrlRead($CHECK_FLYESCAPE))
IniWrite($SOFTWARE_CONFIG, $CFG_FLYESCAPE_ROOT_KEY, $CFG_FLYESCAPE_KEY, GUICtrlRead($FLYESCAPE_KEY))
IniWrite($SOFTWARE_CONFIG, $CFG_FLYESCAPE_ROOT_KEY, $CFG_FLYESCAPE_DAMAGE_KEY, GUICtrlRead($FLYESCAPE_DAMAGE_KEY))
IniWrite($SOFTWARE_CONFIG, $CFG_FLYESCAPE_ROOT_KEY, $CFG_FLYESCAPE_SPACE_KEY, GUICtrlRead($FLY_ESCAPE_SPACE_KEY))
MsgBox(0, "KakiSeribu Tersimpan", "Settings Untuk KakiSeribu Sukses!")
GUIDelete($FORM_FLYESCAPE)
EndFunc
Func ADDBUFFS()
GUISwitch($FORM_BUFFS)
$SKCOUNTCFG_BUFFS = $SKCOUNTCFG_BUFFS + 1
If $SKCOUNTCFG_BUFFS >= 8 Then
$SKCOUNTCFG_BUFFS = 7
MsgBox(0, "Error", "MAX Paket Hanya 7")
Else
$LABELBUFFS1[$SKCOUNTCFG_BUFFS] = GUICtrlCreateLabel("Key", 20, 57 + ($SKCOUNTCFG_BUFFS - 1) * 42)
$BUFFSCOMBOKEY[$SKCOUNTCFG_BUFFS] = GUICtrlCreateCombo("", 40, 55 + ($SKCOUNTCFG_BUFFS - 1) * 42, 40, 150)
GUICtrlSetData(-1, "--|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|1|2|3|4|5|6|!1|!2|!3|!4", IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_COMBO_KEY & $SKCOUNTCFG_BUFFS, "{F1}"))
$LABELBUFFS2[$SKCOUNTCFG_BUFFS] = GUICtrlCreateLabel("Wait", 90, 57 + ($SKCOUNTCFG_BUFFS - 1) * 42)
$BUFFSDELAY[$SKCOUNTCFG_BUFFS] = GUICtrlCreateInput(IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_DELAY_KEY & $SKCOUNTCFG_BUFFS, "1"), 120, 55 + ($SKCOUNTCFG_BUFFS - 1) * 42, 40, 20)
$LABELBUFFS3[$SKCOUNTCFG_BUFFS] = GUICtrlCreateLabel("Sec", 165, 57 + ($SKCOUNTCFG_BUFFS - 1) * 42, 35, 20)
$LABELBUFFS4[$SKCOUNTCFG_BUFFS] = GUICtrlCreateLabel("Every", 190, 57 + ($SKCOUNTCFG_BUFFS - 1) * 42)
$BUFFSFREQUENCY[$SKCOUNTCFG_BUFFS] = GUICtrlCreateInput(IniRead($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_FREQUENCY_KEY & $BUFFSCOUNT, "1"), 220, 55 + ($SKCOUNTCFG_BUFFS - 1) * 42, 40, 20)
$LABELBUFFS5[$SKCOUNTCFG_BUFFS] = GUICtrlCreateLabel("Min", 265, 57 + ($SKCOUNTCFG_BUFFS - 1) * 42, 20, 20)
EndIf
EndFunc
Func REMOVEBUFFS()
GUISwitch($FORM_BUFFS)
If $SKCOUNTCFG_BUFFS < 2 Then
$SKCOUNTCFG_BUFFS = 1
MsgBox(0, "Error", "Minimum Paket 1")
Else
GUICtrlDelete($BUFFSCOMBOKEY[$SKCOUNTCFG_BUFFS])
GUICtrlDelete($LABELBUFFS1[$SKCOUNTCFG_BUFFS])
GUICtrlDelete($LABELBUFFS2[$SKCOUNTCFG_BUFFS])
GUICtrlDelete($LABELBUFFS3[$SKCOUNTCFG_BUFFS])
GUICtrlDelete($LABELBUFFS4[$SKCOUNTCFG_BUFFS])
GUICtrlDelete($LABELBUFFS5[$SKCOUNTCFG_BUFFS])
GUICtrlDelete($BUFFSDELAY[$SKCOUNTCFG_BUFFS])
GUICtrlDelete($BUFFSFREQUENCY[$SKCOUNTCFG_BUFFS])
$SKCOUNTCFG_BUFFS = $SKCOUNTCFG_BUFFS - 1
EndIf
EndFunc
Func SAVEBUFFS()
$COUNT = 1
$MAX = $SKCOUNTCFG_BUFFS
$ACTIVE_BUFFS = 1
IniWrite($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_UBOUND_KEY, $MAX)
IniWrite($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_FLAG_KEY, GUICtrlRead($BUFFS_FLAG))
IniWrite($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_COMBO_KEY & $COUNT, GUICtrlRead($BUFFSCOMBOKEY[$COUNT]))
IniWrite($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_DELAY_KEY & $COUNT, GUICtrlRead($BUFFSDELAY[$COUNT]))
IniWrite($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_FREQUENCY_KEY & $COUNT, GUICtrlRead($BUFFSFREQUENCY[$COUNT]))
Do
$COUNT = $COUNT + 1
IniWrite($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_COMBO_KEY & $COUNT, GUICtrlRead($BUFFSCOMBOKEY[$COUNT]))
IniWrite($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_DELAY_KEY & $COUNT, GUICtrlRead($BUFFSDELAY[$COUNT]))
IniWrite($SOFTWARE_CONFIG, $CFG_BUFFS_ROOT_KEY, $CFG_BUFFS_FREQUENCY_KEY & $COUNT, GUICtrlRead($BUFFSFREQUENCY[$COUNT]))
Until $COUNT >= $MAX
MsgBox(0, "Paket Tersimpan", "Settings Untuk Paket Sukses!")
GUIDelete($FORM_BUFFS)
EndFunc
Func ADDWEAPON()
GUISwitch($FORM_WEAPONS)
$SKCOUNTCFG_WEAPONS = $SKCOUNTCFG_WEAPONS + 1
If $SKCOUNTCFG_WEAPONS >= 5 Then
$SKCOUNTCFG_WEAPONS = 4
MsgBox(0, "Error", "Max Senjata Tersimpan 4")
Else
$LABELWEAPONS1[$SKCOUNTCFG_WEAPONS] = GUICtrlCreateLabel("Weapon " & $SKCOUNTCFG_WEAPONS, 20, 57 + ($SKCOUNTCFG_WEAPONS - 1) * 42, 50, 20)
$WEAPONSCOMBOKEY[$SKCOUNTCFG_WEAPONS] = GUICtrlCreateCombo("", 90, 55 + ($SKCOUNTCFG_WEAPONS - 1) * 42, 60, 150)
GUICtrlSetData(-1, "--|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|1|2|3|4|5|6|!1|!2|!3|!4", IniRead($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_COMBO_KEY & $SKCOUNTCFG_WEAPONS, "{F1}"))
EndIf
EndFunc
Func REMOVEWEAPON()
GUISwitch($FORM_WEAPONS)
If $SKCOUNTCFG_WEAPONS < 2 Then
$SKCOUNTCFG_WEAPONS = 1
MsgBox(0, "Error", "Minimum Senjata Tersimpan 1")
Else
GUICtrlDelete($WEAPONSCOMBOKEY[$SKCOUNTCFG_WEAPONS])
GUICtrlDelete($LABELWEAPONS1[$SKCOUNTCFG_WEAPONS])
$SKCOUNTCFG_WEAPONS = $SKCOUNTCFG_WEAPONS - 1
EndIf
EndFunc
Func SAVEWEAPONS()
$COUNT = 1
$MAX = $SKCOUNTCFG_WEAPONS
$ACTIVE_WEAPONS = 0
IniWrite($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_UBOUND_KEY, $MAX)
IniWrite($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_FLAG_KEY, GUICtrlRead($WEAPONS_FLAG))
IniWrite($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_DELAY_KEY, GUICtrlRead($WEAPONS_DELAY))
IniWrite($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_COMBO_KEY & $COUNT, GUICtrlRead($WEAPONSCOMBOKEY[$COUNT]))
Do
$COUNT = $COUNT + 1
IniWrite($SOFTWARE_CONFIG, $CFG_WEAPONS_ROOT_KEY, $CFG_WEAPONS_COMBO_KEY & $COUNT, GUICtrlRead($WEAPONSCOMBOKEY[$COUNT]))
Until $COUNT >= $MAX
MsgBox(0, "Ganti Senjata Tersimpan", "Settings Untuk Ganti Senjata Sukses!")
GUIDelete($FORM_WEAPONS)
EndFunc
Func _EXIT()
Exit
EndFunc