Scar

program Skeleton;
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
function Loc:integer;
var
locationx,locationy:integer;
huntx,hunty:integer;
battlex,battley:integer;
battlexx,battleyy:integer;

begin
if findcolor(locationx,locationy,12230849,1026, 184,1026, 184) then
begin
  result := 1;
end else
if findcolor(huntx,hunty,0,972, 230,972, 230) then
begin
  result := 2;
end else
 if findcolor(battlex,battley,136791,473, 198,473, 198) then
 begin
  result := 3;
end else
 if findcolor(battlexx,battleyy,4873384,970, 679,970, 679) then
 begin
  result := 4;
end;



end;
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
function hunting:integer;
var
huntx,hunty:integer;

begin
if findcolor(huntx,hunty,12968173,581, 249,1307, 965) then
begin
  result :=1;
end else
  result :=2;

end;

procedure monster;
var
huntx,hunty:integer;

begin
if findcolor(huntx,hunty,12968173,581, 249,1307, 965) then
begin
clickmouse(huntx,hunty,true);
clickmouse(huntx,hunty,true);
clickmouse(huntx,hunty,true);
wait(5000);
end;
end;
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
function turn:integer;
var
turnx,turny:integer;
victoryx,victoryy:integer;
errorx,errory:integer;
victoryxX,victoryyY:integer;
errorxx,erroryy:integer;
errorxxx,erroryyy:integer;


begin
 if findcolor(turnx,turny,16053492,460,390,485,415) then
 begin
   result :=1;
 end else
 if findcolor(victoryx,victoryy,49279,507,365,507,365) then
 begin
   result :=2;
 end else
  if findcolor(errorx,errory,6894524,525,307,527,309) then
 begin
   result :=3
end else
  if findcolor(victoryxX,victoryyY,47482,549, 469,549, 469) then
 begin
   result :=4;
 end else
 if findcolor(errorxx,erroryy,12379646,645, 503,645, 503) then
 begin
   result :=5
 end else
  if findcolor(errorxxx,erroryyy,2752702,578, 412,578, 412) then
 begin
   result :=6
 end;

end;

/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
var
combo1x,combo1y,combo2x,combo2y,combo3x,combo3y,combo4x,combo4y:integer;

begin


while 0 = 0 do
begin
while loc = 1 do
begin
wait(100);
clickmouse(832, 130,true);   // clicked hunting
wait(5000);
end;

while loc = 2 do
begin
 if hunting = 2 then
 begin
  wait(100);
clickmouse(832, 130,true);   // clicked hunting
wait(5000);
 end;
 if hunting = 1 then
 begin
 monster;
 wait(5000);
 end;
 end;
 wait (1000);
if loc = 3 then
begin
while loc = 3 do
begin

while turn = 1 do
  begin
    if findcolor(combo1x,combo1y,1474380,441,488,441,488) then
    begin
    clickmouse(496, 353,true);
    end
    else
    if findcolor(combo2x,combo2y,2001744,461,486,461,486) then
    begin
    clickmouse(500, 455,true);
    end
    else
    if findcolor(combo3x,combo3y,1474380,483,490,483,490) then
    begin
    clickmouse(526, 402,true);
    end
      else
    if findcolor(combo4x,combo4y,2001744,505,484,505,484) then
    begin
    clickmouse(496, 353,true);
    end;
  end;

  if turn = 2 then
  begin
      clickmouse(840, 139,true);
      wait(2000);
  end;
  if turn = 3 then
  begin
      clickmouse(840, 139,true);
      wait(2000);
  end;
    if turn = 4 then
  begin
      clickmouse(840, 139,true);
      wait(2000);
  end;
      if turn = 5 then
  begin
      clickmouse(840, 139,true);
      wait(2000);
  end;
        if turn = 6 then
  begin
      clickmouse(840, 139,true);
      wait(2000);
  end;


  end;
 writeln('yay');
  wait (30000);
  end;

 while loc = 4 do
begin
  clickmouse(960, 678,true);
  wait(500);
end;

 end;
end.