program JokersAndSythesCowFighter;
{.include library.txt}
{.include par.txt}
{.include boxbreaker.txt}
var tmpx,tmpy:integer;
const user='';
const pass='';
const fightmode=5;
const lampskill='strength';
const water=12657153;
const dirt=5925745;
const room=1187626;
const door=228;
const cow1=2774645;
const cow2=3038848;
const cow3=2511215;
const cow4=2775161;
const cow5=2907004;
const cow6=2378855;
const cow7=2378084;
const cow8=2048860;
const cow9=2642802;
const cow10=2378084;
const cow11=2774645;
const cow12=3038848;

procedure SW(clickx,clicky:integer);
begin
 mouse(clickx,clicky,2,2,true);
 wait(200);
 flag;
 wait(500);
end;

Procedure SetFightMode(fightmode:integer);
begin
 Mouse(558,187,5,5,true)
 wait(100+random(250))
 if(FightMode=1)then
  begin
   Mouse(600,289,5,5,true)
   wait(500+random(100))
  end;
 if(FightMode=2)then
  begin
   Mouse(600,335,5,5,true)
   wait(500+random(100))
  end;
  if(FightMode=3)then
  begin
   Mouse(600,381,5,5,true)
   wait(500+random(100))
  end;
  if(FightMode=5)then
  begin
   Mouse(600,426,5,5,true)
   wait(500+random(100))
  end;
end;

procedure Walk(direction, color:integer);  // walks in the specifed direction until it sees a colour on the minimp
begin
 repeat
   // dead center of minimap == (648,83)
   if (direction=0) then sw(648,28);     //north
   if (direction=1) then sw(687,44);
   if (direction=2) then sw(703,83);     //east
   if (direction=3) then sw(687,122);
   if (direction=4) then sw(648,138);    //south
   if (direction=5) then sw(609,122);
   if (direction=6) then sw(593,83);      //west
   if (direction=7) then sw(609,44);
  Check4Randoms;
 until (Findcolor(tmpx,tmpy,color,572,14,722,155)=true);
end;

procedure WalkToCows;
begin
 walk(2,dirt);
 walk(0,door);
 if (findcolor(tmpx,tmpy,door,566,12,723,162)) then sw(tmpx+30,tmpy-30);
 sw(616,42);
 if (findcolor(tmpx,tmpy,door,566,10,727,99)) then sw(tmpx-3,tmpy+3);
 wait(1000);
 mouse(283,178,0,0,false);
 wait(500);
 mouse(296,201,0,0,true);
 sw(666,37);
end;

procedure PutShitOn;
begin
mouse(650,184,0,0,true);
wait(100);
mouse(585,226,0,0,true);
wait(100);
mouse(628,228,0,0,true);
wait(100);
end;

procedure FindWater;
begin
 if (findcolor(tmpx,tmpy,water,609,9,722,162)) then
 begin
  PutShitOn;
  sw(tmpx,tmpy);
  if (findcolor(tmpx,tmpy,water, 634,126,666,153)) then
  begin
   if (findcolor(tmpx,tmpy,water, 582,4,668,44)) then sw(tmpx,tmpy);
   WalkToCows;
  end;
 end;
end;

procedure FightCows;
begin
 tmpx:=250;
 tmpy:=183;
 if (FindColorSpiral(tmpx,tmpy,cow1,0,0,514,339)) or (FindColorSpiral(tmpx,tmpy,cow2,0,0,514,339)) then
 begin
  MMouse(tmpx,tmpy,1,1)
  wait(100+Random(10))
  if(IsTextAt2(9,9,'Attack',100))then
   begin
    if(not FindColor(tmpx,tmpy,65280,tmpx-15,tmpy-30,tmpx+10,tmpy+15))and
      (not(FindColor(tmpx,tmpy,65280,240,125,270,180)))then
      begin
       sw(tmpx,tmpy);
       wait(2000+random(250));
       if(FindColor(tmpx,tmpy,65280,240,125,270,180))Then
        repeat
         wait(10+random(250))
        until(not(FindColor(tmpx,tmpy,65280,240,125,270,180)))
      end;
     end;
   end;
 end;

Procedure SetRunOn;
begin
 Mouse(711,483,5,5,true)
 wait(100+random(250))
 Mouse(623,268,5,5,true)
 wait(100+random(250))
 Mouse(650,186,5,5,true)
 wait(100+Random(250))
end;
begin
 LoadLibrary('Internet Explorer');
 SetRunOn;
 SetFightMode(FightMode)
 repeat
  login(user,pass);
  Check4Randoms;
  findbox;
  run(true);
  FindWater;
  FightCows;
  wait(100+Random(10))
  Check4Randoms;
  findbox;
  mouse(650,186,5,5,true);
  wait(10+random(25));
 until(False)
end.