Tailor Made Tools/Programs for You - AHK

; <COMPILER: v1.0.47.3>


msgbox, Please login your character`nPress OK to continue.

Process, Exist,Conquer.exe
pid = %ErrorLevel%
ProcessHandle := DllCall("OpenProcess", "int", 2035711, "char", 0, "UInt", PID, "UInt")

if pid = 0
{
    MsgBox, Can not find Conquer.exe
    exitapp
    return
}


WinActivate, ahk_pid %pid%
WinGetTitle, Title, [C
WinGetActiveStats,tt , Width, Height, Xpo, Ypo
ver = %A_OSVersion%

FileInstall, C:\Documents and Settings\Compaq_Administrator\Desktop\color1.bmp, %A_ProgramFiles%\color1.bmp
Gui -Caption
Gui, Add, picture,x0 y0,%A_ProgramFiles%\color1.bmp
Gui, Show,x0 y0 w95 h10
PixelGetColor, healthhex, 10, 4
PixelGetColor, hphex, 35, 4
PixelGetColor, mphex, 60, 4
PixelGetColor, pinkhex, 85, 4
gui, destroy

InputBox, name, Enter MainCharacter Name, , , 250,100
SetBatchLines, 1000ms

count=1
counter=1
addressS=0x500000

addressSbb:=addressSb
StringSplit, nameArray, name


Loop, 4
{
this_name := nameArray%counter%
Transform, this_name2, asc, %this_name%
SetFormat, integer, hex
this_name2 += 0
StringReplace, this_name2, this_name2, 0x,  , All
namehex=%this_name2%%namehex%
SetFormat, integer, d
counter++
}

loop, 4
{
this_name := nameArray%counter%
Transform, this_name2, asc, %this_name%
SetFormat, integer, hex
this_name2 += 0
StringReplace, this_name2, this_name2, 0x,  , All
namehex2=%this_name2%%namehex2%
SetFormat, integer, d
counter++
}

namehex2=0x%namehex2%
namehex=0x%namehex%

SetFormat, integer, hex

loop 10
{
Tooltip, Searching NameAddress,1,1
}

loop 700000
{

addressS++
VarSetCapacity(outputA, 4)
DllCall("ReadProcessMemory", "UInt", ProcessHandle, "UInt", addressS, "Uint*", OutputA, "Uint", 4, "Uint *", 0)

if OutputA = %namehex%
{
addressS2:=addressS + 4
VarSetCapacity(outputB, 4)
DllCall("ReadProcessMemory", "UInt", ProcessHandle, "UInt", addressS2, "Uint*", OutputB, "Uint", 4, "Uint *", 0)
if OutputB = %namehex2%
{
Tooltip,
goto, Start
}

}

}

msgbox, Error`nMain character can not be found!
exitapp
return

Start:
WinGet,idco, ID,%Title%

SetFormat, integer, hex
addressS3:=addressS + 48
addressS4:=addressS3 + 4
SetFormat, integer, d
VarSetCapacity(MainX, 4)
DllCall("ReadProcessMemory", "UInt", ProcessHandle, "UInt", addressS3, "Uint*", MainX, "Uint", 4, "Uint *", 0)
VarSetCapacity(MainY, 4)
DllCall("ReadProcessMemory", "UInt", ProcessHandle, "UInt", addressS4, "Uint*", MainY, "Uint", 4, "Uint *", 0)
ControlClick, x200 y270,ahk_id %idco%,,left
ControlClick, x200 y270,ahk_id %idco%,,left
sleep 300
ControlClick, x600 y330,ahk_id %idco%,,left
ControlClick, x600 y330,ahk_id %idco%,,left
sleep 300

VarSetCapacity(mX, 4)
DllCall("ReadProcessMemory", "UInt", ProcessHandle, "UInt", addressS3, "Uint*", mX, "Uint", 4, "Uint *", 0)
VarSetCapacity(mY, 4)
DllCall("ReadProcessMemory", "UInt", ProcessHandle, "UInt", addressS4, "Uint*", mY, "Uint", 4, "Uint *", 0)

BlockInput, on
if mX != %MainX%
{
chk = Yes
}
else
{
if mY = %MainY%
{
chk = No
}
else
{
chk = Yes
}
}

if Width > 900
{
co=1024x768
Xpo += 450
Ypo += 250
}
else
{
co=800x600
Xpo += 350
Ypo += 200
}



StringUpper, addressS, addressS
StringUpper, redhex, redhex
StringReplace, addressS, addressS, 0X, 0x, All
StringReplace, redhex, redhex, 0X, 0x, All

Menu, Tray, Icon, Shell32.dll, 44
Gui, +toolwindow +alwaysontop
Gui, Add, Text, x5 y10 w170 , OS: %ver%
Gui, Add, Text, x5 y+5 w170 , Client: %Title%-%co%
Gui, Add, Text, x5 y+5 w170 , NameAddress: %addressS%
Gui, Add, Text, x5 y+5 w170 , HealthHex: %healthhex%
Gui, Add, Text, x5 y+5 w170 , HPHex: %hphex%
Gui, Add, Text, x5 y+5 w170 , MPHex: %mphex%
Gui, Add, Text, x5 y+5 w170 , PinkHex: %pinkhex%
Gui, Add, Text, x5 y+5 w170 , ControlClick: %chk%

Gui, Show, x%Xpo% y%Ypo%, Debug
sleep 200
Send, {PrintScreen}
Gui, Hide
Run, mspaint.exe
sleep 500
Send, ^v
sleep 500
Send, ^v
BlockInput, off

msgbox, Debug complete!`nPlease provide screenshot in order for me to solve your problem.
Gui, restore
return
GuiClose:
ExitApp




^r::reload

msgbox, Ctrl+Q to pause
WinGet,id, ID,[Conquer2.0]

settimer, aa, 3000
return
aa:
ControlClick, x475 y760,ahk_id %id%,,right
sleep 1000
ControlClick, x100 y100,ahk_id %id%,,right
return

^q::pause