SRL Archive - SRL Archives

[PHP]Procedure DepositBitmapAmountTol(Bitmap, Amount, Tol: Integer);
Var
TextStar, Store10: Integer;
Begin
TextStar := BitmapFromString(8, 6, 'z78DA73B27434B530744222' +
'0D80C0C200423A61C83A91A81E599618D28902F7506E26A638006' +
'7943C95');
Store10 := BitmapFromString(14, 10, 'z78DA33753135313137059' +
'36E48C014491C9374C300C4A8310003FC2A216A304D76C30130CD' +
'C494C53413D9644C5962CC24261C483513977F29371357A8926A2' +
'6FE70A3C44C5CA14ABC99C4A4255C298192F40C0100C1D6CA60');
If(BankScreen)then
Begin
If(FindBitmapToleranceIn(Bitmap, x, y, MIX1, MIY1, MIX2, MIY2, Tol))then
Begin
Wait(200+Random(100));
Mouse(x, y, 5, 5, False);
End
Case (Amount) of
0 : Begin Wait(300+Random(150)); ChooseOption(x, y, 'All'); end;
1 : Begin Wait(300+Random(150)); ChooseOption(x, y, 'Store 1'); end;
5 : Begin Wait(300+Random(150)); ChooseOption(x, y, 'Store 5'); end;
10 : Begin Wait(300+Random(150)); FindBitmapToleranceIn(Store10, x, y, MIX1, MIY1, MIX2, MIY2, 10); Wait(300); Mouse(x, y, 0, 0, True); end;
Else
Begin
Wait(200+Random(100));
Repeat
ChooseOption(x, y, 'Store X');
Wait(500+Random(250));
Until(FindBitmapToleranceIn(TextStar, x, y, 220, 380, 295, 435, 10));
Wait(150+Random(100));
TypeSend(IntToStr(Amount));
End;
End;
End;
FreeBitmap(Store10);
FreeBitmap(TextStar);
End;[/PHP]

~ChArMz