Video 1024 - 768
Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
#include <GUIConstants.au3>
Global $Paused
Global $home
Global $home2
Global $end
Global $end2
HotKeySet("{PAUSE}", "Pause")
HotKeySet("{ESC}", "Quit")
HotKeySet("{HOME}", "Scatter")
HotKeySet("{END}", "Scatter2")
HotKeySet("{INSERT}", "mobsearch")
HotKeySet("{DELETE}", "mobsearch2")
MsgBox(4096, "Conquer BOT", "'HOME': Scatter 'END': Scatter Mob auto'INSERT': Atk Mob 'DELETE': Atk Mob auto | 'PAUSE' Pause BOT | 'ESC' Quit BOT", 10)
MsgBox(4096, "Conquer BOT", "F2 = POT | F9 = Estamina | F10 = XpSkill", 10)
$resposta = InputBox("Life", "1 = 80% HP // 2 = 50% HP // 3 = 20% HP", "", " M1")
while 1=1
sleep(100)
if WinExists("[Conquer2.0]") then
If WinActive("[Conquer2.0]") Then
hp ()
Estamina()
xpskill()
EndIf
EndIf
WEnd
Func Scatter()
if WinExists("[Conquer2.0]") then
If WinActive("[Conquer2.0]") Then
$home = NOT $home
While $home
$Coords1=PixelSearch(200,100,825,600,12059395 ,5)
If NOT @error Then
MouseClick("Right",$Coords1[0],$Coords1[1]+30,1,0)
hp ()
Estamina()
xpskill()
EndIf
WEnd
EndIf
EndIf
EndFunc ;==> Scatter
Func Scatter2()
if WinExists("[Conquer2.0]") then
If WinActive("[Conquer2.0]") Then
$home2 = NOT $home2
While $home2
$Coords2=PixelSearch(200,100,825,600,12059395 ,5)
If NOT @error Then
MouseClick("Right",$Coords2[0],$Coords2[1]+30,1,0)
hp ()
Estamina()
xpskill()
Else
JumpAround()
hp ()
Estamina()
xpskill()
EndIf
WEnd
EndIf
EndIf
EndFunc ;==> Scatter
Func MobSearch()
if WinExists("[Conquer2.0]") then
If WinActive("[Conquer2.0]") Then
$end = NOT $end
While $end
$Coords3=PixelSearch(200,100,825,600,12059395 ,5)
If NOT @error Then
MouseClick("left",$Coords3[0],$Coords3[1]+30,1,0)
hp ()
Estamina()
xpskill()
EndIf
WEnd
EndIf
EndIf
EndFunc ;==> search mob()
Func MobSearch2()
if WinExists("[Conquer2.0]") then
If WinActive("[Conquer2.0]") Then
$end2 = NOT $end2
While $end2
$Coords4=PixelSearch(200,100,825,600,12059395 ,5)
If NOT @error Then
MouseClick("left",$Coords4[0],$Coords4[1]+30,1,0)
hp ()
Estamina()
xpskill()
Else
JumpAround()
hp ()
Estamina()
xpskill()
EndIf
WEnd
EndIf
EndIf
EndFunc ;==> search mob()
Func JumpAround()
$xrand=Random(0,820,1)
$yrand=Random(0,615,1)
MouseMove($xrand,$yrand,0)
Send("{CTRLDOWN}")
MouseClick("Left")
Send("{CTRLUP}")
hp ()
Estamina()
xpskill()
Sleep(2500)
EndFunc ;===> jump
Func hp()
if ($resposta = "1") Then
if (PixelGetColor(34,702) = 5926259) then
for $i = 1 to 4
send("{f2}")
sleep(100)
next
EndIf
EndIf
if ($resposta = "2") Then
if (PixelGetColor(34,718) = 5926259) then
for $i = 1 to 4
send("{f2}")
sleep(100)
next
EndIf
EndIf
if ($resposta = "3") Then
if (PixelGetColor(33,736) = 4874611) then
for $i = 1 to 4
send("{f2}")
sleep(100)
next
EndIf
EndIf
EndFunc ;==> HP
Func Estamina()
if (PixelGetColor(46,687) <> 528400) then
send("{f9}")
EndIf
EndFunc
Func xpskill()
if (PixelGetColor(1018,632) = 3230051) then
send("{f10}")
EndIf
EndFunc
Func Pause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('BOT "Pausado"',0,0)
WEnd
ToolTip("")
EndFunc
Func Quit()
Exit 0
EndFunc
:blah:
