Dwar makes programming so good^^
how did you search all game base address .... i tried and got error :Dunno If you already found game base address, then search for all constants (search all game base address). It will be enough
Please register or login to download attachments.
Such notation is incorrect. You should write: mov EAX, [B7B054]
Please, post your questions on forum, not by PM or mail
I spend my time, so please pay a little bit of your time to keep world in equilibrium
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]
Please, post your questions on forum, not by PM or mail
I spend my time, so please pay a little bit of your time to keep world in equilibrium
I Have a source some bot, but the bot cann't work.. may be someone can fix it??
Code:
Help me please...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