program ArdyKnightPickpocket;

var
  x, y: integer;
//make sure  coin purse in slot 1

procedure Music;        //plays .wav until it finds 10hp
begin
  repeat
    PlaySound('C:\Users\Tom\Desktop\pika.wav');
    writeln('LOW HP');
    wait(1000 + random(333));
  until (findcolortolerance(x, y, 728958, 530, 220, 570, 250, 10));  //hp 10
end;

procedure Music2;        //plays .wav until sack empty
begin
  repeat
    PlaySound('C:\Users\Tom\Desktop\pika1.wav');
    writeln('COIN FULL');
    wait(1000 + random(333));
  until (findcolortolerance(x, y, 3885652, 586, 229, 587, 230, 10));    //nothing in slot 1
end;

procedure spamClickMouse1();   //spam clicks mouse
begin
  getMousePos(x, y);
  holdMouse(x, y, MOUSE_LEFT);
  wait(25 + randomRange(1, 50));
  wait(25 + randomRange(10, 62));
  writeln('clicking mouse 1');
  getMousePos(x, y);
  releaseMouse(x, y, MOUSE_LEFT);
  wait(25 + randomRange(74, 171));
  wait(25 + randomRange(34, 100));
  writeln('clicking mouse 2');
end;

procedure spamClickMouse2();   //spam clicks mouse
begin
  getMousePos(x, y);
  holdMouse(x, y, MOUSE_LEFT);
  wait(25 + randomRange(1, 50));
  wait(25 + randomRange(10, 62));
  writeln('clicking mouse (2) 1');
  getMousePos(x, y);
  releaseMouse(x, y, MOUSE_LEFT);
  wait(25 + randomRange(74, 171));
  wait(25 + randomRange(34, 100));
  writeln('clicking mouse (2) 2');
end;

begin
  repeat
    if (findcolortolerance(x, y, 1646115, 540, 372, 550, 384, 10)) then //IF find low HP then
      music()      //play .wav
    //else
      //spamClickMouse1();
    if (findcolortolerance(x, y, 65535, 570, 213, 571, 214, 10)) and  //2 in sack
      (findcolortolerance(x, y, 65535, 577, 213, 578, 214, 10)) and    //top left
      (findcolortolerance(x, y, 65535, 577, 218, 578, 219, 10)) and     //bot left
      (findcolortolerance(x, y, 65535, 580, 219, 581, 220, 10)) and    //bot
      (findcolortolerance(x, y, 65535, 580, 212, 581, 213, 10)) and      //top
      (findcolortolerance(x, y, 65535, 581, 216, 582, 217, 10)) and     //top right
      (findcolortolerance(x, y, 65535, 581, 218, 582, 219, 10)) and      //bot right
      (findcolortolerance(x, y, 65535, 579, 219, 580, 220, 10)) and   //mid
      (findcolortolerance(x, y, 65535, 570, 213, 582, 219, 10)) and     //right bot corn
      (findcolortolerance(x, y, 65535, 580, 215, 581, 216, 10)) and     //random
      (findcolortolerance(x, y, 65535, 581, 214, 582, 215, 10)) and     //dfsafdfasdf
      (findcolortolerance(x, y, 65535, 577, 214, 578, 215, 10)) and     //dfsafdfasdf
      (findcolortolerance(x, y, 65535, 582, 216, 583, 217, 10)) and     //dfsafdfasdf
      (findcolortolerance(x, y, 65535, 582, 218, 583, 219, 10)) and     //dfsafdfasdf
      (findcolortolerance(x, y, 65535, 579, 215, 580, 216, 10)) then       //ranom
      music2()     //play a .wav
    else
      spamClickMouse2();  //spam click the knight
  until (false);
end.