program New;
var tm, ksm,magec, ksmy, ksmx, ksmw, ksu, ksd, ksr, ksl:integer;
var q,x,w,y, skip,z, monster1, monsterM,sx, sy, xx, yy: Integer;
var clx, cly, ksosx, ksosy, setclx, setcly, ksoffsetx, ksoffsety:integer;
var ksS, selfbox: TBox;
begin
monster1:= 1638350;
monsterM:= 1629877;
selfbox:=IntToBox(270, 144, 364, 199);
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(1000)
  activateclient;
repeaT
begin
z:=0
if findcolorspiral(x, y,9175295,306, 103, 332, 126) then begin
ksl:=0;
ksr:=0;
ksd:=0;
ksu:=0;
end
repeat
z:=z+1


if (
  ( findcolorspiral(x, y,9175295,306, 86, 334, 104) )
and( findcolorspiral (x, y, monster1, 275, 154, 303, 174)=false )
and( findcolorspiral (x, y, monster1, 336, 182, 363, 209)=false )
and( findcolorspiral (x, y, monster1, 323, 157, 350, 165)=false )
and( findcolorspiral (x, y, monster1, 288, 184, 300, 194)=false )
)
then begin
keydown(123);wait(500);keyup(123)
end



  writeln(inttostr(z)+'-'+inttostr(w))
if(z=100)then
begin
z:=0
keydown(123)
wait(200)
keyup(123)
end
if (findcolorspiral (x, y, monster1,275, 154, 303, 174)=false)then begin
ksl:=0; end
if ((findcolorspiral (x, y, monster1, 275, 154, 303, 174))and(ksl=0)) then    /////////////////////////////
begin
if(FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then
begin
writeln('Attempting to consume 1 potion')
clickmouse(78, 364, true)
clickmouse(462, 375, true)
wait(8)
clickmouse(462, 375, true)
sleep (350)
KEYDOWN(112)
WAIT(50)
KEYUP(112)
WAIT(20)
end else
begin
writeln('No Healing Required')
keydown(37)
wait(50)
keyup(37)
wait(20)
keydown(17)
wait(10)
keyup(17)
skip:=skip-1
magec:=0
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksl:=1
end
end
end
until ((findcolorspiral(x, y, monster1, 275, 154, 303, 174)=false)or(ksl=1))
keyup(17)
wait(200)
repeat
z:=z+1
writeln(inttostr(z)+'-'+inttostr(w))
if(z=100)then
begin
z:=0
keydown(123)
wait(200)
keyup(123)
end
if (findcolorspiral (x, y, monster1,336, 182, 363, 209)=false)then begin
ksr:=0
end
if ((findcolorspiral (x, y, monster1, 336, 182, 363, 209))and(ksr=0)) then  /////////////////////////////
begin
IF (FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then
begin
writeln('Attempting to consume 1 potion')
clickmouse(78, 364, true)
clickmouse(462, 375, true)
wait(8)
clickmouse(462, 375, true)
sleep (350)
KEYDOWN(112)
WAIT(50)
KEYUP(112)
WAIT(20)
end else
begin
writeln('No Healing Required')
keydown(39)
wait(50)
keyup(39)
wait(20)
keydown(17)
wait(10)
keyup(17)
skip:=skip-1
magec:=0
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksr:=1
end
end
end
until ((findcolorspiral(x, y, monster1, 336, 182, 363, 209)=false)or(ksr=1))
keyup(17)
wait(200)
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksm:=1
ksmx:=xx
ksmy:=yy
ksmw:=1
end
repeat
z:=z+1
  writeln(inttostr(z)+'-'+inttostr(w))
if(z=100)then
begin
z:=0
keydown(123)
wait(200)
keyup(123)
end
if (findcolorspiral (x, y, monster1,323, 157, 350, 165)=false)then begin
ksu:=0
end
if ((findcolorspiral (x, y, monster1, 323, 157, 350, 165))and(ksu=0)) then  ///////////////////////////////
begin
IF (FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then
begin
writeln('Attempting to consume 1 potion')
clickmouse(78, 364, true)
clickmouse(462, 375, true)
wait(8)
clickmouse(462, 375, true)
sleep (350)
KEYDOWN(112)
WAIT(50)
KEYUP(112)
WAIT(20)
end else
begin
writeln('No Healing Required')
keydown(38)
wait(50)
keyup(38)
wait(20)
keydown(17)
wait(10)
keyup(17)
skip:=skip-1
magec:=0
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksu:=1
end
end
end
until ((findcolorspiral(x, y, monster1, 323, 157, 350, 165)=false)or(ksu=1))
keyup(17)
wait(200)
repeat
z:=z+1
  writeln(inttostr(z)+'-'+inttostr(w))
if(z=100)then
begin
z:=0
keydown(123)
wait(200)
keyup(123)
end
if (findcolorspiral (x, y, monster1,288, 184, 300, 194)=false)then begin
ksd:=0
end
if ((findcolorspiral (x, y, monster1, 288, 184, 300, 194))and(ksd=0)) then
begin
IF (FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then
begin writeln('Attempting to consume 1 potion')
clickmouse(78, 364, true)
clickmouse(462, 375, true)
wait(8)
clickmouse(462, 375, true)
sleep (350)
KEYDOWN(112)
WAIT(50)
KEYUP(112)
WAIT(20)
end else
begin
writeln('No Healing Required')
keydown(40)
wait(50)
keyup(40)
wait(20)
keydown(17)
wait(10)
keyup(17)
skip:=skip-1
magec:=0
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksd:=1
end
end
end
until ((findcolorspiral(x, y, monster1, 288, 184, 300, 194)=false)or(ksd=1))
keyup(17)
end
if (findcolorspiral (x, y,monsterm, 13, 61, 627, 331)=false)then
begin
magec:=0
IF (GETCOLOR(201, 31)=16235924)then begin
repeat
wait(100)
KEYDOWN(115)
WAIT(800)
KEYUP(115)
WAIT(450)
until (((GETCOLOR(201, 31)=16235924)=false)
or (findcolorspiral(x, y, monster1, 13, 61, 627, 331)))
end
wait(750)
if(FindColorSpiral(x, y,61373, 13, 61, 627, 331))then
begin
repeat
FindColorSpiral(x, y,61373, 13, 61, 627, 331)
movemousesmooth(x, y);wait(200);clickmouse(x, y, true)
wait(80)
clickmouse(x, y, true)
until((FindColorSpiral(x, y,61373, 13, 61, 627, 331)=false)
or(findcolorspiral(x, y, monster1, 13, 61, 627, 331)))
end
cleardebug;
if (findcolorspiral(x, y, monsterm, 13, 61, 627, 331)=false) then begin
ksm:=0
end
if (ksm=0) then begin
  ksS := IntToBox(0, 0, 5, 5); end
writeln('AMMC v10 - By Joeyroyden - is waitting for a monster.')

repeat
if (
  ( findcolorspiral(x, y,9175295,306, 86, 334, 104) )
and( findcolorspiral (x, y, monster1, 275, 154, 303, 174)=false )
and( findcolorspiral (x, y, monster1, 336, 182, 363, 209)=false )
and( findcolorspiral (x, y, monster1, 323, 157, 350, 165)=false )
and( findcolorspiral (x, y, monster1, 288, 184, 300, 194)=false )
)
then begin
keydown(123);wait(500);keyup(123)
end
if(FindColorSpiral(x, y,8716032, 13, 61, 627, 331))then
begin
repeat
FindColorSpiral(x, y,8716032, 13, 61, 627, 331)
movemousesmooth(x, y);wait(200);clickmouse(x, y, true)
wait(80)
clickmouse(x, y, true)
until((FindColorSpiral(x, y,8716032, 13, 61, 627, 331)=false)
or(findcolorspiral(x, y, monster1, 13, 61, 627, 331)))
end
until (findcolorspiral(x, y, monster1, 13, 61, 627, 331)=true)
end
skip:=skip-1;writeln('skip: '+inttostr(skip))
if FindColorSkipBox(sx, sy, monsterm, 13, 61, 627, 331, selfbox)then
begin
if (findcolorspiral2(xx, yy, monsterM, 11, 63, 626, 335)=true)then begin
if ((findcolorspiral2 (x, y, monsterm, ksmx-75, ksmy-75, ksmx+75, ksmy+75)=false))
then begin
ksm:=0
ksmw:=0
magec:=0
end
if (ksm=1) then begin
  ksS := IntToBox((ksmx-90), (ksmy-90), (ksmx+90), (ksmy+90)); end
if (ksm=0) then begin
  ksS := IntToBox(0, 0, 5, 5); end
  if(FindColorSkipBox(sx, sy, monsterM, 13, 61, 627, 331, ksS))then begin
if((findcolorspiral (x, y, monster1,275, 154, 303, 174)=false)
and
(findcolorspiral (x, y, monster1,336, 182, 363, 209)=false)
and
(findcolorspiral (x, y, monster1,323, 157, 350, 165)=false)
and
(findcolorspiral (x, y, monster1,288, 184, 300, 194)=false))then begin
FindColorspiral2(sx, sy, monsterM, 13, 61, 627, 331)
movemousesmooth(sx, sy)
wait(50)
if magec=0 then begin
writeln('Go')
keydown(113)
wait(25)
keyup(113)
wait(50)
clickmouse(sx, sy, true)
wait(1300)
magec:=1
end
end
ksmw:=0
skip:=1
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksm:=1
ksmx:=xx
ksmy:=yy
ksmw:=1
end
end
end
wait(100)
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksm:=1
ksmx:=xx
ksmy:=yy
ksmw:=1
end
if(FindColorSpiral(x, y, monsterm, 39, 75, 605, 305)and(magec=1)and(ksmw=0))then
begin
q:=Random(2)
writeln(inttostr(q))
if (q=0)then begin
  x:= x + (random(20)+15);
  y:= y + (random(20)+15);
end
if (q=1)then begin
  x:= x - (random(20)+15);
  y:= y - (random(20)+15);
end
tm := tm +1
writeln(inttostr(tm))
movemouse(x-5, y+5)
wait(33)
movemouse(x+3, y-3)
wait(33)
movemouse(x, y)
wait(33)
clickmouse(x, y, true)
END else begin
end
END
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksm:=1
ksmx:=xx
ksmy:=yy
ksmw:=1
end
if(FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then
begin
writeln('Attempting to consume 1 potion')
keydown(112)
wait(50)
keyup(112)
wait(20)
end
if findcolorspiral(x, y,9175295,306, 103, 332, 126) then begin
ksl:=0;
ksr:=0;
ksd:=0;
ksu:=0;
end
until(x = 5000000)
end.