program New;
var
i:integer;
ibmp: TSCARBitmap;
eqx1, eqx2, eqy1, eqy2: Integer;
bpx1, bpx2, bpy1, bpy2: Integer;
x, y: Integer;
begin
i:=1;
eqx1 := 0;
eqx2 := 1920;
eqy1 := 0;
eqy2 := 1080;
bpx1 := 0;
bpx2 := 1920;
bpy1 := 0;
bpy2 := 1080;

ibmp := TSCARBitmap.Create('');
ibmp.LoadFromBmp('E:\iron.bmp');

repeat
  begin
  wait(5000);
  if FindBitmap(x, y, ibmp,eqx1, eqy1, eqx2, eqy2) then
    begin
      ClickMouse(40,750,mbleft);
      wait(500);
      ClickMouse(x+30,y+30,mbleft);
    end;
  wait(3500);
  ClickMouse(1649,119,mbleft);
  wait(18000);
  if FindBitmap(x, y, ibmp,eqx1, eqy1, eqx2, eqy2) then
    begin
      ClickMouse(40,750,mbleft);
      wait(500);
      ClickMouse(x+30,y+30,mbleft);
    end;
  wait(3500);
  ClickMouse(1564,124,mbleft);
  wait(43000);
  end;
until
i=5;
end.