var
x, y, lvlx, lvly, finish_fight: integer;

const
monster = 10258019; // color of monster you want to attack
player = 218; // player color(mine was xelor with a red star.
Resource1= 12250874; // The Paste the Colour of Resource 1 over the Blue Numbers
Resource2= 10014947; // The Paste the Colour of Resource 2 over the Blue Numbers
Resource3= 10277342; // The Paste the Colour of Resource 3 over the Blue Numbers
CollectTime= 11200; // If needed(eg.it takes 12 or more second to collect the resource)paste new time over the Blue Numbers

function Targetresource1 : Boolean;
begin
if(FindColor(x, y, Resource1, 0, 0, 800, 600))then result:= true
end;

function Targetresource2 : Boolean;
begin
if(FindColor(x, y, Resource1, 0, 0, 800, 600))then result:= true
end;

function Targetresource3 : Boolean;
begin
if(FindColor(x, y, Resource3, 0, 0, 800, 600))then result:= true
end;

function Nextresource1 : Boolean;
begin
if(FindColor(x, y, Resource1, 0, 0, 800, 600))then result:= true
end;

function Nextresource2 : Boolean;
begin
if(FindColor(x, y, Resource2, 0, 0, 800, 600))then result:= true
end;

function Nextresource3 : Boolean;
begin
if(FindColor(x, y, Resource3, 0, 0, 800, 600))then result:= true
end;



Procedure Collect;
begin
if (Targetresource1)or(Targetresource2)or(Targetresource3) then
MoveMouseSmooth(x, y);
Wait(100+random(200));
HoldMouse(x, y, true);
Wait(20+random(50));
ReleaseMouse(x, y, true);
Wait(100+random(200));
MoveMouseSmooth(x+27, y+48);

Wait(100+random(200));
HoldMouse(x+27, y+48, true);
Wait(20+random(50));
ReleaseMouse(x+27, y+48, true);
MoveMouseSmooth(1230, 129);
Wait(3000+random(500));
Wait(CollectTime);
end;

Procedure Infight;
begin
repeat
if(findcolor(x, y, 26367, 670, 562, 725, 576))then // if fight starts searching for ready button
   begin
       movemousesmooth(x+5,y+5);  // click on ready button
       wait(100+random(200));
       holdmouse(x+5,y+5,true);
       wait(20+random(50));
       releasemouse(x+5,y+5,true);
       wait(300);

       movemousesmooth(541,370);  // get in position
       wait(100+random(200));
       holdmouse(541,370,true);
       wait(20+random(50));
       releasemouse(541,370,true);
       wait(300);

       movemousesmooth(486,345);  // walk 2 tiles forward
       wait(100+random(200));
       holdmouse(486,345,true);
       wait(20+random(50));
       releasemouse(486,345,true);
       wait(300);

       movemousesmooth(708, 591);  // click on teleport
       wait(100+random(200));
       holdmouse(708, 591,true);
       wait(20+random(50));
       releasemouse(708, 591,true);
       wait(200);

       movemousesmooth(328,264);  // target teleport
       wait(100+random(200));
       holdmouse(328,264,true);
       wait(20+random(50));
       releasemouse(328,264,true);
       wait(300);

       movemousesmooth(498,695);  // click on next turn button
       wait(100+random(200));
       holdmouse(498,695,true);
       wait(20+random(50));
       releasemouse(498,695,true);
       wait(5000);
  end;

function noresource : Boolean;
begin
if(FindColor(x, y, 1683891, 0, 0, 800, 600))then result:= false
end;

function FindLevel : boolean;
begin
result := false;
  If(FindColor( lvlx, lvly, 25087,0,0,500,500))then result := true
end;

Procedure LevelUp;
begin
If(FindLevel= true)then
MoveMouseSmooth(lvlx, lvly+2);
Wait(100+random(100));
ClickMouse(lvlx, lvly+2, true);
Wait(100+random(100));
end;

begin
Collect;
repeat
if (noresource) then
Collect;
if(nextresource1)or(nextresource2)or(nextresource3)then
Collect;
if(FindLevel)then
LevelUp;
until(false);
end.