program New;
Var x,y,a,b,c:Integer;
Var ar,br,cr:String;
Const
Npc1=8697558;

Procedure Check;
begin
ClickMouse(607,446,True)
Wait(500)
If GetColor(499,457)=13158600 then
Begin
ClickMouse(566,461,True)
Wait(100)
end;
ClickMouse(79,446,True)
end;

Procedure Finish;
Begin
If IsMouseButtonDown(False)=True then
Begin
TerminateScript;
End;
End;

Procedure Mage;
Begin
If FindColorSpiral(x,y,npc1,7,62,579,336) then
Begin
KeyDown(111+a)
Wait(15)
KeyUp(111+a)
MoveMouse(x,y)
Wait(10)
ClickMouse(x,y,True)
Wait(800)
End;
Wait(100)
Finish;
End;

Procedure Flowies;
Begin
If (Not(FindColorSpiral(x,y,npc1,7,62,579,336))) and FindColorSpiral(x,y,14606046,244,138,391,222) then
Begin
MoveMouse(x,y)
Wait(500)
ClickMouse(x,y,True)
Wait(100)
End;
Wait(100)
Finish;
End;

Procedure Grab;
Begin
If (Not(FindColorSpiral(x,y,npc1,7,62,579,336))) and FindColorSpiral(x,y,55039,244,138,391,222) then
Begin
MoveMouse(x,y)
Wait(500)
ClickMouse(x,y,True)
Wait(100)
End;
Wait(1000)
Finish;
End;

Procedure SHeal;
Begin
if (Not(GetColor(202,33)=15185407)) and (Not(FindColorSpiral(x,y,npc1,7,62,579,336))) then
Begin
KeyDown(119)
Repeat
Wait(10)
Grab;
if b=1 then
begin
Flowies;
end;
Until (GetColor(202,33)=15185407) or FindColorSpiral(x,y,npc1,7,62,579,336)
KeyUp(119)
end;
Wait(100)
Finish;
End;

Procedure Sheep;
Begin
If FindColorSpiral(x,y,8685155,7,62,579,336) then
Begin
KeyDown(111+a)
Wait(15)
KeyUp(111+a)
MoveMouse(x,y+5)
Wait(10)
ClickMouse(x,y+5,True)
Wait(1300)
end;
Wait(100)
Finish;
End;

begin
Disguise('Dennys Flowie Afker')
ar:=readln('What FKey Is Small Fire On?')
a:=strtoint(ar)
Wait(300)
br:=readln('Would you Like The Script To Automatically Pickup Flowys?(1=Yes 0=No)')
b:=strtoint(br)
Wait(300)
cr:=readln('Would you Like The Script To Automatically Heal?(1=Yes 0=No)')
c:=strtoint(cr)
Wait(300)
ClearDebug;
WriteLN('Warning: Hold Right Mouse Button To Stop AFKing!')
Wait(100)
readln('Please Note That You Must Hold Right Mouse Button To Stop Afking (Enter To Continue)')
FindWindow('Dennys Flowie Afker')
Activateclient;
Wait(1000)
FindWindow('Endless Online')
Activateclient;
Wait(1000)
Check;
Repeat
Repeat
Mage;
if c=1 then
begin
SHeal;
end;
Grab;
if b=1 then
begin
Flowies;
end
Until FindColorSpiral(x,y,8685155,7,62,579,336)
Sheep;
Finish;
Until (False)
end.
begin
end.