program AutoPots4_Joeyroyden;
var x, y, HpColor, Squareonpots, pots, OKButton,HealAt, CancelButton:integer;
begin

findwindowtitlepart('endless online', false)
activateclient;
wait(500)

HpColor:=16235924
Squareonpots:=32896
OkButton:=10079232
CancelButton:=6711039
HealAt:=192 //Lower this number if you want to heal when more damage has been taken
repeat


If ((Findcolorspiral(x, y, OkButton,350, 212, 365, 232))
and (Findcolorspiral(x, y, CancelButton,395, 207, 415, 217)))
then begin
Clickmouse(405, 217, true)
cleardebug
writeln ('Autopots v4 - By Joeyroyden')
writeln ('http://www.eobots-online.com')
writeln ('Prevented Trade/Party Window')
end  else begin
cleardebug
writeln ('Autopots v4 - By Joeyroyden')
writeln ('http://www.eobots-online.com')
writeln ('Checking for Trade/Party Window')
writeln ('Used '+Inttostr(pots)+' potions')
wait(50)
end

if(FindColorSpiral(x, y, HpColor, (Healat-1), 35, (healat+1), 37))then
begin
writeln ('Autopots v4 - By Joeyroyden')
writeln ('http://www.eobots-online.com')
writeln('Checking for Inttostr(pots)')
clickmouse(78, 364, true);wait(100)
If findcolorspiral(x, y, Squareonpots, 113, 365, 477, 471)then begin
clickmouse(x,y, true)
wait(8)
clickmouse(x,y, true)
writeln ('Autopots v4 - By Joeyroyden')
writeln ('http://www.eobots-online.com')
writeln ('Used 1 Potion Successfully')
pots:=pots+1
writeln ('Used '+Inttostr(pots)+' potions')
end else begin
writeln ('Autopots v4 - By Joeyroyden')
writeln ('http://www.eobots-online.com')
writeln ('No Pots Found');wait(1000)
end
end else
cleardebug
writeln ('Autopots v4 - By Joeyroyden')
writeln ('http://www.eobots-online.com')
writeln ('Checking HP')
writeln ('Used '+Inttostr(pots)+' potions')
wait(50)
until(isfkeydown(8))
end.