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.