Update: Tests indicate to much processes usage. Planning for a full rewrite using different methods to reduce processing and provide a more stable experience for lower end processors.
Know the basics. Install Auto-It and download NomadMemory.au3.
Place NomadMemory.au3 in the includes folder located where Auto-It installed to.
Setting up the editor. Locate the SciTE folder located in the Auto-It install location. In the SciTE folder, right click the SciTE exe and click on Properties then click the tab Compatibility. Then click the check box for run as administrator.
This is so that changes can be made and ran by pressing f5 from the SciTE editor. Set the same administrator Properties if the script is compiled as an exe. The point is to run it as administrator no matter what method chosen.
Please report any bugs that might be found and any fixes that follow the same form and naming scheme as MMOKORE's code base.
Runs best if the user takes the mouse off the screen or minimizes the client.
This is not the case in PvP mode as the user does the walking.
Code is here! Reached text limit for EPvPers. Had to take all comments out.
Only works with /nc off.(Looking into a mele mode for faster attack speed.)
If MMOKORE is not attacking targets just turn /nc auto-attack off and attack one monster to reset everything to normal. IT should attack just fine after that.
Current known bugs:
Defending mode is keeping target after target has died. The walk after loot will be removed.(Fixed Odin and Chaos)
Changes:1/29/18
Added Chaos support by adding offsets to the ini due to chaos using different offsets.
$OFFSET_LAST_ATTAKING_TARGET_UNIQUE_ID1
$OFFSET_LAST_ATTAKING_TARGET_X1
$OFFSET_LAST_ATTAKING_TARGET_Y1
Changes:1/30/18
Memory write to last attacking target in the target time out is working correctly. Setting it to 1 to avoid attacking a dead monster. Move has been removed from after looting that was put in place to avoid this bug.
Odin: (NomadMemory and Odin/Chaos Ini settings can be found in the Offset Thread for MMOKORE)
Code:
#RequireAdmin
#include <GuiEdit.au3>
#include <GuiStatusBar.au3>
#include <GuiConstantsEx.au3>
#include <GUIButton.au3>
#include <GUIToolbar.au3>
#include <GuiListView.au3>
#include <ProgressConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <NomadMemory.au3>
#include <SendMessage.au3>
Opt("GUICloseOnESC", 0)
Opt("GUIOnEventMode", 1)
Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 1)
Global $STOP = True
Global $SOFTWARE_CONFIG = "MMOASSIST.ini"
Global $CFG_ADD_ROOT_KEY = "LastWorkingAddressLocations"
Global $CFG_TOGGLEBOX_ROOT_KEY = "ToggleBoxs"
Global $CFG_EXTRAS_AKS_KEY = "AntiKSToggleBox"
Global $CFG_EXTRAS_HBID_KEY = "PvMModeToggleBox"
Global $CFG_EXTRAS_PVP_KEY = "PvPModeToggleBox"
Global $CFG_TOGGLEBOX_ATTACKRAD_KEY = "AttackRadiusInputBox"
Global $CFG_MMOKORE_LAST_GUI_X = "LastMMOKOREX", $CFG_MMOKORE_LAST_GUI_Y = "LastMMOKOREY"
Global $CFG_SKILLS_ROOT_KEY = "Skills", $CFG_SKILL_UBOUND_KEY = "SkillUbound", $CFG_SKILL_COMBO_KEY = "SkillComboKey", $CFG_SKILL_TIMES_KEY = "SkillTimes", $SKCOUNTCFG = IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_UBOUND_KEY, "1")
Global $CFG_AUTOPOTION_ROOT_KEY = "AutoPotionSettings"
Global $AutoPotionGuiFlag = 0
Global $MOBLISTFORMOPEN = "0"
Global $TARGETLIST[100] = ["no targets added yet"]
Global $TLISTCOUNT = 0
Global $LOOTLISTFORMOPEN = "0"
Global $LOOTLIST[100] = ["no loot names added yet"]
Global $LLISTCOUNT = 0
Global $LOOTLISTTEXTCOUNT[100]
Global $SKILLLISTFORMOPEN = "0"
$COUNT = 0
$TLISTCOUNT = IniRead($SOFTWARE_CONFIG, "Target List", "Count", "0")
If $TLISTCOUNT = 0 Then
Else
Do
$TARGETLIST[$COUNT] = IniRead($SOFTWARE_CONFIG, "Target List", "Target"&$COUNT, "No target set.")
$COUNT = $COUNT + 1
sleep(10)
Until $COUNT = $TLISTCOUNT Or $TLISTCOUNT = 0
Endif
$COUNT = 0
$LLISTCOUNT = IniRead($SOFTWARE_CONFIG, "Loot List", "Count", "0")
If $LLISTCOUNT = 0 Then
Else
Do
$LOOTLIST[$COUNT] = IniRead($SOFTWARE_CONFIG, "Loot List", "Loot"&$COUNT, "No target set.")
$LOOTLISTTEXTCOUNT[$COUNT] = IniRead($SOFTWARE_CONFIG, "Loot List", "LootTextCount"&$COUNT, "No target set.")
$COUNT = $COUNT + 1
sleep(10)
Until $COUNT = $LLISTCOUNT Or $LLISTCOUNT = 0
Endif
Global $tempmonsterlist[100] = ["no targets added yet"]
Global $tempmonsterlistcount = 0
Global $templootlist[100] = ["no targets added yet"]
Global $templootlistcount = 0
Global $tempplayerlist[100] = ["no targets added yet"]
Global $tempplayerlistcount = 0
Global $KEYCODE = "--|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|{1}|{2}|{3}|{4}|{5}|{6}|{7}|{8}|{9}|{a}|{b}|{c}|{d}|{e}|{f}|{g}|{h}|{i}|{j}|{k}|{l}|{m}|{n}|{o}|{p}|{q}|{r}|{s}|{t}|{u}|{v}|{w}|{x}|{y}|{z}"
Global $hWnd = 0
Global $LastTarget = 0
Global $SKILL_TIMES = 0
Global $SKILL_COUNT = 1
Global $PLAYER_ON_SCREEN = 0
Global $PLAYER_TIME_OUT = 0
Global $TARGET_TIME_OUT = 0
Global $CHECK_ID = 0
Global $CHECK_TYPE = 0
Global $LOOT_ITEM = 0
Global $LOOT_ID = 0
Global $LOOT_ON_LIST_CHECK = 0
Global $PORTAL_ON_SCREEN = 0
Global $CHARACTER_UNIQUE_ID = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "CHARACTER_UNIQUE_ID", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "CHARACTER_UNIQUE_ID", 0x00E6A634)
$CHARACTER_UNIQUE_ID = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "CHARACTER_UNIQUE_ID", 0x00E6A634)
Else
$CHARACTER_UNIQUE_ID = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "CHARACTER_UNIQUE_ID", 0x00E6A634)
EndIf
Global $CHARACTER_ID = 0
Global $CHARACTER_NAME = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_NAME", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_NAME", 0x00E6D7F0)
$CHARACTER_NAME = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_NAME", 0x00E6D7F0)
Else
$CHARACTER_NAME = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_NAME", 0x00E6D7F0)
EndIf
Global $CHARACTER_MAX_HEALTH = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAX_HEALTH", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAX_HEALTH", 0x00E6CF48)
$CHARACTER_MAX_HEALTH = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAX_HEALTH", 0x00E6CF48)
Else
$CHARACTER_MAX_HEALTH = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAX_HEALTH", 0x00E6CF48)
EndIf
Global $MAXHP = 0
Global $CHARACTER_CURRENT_HEALTH = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_CURRENT_HEALTH", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_CURRENT_HEALTH", 0x00E6CF44)
$CHARACTER_CURRENT_HEALTH = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_CURRENT_HEALTH", 0x00E6CF44)
Else
$CHARACTER_CURRENT_HEALTH = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_CURRENT_HEALTH", 0x00E6CF44)
EndIf
Global $HP = 0
Global $CHARACTER_MAX_SPELL_POWER = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAX_SPELL_POWER", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAX_SPELL_POWER", 0x00E6CF50)
$CHARACTER_MAX_SPELL_POWER = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAX_SPELL_POWER", 0x00E6CF50)
Else
$CHARACTER_MAX_SPELL_POWER = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAX_SPELL_POWER", 0x00E6CF50)
EndIf
Global $MAXSP = 0
Global $CHARACTER_CURRENT_SPELL_POWER = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_CURRENT_SPELL_POWER", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_CURRENT_SPELL_POWER", 0x00E6CF4C)
$CHARACTER_CURRENT_SPELL_POWER = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_CURRENT_SPELL_POWER", 0x00E6CF4C)
Else
$CHARACTER_CURRENT_SPELL_POWER = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_CURRENT_SPELL_POWER", 0x00E6CF4C)
EndIf
Global $SP = 0
Global $CHARACTER_MAIN_CURRENCY = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAIN_CURRENCY", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAIN_CURRENCY", 0x00E6A6F8)
$CHARACTER_MAIN_CURRENCY = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAIN_CURRENCY", 0x00E6A6F8)
Else
$CHARACTER_MAIN_CURRENCY = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAIN_CURRENCY", 0x00E6A6F8)
EndIf
Global $CHARACTER_MAX_WEIGHT = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAX_WEIGHT", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAX_WEIGHT", 0x00E6A704)
$CHARACTER_MAX_WEIGHT = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAX_WEIGHT", 0x00E6A704)
Else
$CHARACTER_MAX_WEIGHT = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_MAX_WEIGHT", 0x00E6A704)
EndIf
Global $CHARACTER_CURRENT_WEIGHT = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_CURRENT_WEIGHT", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_CURRENT_WEIGHT", 0x00E6A708)
$CHARACTER_CURRENT_WEIGHT = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_CURRENT_WEIGHT", 0x00E6A708)
Else
$CHARACTER_CURRENT_WEIGHT = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_CURRENT_WEIGHT", 0x00E6A708)
EndIf
Global $CHARACTER_BASE_LEVEL = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_BASE_LEVEL", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_BASE_LEVEL", 0x00E6A658)
$CHARACTER_BASE_LEVEL = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_BASE_LEVEL", 0x00E6A658)
Else
$CHARACTER_BASE_LEVEL = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_BASE_LEVEL", 0x00E6A658)
EndIf
Global $CHARACTER_JOB_LEVEL = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_JOB_LEVEL", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_JOB_LEVEL", 0x00E6A660)
$CHARACTER_JOB_LEVEL = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_JOB_LEVEL", 0x00E6A660)
Else
$CHARACTER_JOB_LEVEL = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_JOB_LEVEL", 0x00E6A660)
EndIf
Global $CHARACTER_STR = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_STR", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_STR", 0x00E6A68C)
$CHARACTER_STR = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_STR", 0x00E6A68C)
Else
$CHARACTER_STR = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_STR", 0x00E6A68C)
EndIf
Global $CHARACTER_AGI = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_AGI", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_AGI", 0x00E6A690)
$CHARACTER_AGI = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_AGI", 0x00E6A690)
Else
$CHARACTER_AGI = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_AGI", 0x00E6A690)
EndIf
Global $CHARACTER_VIT = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_VIT", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_VIT", 0x00E6A694)
$CHARACTER_VIT = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_VIT", 0x00E6A694)
Else
$CHARACTER_VIT = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_VIT", 0x00E6A694)
EndIf
Global $CHARACTER_INT = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_INT", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_INT", 0x00E6A698)
$CHARACTER_INT = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_INT", 0x00E6A698)
Else
$CHARACTER_INT = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_INT", 0x00E6A698)
EndIf
Global $CHARACTER_DEX = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_DEX", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_DEX", 0x00E6A69C)
$CHARACTER_DEX = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_DEX", 0x00E6A69C)
Else
$CHARACTER_DEX = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_DEX", 0x00E6A69C)
EndIf
Global $CHARACTER_LUK = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_LUK", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_LUK", 0x00E6A6A0)
$CHARACTER_LUK = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_LUK", 0x00E6A6A0)
Else
$CHARACTER_LUK = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_LUK", 0x00E6A6A0)
EndIf
Global $CHARACTER_STAT_POINTS = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_STAT_POINTS", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_STAT_POINTS", 0x00E6A65C)
$CHARACTER_STAT_POINTS = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_STAT_POINTS", 0x00E6A65C)
Else
$CHARACTER_STAT_POINTS = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_STAT_POINTS", 0x00E6A65C)
EndIf
Global $CHARACTER_WORLD_X = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_WORLD_X", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_WORLD_X", 0x00E57034)
$CHARACTER_WORLD_X = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_WORLD_X", 0x00E57034)
Else
$CHARACTER_WORLD_X = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_WORLD_X", 0x00E57034)
EndIf
Global $CHARACTER_X = 0
Global $CHARACTER_WORLD_Y = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_WORLD_Y", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_WORLD_Y", 0x00E57038)
$CHARACTER_WORLD_Y = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_WORLD_Y", 0x00E57038)
Else
$CHARACTER_WORLD_Y = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_WORLD_Y", 0x00E57038)
EndIf
Global $CHARACTER_Y = 0
Global $INTERACTION_BASE_ADDRESS = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$INTERACTION_BASE_ADDRESS", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$INTERACTION_BASE_ADDRESS", 0x00BE3C0C)
$INTERACTION_BASE_ADDRESS = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$INTERACTION_BASE_ADDRESS", 0x00BE3C0C)
Else
$INTERACTION_BASE_ADDRESS = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$INTERACTION_BASE_ADDRESS", 0x00BE3C0C)
EndIf
Global $OFFSET_BATTLESTATE[4]
$OFFSET_BATTLESTATE[1] = 204 ;CC
$OFFSET_BATTLESTATE[2] = 44 ;2C
$OFFSET_BATTLESTATE[3] = 112 ;494
Global $OFFSET_UNIQUE_ATTACK_ID[2]
$OFFSET_UNIQUE_ATTACK_ID[1] = 240 ;F0
Global $OFFSET_ATTACKING_MODE[2]
$OFFSET_ATTACKING_MODE[1] = 40 ;28
Global $OFFSET_LAST_TARGET_UNIQUE_ID[2]
$OFFSET_LAST_TARGET_UNIQUE_ID[1] = 748 ;2ec
Global $OFFSET_SET_WALK_TO_LOOT_ID[4]
$OFFSET_SET_WALK_TO_LOOT_ID[1] = 204 ;CC
$OFFSET_SET_WALK_TO_LOOT_ID[2] = 44 ;2C
$OFFSET_SET_WALK_TO_LOOT_ID[3] = 1172 ;494
Global $OFFSET_ACTIVATE_WALK_TO_LOOT[4]
$OFFSET_ACTIVATE_WALK_TO_LOOT[1] = 204 ;CC
$OFFSET_ACTIVATE_WALK_TO_LOOT[2] = 44 ;2C
$OFFSET_ACTIVATE_WALK_TO_LOOT[3] = 1152 ;480
$WORLD_OBJECTS_ARRAY_BASE_ADDRESS = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$WORLD_OBJECTS_ARRAY_BASE_ADDRESS", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$WORLD_OBJECTS_ARRAY_BASE_ADDRESS", 0x00BE3E90)
$WORLD_OBJECTS_ARRAY_BASE_ADDRESS = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$WORLD_OBJECTS_ARRAY_BASE_ADDRESS", 0x00BE3E90)
Else
$WORLD_OBJECTS_ARRAY_BASE_ADDRESS = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$WORLD_OBJECTS_ARRAY_BASE_ADDRESS", 0x00BE3E90)
EndIf
Global $OFFSET_NPC_PLAYER_LOOT_UNIQUE_ID_LIST[4]
$OFFSET_NPC_PLAYER_LOOT_UNIQUE_ID_LIST[1] = 4 ;04
$OFFSET_NPC_PLAYER_LOOT_UNIQUE_ID_LIST[2] = 8 ;08
$OFFSET_NPC_PLAYER_LOOT_UNIQUE_ID_LIST[3] = 72 ;48
Global $OFFSET_NPC_PLAYER_LOOT_TYPE_ID_LIST[4]
$OFFSET_NPC_PLAYER_LOOT_TYPE_ID_LIST[1] = 4 ;04
$OFFSET_NPC_PLAYER_LOOT_TYPE_ID_LIST[2] = 8 ;08
$OFFSET_NPC_PLAYER_LOOT_TYPE_ID_LIST[3] = 72 ;48
Global $MOVE_EDIT_ASSEMBLY_X_LOCATION = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_EDIT_ASSEMBLY_X_LOCATION", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_EDIT_ASSEMBLY_X_LOCATION", 0x00874158)
$MOVE_EDIT_ASSEMBLY_X_LOCATION = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_EDIT_ASSEMBLY_X_LOCATION", 0x00874158)
Else
$MOVE_EDIT_ASSEMBLY_X_LOCATION = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_EDIT_ASSEMBLY_X_LOCATION", 0x00874158)
EndIf
Global $MOVE_EDIT_ASSEMBLY_Y_LOCATION = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_EDIT_ASSEMBLY_Y_LOCATION", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_EDIT_ASSEMBLY_Y_LOCATION", 0x0087415E)
$MOVE_EDIT_ASSEMBLY_Y_LOCATION = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_EDIT_ASSEMBLY_Y_LOCATION", 0x0087415E)
Else
$MOVE_EDIT_ASSEMBLY_Y_LOCATION = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_EDIT_ASSEMBLY_Y_LOCATION", 0x0087415E)
EndIf
Global $MOVE_WORLD_X = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_WORLD_X", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_WORLD_X", 0x00C00784)
$MOVE_WORLD_X = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_WORLD_X", 0x00C00784)
Else
$MOVE_WORLD_X = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_WORLD_X", 0x00C00784)
EndIf
Global $MOVE_WORLD_Y = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_WORLD_Y", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_WORLD_Y", 0x00C00788)
$MOVE_WORLD_Y = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_WORLD_Y", 0x00C00788)
Else
$MOVE_WORLD_Y = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_WORLD_Y", 0x00C00788)
EndIf
Global $MOVE_INVALID_CHECK = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_INVALID_CHECK", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_INVALID_CHECK", 0x00C0078C)
$MOVE_INVALID_CHECK = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_INVALID_CHECK", 0x00C0078C)
Else
$MOVE_INVALID_CHECK = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$MOVE_INVALID_CHECK", 0x00C0078C)
EndIf
Global $SCREEN_SIZE_X = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_SIZE_X", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_SIZE_X", 0x00E6D94C)
$SCREEN_SIZE_X = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_SIZE_X", 0x00E6D94C)
Else
$SCREEN_SIZE_X = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_SIZE_X", 0x00E6D94C)
EndIf
Global $ClientScreenSizeX = 0
Global $SCREEN_SIZE_Y = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_SIZE_Y", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_SIZE_Y", 0x00E6D950)
$SCREEN_SIZE_Y = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_SIZE_Y", 0x00E6D950)
Else
$SCREEN_SIZE_Y = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_SIZE_Y", 0x00E6D950)
EndIf
Global $ClientScreenSizeY = 0
Global $SCREEN_CURSOR_X = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_CURSOR_X", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_CURSOR_X", 0x00BD55F8)
$SCREEN_CURSOR_X = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_CURSOR_X", 0x00BD55F8)
Else
$SCREEN_CURSOR_X = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_CURSOR_X", 0x00BD55F8)
EndIf
Global $SCREEN_CURSOR_Y = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_CURSOR_Y", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_CURSOR_Y", 0x00BD55FC)
$SCREEN_CURSOR_Y = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_CURSOR_Y", 0x00BD55FC)
Else
$SCREEN_CURSOR_Y = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$SCREEN_CURSOR_Y", 0x00BD55FC)
EndIf
Global $tempX = 0,$tempY = 0
Global $movexycount = 0
Global $PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH", 0x00873866)
$PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH", 0x00873866)
Else
$PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH", 0x00873866)
EndIf
Global $PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH2 = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH2", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH2", 0x00875642)
$PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH2 = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH2", 0x00875642)
Else
$PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH2 = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH2", 0x00875642)
EndIf
Global $LAST_TARGET_ASSEMBLY_SWITCH = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$LAST_TARGET_ASSEMBLY_SWITCH", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$LAST_TARGET_ASSEMBLY_SWITCH", 0x0086FE3F)
$LAST_TARGET_ASSEMBLY_SWITCH = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$LAST_TARGET_ASSEMBLY_SWITCH", 0x0086FE3F)
Else
$LAST_TARGET_ASSEMBLY_SWITCH = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$LAST_TARGET_ASSEMBLY_SWITCH", 0x0086FE3F)
EndIf
Global $TARGETS_ATTACKING_PLAYERS_UNIQUE_ID = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$TARGETS_ATTACKING_PLAYERS_UNIQUE_ID", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$TARGETS_ATTACKING_PLAYERS_UNIQUE_ID", 0x0051ED40)
$TARGETS_ATTACKING_PLAYERS_UNIQUE_ID = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$TARGETS_ATTACKING_PLAYERS_UNIQUE_ID", 0x0051ED40)
Else
$TARGETS_ATTACKING_PLAYERS_UNIQUE_ID = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$TARGETS_ATTACKING_PLAYERS_UNIQUE_ID", 0x0051ED40)
EndIf
Global $OFFSET_LAST_ATTAKING_TARGET_UNIQUE_ID[2]
$OFFSET_LAST_ATTAKING_TARGET_UNIQUE_ID[1] = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$OFFSET_LAST_ATTAKING_TARGET_UNIQUE_ID1", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$OFFSET_LAST_ATTAKING_TARGET_UNIQUE_ID1", 0xFC)
$OFFSET_LAST_ATTAKING_TARGET_UNIQUE_ID[1] = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$OFFSET_LAST_ATTAKING_TARGET_UNIQUE_ID1", 0xFC)
Else
$OFFSET_LAST_ATTAKING_TARGET_UNIQUE_ID[1] = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$OFFSET_LAST_ATTAKING_TARGET_UNIQUE_ID1", 0xFC)
EndIf
Global $OFFSET_LAST_ATTAKING_TARGET_X[2]
$OFFSET_LAST_ATTAKING_TARGET_X[1] = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$OFFSET_LAST_ATTAKING_TARGET_X1", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$OFFSET_LAST_ATTAKING_TARGET_X1", 0x100)
$OFFSET_LAST_ATTAKING_TARGET_X[1] = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$OFFSET_LAST_ATTAKING_TARGET_X1", 0x100)
Else
$OFFSET_LAST_ATTAKING_TARGET_X[1] = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$OFFSET_LAST_ATTAKING_TARGET_X1", 0x100)
EndIf
Global $OFFSET_LAST_ATTAKING_TARGET_Y[2]
$OFFSET_LAST_ATTAKING_TARGET_Y[1] = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$OFFSET_LAST_ATTAKING_TARGET_Y1", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$OFFSET_LAST_ATTAKING_TARGET_Y1", 0xF8)
$OFFSET_LAST_ATTAKING_TARGET_Y[1] = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$OFFSET_LAST_ATTAKING_TARGET_Y1", 0xF8)
Else
$OFFSET_LAST_ATTAKING_TARGET_Y[1] = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$OFFSET_LAST_ATTAKING_TARGET_Y1", 0xF8)
EndIf
Global $CHARACTER_FARM_MAP = 0
local $testiniIni = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_FARM_MAP", 1)
If $testiniIni = 1 Then
IniWrite($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_FARM_MAP", 0x00BE3C10)
$CHARACTER_FARM_MAP = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_FARM_MAP", 0x00BE3C10)
Else
$CHARACTER_FARM_MAP = IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "$CHARACTER_FARM_MAP", 0x00BE3C10)
EndIf
Global $STAY_ON_MAP = ""
$default_browser_path = RegRead('HKCR\' & RegRead('HKCR\.html', '') & '\shell\open\command', '')
If StringLeft($default_browser_path, 1) = '"' Then
$default_browser_path = StringRegExpReplace($default_browser_path, '\A"+|".*\z', '')
Else
$default_browser_path = StringRegExpReplace($default_browser_path, '\A\s+|\s.*\z', '')
EndIf
Global $NAME = "MMOKORE"
Global $LAST_START_X = 0
Global $LAST_START_Y = 0
Global $SOFTWARE_TITLE = "MMOKORE"
If IniRead($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_MMOKORE_LAST_GUI_X, "") <> -32000 Then
$LAST_START_X = IniRead($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_MMOKORE_LAST_GUI_X, "")
EndIf
If IniRead($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_MMOKORE_LAST_GUI_Y, "") <> -32000 Then
$LAST_START_Y = IniRead($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_MMOKORE_LAST_GUI_Y, "")
EndIf
Global $CurrentAction = "Nothing"
$MMOASSIST = GUICreate($SOFTWARE_TITLE, 251, 601, $LAST_START_X, $LAST_START_Y)
GUISetState()
GUISetOnEvent($GUI_EVENT_CLOSE, "WindowCloseClicked")
TraySetIcon("MMOKORE.ico")
GUISetIcon("MMOKORE.ico")
$MenuItem1 = GUICtrlCreateMenu("&File")
$MenuItem4 = GUICtrlCreateMenuItem("Start", $MenuItem1)
GUICtrlSetOnEvent(-1, "StartOrStop")
$MenuItem5 = GUICtrlCreateMenuItem("Exit", $MenuItem1)
GUICtrlSetOnEvent(-1, "WindowCloseClicked")
$MenuItem2 = GUICtrlCreateMenu("&Options")
$MenuItem7 = GUICtrlCreateMenuItem("Skills", $MenuItem2)
GUICtrlSetOnEvent(-1, "SetSkills")
$MenuItem6 = GUICtrlCreateMenuItem("Buffs"&"-"&"coming soon", $MenuItem2)
GUICtrlSetOnEvent(-1, "SetAutoBuffs")
$MenuItem8 = GUICtrlCreateMenuItem("Life Support", $MenuItem2)
GUICtrlSetOnEvent(-1, "autopotionstart")
$MenuItem10 = GUICtrlCreateMenuItem("Pet Support"&"-"&"coming soon", $MenuItem2)
GUICtrlSetOnEvent(-1, "SetPetSupport")
$MenuItem9 = GUICtrlCreateMenuItem("Pathfinding"&"-"&"coming soon", $MenuItem2)
GUICtrlSetOnEvent(-1, "SetFlyEscape")
$MenuItem11 = GUICtrlCreateMenuItem("Rotate Weapons"&"-"&"coming soon", $MenuItem2)
GUICtrlSetOnEvent(-1, "SetChangeWeapons")
$MenuItem12 = GUICtrlCreateMenuItem("Target List", $MenuItem2)
GUICtrlSetOnEvent(-1, "Set_MobList")
$MenuItem12 = GUICtrlCreateMenuItem("Loot List", $MenuItem2)
GUICtrlSetOnEvent(-1, "Set_LooTList")
$MenuItem3 = GUICtrlCreateMenu("Help")
GUISetFont(8, 800, 0, "MS Sans Serif")
GUISetBkColor(0x000000)
Global $MenuItem13 = GUICtrlCreateMenuItem("Check EPvPers", $MenuItem3)
GUICtrlSetOnEvent(-1, "OnlineSupport")
$BotStatus = GUICtrlCreateGroup("MMOKORE Status", 0, 0, 250, 51, -1, $WS_EX_TRANSPARENT)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($BotStatus), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlCreateGroup("MMOKORE Status", -99, -99, 1, 1)
GUICtrlSetTip(-1, "MMOKORE Status")
$BUTTON_START = GUICtrlCreateButton("Start", 5, 15, 60, 30)
GUICtrlSetOnEvent(-1, "StartOrStop")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBKColor(-1, 0x000000)
$LABEL_MMOASSIST_STATUS = GUICtrlCreateLabel("MMOKORE: Stopped", 75, 14, 155, 15)
GUICtrlSetColor(-1, 0xC0C0C0)
$LABEL_GENERAL_STATUS = GUICtrlCreateLabel("Action: Nothing", 75, 31, 200, 15)
GUICtrlSetColor(-1, 0xC0C0C0)
$CharInfo = GUICtrlCreateGroup("Character Info", 0, 51, 250, 132)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CharInfo), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 0x00FF00)
$LabeNAME = GUICtrlCreateLabel("Name:", 12, 67, 35, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$Label_NAME = GUICtrlCreateLabel("None", 50, 67, 150, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$LabelLVL = GUICtrlCreateLabel("Level:", 13, 81, 35, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$Label_LVL = GUICtrlCreateLabel("0", 52, 81, 40, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$LabelCLASS = GUICtrlCreateLabel("Class:", 98, 81, 34, 18)
GUICtrlSetColor(-1, 0xC0C0C0)
$Label_CLASS = GUICtrlCreateLabel("None", 134, 81, 110, 18)
GUICtrlSetColor(-1, 0xC0C0C0)
$LabelHP = GUICtrlCreateLabel("HP:", 9, 100, 22, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($LabelHP), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 15743782)
GUICtrlSetBkColor(-1, 0x000000)
$Perc_HP = GUICtrlCreateProgress(32, 98, 120, 17, $PBS_SMOOTH)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($Perc_HP), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 15743782)
GUICtrlSetBkColor(-1, 0xFFB3B5)
$Label_HP = GUICtrlCreateLabel("0/0", 32, 98, 120, 17, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 7, 10000, 0, "Arial")
GUICtrlSetBkColor(-1, -2)
$LabelSP = GUICtrlCreateLabel("SP:", 8, 120, 23, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($LabelSP), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 0x3232FF)
GUICtrlSetBkColor(-1, 0x000000)
$Perc_SP = GUICtrlCreateProgress(32, 118, 120, 17, $PBS_SMOOTH)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($Perc_SP), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 0x3232FF)
GUICtrlSetBkColor(-1, 0x9999FF)
$Label_SP = GUICtrlCreateLabel("0/0", 32, 118, 120, 17, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 7, 10000, 0, "Arial")
GUICtrlSetBkColor(-1, -2)
$LabelEXP = GUICtrlCreateLabel("Exp:", 5, 138, 25, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($LabelEXP), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 0x800080)
GUICtrlSetBkColor(-1, 0x000000)
$Perc_EXP = GUICtrlCreateProgress(32, 138, 120, 17, $PBS_SMOOTH)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($Perc_EXP), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 0xFF00FF)
GUICtrlSetBkColor(-1, 0xD8A0CB)
$Label_EXP = GUICtrlCreateLabel("0/0", 32, 138, 120, 17, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 7, 10000, 0, "Arial")
GUICtrlSetBkColor(-1, -2)
$LabelSTR = GUICtrlCreateLabel("Str:", 166, 97, 20, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$Label_STR = GUICtrlCreateLabel("00", 186, 97, 60, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$LabelDEX = GUICtrlCreateLabel("Dex:", 159, 113, 26, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$Label_DEX = GUICtrlCreateLabel("00", 186, 113, 60, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$LabelVIT = GUICtrlCreateLabel("Vit:", 167, 129, 19, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$Label_VIT = GUICtrlCreateLabel("00", 186, 129, 60, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$LabelMAG = GUICtrlCreateLabel("Mag:", 157, 145, 28, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$Label_MAG = GUICtrlCreateLabel("00", 186, 145, 60, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$LabelXY = GUICtrlCreateLabel("XY:", 5, 160, 26, 17, $SS_CENTERIMAGE)
GUICtrlSetColor(-1, 0xC0C0C0)
$Label_XY = GUICtrlCreateLabel("000 / 000", 31, 160, 125, 17, $SS_CENTERIMAGE)
GUICtrlSetColor(-1, 0xC0C0C0)
$LabeSPIRIT = GUICtrlCreateLabel("Spirit:", 153, 160, 31, 18, $SS_CENTERIMAGE)
GUICtrlSetColor(-1, 0xC0C0C0)
$Label_SPIRIT = GUICtrlCreateLabel("0", 186, 160, 60, 18, $SS_CENTERIMAGE)
GUICtrlSetColor(-1, 0xC0C0C0)
$TarInfo = GUICtrlCreateGroup("Target Info", 0, 184, 250, 75)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($TarInfo), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 0x00FF00)
$LabelTARNAME = GUICtrlCreateLabel("Name:", 12, 200, 35, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$Label_TARNAME = GUICtrlCreateLabel("None", 50, 200, 195, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$LabelTARDIST = GUICtrlCreateLabel("Dist:", 22, 213, 35, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$Label_TARDIST = GUICtrlCreateLabel("0", 52, 213, 40, 17)
GUICtrlSetColor(-1, 0xC0C0C0)
$LabelTARSPEC = GUICtrlCreateLabel("Spec:", 98, 213, 34, 18)
GUICtrlSetColor(-1, 0xC0C0C0)
$Label_TARSPEC = GUICtrlCreateLabel("None", 134, 213, 114, 18)
GUICtrlSetColor(-1, 0xC0C0C0)
$LabelTARHP = GUICtrlCreateLabel("HP:", 9, 232, 22, 17)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($LabelHP), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 15743782)
GUICtrlSetBkColor(-1, 0x000000)
$Perc_TARHP = GUICtrlCreateProgress(32, 231, 120, 17, $PBS_SMOOTH)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($Perc_TARHP), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 15743782)
GUICtrlSetBkColor(-1, 0xFFB3B5)
$Label_TARHP = GUICtrlCreateLabel("0/0", 32, 231, 120, 17, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 7, 10000, 0, "Arial")
GUICtrlSetBkColor(-1, -2)
$HuntOpts = GUICtrlCreateGroup("Hunting Options", 0, 263, 250, 80)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($HuntOpts), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 0x00FF00)
$CHK_ANTIKS = GUICtrlCreateCheckbox("AntiKS", 5, 278, 105, 20)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CHK_ANTIKS), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 15743782)
GUICtrlSetBkColor(-1, 0x000000)
If IniRead($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_EXTRAS_AKS_KEY, "0") = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
$CHK_HBN = GUICtrlCreateCheckbox("PvM Mode", 5, 298,105, 20)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CHK_HBN), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 0x3232FF)
GUICtrlSetBkColor(-1, 0x000000)
If IniRead($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_EXTRAS_HBID_KEY, "0") = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
$CHK_PVP = GUICtrlCreateCheckbox("PvP Mode", 5, 318, 105, 20)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CHK_PVP), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 0x800080)
GUICtrlSetBkColor(-1, 0x000000)
If IniRead($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_EXTRAS_PVP_KEY, "0") = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
$Tar_Rad = GUICtrlCreateGroup("Target Radius", 112, 271, 131, 65)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($Tar_Rad), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 0xFFFF00)
$BTN_SETRAD = GUICtrlCreateButton("Set", 203, 289, 35, 21, $WS_GROUP)
GUICtrlSetOnEvent(-1, "SETHOMEXYZ")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBKColor(-1, 0x000000)
$INPT_RAD = GUICtrlCreateInput("", 166, 289, 33, 21)
If IniRead($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_TOGGLEBOX_ATTACKRAD_KEY, "0") <> "0" Then
GUICtrlSetData(-1, IniRead($SOFTWARE_CONFIG, $CFG_EXTRAS_ROOT_KEY, $CFG_EXTRAS_ATTACKRAD_KEY, "0"))
Else
GUICtrlSetData(-1, "0")
EndIf
$LABEL_RADIUS = GUICtrlCreateLabel("Radius:", 118, 292, 47, 17)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$LABEL_RADCENTER = GUICtrlCreateLabel("0 = No Limit", 114, 315, 127, 17, $SS_CENTER)
GUICtrlSetColor(-1, 0xC0C0C0)
$HISTORY = GUICtrlCreateGroup("Battle History", 0, 345, 250, 203)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($HISTORY), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 0x00FF00)
$LOG = GUICtrlCreateEdit("", 5, 362, 240, 185, BitOR($ES_CENTER,$ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN), 0)
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($LOG), "wstr", 0, "wstr", 0)
GUISetState(@SW_SHOW)
$LabelGOLD = GUICtrlCreateLabel("Gold:", 5, 557, 29, 18, $SS_CENTERIMAGE)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($LabelGOLD), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 0xFFFF00)
$Label_GOLD = GUICtrlCreateLabel("0", 37, 557, 70, 18, $SS_CENTERIMAGE)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($Label_GOLD), "wstr", 0, "wstr", 0)
GUICtrlSetColor(-1, 0xFFFF00)
SelectProcessId()
While (1)
Main()
WEnd
Func Main()
If $STOP = False Then
If GUICtrlRead($LABEL_MMOASSIST_STATUS) <> "MMOASSIST: Started" Then
$STAY_ON_MAP = _MemoryRead($CHARACTER_FARM_MAP, $PROCESS_INFORMATION, 'char[29]')
$CHARACTER_ID = _MemoryRead($CHARACTER_UNIQUE_ID, $PROCESS_INFORMATION)
$ClientScreenSizeX = _MemoryRead( $SCREEN_SIZE_X, $PROCESS_INFORMATION)
$ClientScreenSizeY = _MemoryRead( $SCREEN_SIZE_Y, $PROCESS_INFORMATION)
$ClientScreenSizeX = $ClientScreenSizeX/2
$ClientScreenSizeY = $ClientScreenSizeY/2
_MemoryWrite($SCREEN_CURSOR_X, $PROCESS_INFORMATION,$ClientScreenSizeX)
_MemoryWrite($SCREEN_CURSOR_Y , $PROCESS_INFORMATION,$ClientScreenSizeY)
$MaxHP = _MemoryRead(IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "MaxHPAddress", $CHARACTER_MAX_HEALTH), $PROCESS_INFORMATION)
$MaxSP = _MemoryRead(IniRead($SOFTWARE_CONFIG, $CFG_ADD_ROOT_KEY, "MaxSPAddress", $CHARACTER_MAX_SPELL_POWER), $PROCESS_INFORMATION)
IniWrite($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "MaxHP", $MaxHP)
IniWrite($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "MaxSP", $MaxSP)
GUICtrlSetData($LABEL_MMOASSIST_STATUS, "MMOASSIST: Started")
GUICtrlSetData($LABEL_GENERAL_STATUS, "Action: MMOKORE ON")
EndIf
UpdateGuiData()
CheckHP($HP,$MAXHP)
CheckSP($SP,$MAXSP)
If GUICtrlRead($CHK_PVP) = 1 Then
ScanWorld()
If $PLAYER_TIME_OUT < 20 Then
$PLAYER_TIME_OUT = $PLAYER_TIME_OUT + 1
Else
$PLAYER_TIME_OUT = 0
$PLAYER_ON_SCREEN = 0
EndIF
If $LastTarget > 0 Then
Addhistory("Defending Self")
AttackID($LastTarget, 0)
local $testbattlestate = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0xCC,$PROCESS_INFORMATION)+ 0x2C,$PROCESS_INFORMATION)+ 0x70,$PROCESS_INFORMATION)
If $testbattlestate = 8 or $testbattlestate = 2 Then
$TARGET_TIME_OUT = 0
Else
If $TARGET_TIME_OUT < 25 Then
$TARGET_TIME_OUT = $TARGET_TIME_OUT + 1
Else
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_ATTACKING_MODE, 0)
_MemoryWrite($TARGETS_ATTACKING_PLAYERS_UNIQUE_ID + $OFFSET_LAST_ATTAKING_TARGET_UNIQUE_ID[1], $PROCESS_INFORMATION, 0)
$TARGET_TIME_OUT = 0
$LastTarget = 0
$SKILL_COUNT = 1
$SKILL_TIMES = 0
EndIf
EndIf
_MemoryWrite($PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH, $PROCESS_INFORMATION, 240)
_MemoryWrite($PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH2, $PROCESS_INFORMATION, 137, 'byte')
_MemoryWrite($LAST_TARGET_ASSEMBLY_SWITCH, $PROCESS_INFORMATION, 137, 'byte')
_MemoryWrite($MOVE_EDIT_ASSEMBLY_X_LOCATION, $PROCESS_INFORMATION, 137, 'byte')
_MemoryWrite($MOVE_EDIT_ASSEMBLY_Y_LOCATION, $PROCESS_INFORMATION, 137, 'byte')
Return
EndIf
Else
If GUICtrlRead($CHK_HBN) = 1 Then
_MemoryWrite($SCREEN_CURSOR_X, $PROCESS_INFORMATION,$ClientScreenSizeX)
_MemoryWrite($SCREEN_CURSOR_Y ,$PROCESS_INFORMATION, $ClientScreenSizeY)
local $testmap = _MemoryRead($CHARACTER_FARM_MAP, $PROCESS_INFORMATION, 'char[29]')
If $testmap <> $STAY_ON_MAP Then
ScanWorld()
IF $CHECK_TYPE = 45 Then
Addhistory("Entering Portal")
AttackID($CHECK_ID,$CHECK_TYPE)
sleep(5000)
$LastTarget = 0
Return
Else
Return
EndIf
Else
If $LastTarget = 0 And $LOOT_ITEM = 0 Then
ScanWorld()
EndIf
EndIf
IF $LOOT_ITEM = 1 Then
$i = 0
Do
ScanWorld()
If $LOOT_ID > 0 Then
Loot($LOOT_ID)
EndIf
$i = $i + 1
If $LOOT_ON_LIST_CHECK = 1 Then
Loot($LOOT_ID)
$LOOT_ON_LIST_CHECK = 0
sleep(1000)
$i = 0
Endif
Until $i > 200 Or $STOP = True
$LOOT_ITEM = 0
EndIf
If $LastTarget > 0 Then
addhistory("Defending Self")
AttackID($LastTarget, 0)
local $testbattlestate = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0xCC,$PROCESS_INFORMATION)+ 0x2C,$PROCESS_INFORMATION)+ 0x70,$PROCESS_INFORMATION)
If $testbattlestate = 1 or $testbattlestate = 8 or $testbattlestate = 2 Then
$TARGET_TIME_OUT = 0
Else
If $TARGET_TIME_OUT < 25 then
$TARGET_TIME_OUT = $TARGET_TIME_OUT + 1
Else
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_ATTACKING_MODE, 0)
_MemoryWrite(_MemoryRead($TARGETS_ATTACKING_PLAYERS_UNIQUE_ID,$PROCESS_INFORMATION) + $OFFSET_LAST_ATTAKING_TARGET_UNIQUE_ID[1], $PROCESS_INFORMATION, 1)
$TARGET_TIME_OUT = 0
$LastTarget = 0
$LOOT_ITEM = 1
$SKILL_COUNT = 1
$SKILL_TIMES = 0
EndIf
EndIf
Return
EndIf
local $testbattlestate = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0xCC,$PROCESS_INFORMATION)+ 0x2C,$PROCESS_INFORMATION)+ 0x70,$PROCESS_INFORMATION)
If $testbattlestate > 0 Then
addhistory("NO Monster on screen moving")
Move($CHARACTER_X,$CHARACTER_Y)
Else
$movexycount = Random(1,8,1)
addhistory("NO Monster on screen moving")
Move($CHARACTER_X,$CHARACTER_Y)
sleep(10)
Return
EndIf
If GUICtrlRead($CHK_ANTIKS) = 1 Then
_MemoryWrite($SCREEN_CURSOR_X, $PROCESS_INFORMATION,$ClientScreenSizeX)
_MemoryWrite($SCREEN_CURSOR_Y ,$PROCESS_INFORMATION, $ClientScreenSizeY)
local $testmap = _MemoryRead($CHARACTER_FARM_MAP, $PROCESS_INFORMATION, 'char[29]')
If $testmap <> $STAY_ON_MAP Then
ScanWorld()
IF $CHECK_TYPE = 45 Then
Addhistory("Entering Portal")
AttackID($CHECK_ID,$CHECK_TYPE)
sleep(5000)
$LastTarget = 0
Return
Else
Return
EndIf
Else
If $LastTarget = 0 And $LOOT_ITEM = 0 Then
ScanWorld()
EndIf
EndIf
IF $LOOT_ITEM = 1 Then
$i = 0
Do
addhistory("looting")
ScanWorld()
If $LOOT_ID > 0 Then
Loot($LOOT_ID)
EndIf
$i = $i + 1
If $LOOT_ON_LIST_CHECK = 1 Then
Loot($LOOT_ID)
$LOOT_ON_LIST_CHECK = 0
addhistory("SLEEP ONE SECOND")
sleep(1000)
$i = 0
EndIf
Until $i > 200 Or $STOP = True
$LOOT_ITEM = 0
EndIf
If $LastTarget > 0 Then
addhistory("Defending Self")
AttackID($LastTarget, 0)
local $testbattlestate = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0xCC,$PROCESS_INFORMATION)+ 0x2C,$PROCESS_INFORMATION)+ 0x70,$PROCESS_INFORMATION)
If $testbattlestate = 1 Or $testbattlestate = 8 Or $testbattlestate = 2 Then
$TARGET_TIME_OUT = 0
Else
If $TARGET_TIME_OUT < 25 Then
$TARGET_TIME_OUT = $TARGET_TIME_OUT + 1
Else
sleep(10)
_MemoryWrite(_MemoryRead($TARGETS_ATTACKING_PLAYERS_UNIQUE_ID,$PROCESS_INFORMATION) + $OFFSET_LAST_ATTAKING_TARGET_UNIQUE_ID[1], $PROCESS_INFORMATION, 1)
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_ATTACKING_MODE, 0)
; _MemoryPointerWrite($TARGETS_ATTACKING_PLAYERS_UNIQUE_ID, $PROCESS_INFORMATION, $OFFSET_LAST_ATTAKING_TARGET_UNIQUE_ID, 0)
$TARGET_TIME_OUT = 0
$LastTarget = 0
$LOOT_ITEM = 1
$SKILL_COUNT = 1
$SKILL_TIMES = 0
EndIf
EndIf
Return
EndIf
If $PLAYER_TIME_OUT < 20 Then
$PLAYER_TIME_OUT = $PLAYER_TIME_OUT + 1
Else
$PLAYER_TIME_OUT = 0
$LastTarget = 0
$PLAYER_ON_SCREEN = 0
EndIf
If $PLAYER_ON_SCREEN = 1 And $LastTarget = 0 And $PORTAL_ON_SCREEN = 0 Then
local $testbattlestate = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0xCC,$PROCESS_INFORMATION)+ 0x2C,$PROCESS_INFORMATION)+ 0x70,$PROCESS_INFORMATION)
If $testbattlestate > 0 Then
addhistory("player on screen moving")
Move($CHARACTER_X,$CHARACTER_Y)
sleep(100)
Return
Else
$movexycount = Random(1,8,1)
addhistory("player on screen moving")
Move($CHARACTER_X,$CHARACTER_Y)
sleep(100)
Return
EndIf
EndIf
If $PLAYER_ON_SCREEN = 0 Then
local $testbattlestate = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0xCC,$PROCESS_INFORMATION)+ 0x2C,$PROCESS_INFORMATION)+ 0x70,$PROCESS_INFORMATION)
If $testbattlestate > 0 Then
addhistory("NO Monster on screen moving")
Move($CHARACTER_X,$CHARACTER_Y)
Else
$movexycount = Random(1,8,1)
addhistory("NO Monster on screen moving")
Move($CHARACTER_X,$CHARACTER_Y)
sleep(10)
Return
EndIf
EndIf
Else
EndIf
Else
EndIf
EndIf
Else
If GUICtrlRead($LABEL_MMOASSIST_STATUS) <> "MMOKORE: Stopped" Then
GUICtrlSetData($LABEL_MMOASSIST_STATUS, "MMOKORE: Stopped")
_MemoryWrite($PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH, $PROCESS_INFORMATION, 240)
_MemoryWrite($PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH2, $PROCESS_INFORMATION, 137, 'byte')
_MemoryWrite($LAST_TARGET_ASSEMBLY_SWITCH, $PROCESS_INFORMATION, 137, 'byte')
_MemoryWrite($MOVE_EDIT_ASSEMBLY_X_LOCATION, $PROCESS_INFORMATION, 137, 'byte')
_MemoryWrite($MOVE_EDIT_ASSEMBLY_Y_LOCATION, $PROCESS_INFORMATION, 137, 'byte')
EndIf
If $hWnd > 0 Then
UpdateGuiData()
ScanWorld()
local $selectedtarget = _MemoryRead(_MemoryRead($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0x2EC, $PROCESS_INFORMATION)
If $selectedtarget = $CHECK_ID Then
Addhistory("Last Target Type"&"="&$CHECK_TYPE)
Addhistory("Last Target Unique ID"&"="&$CHECK_ID)
EndIf
Endif
Sleep(100)
EndIf
EndFunc ;==>
Func EnterPortal()
local $testmap = _MemoryRead($CHARACTER_FARM_MAP, $PROCESS_INFORMATION, 'char[29]')
If $testmap <> $STAY_ON_MAP Then
_MemoryWrite($SCREEN_CURSOR_X, $PROCESS_INFORMATION,$ClientScreenSizeX+$ClientScreenSizeX)
_MemoryWrite($SCREEN_CURSOR_Y , $PROCESS_INFORMATION,0)
Addhistory("Entering Portal")
AttackID($CHECK_ID,$CHECK_TYPE)
sleep(5000)
$CHECK_ID = 0
$CHECK_TYPE = 0
$LastTarget = 0
EndIf
EndFunc
Func TargetScan()
For $i = 0 to $TLISTCOUNT -1
If $CHECK_TYPE = $TARGETLIST[$i] Then
If $LastTarget = 0 Then
$LastTarget = $CHECK_ID
Return
EndIf
If $i = $TLISTCOUNT Then ExitLoop
EndIf
Next
EndFunc
Func ScanWorld()
;NOT IMPLEMENTED YET.
;Gather each objects X/Y location and Unique ID/Type ID.
;Save the base to an array to update if object is still on screen and its location.
;local $templastobjectbase = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0xCC, $PROCESS_INFORMATION)+ 0x10, $PROCESS_INFORMATION)+ 0x4, $PROCESS_INFORMATION)
;local $templastobjectuniqueidcheck = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0xCC, $PROCESS_INFORMATION)+ 0x10, $PROCESS_INFORMATION)+ 0x4, $PROCESS_INFORMATION)+ 0x8, $PROCESS_INFORMATION)+ 0x230, $PROCESS_INFORMATION)
;local $templastobjecttypecheck = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0xCC, $PROCESS_INFORMATION)+ 0x10, $PROCESS_INFORMATION)+ 0x4, $PROCESS_INFORMATION)+ 0x8, $PROCESS_INFORMATION)+ 0x234, $PROCESS_INFORMATION)
;local $templastobjectxcheck = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0xCC, $PROCESS_INFORMATION)+ 0x10, $PROCESS_INFORMATION)+ 0x4, $PROCESS_INFORMATION)+ 0x8, $PROCESS_INFORMATION)+ 0x138, $PROCESS_INFORMATION)
;local $templastobjectycheck = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0xCC, $PROCESS_INFORMATION)+ 0x10, $PROCESS_INFORMATION)+ 0x4, $PROCESS_INFORMATION)+ 0x8, $PROCESS_INFORMATION)+ 0x13C, $PROCESS_INFORMATION)
$OFFSET_LAST_ATTAKING_TARGET_UNIQUE_ID[1]
$OFFSET_LAST_ATTAKING_TARGET_X[1]
$OFFSET_LAST_ATTAKING_TARGET_Y[1]
;ID and X Y location of monsters attacking players.
;All monsters that are attacking a players on screen.
local $tempobjectattackingplayeruniqueidcheck = _MemoryRead(_MemoryRead($TARGETS_ATTACKING_PLAYERS_UNIQUE_ID, $PROCESS_INFORMATION)+ $OFFSET_LAST_ATTAKING_TARGET_UNIQUE_ID[1], $PROCESS_INFORMATION)
local $tempobjectattackingplayerxcheck = _MemoryRead(_MemoryRead($TARGETS_ATTACKING_PLAYERS_UNIQUE_ID, $PROCESS_INFORMATION)+ $OFFSET_LAST_ATTAKING_TARGET_X[1], $PROCESS_INFORMATION)
local $tempobjectattackingplayerycheck = _MemoryRead(_MemoryRead($TARGETS_ATTACKING_PLAYERS_UNIQUE_ID, $PROCESS_INFORMATION)+ $OFFSET_LAST_ATTAKING_TARGET_Y[1], $PROCESS_INFORMATION)
;ID/Type everything currently on screen
local $tempobjectuniqueidcheck = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($WORLD_OBJECTS_ARRAY_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0x4, $PROCESS_INFORMATION)+ 0x8, $PROCESS_INFORMATION)+ 0x48, $PROCESS_INFORMATION)
local $tempobjecttypecheck = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($WORLD_OBJECTS_ARRAY_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0x4, $PROCESS_INFORMATION)+ 0x8, $PROCESS_INFORMATION)+ 0x4C, $PROCESS_INFORMATION)
;Run if MMOKORE is off to display last hovered over object ID/TYPE in addhistory
If $STOP = True Then
$CHECK_TYPE = $tempobjecttypecheck
$CHECK_ID = $tempobjectuniqueidcheck
return
Endif
;Run if there is a monster attacking a player on screen
If $tempobjecttypecheck = 45 And $STOP = FALSE And GUICtrlRead($CHK_PVP) = 4 Then
$CHECK_TYPE = $tempobjecttypecheck
$CHECK_ID = $tempobjectuniqueidcheck
return
Else
;Do nothing keep scanning.
EndIf
;If a monster is attacking a player withing your range kill it.
If $tempobjectattackingplayeruniqueidcheck > 0 And $tempobjectattackingplayeruniqueidcheck < 100000 And $tempobjectattackingplayeruniqueidcheck > 1 And GUICtrlRead($CHK_PVP) = 4 Then
If $tempobjectattackingplayerxcheck < $CHARACTER_X + 3 And $tempobjectattackingplayerxcheck > $CHARACTER_X - 3 And $tempobjectattackingplayerycheck < $CHARACTER_Y + 3 And $tempobjectattackingplayerycheck > $CHARACTER_Y - 3 Then
$LastTarget = $tempobjectattackingplayeruniqueidcheck
Return
EndIf
EndIf
;Check for loot if $LOOT_ITEM is 1
If $tempobjecttypecheck = 32001 And $STOP = False And GUICtrlRead($CHK_PVP) = 4 Then
If $tempobjectuniqueidcheck < 4000 Then
ElseIf $LOOT_ITEM = 1 Then
$LastTarget = 0
$LOOT_ID = $tempobjectuniqueidcheck
Return
EndIf
Else ;$tempobjecttypecheck = 32001
If $tempobjectuniqueidcheck > 1000000 Then
;ID is not a valid ID to check
Else
If $tempobjectuniqueidcheck > 100000 Then
;Found a player on screen.
If $tempobjectuniqueidcheck = $CHARACTER_ID Then
;Found Character ID do nothing keep scanning.
Else
;Found player on screen
Addhistory("Found a player on screen!")
If GUICtrlRead($CHK_ANTIKS) = 1 Then
$PLAYER_TIME_OUT = 0
$PLAYER_ON_SCREEN = 1
Return
EndIf
Endif
Else; if $tempobjectuniqueidcheck > 100000 Then
;Found a target ID to check.
If $LastTarget = 0 And $PLAYER_ON_SCREEN = 0 And $LOOT_ITEM = 0 Then
$CHECK_TYPE = $tempobjecttypecheck
$CHECK_ID = $tempobjectuniqueidcheck
TargetScan()
EndIf
EndIf
EndIf ; if $tempobjectuniqueidcheck < 10000000 Then
EndIf;loot endif
EndFunc
Func AttackID($CHECK_ID,$CHECK_TYPE)
local $testbattlestate = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0xCC,$PROCESS_INFORMATION)+ 0x2C,$PROCESS_INFORMATION)+ 0x70,$PROCESS_INFORMATION)
If $testbattlestate = 8 Or $testbattlestate = 1 Then
;Still casting skill
return
EndIf
;Attack portal if on wrong map.
If $CHECK_TYPE = 45 Then
;Clear Target entering portal.
$LastTarget = 0
_MemoryWrite($SCREEN_CURSOR_X, $PROCESS_INFORMATION,$ClientScreenSizeX + $ClientScreenSizeX )
_MemoryWrite($SCREEN_CURSOR_Y ,$PROCESS_INFORMATION, 0)
_MemoryWrite($PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH, $PROCESS_INFORMATION, 748)
_MemoryWrite($LAST_TARGET_ASSEMBLY_SWITCH, $PROCESS_INFORMATION, 139, 'byte')
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_UNIQUE_ATTACK_ID, $CHECK_ID)
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_LAST_TARGET_UNIQUE_ID, $CHECK_ID)
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_ATTACKING_MODE, 1)
;Send mouse click.
_SendMessage($hWnd, $WM_LBUTTONDOWN)
sleep(10)
_SendMessage($hWnd, $WM_LBUTTONUP)
Return
EndIf
;If there is a target attack it.
If $LastTarget > 0 Then
_MemoryWrite($PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH, $PROCESS_INFORMATION, 748)
_MemoryWrite($LAST_TARGET_ASSEMBLY_SWITCH, $PROCESS_INFORMATION, 139, 'byte')
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_UNIQUE_ATTACK_ID, $LastTarget)
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_LAST_TARGET_UNIQUE_ID, $LastTarget)
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_ATTACKING_MODE, 1)
If $SKILL_COUNT > IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_UBOUND_KEY, 1) Then
$SKILL_COUNT = 1
Else
local $skilltimes = IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_TIMES_KEY & $SKILL_COUNT, "1")
If $skilltimes = 0 Then
ControlSend($hWnd, "", "", IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY,$CFG_SKILL_COMBO_KEY & $SKILL_COUNT , "--"))
Else
If $SKILL_TIMES >= $skilltimes Then
$SKILL_COUNT = $SKILL_COUNT + 1
$SKILL_TIMES = 0
Return
Else
$SKILL_TIMES = $SKILL_TIMES + 1
ControlSend($hWnd, "", "", IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY,$CFG_SKILL_COMBO_KEY & $SKILL_COUNT , "--"))
EndIf
EndIf
EndIf
_SendMessage($hWnd, $WM_LBUTTONDOWN)
sleep(10)
_SendMessage($hWnd, $WM_LBUTTONUP)
; _MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_ATTACKING_MODE, 0)
Return
EndIf
EndFunc
Func Loot($LOOT_ID)
;Set mouse to center of screen.
_MemoryWrite($SCREEN_CURSOR_X, $PROCESS_INFORMATION,$ClientScreenSizeX)
_MemoryWrite($SCREEN_CURSOR_Y , $PROCESS_INFORMATION,$ClientScreenSizeY)
;Switch assebly so that when hovering over player loot Unique ID can be used to check loot name.
_MemoryWrite($LAST_TARGET_ASSEMBLY_SWITCH, $PROCESS_INFORMATION, 139, 'byte')
;Change switch address back to normal so that an ID can be targeted.
_MemoryWrite($PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH, $PROCESS_INFORMATION, 0xF0)
;Set the loot Unique ID to check.
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_LAST_TARGET_UNIQUE_ID, $LOOT_ID)
;Sleep time for checking item name.
sleep(5)
local $temptext = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0xCC, $PROCESS_INFORMATION)+ 0x4, $PROCESS_INFORMATION)+ 0x2B4, $PROCESS_INFORMATION)+ 0x74, $PROCESS_INFORMATION)+ 0x0, $PROCESS_INFORMATION, 'char[29]')
local $temptextfourbyte = _MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead(_MemoryRead($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION)+ 0xCC, $PROCESS_INFORMATION)+ 0x4, $PROCESS_INFORMATION)+ 0x2B4, $PROCESS_INFORMATION)+ 0x74, $PROCESS_INFORMATION)+ 0x0, $PROCESS_INFORMATION)
local $temptextfourbyte2 = _MemoryRead($temptextfourbyte, $PROCESS_INFORMATION, 'char[29]')
For $i = 0 to $LLISTCOUNT -1
local $temptext2 = StringTrimRight($temptext, 7)
local $temptext3 = StringTrimRight($temptextfourbyte2, 7)
If $temptext2 = $LOOTLIST[$i] Then
addhistory("looting")
addhistory($temptext2)
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_LAST_TARGET_UNIQUE_ID, $LOOT_ID)
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_UNIQUE_ATTACK_ID, $LOOT_ID)
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_SET_WALK_TO_LOOT_ID, $LOOT_ID)
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_ACTIVATE_WALK_TO_LOOT, 2)
$LOOT_ID = 0
$LOOT_ON_LIST_CHECK = 1
_MemoryWrite($PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH, $PROCESS_INFORMATION, 0x2EC)
sleep(10)
ElseIF $temptext3 = $LOOTLIST[$i] Then
addhistory("looting")
addhistory($temptext3)
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_LAST_TARGET_UNIQUE_ID, $LOOT_ID)
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_UNIQUE_ATTACK_ID, $LOOT_ID)
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_SET_WALK_TO_LOOT_ID, $LOOT_ID)
_MemoryPointerWrite($INTERACTION_BASE_ADDRESS, $PROCESS_INFORMATION, $OFFSET_ACTIVATE_WALK_TO_LOOT, 2)
$LOOT_ID = 0
$LOOT_ON_LIST_CHECK = 1
sleep(10)
_MemoryWrite($PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH, $PROCESS_INFORMATION, 0x2EC)
Else
;Not on loot list.
Endif
If $i = $LLISTCOUNT Then ExitLoop
Next
EndFunc
Func Move($X,$Y)
local $XRandom = $X
local $YRandom = $Y
If $movexycount = 0 Then
$movexycount = $movexycount +1
ElseIf $movexycount = 1 Then
addhistory("moving left")
$XRandom = $X - 6
$YRandom = $Y
$tempX = $ClientScreenSizeX - 20
$tempY = $ClientScreenSizeY
ElseIf $movexycount = 2 Then
addhistory("Moving North Left")
$XRandom = $X - 6
$YRandom = $Y + 6
$tempX = $ClientScreenSizeX - 20
$tempY = $ClientScreenSizeY + 20
ElseIf $movexycount = 3 Then
addhistory("Moving North")
$XRandom = $X
$YRandom = $Y + 6
$tempX = $ClientScreenSizeX
$tempY = $ClientScreenSizeY - 50
ElseIf $movexycount = 4 Then
addhistory("Moving North Right")
$XRandom = $X + 6
$YRandom = $Y + 6
$tempX = $ClientScreenSizeX + 50
$tempY = $ClientScreenSizeY - 50
ElseIf $movexycount = 5 Then
addhistory("Moving Right")
$XRandom = $X + 6
$YRandom = $Y
$tempX = $ClientScreenSizeX + 50
$tempY = $ClientScreenSizeY
ElseIf $movexycount = 6 Then
addhistory("Moving South Right")
$XRandom = $X + 6
$YRandom = $Y - 6
$tempX = $ClientScreenSizeX + 50
$tempY = $ClientScreenSizeY - 50
ElseIf $movexycount = 6 Then
addhistory("Moving North")
$XRandom = $X
$YRandom = $Y - 6
$tempX = $ClientScreenSizeX
$tempY = $ClientScreenSizeY - 50
ElseIf $movexycount = 7 Then
addhistory("Moving South")
$XRandom = $X
$YRandom = $Y - 6
$tempX = $ClientScreenSizeX
$tempY = $ClientScreenSizeY + 50
ElseIf $movexycount = 8 Then
addhistory("Moving North Left")
$XRandom = $X - 6
$YRandom = $Y - 6
$tempX = $ClientScreenSizeX -50
$tempY = $ClientScreenSizeY - 50
EndIf
_MemoryWrite($PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH, $PROCESS_INFORMATION, 0x2EC)
_MemoryWrite($PREVENT_TARGET_CHANGE_ASSEMBLY_SWITCH2, $PROCESS_INFORMATION, 139, 'byte')
_MemoryWrite($MOVE_EDIT_ASSEMBLY_X_LOCATION, $PROCESS_INFORMATION, 139, 'byte')
_MemoryWrite($MOVE_EDIT_ASSEMBLY_Y_LOCATION, $PROCESS_INFORMATION, 139, 'byte')
_MemoryWrite($SCREEN_CURSOR_X, $PROCESS_INFORMATION, $tempX)
_MemoryWrite($SCREEN_CURSOR_Y ,$PROCESS_INFORMATION, $tempY)
sleep(10)
_MemoryWrite($MOVE_WORLD_X, $PROCESS_INFORMATION, $XRandom)
_MemoryWrite($MOVE_WORLD_Y, $PROCESS_INFORMATION, $YRandom)
_SendMessage($hWnd, $WM_LBUTTONDOWN)
sleep(10)
_SendMessage($hWnd, $WM_LBUTTONUP)
_MemoryWrite($MOVE_EDIT_ASSEMBLY_X_LOCATION, $PROCESS_INFORMATION, 137, 'byte')
_MemoryWrite($MOVE_EDIT_ASSEMBLY_Y_LOCATION, $PROCESS_INFORMATION, 137, 'byte')
EndFunc
Func AddHistory($TEXT)
If _GUICtrlEdit_GetLineCount($LOG) > 14 Then
GuiCtrlSetData($LOG, "")
EndIf
$OLDLOGS = guictrlread($LOG)
GuiCtrlSetData($LOG, $TEXT & $OLDLOGS)
EndFunc ;==>
Func StartOrStop()
If $STOP = True Then
GUICtrlSetData($BUTTON_START, "Stop")
GUICtrlSetOnEvent($BUTTON_START, "StartOrStop")
GUICtrlSetData($MenuItem4, "Stop")
GUICtrlSetOnEvent($MenuItem4, "StartOrStop")
GuiCtrlSetData($LOG, "")
AddHistory("[[[MMOKORE Started]]]")
$STOP = False
Else
GUICtrlSetData($BUTTON_START, "Start")
GUICtrlSetOnEvent($BUTTON_START, "StartOrStop")
GUICtrlSetData($MenuItem4, "Start")
GUICtrlSetOnEvent($MenuItem4, "StartOrStop")
AddHistory("[[[MMOKORE Stopped]]]")
$STOP = True
EndIf
EndFunc ;==>StartOrStop
Func WindowCloseClicked()
local $softwarewinpos
$softwarewinpos = WinGetPos($SOFTWARE_TITLE)
If $softwarewinpos[0] <> 32000 Then
IniWrite($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_MMOKORE_LAST_GUI_X, $softwarewinpos[0])
EndIf
If $softwarewinpos[1] <> 32000 Then
IniWrite($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_MMOKORE_LAST_GUI_Y, $softwarewinpos[1])
EndIf
Exit
EndFunc
Func UpdateGuiData()
;Set updated values
$HP = _MemoryRead($CHARACTER_CURRENT_HEALTH, $PROCESS_INFORMATION)
$MAXHP = _MemoryRead($CHARACTER_MAX_HEALTH, $PROCESS_INFORMATION)
$SP = _MemoryRead($CHARACTER_CURRENT_SPELL_POWER, $PROCESS_INFORMATION)
$MAXSP = _MemoryRead($CHARACTER_MAX_SPELL_POWER, $PROCESS_INFORMATION)
$CHARACTER_X = _MemoryRead($CHARACTER_WORLD_X, $PROCESS_INFORMATION)
$CHARACTER_Y = _MemoryRead($CHARACTER_WORLD_Y, $PROCESS_INFORMATION)
local $LVL = _MemoryRead($CHARACTER_BASE_LEVEL, $PROCESS_INFORMATION)
local $NAME = _MemoryRead($CHARACTER_NAME, $PROCESS_INFORMATION, 'char[30]')
local $STR = _MemoryRead($CHARACTER_STR, $PROCESS_INFORMATION)
local $DEX = _MemoryRead($CHARACTER_DEX, $PROCESS_INFORMATION)
local $VIT = _MemoryRead($CHARACTER_VIT, $PROCESS_INFORMATION)
local $MAG = _MemoryRead($CHARACTER_INT, $PROCESS_INFORMATION)
local $SPIRIT = _MemoryRead($CHARACTER_LUK, $PROCESS_INFORMATION)
local $GOLD = _MemoryRead($CHARACTER_MAIN_CURRENCY, $PROCESS_INFORMATION)
;UPDATE GUI. Some may not be used yet.
;Check and set Anti Kill Steal toggle box.
If GUICtrlRead($CHK_ANTIKS) <> IniRead($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_EXTRAS_AKS_KEY, "0") Then
IniWrite($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_EXTRAS_AKS_KEY, GUICtrlRead($CHK_ANTIKS))
EndIf
;Check and set PvM toggle box.
If GUICtrlRead($CHK_HBN) <> IniRead($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_EXTRAS_HBID_KEY, "0") Then
IniWrite($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_EXTRAS_HBID_KEY, GUICtrlRead($CHK_HBN))
EndIf
;Check and set PvP toggle box.
If GUICtrlRead($CHK_PVP) <> IniRead($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_EXTRAS_PVP_KEY, "0") Then
IniWrite($SOFTWARE_CONFIG, $CFG_TOGGLEBOX_ROOT_KEY, $CFG_EXTRAS_PVP_KEY, GUICtrlRead($CHK_PVP))
EndIf
;Character information GUI update.
If GUICtrlRead($Label_NAME) <> $NAME Then
GUICtrlSetData($Label_NAME, $NAME)
EndIf
If GUICtrlRead($Label_LVL) <> $LVL Then
GUICtrlSetData($Label_LVL, $LVL)
EndIf
If GUICtrlRead($Perc_HP) <> $HP/$MAXHP * 100 Then
GUICtrlSetData($Perc_HP, $HP/$MAXHP * 100)
GUICtrlSetData($Label_HP, StrAddComma($HP) & "/" & StrAddComma($MAXHP))
EndIf
If GUICtrlRead($Perc_SP) <> $SP/$MAXSP * 100 Then
GUICtrlSetData($Perc_SP, $SP/$MAXSP * 100)
GUICtrlSetData($Label_SP, StrAddComma($SP) & "/" & StrAddComma($MAXSP))
EndIf
If GUICtrlRead($Label_LVL) = 0 Then
GUICtrlSetData($Label_LVL, $LVL)
EndIf
If GUICtrlRead($Label_NAME) = "" Then
Else
GUICtrlSetData($Label_XY, " " & $CHARACTER_X & " " & "/" & " " & $CHARACTER_Y )
EndIf
If GUICtrlRead($Label_STR) <> $STR Then
GUICtrlSetData($Label_STR, $STR)
EndIf
If GUICtrlRead($Label_DEX) <> $DEX Then
GUICtrlSetData($Label_DEX, $DEX)
EndIf
If GUICtrlRead($Label_VIT) <> $VIT Then
GUICtrlSetData($Label_VIT, $VIT)
EndIf
If GUICtrlRead($Label_MAG) <> $MAG Then
GUICtrlSetData($Label_MAG, $MAG)
EndIf
If GUICtrlRead($Label_SPIRIT) <> $SPIRIT Then
GUICtrlSetData($Label_SPIRIT, $SPIRIT)
EndIf
If GUICtrlRead($Label_GOLD) <> $GOLD Then
GUICtrlSetData($Label_GOLD, $GOLD)
EndIf
;NOT IMPLEMENTED YET.
;If Not $TAR Then
;If GUICtrlRead($label_TarNAME) <> "None" Then
; GUICtrlSetData($Label_TarNAME, "None")
;EndIf
;If $MOVEING = 1 Then
; $LASTTARDIS = GetDistance(($X + 4000) / 10, ($Y + 5500) / 10, $LASTTARX[1], $LASTTARY[1]) ;($X + 4000) / 10 & "/" & ($Y + 5500) / 10 & "/" & $Z / 10
; GUICtrlSetData($Label_TarDIST, $LASTTARDIS & "m")
;Else
; GUICtrlSetData($Label_TarDIST, "0m")
;EndIf
;If IniRead($SOFTWARE_CONFIG, $CFG_EXTRAS_ROOT_KEY, $CFG_EXTRAS_ATTACKRAD_KEY, "0") = 0 Then
; GUICtrlSetData($LABEL_RADCENTER, "Infinite Radius")
;Else
; GUICtrlSetData($LABEL_RADCENTER, "Hunt By Radius ON")
;EndIf
;If GUICtrlRead($Label_TarSPEC) <> "None" Then
; GUICtrlSetData($Label_TarSPEC, "None")
;EndIf
;If GUICtrlRead($Perc_TarHP) <> "0" Then
; GUICtrlSetData($Perc_TarHP, "0")
;EndIf
; If GUICtrlRead($Label_TarHP) <> "0/0" Then
; GUICtrlSetData($Label_TarHP, "0/0")
;EndIf
;Else
;If GUICtrlRead($label_TarNAME) <> $TARNAME & " [" & $TARLVL & "]" Then
GUICtrlSetData($Label_TarNAME, " " & $LastTarget )
;EndIf
;If IniRead($SOFTWARE_CONFIG, $CFG_EXTRAS_ROOT_KEY, $CFG_EXTRAS_ATTACKRAD_KEY, "0") = 0 Then
; If GUICtrlRead($Label_TarDIST) <> $TARDIS Then
; GUICtrlSetData($Label_TarDIST, $TARDIS & "m")
; EndIf
;Else
;If GUICtrlRead($LABEL_TARDIST) <> $TARDIS & "m" Then
; If IniRead($SOFTWARE_CONFIG, $CFG_EXTRAS_ROOT_KEY, $CFG_EXTRAS_ATTACKRAD_KEY, "0") = 0 Then
; GUICtrlSetData($LABEL_RADCENTER, "0 = No Limit")
; Else
; GUICtrlSetData($LABEL_RADCENTER, "Dist: " & $TARHOMEDIS & "m")
; EndIf
; GUICtrlSetData($Label_TarDIST, $TARDIS & "m")
;EndIf
;EndIf
;If GUICtrlRead($Label_TarSPEC) <> $TARSPEC Then
; GUICtrlSetData($Label_TarSPEC, $TARSPEC)
;EndIf
;If GUICtrlRead($Label_TarHP) <> StrAddComma($TARHP) & "/" & StrAddComma($TARMAXHP) Then
; GUICtrlSetData($Perc_TarHP, $TARHP/$TARMAXHP * 100)
; GUICtrlSetData($Label_TarHP, StrAddComma($TARHP) & "/" & StrAddComma($TARMAXHP))
;EndIf
;EndIf
EndFunc
Func StrAddComma($sStr, $sSeperator = -1, $sEnd = -1)
If $sSeperator = -1 Or $sSeperator = Default Then $sSeperator = ','
If $sEnd = -1 Or $sEnd = Default Then $sEnd = '.'
local $aNum = StringSplit($sStr, $sEnd), $nHold, $aSRE, $fUB, $iAdd
If UBound($aNum) > 2 Then
$aSRE = StringRegExp($aNum[1], '(\d+)(\d{3})', 3)
$fUB = True
Else
$aSRE = StringRegExp($sStr, '(\d+)(\d{3})', 3)
EndIf
If UBound($aSRE) = 2 Then
While IsArray($aSRE)
$nHold = $sSeperator & $aSRE[1] & $nHold
$aSRE = StringRegExp($aSRE[0], '(\d+)(\d{3})', 3)
$iAdd += 1
WEnd
EndIf
If $fUB And $nHold Then
Return SetError(0, 0, StringTrimRight($sStr, ($iAdd + 1) * 3) & $nHold & $sEnd & $aNum[2])
ElseIf $nHold Then
Return SetError(0, 0, StringTrimRight($sStr, $iAdd * 3) & $nHold)
EndIf
Return SetError(1, 0, $sStr)
EndFunc
Func autopotionstart()
If $AutoPotionGuiFlag = 0 Then
Global $FORM_LIFESUPPORT = GUICreate("Life Support", 445, 140, -1, -1, -1, -1, $MMOASSIST)
GUISetOnEvent($GUI_EVENT_CLOSE, "WindowLifeSupportCloseClicked")
GUISwitch($FORM_LIFESUPPORT)
GUISetBkColor(0x000000)
Global $GROUP_AUTOPOT = GUICtrlCreateGroup("Automatic Pot", 0, 0, 445, 135)
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($GROUP_AUTOPOT), "wstr", 0, "wstr", 0)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
;Auto-Pot HP1
Global $CHECK_AUTOPOT_FLAG_HP1 = GUICtrlCreateCheckbox("Auto-Pot HP", 5, 15, 90, 20)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CHECK_AUTOPOT_FLAG_HP1), "wstr", 0, "wstr", 0)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x000000)
If IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP1CheckBox", "4") = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
Global $SLIDE_AUTOPOT_HP1 = GUICtrlCreateSlider(5, 40, 100, 20)
GUICtrlSetData(-1,IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP1Slider", "100"))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetLimit(-1, 100, 0)
GUICtrlCreateLabel("0 50 100% HP", 10, 65, 120, 20)
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateLabel("Key:", 5, 90, 50, 20)
GUICtrlSetColor(-1, 0xC0C0C0)
Global $AUTOPOT_HP1_KEY = GUICtrlCreateCombo(IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP1Key", "--"), 30, 90, 45, 20)
GUICtrlSetData(-1, $KEYCODE , IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP1Key", "--"))
;Auto-Pot HP2
Global $CHECK_AUTOPOT_FLAG_HP2 = GUICtrlCreateCheckbox("Auto-HP 2", 140, 15, 90, 20) ;+145
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CHECK_AUTOPOT_FLAG_HP2), "wstr", 0, "wstr", 0)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
If IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP2CheckBox", "0") = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
Global $SLIDE_AUTOPOT_HP2 = GUICtrlCreateSlider(140, 40, 100, 20)
GUICtrlSetData(-1, IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP2Slider", "0"))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetLimit(-1, 100, 0)
GUICtrlCreateLabel("0 50 100% HP", 145, 65, 120, 20)
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateLabel("Key:", 140, 90, 50, 20)
GUICtrlSetColor(-1, 0xC0C0C0)
Global $AUTOPOT_HP2_KEY = GUICtrlCreateCombo(IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP2Key", "--"), 165, 90, 45, 20)
GUICtrlSetData(-1, $KEYCODE, IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP2Key", "0"))
;Auto-Pot SP
Global $CHECK_AUTOPOT_FLAG_SP = GUICtrlCreateCheckbox("Auto-Pot SP", 275, 15, 90, 20)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($CHECK_AUTOPOT_FLAG_SP), "wstr", 0, "wstr", 0)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0x000000)
If IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionSPCheckBox", "4") = 1 Then
GUICtrlSetState(-1, $GUI_CHECKED)
Else
GUICtrlSetState(-1, $GUI_UNCHECKED)
EndIf
Global $SLIDE_AUTOPOT_SP = GUICtrlCreateSlider(275, 40, 100, 20)
GUICtrlSetData(-1, IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionSPSlider", "50"))
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetLimit(-1, 100, 0)
GUICtrlCreateLabel("0 50 100% SP", 280, 65, 120, 20)
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateLabel("Key:", 275, 90, 50, 20)
GUICtrlSetColor(-1, 0xC0C0C0)
Global $AUTOPOT_SP_KEY = GUICtrlCreateCombo( IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionSPKey", "--"), 300, 90, 45, 20)
GUICtrlSetData(-1, $KEYCODE, IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionSPKey", "--"))
$AutoPotionGuiFlag = 1
GUISetState(@SW_SHOW, $FORM_LIFESUPPORT)
Else
EndIf
EndFunc
Func WindowLifeSupportCloseClicked()
IniWrite($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP1CheckBox", GUICtrlRead($CHECK_AUTOPOT_FLAG_HP1))
IniWrite($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP1Slider", GUICtrlRead($SLIDE_AUTOPOT_HP1))
IniWrite($SOFTWARE_CONFIG, $CFG_AutoPotion_ROOT_KEY, "AutoPotionHP1Key", GUICtrlRead($AUTOPOT_HP1_KEY))
IniWrite($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP2CheckBox", GUICtrlRead($CHECK_AUTOPOT_FLAG_HP2))
IniWrite($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP2Slider", GUICtrlRead($SLIDE_AUTOPOT_HP2))
IniWrite($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP2Key", GUICtrlRead($AUTOPOT_HP2_KEY))
IniWrite($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionSPCheckBox", GUICtrlRead($CHECK_AUTOPOT_FLAG_SP))
IniWrite($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionSPSlider", GUICtrlRead($SLIDE_AUTOPOT_SP))
IniWrite($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionSPKey", GUICtrlRead($AUTOPOT_SP_KEY))
$AutoPotionGuiFlag = 0
GUIDelete($FORM_LIFESUPPORT)
EndFunc
Func CheckHP($HP,$MAXHP)
local $CurrentHP = $HP
local $UseHPPotionCheck = $CurrentHP/$MAXHP * 100
If $UseHPPotionCheck < IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP2Slider", 1) And IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP2CheckBox", 4) = 1 Then
ControlSend($hWnd, "", "", IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP2Key", "--"))
$TestHP = 1
ElseIf $UseHPPotionCheck < IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP1Slider", 1) And IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP1CheckBox", 4) = 1 Then
ControlSend($hWnd, "", "", IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionHP1Key", "--"))
$TestHP = 1
Else
$TestHP = 0
EndIf
EndFunc
Func CheckSP($SP, $MAXSP)
local $CurrentSP = $SP
If $CurrentSP = 0 Then
;do nothing sp potions on cool down
Else
local $UseSPPotionCheck = $CurrentSP/$MAXSP * 100
If $UseSPPotionCheck < IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionSPSlider", 1) And IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionSPCheckBox", 4) = 1 Then
ControlSend($hWnd, "", "", IniRead($SOFTWARE_CONFIG, $CFG_AUTOPOTION_ROOT_KEY, "AutoPotionSPKey", "--"))
EndIf
EndIf
EndFunc
Func Set_MobList()
If $MobListFormOpen = 1 Then
GUIDelete($FORM_MOBLIST)
EndIf
sleep(10)
$MobListFormOpen = 1
local $iniread = IniRead($SOFTWARE_CONFIG, "Target List", "Count", "0")
If $iniread = 0 Then
IniWrite($SOFTWARE_CONFIG, "Target List", "Target0", "No target set.")
IniWrite($SOFTWARE_CONFIG, "Target List", "Count", "0")
Else
$COUNT = 0
$TLISTCOUNT = IniRead($SOFTWARE_CONFIG, "Target List", "Count", "0")
Do
$TARGETLIST[$COUNT] = IniRead($SOFTWARE_CONFIG, "Target List", "Target"&$COUNT, "No target set.")
$COUNT = $COUNT + 1
sleep(10)
Until $COUNT = $TLISTCOUNT or $TLISTCOUNT = 0
EndIf
Global $FORM_MOBLIST = GUICreate("Target List", 260, 200, -1, -1, -1, -1, $MMOASSIST)
GUISetBkColor(0x000000)
Global $MobMenuItem1 = GUICtrlCreateMenu("&File")
Global $MobMenuItem4 = GUICtrlCreateMenuItem("Exit", $MobMenuItem1)
GUICtrlSetOnEvent(-1, "WindowMobListCloseClicked")
Global $MobMenuItem2 = GUICtrlCreateMenu("&Options")
Global $MobMenuItem5 = GUICtrlCreateMenuItem("Add To List", $MobMenuItem2)
GUICtrlSetOnEvent(-1, "SetMobList")
Global $MobMenuItem6 = GUICtrlCreateMenuItem("Reset List", $MobMenuItem2)
GUICtrlSetOnEvent(-1, "ResetMobList")
GUISetOnEvent($GUI_EVENT_CLOSE, "WindowMobListCloseClicked")
GUISwitch($FORM_MOBLIST)
Global $LABEL_LIST_MOB = GUICtrlCreateLabel("Current Target List (Max: 100)", 5, 5, 250, 20)
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlSetColor(-1, 0x00FF00)
Global $LIST_MOB = GUICtrlCreateListView("#|ID", 5, 0, 220, 190)
sleep(10)
$COUNT = 0
Do
GUICtrlCreateListViewItem($COUNT & ")|" & $TARGETLIST[$COUNT], $LIST_MOB)
$COUNT = $COUNT + 1
sleep(10)
Until $COUNT = $TLISTCOUNT or $TLISTCOUNT = 0
GUISetState(@SW_SHOW, $FORM_MOBLIST)
EndFunc
Func ResetMobList()
Dim $TARGETLIST[100]
$COUNT = 0
$TLISTCOUNT = IniRead($SOFTWARE_CONFIG, "Target List", "Count", "0")
Do
$TARGETLIST[$COUNT] = IniDelete($SOFTWARE_CONFIG, "Target List", "Target"&$COUNT)
$COUNT = $COUNT + 1
sleep(10)
Until $COUNT = $TLISTCOUNT or $TLISTCOUNT = 0
IniWrite($SOFTWARE_CONFIG, "Target List", "Count", "0")
$TARGETLIST[0] = "no targets added yet"
$TLISTCOUNT = 0
Set_MobList()
MsgBox(0, "List Reset", "The List Was Reset!")
EndFunc
Func RefreshMobList()
Set_MobList()
EndFunc
Func SetMobList()
Global $Form1AT = GUICreate("ENTER A UNIQUE ID/TYPE ID", 251, 161, -1, -1, BitXOR($GUI_SS_DEFAULT_GUI, $WS_MINIMIZEBOX))
Global $label1 = GUICtrlCreateLabel("Enter a unique ID for players/type ID for monsters", 10, 10)
Global $Input1AT = GUICtrlCreateInput("", 24, 96, 201, 21)
GUICtrlSetLimit(-1, 30)
Global $Button1AT = GUICtrlCreateButton("OK", 24, 128, 75, 25)
GUICtrlSetOnEvent(-1, "OKButton")
Global $Button2AT = GUICtrlCreateButton("Cancel", 152, 130, 75, 25)
GUICtrlSetOnEvent(-1, "CANCELButton")
GUISetState(@SW_SHOW)
EndFunc
Func OKButton()
local $checkempty = GUICtrlRead($Input1AT)
If $checkempty = "" Then
GUIDelete($Form1AT)
Else
$TARGETLIST[$TLISTCOUNT] = $checkempty
local $inikey = "Target List"
IniWrite($SOFTWARE_CONFIG, $inikey, "Target"&$TLISTCOUNT, $TARGETLIST[$TLISTCOUNT])
$TLISTCOUNT = $TLISTCOUNT + 1
IniWrite($SOFTWARE_CONFIG, $inikey, "Count", $TLISTCOUNT)
RefreshMobList()
addhistory($checkempty)
GUIDelete($Form1AT)
EndIf
EndFunc
Func CANCELButton()
GUIDelete($Form1AT)
EndFunc
Func CLOSEClicked()
GUIDelete($Form1AT)
EndFunc
func WindowMobListCloseClicked()
GUIDelete($FORM_MOBLIST)
EndFunc
Func Set_LootList()
If $LootListFormOpen = 1 Then
GUIDelete($FORM_LOOTLIST)
EndIf
sleep(10)
$LootListFormOpen = 1
local $iniread = IniRead($SOFTWARE_CONFIG, "Loot List", "Count", "0")
If $iniread = 0 Then
IniWrite($SOFTWARE_CONFIG, "Loot List", "Loot0", "No loot set.")
IniWrite($SOFTWARE_CONFIG, "Loot List", "Count", "0")
Else
$COUNT = 0
$LLISTCOUNT = IniRead($SOFTWARE_CONFIG, "Loot List", "Count", "0")
Do
$LOOTLIST[$COUNT] = IniRead($SOFTWARE_CONFIG, "Loot List", "Loot"&$COUNT, "No target set.")
$LOOTLISTTEXTCOUNT[$COUNT] = IniRead($SOFTWARE_CONFIG, "Loot List", "LootTextCount"&$COUNT, "No target set.")
$COUNT = $COUNT + 1
sleep(10)
Until $COUNT = $LLISTCOUNT or $LLISTCOUNT = 0
EndIf
Global $FORM_LOOTLIST = GUICreate("Loot List", 260, 200, -1, -1, -1, -1, $MMOASSIST)
GUISetBkColor(0x000000)
Global $MobMenuItem1 = GUICtrlCreateMenu("&File")
Global $MobMenuItem4 = GUICtrlCreateMenuItem("Exit", $MobMenuItem1)
GUICtrlSetOnEvent(-1, "WindowLootListCloseClicked")
Global $MobMenuItem2 = GUICtrlCreateMenu("&Options")
Global $MobMenuItem5 = GUICtrlCreateMenuItem("Add To List", $MobMenuItem2)
GUICtrlSetOnEvent(-1, "SetLootList")
Global $MobMenuItem6 = GUICtrlCreateMenuItem("Reset List", $MobMenuItem2)
GUICtrlSetOnEvent(-1, "ResetLootList")
GUISetOnEvent($GUI_EVENT_CLOSE, "WindowLootListCloseClicked")
GUISwitch($FORM_LOOTLIST)
Global $LABEL_LIST_LOOT = GUICtrlCreateLabel("Current Target List (Max: 100)", 5, 5, 250, 20)
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlSetColor(-1, 0x00FF00)
Global $LIST_LOOT = GUICtrlCreateListView("#|ID", 5, 0, 220, 190)
sleep(10)
$COUNT = 0
Do
GUICtrlCreateListViewItem($COUNT & ")|" & $LOOTLIST[$COUNT], $LIST_LOOT)
$COUNT = $COUNT + 1
sleep(10)
Until $COUNT = $LLISTCOUNT or $LLISTCOUNT = 0
GUISetState(@SW_SHOW, $FORM_LOOTLIST)
EndFunc
Func ResetLootList()
Dim $LOOTLIST[100]
Dim $LOOTLISTTEXTCOUNT[100]
$COUNT = 0
$LLISTCOUNT = IniRead($SOFTWARE_CONFIG, "Loot List", "Count", "0")
Do
$LOOTLIST[$COUNT] = IniDelete($SOFTWARE_CONFIG, "Loot List", "Loot"&$COUNT)
$LOOTLISTTEXTCOUNT[$COUNT] = IniDelete($SOFTWARE_CONFIG, "Loot List", "LootTextCount"&$COUNT)
$COUNT = $COUNT + 1
sleep(10)
Until $COUNT = $LLISTCOUNT or $LLISTCOUNT = 0
IniWrite($SOFTWARE_CONFIG, "Loot List", "Count", "no loot added yet")
$LOOTLIST[0] = "no loot added yet"
$LLISTCOUNT = 0
Set_LootList()
MsgBox(0, "List Reset", "The List Was Reset!")
EndFunc
Func RefreshLootList()
Set_LootList()
EndFunc
Func SetLootList()
Global $Form1AT = GUICreate("ENTER A LOOT ITEM NAME.", 251, 161, -1, -1, BitXOR($GUI_SS_DEFAULT_GUI, $WS_MINIMIZEBOX))
Global $label1 = GUICtrlCreateLabel("Spell the EXACT name of the item to pickup", 10, 10)
Global $Input1AT = GUICtrlCreateInput("", 24, 96, 201, 21)
GUICtrlSetLimit(-1, 30)
Global $Button1AT = GUICtrlCreateButton("OK", 24, 128, 75, 25)
GUICtrlSetOnEvent(-1, "LootOKButton")
Global $Button2AT = GUICtrlCreateButton("Cancel", 152, 130, 75, 25)
GUICtrlSetOnEvent(-1, "LootCANCELButton")
GUISetState(@SW_SHOW)
EndFunc
Func LootOKButton()
local $checkempty = GUICtrlRead($Input1AT)
If $checkempty = "" Then
GUIDelete($Form1AT)
Else
$LOOTLIST[$LLISTCOUNT] = $checkempty
IniWrite($SOFTWARE_CONFIG, "Loot List", "Loot"&$LLISTCOUNT, $LOOTLIST[$LLISTCOUNT])
IniWrite($SOFTWARE_CONFIG, "Loot List", "LootTextCount"&$LLISTCOUNT, StringLen($checkempty))
$LLISTCOUNT = $LLISTCOUNT + 1
IniWrite($SOFTWARE_CONFIG, "Loot List", "Count", $LLISTCOUNT)
RefreshLootList()
GUIDelete($Form1AT)
EndIf
EndFunc
Func LootCANCELButton()
GUIDelete($Form1AT)
EndFunc
Func LootCLOSEClicked()
GUIDelete($Form1AT)
EndFunc
Func WindowLootListCloseClicked()
GUIDelete($FORM_LOOTLIST)
EndFunc
Func SelectProcessId()
Global $listview
$listGUI = GUICreate("Select a client from the list. ", 400, 200, 100, 200, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close_Main")
$listview = GUICtrlCreateListView("Processes", 10, 10, 200, 150)
_GUICtrlListView_SetColumnWidth($listview, 0, 150)
Global $PList = ProcessList ( "Ragexe.exe" )
local $PListCount = UBound($PList, $UBOUND_ROWS)
;check if a client is running
If $PList[0][0] = 0 Then
MsgBox($MB_SYSTEMMODAL, "No Client", "Please run the game first.", 10)
Exit
Else
For $i = 1 To $PList[0][0]
local $Pid = $PList[$i][1]
GUICtrlCreateListViewItem($Pid, $listview)
Next
$BtnSelect = GUICtrlCreateButton("Select", 100, 165, 80, 30)
GUICtrlSetOnEvent(-1, "SelectItem")
GUISetState()
EndIf
EndFunc
Func SelectItem()
$sItem = GUICtrlRead(GUICtrlRead($listview))
Global $sItem = 0
$sItem = StringTrimRight($sItem, 1) ; Will remove the pipe "|" from the end of the string
_GetHwndFromPID($sItem)
Global $PROCESS_INFORMATION = _MemoryOpen($sItem)
$NAME = $sItem
If GUICtrlRead($Label_NAME) <> $NAME Then
GUICtrlSetData($Label_NAME, $NAME)
EndIf
GUIDelete()
EndFunc
Func _GetHwndFromPID($PID)
$hWnd = 0
$stPID = DllStructCreate("int")
Do
$winlist2 = WinList()
For $i = 1 To $winlist2[0][0]
If $winlist2[$i][0] <> "" Then
DllCall("user32.dll", "int", "GetWindowThreadProcessId", "hwnd", $winlist2[$i][1], "ptr", DllStructGetPtr($stPID))
If DllStructGetData($stPID, 1) = $PID Then
$hWnd = $winlist2[$i][1]
ExitLoop
EndIf
EndIf
Next
Sleep(100)
Until $hWnd <> 0
Return $hWnd
EndFunc
Func SetSkills()
If $SKILLLISTFORMOPEN = 1 Then
GUIDelete($FORM_SKILL)
EndIf
sleep(10)
$SKILLLISTFORMOPEN = 1
Global $FORM_SKILL = GUICreate("Skills", 250, 400, -1, -1, -1, -1, $MMOASSIST)
GUISetOnEvent($GUI_EVENT_CLOSE, "WindowSkillCloseClicked")
GUISwitch($FORM_SKILL)
GUISetBkColor(0x000000)
GUISetFont(9, 800, 0, "MS Sans Serif")
Global $HISTORY = GUICtrlCreateGroup("Skill List", 0, 0, 250, 399)
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($HISTORY), "wstr", 0, "wstr", 0)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
GUICtrlSetTip(-1, "Skills List")
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)
GUISetFont(8, 800, 0, "Arial")
Global $BUTTON_ADD_SKILL = GUICtrlCreateButton("Add", 75, 28, 50, 18)
GUICtrlSetOnEvent(-1, "AddSkill")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBKColor(-1, 0x000000)
Global $BUTTON_REMOVE_SKILL = GUICtrlCreateButton("Remove", 130, 28, 50, 18)
GUICtrlSetOnEvent(-1, "RemoveSkill")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBKColor(-1, 0x000000)
Global $BUTTON_SAVE_SKILLS = GUICtrlCreateButton("Save", 185, 28, 50, 18)
GUICtrlSetOnEvent(-1, "SaveSkills")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBKColor(-1, 0x000000)
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)
GUICtrlSetColor(-1, 0xC0C0C0)
$SCOMBOKEY[$SKCOUNT] = GUICtrlCreateCombo("", 50, 55 + ($SKCOUNT - 1) * 42, 60, 150)
GUICtrlSetData(-1, $KEYCODE, IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_COMBO_KEY & $SKCOUNT, "{F1}"))
$LABELSK2[$SKCOUNT] = GUICtrlCreateLabel("Cast", 120, 57 + ($SKCOUNT - 1) * 42, 50, 20)
GUICtrlSetColor(-1, 0xC0C0C0)
$SDELAY[$SKCOUNT] = GUICtrlCreateInput(IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_TIMES_KEY & $SKCOUNT, "1"), 155, 55 + ($SKCOUNT - 1) * 42, 40, 20)
$LABELSK3[$SKCOUNT] = GUICtrlCreateLabel("Times", 200, 57 + ($SKCOUNT - 1) * 42, 35, 20)
GUICtrlSetColor(-1, 0xC0C0C0)
Next
$SKCOUNT = $SKCOUNT - 1
GUISetState(@SW_SHOW, $FORM_SKILL)
EndFunc
Func AddSkill()
GUISwitch($FORM_SKILL)
$SKCOUNTCFG = $SKCOUNTCFG + 1
If $SKCOUNTCFG >= 9 Then
$SKCOUNTCFG = 9
MsgBox(0, "Error", "Max Skills Reached")
Else
$LABELSK1[$SKCOUNTCFG] = GUICtrlCreateLabel("Key", 20, 57 + ($SKCOUNTCFG - 1) * 42, 30, 20)
GUICtrlSetColor(-1, 0xC0C0C0)
$SCOMBOKEY[$SKCOUNTCFG] = GUICtrlCreateCombo("", 50, 55 + ($SKCOUNTCFG - 1) * 42, 60, 150)
GUICtrlSetData(-1, $KEYCODE, IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_COMBO_KEY & $SKCOUNTCFG, "{F1}"))
$LABELSK2[$SKCOUNTCFG] = GUICtrlCreateLabel("Delay", 120, 57 + ($SKCOUNTCFG - 1) * 42, 50, 20)
GUICtrlSetColor(-1, 0xC0C0C0)
$SDELAY[$SKCOUNTCFG] = GUICtrlCreateInput(IniRead($SOFTWARE_CONFIG, $CFG_SKILLS_ROOT_KEY, $CFG_SKILL_TIMES_KEY & $SKCOUNTCFG, "1"), 155, 55 + ($SKCOUNTCFG - 1) * 42, 40, 20)
$LABELSK3[$SKCOUNTCFG] = GUICtrlCreateLabel("secs", 200, 57 + ($SKCOUNTCFG - 1) * 42, 35, 20)
GUICtrlSetColor(-1, 0xC0C0C0)
EndIf
EndFunc
Func RemoveSkill()
GUISwitch($FORM_SKILL)
If $SKCOUNTCFG < 2 Then
$SKCOUNTCFG = 1
MsgBox(0, "Error", "Minimum Skills Reached")
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
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_TIMES_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_TIMES_KEY & $COUNT, GUICtrlRead($SDELAY[$COUNT]))
sleep(250)
Until $COUNT >= $MAX
GUIDelete($FORM_SKILL)
EndFunc
Func WindowSkillCloseClicked()
GUIDelete($FORM_SKILL)
EndFunc
Func OnlineSupport()
EndFunc
