program New;
var clx, cly, x, y, ksm, ksoffsetx, ksoffsety, ksosx, ksosy:integer;
var monster, setclx, setcly, drop, dropcontrol:integer;

begin

monster:=1638350;

if (findwindowtitlepart('endless online', false)=false) then
begin
writeln('Endless Online is not running... Script Terminated.')
terminatescript;
end
cleardebug;
setclx:=641
setcly:=507
findwindowtitlepart('endless online', false)
wait(300)
GetClientDimensions(clx, cly)
writeln('Your Client size is  X: '+inttostr(clx)+'  -  Y:'+inttostr(cly))
ksosx:=setclx-clx
ksosy:=setcly-cly
writeln('Your Offset is      X: '+inttostr(ksosx)+'  -  Y:'+inttostr(ksosy))
ksoffsetx:=313-ksosx
ksoffsety:=489-ksosy
writeln('Your KS Detection is X: '+inttostr(ksoffsetx)+'  -  Y:'+inttostr(ksoffsety))

wait(750)
activateclient;

repeat
x:=randomrange(1, 640);
y:=randomrange(1, 350);
if findcolorspiral(x, y, monster, 10, 65, 630, 335)
then begin
cleardebug;
writeln('Auto Mage - By Extract - Attacking Monster')
keydown(113)
wait(50)
clickmouse(x, y, true)
wait(200)
keyup(113)
wait(1300)
end
until (monster=0)

end.