program New;
{.include srl/srl.scar}
const name='test2';

var BankBmp,w,i,h:integer;//                       16777215
LetsContinue,SecondType,room,xbox,MrMordaut:integer;
roomb,first,second,done:boolean;

begin
  setupsrl;
  LetsContinue:= DTMFromString('78DA63EC666060A86564C00660A28C6D40A28' +
       'D809A5540A299809A9D44A83105B266E256C30CA23F00891904D4' +
       'E403598D04D494015953F1AB0100886F08F6');
  //+3 for paint
  GetClientDimensions(w,h);
repeat
  BankBmp:=BitmapfromString(w,h,'');
  CopyClientToBitmap(BankBmp,3,3,w+3,h+3); wait(250);
  try
    SaveBitmap(BankBmp,'E:\random/new/'+name+inttostr(i)+'.bmp');
  except
    writeln('error');
  end;
  freebitmap(bankbmp);
  i:=i+1;

  done:=false;
//////////////////////////////////////////////
  if not first then
 // if FindDTM(LetsContinue,x,y,111,375,492,411) then
  begin
    FreeDTM(LetsContinue);
    SecondType := DTMFromString('78DA632C616060A86564C00660A28C6544A8A' +
       '904123504D480EC6A27C2AE36026AEA81ACB504D4DC0512EB08A8' +
       '79056435E257030021A5090D');
    writeln('waiting for you to click to continue');
    done:=true;
    first:=true;
    repeat
      wait(100);
    until FindDTM(SecondType,x,y,110,374,501,436);
  end;
//////////////////////////////////////////////
 if not second then
  if not done then
  if FindDTM(SecondType,x,y,110,374,501,436) then
  begin
//    FreeDTM(SecondType);
    writeln('waiting for you to click to continue again');
   //  Xbox:= DTMFromString('78DA633CCEC8C060C48002E6AD980FA619A17' +
  //     'CC6134096090135A7812C43026A8E015916449843400D0048C90E' +
 //      '7B');
    done:=true;
    second:=true;
    repeat
      wait(100);
    until not FindDTM(SecondType,x,y,110,374,501,436);//FindDTM(Xbox,x,y,445,38,467,66);

    MrMordaut:= DTMFromString('78DA636461646028026224D000A561A28C203' +
       '59904D47003591904D40813619709116A8C80AC7C22CCC925A026' +
       '9208BB2280AC3C026AA208DB0500B7520B44');
        room := DTMFromString('78DA6374646460580AC458004C9411A466150' +
       '1352E4498E349841A6F206B390135014498130464AD20C21C42FE' +
       '8A22424D3411EE0925AC0600B17F0AAE');
  end;
//////////////////////////////////////////////
  if first and second then
  if not done then
  if FindDTM(MrMordaut,x,y,256,357,352,375) then
  begin

    writeln('waiting for you to click to continue again');

    done:=true;
    repeat
      wait(100);
      if not FindDTM(MrMordaut,x,y,256,357,352,375) then
      break;
      if FindDTM(room,x,y,316,418,356,431) then
      break;
    until isfkeydown(12);
  end;
//////////////////////////////////////////////
  if not done then
  if FindDTM(room,x,y,316,418,356,431) then
  begin

    writeln('waiting for you to click to continue again');

    done:=true;
    roomb:=true;
    repeat
      wait(100);
      if not FindDTM(room,x,y,316,418,356,431) then
      break;
    until isfkeydown(12);
  end;
  if roomb then wait(500);

//////////////////////////////////////////////
  if isfkeydown(11) then
  begin
    writeln('pausing '+inttostr(i));
    repeat
      wait(30);
    until isfkeydown(10);
    repeat
      wait(30);
    until not isfkeydown(10);
    writeln('resuming '+inttostr(i));
  end;
//////////////////////////////////////////////

until ((isfkeydown(12))or(not nogametab));

end.