program AutoYakker;
var x, y, a, b, blues, kills, bitmap1, repotcounter: integer;
var username, password: string;
var FoundAllBlues: boolean;

procedure Login;
  begin
    username := '';
    password := '';

    WriteLn('Logging in...');

    wait(1000);
    x := 298;
    y := 240;
    MoveMouse(x,y);
    wait(100);
    clickmouse(x,y, 1);
    wait(500);
    SendKeys(username, 100);
    wait(1500);
    x := 313;
    y := 284;
    MoveMouse(x,y);
    wait(100);
    clickmouse(x,y, 1);
    SendKeys(password, 100);

    x := 324;
    y := 345;

    MoveMouse(x,y);
    wait(100);
    clickmouse(x,y, 1);
  end;

procedure SetPrays;
  begin
    //Switch to prayers tab
    MoveMouse(710, 186);
    wait(1000);
    Clickmouse(710, 186, 1);
    wait(1000);

    //Protect from Melee
    MoveMouse(722, 334);
    wait(1000);
    Clickmouse(722, 334, 1);
    wait(1000);

    //Piety

    MoveMouse(648, 407);
    wait(1000);
    Clickmouse(648, 407, 1);
    wait(1000);

    //Protect Item
    MoveMouse(572, 298);
    wait(1000);
    Clickmouse(572, 298, 1);
    wait(1000);
  end;


procedure ReLogin;
  begin

    x := 324;
    y := 345;

    MoveMouse(x,y);
    wait(100);
    clickmouse(x,y, 1);

    WriteLn('ReLogging');

    wait(10000);

    SetPrays;

  end;

procedure CheckLogin;
begin
    If (getcolor(419, 346)=3123905) and (getcolor(432, 196)=3159352) then
      begin
        WriteLn('We seemed to be logged out, relogging in.');
        ReLogin;
      end;

end;

procedure KillYak;
  begin
    x := -1;
    y := -1;

    if FindColorSpiral(x, y, 5726319, 0, 0, 511, 333) then
      begin
        MoveMouse(x, y);
        wait(500);
        clickmouse(x, y, 1);
        kills := kills + 1;
      end;
  end;


procedure LootBlues;
  begin

    FoundAllBlues := false;

    repeat
      wait(3000);
      a := -1;
      b := -1;
      if FindColorSpiral(a, b, 9081202, 0, 0, 511, 333) then
        begin
          MoveMouse(a, b);
          wait(500);
          clickmouse(a, b, 1);
          blues := blues + 1;
        end else
          FoundAllBlues := true;
    until(FoundAllBlues = true);
  end;

procedure RePot;
  begin

    //Super Attack

    a := -1;
    b := -1;

    if FindColorSpiral(a, b, 13776947, 561, 235, 741, 498) then
      begin
        MoveMouse(a, b);
        wait(500);
        clickmouse(a, b, 1);
      end;


      wait(2000);

    //Super Strength

    a := -1;
    b := -1;

    if FindColorSpiral(a, b, 12237501, 561, 235, 741, 498) then
      begin
        MoveMouse(a, b);
        wait(500);
        clickmouse(a, b, 1);
      end;

     repotcounter := 15;
  end;


begin

  repotcounter := 1;

  repeat
  wait(6000);
  KillYak;
  wait(4000);
  LootBlues;
  wait(1000);
  CheckLogin;

  if (repotcounter = 1) then
    begin
        RePot;
    end;

  repotcounter := repotcounter - 1;
  until (false);

end.