SCAR Code:
program New;
var
I, II, x, y, xx, yy, Wake,bmb0,bmb1,bmb2,bmb3,bmb4,bmb5,bmb6,bmb7,bmb8,bmb9: integer;
IntArray, IntArray2: Array of Integer;
begin
wake := BitmapFromString(35, 10, 'beNq7d/L+PfohhgYGICJJJUEt' +
'p69uj14WBFQDJIFs2lkEsQVoBcQuZO1zDvYASec5ttvOLIGIT9rbD' +
'JFq31mFxyK4MiADzbqjlzdCzETWvvfCaogDIOIQ7UARiGD15jysFk' +
'GUAd0GRGh2QURwBR2aUcgIq0VY9eKKETwWEYwjPBbhT3VwNjBegIx' +
'1J+eSHXRE+gg5liG2kJoYiE/M1EQAnWOLVA==');
IntArray := [bmb0,bmb1,bmb2,bmb3,bmb4,bmb5,bmb6,bmb7,bmb8,bmb9];
if FindBitmapIn(wake, xx, yy, 300, 430, 650, 550) then
for I := 0 to 5 do
for II := 0 to 9 do
begin
WriteLn(Inttostr(II));
if FindBitmapIn(IntArray[II], x, y, xx+37+i*7, yy-5, xx+44+i*7, yy+12) then
begin
WriteLn('Letter ' + IntToStr(I)+' is number' + IntToStr(II));
SetLength(IntArray2, Length(IntArray2)+1);
IntArray2[I] := II;
II := 9;
end;
end;
end.