{$I OSI\OSI.scar}
{$DEFINE RS07}


var x, y: Integer;

procedure ScriptTerminate;
begin
  FreeOSI;
end;


procedure CutLog;
var x, y: Integer;
begin
If FindColorTol(x, y, 2245986, 716, 451, 718, 452, 3) then
 begin
   DropAll;
   then
   begin
   Mouse(252, 235, 2, 2, True);
    Wait(5000)
  end;
 end;
end;


function DropAll: Integer;
var x, y: Integer;
      begin
      //row one
       Mouse(579, 231, 2, 2, False);
       Wait(1200)
       Mouse(579, 269, 2, 2, True);
       Wait(1000)

       Mouse(621, 231, 2, 2, False);
       Wait(1200)
       Mouse(579, 269, 2, 2, True);
       Wait(1000)

       Mouse(662, 231, 2, 2, False);
       Wait(1200)
       Mouse(662, 269, 2, 2, True);
       Wait(1000)

       Mouse(702, 231, 2, 2, False);
       Wait(1200)
       Mouse(702, 269, 2, 2, True);
       Wait(1000)
                // row 2
       Mouse(579, 268, 2, 2, False);
       Wait(1200)
       Mouse(579, 309, 2, 2, True);
       Wait(1000)

       Mouse(618, 264, 2, 2, False);
       Wait(1200)
       Mouse(618, 308, 2, 2, True);
       Wait(1000)

       Mouse(666, 264, 2, 2, False);
       Wait(1200)
       Mouse(666, 308, 2, 2, True);
       Wait(1000)

       Mouse(703, 264, 2, 2, False);
       Wait(1200)
       Mouse(702, 308, 2, 2, True);
       Wait(1000)
       //row 3
       Mouse(579, 303, 2, 2, False);
       Wait(1200)
       Mouse(571, 344, 2, 2, True);
       Wait(1000)

       Mouse(618, 303, 2, 2, False);
       Wait(1200)
       Mouse(618, 344, 2, 2, True);
       Wait(1000)

       Mouse(666, 303, 2, 2, False);
       Wait(1200)
       Mouse(666, 344, 2, 2, True);
       Wait(1000)

       Mouse(703, 303, 2, 2, False);
       Wait(1200)
       Mouse(702, 344, 2, 2, True);
       Wait(1000)
       //row 4
         Mouse(581, 338, 2, 2, False);
       Wait(1200)
       Mouse(571, 380, 2, 2, True);
       Wait(1000)

       Mouse(618, 338, 2, 2, False);
       Wait(1200)
       Mouse(618, 380, 2, 2, True);
       Wait(1000)

       Mouse(657, 338, 2, 2, False);
       Wait(1200)
       Mouse(666, 380, 2, 2, True);
       Wait(1000)

       Mouse(703, 338, 2, 2, False);
       Wait(1200)
       Mouse(702, 380, 2, 2, True);
       Wait(1000)
       //row 5
       Mouse(581, 375, 2, 2, False);
       Wait(1200)
       Mouse(571, 413, 2, 2, True);
       Wait(1000)

       Mouse(618, 375, 2, 2, False);
       Wait(1200)
       Mouse(618, 413, 2, 2, True);
       Wait(1000)

       Mouse(657, 375, 2, 2, False);
       Wait(1200)
       Mouse(666, 413, 2, 2, True);
       Wait(1000)

       Mouse(703, 375, 2, 2, False);
       Wait(1200)
       Mouse(702, 413, 2, 2, True);
       Wait(1000)

      //row 6
       Mouse(581, 410, 2, 2, False);
       Wait(1200)
       Mouse(571, 452, 2, 2, True);
       Wait(1000)

       Mouse(618, 410, 2, 2, False);
       Wait(1200)
       Mouse(618, 452, 2, 2, True);
       Wait(1000)

       Mouse(657, 410, 2, 2, False);
       Wait(1200)
       Mouse(666, 452, 2, 2, True);
       Wait(1000)

       Mouse(703, 410, 2, 2, False);
       Wait(1200)
       Mouse(702, 452, 2, 2, True);
       Wait(1000)
       //row 7
       Mouse(581, 446, 2, 2, False);
       Wait(1200)
       Mouse(571, 462, 2, 2, True);
       Wait(1000)

       Mouse(618, 446, 2, 2, False);
       Wait(1200)
       Mouse(618, 462, 2, 2, True);
       Wait(1000)

       Mouse(657, 446, 2, 2, False);
       Wait(1200)
       Mouse(666, 462, 2, 2, True);
       Wait(1000)

       Mouse(703, 446, 2, 2, False);
       Wait(1200)
       Mouse(702, 462, 2, 2, True);
       Wait(1000)
       then
       begin
         CutLog
      end;
       end;
end;

begin
  CutLog
  repeat
    CutLog
  until False;
end.