SCAR Code:
program MathsNightmare;
type
arraytype = array[0..9] of Integer;
var
x, y: Integer;
numImageArray: arraytype;
add, sub, mult, divi,Cloud: Integer;
procedure LoadPictures;
begin
sub := BitmapFromString(7, 2, 'beNpjSGNgAKL/SCgNOwIAwQIH+Q=' +
'=');
mult := BitmapFromString(12, 13, 'beNqr21pUt5WBIS00bsH6' +
'g/fREFAQKFVZvxPOrmrfhaygsX8/UDAybvHeQy+A3AUbrgC5QDR1y' +
'VmIglmrLgC5plbdazbe2X3oOUSwY9oRsGDX0m03gFx3/+lAbv/cEx' +
'sOPkA2PKt0PcRhQEuBDKA7MV0I147LCxAENByiBsjApQZuDtBhWBV' +
'A3AN0TELWCiADyEVTAPEX3BlAc4BcoCBcATB8IIJABnL4IItAwhkY' +
'sMgmQ0IA6EIgm2B8FQEAeikQNg==');
add := BitmapFromString(14, 14, 'beNrbenXd/ttoiIEhDYiAjBW7b' +
'izaehWO8Khcu+8WkSqBaOXuG0SqRDYWv0ogWrbjOpEq4Q6AiFMXEb' +
'QdiJZuv0aMOwdc5eJtRIXnmr3gaAIA/Q1Z1g==');
divi := BitmapFromString(15, 14, 'beNqt0e8KgjAUh2GvtusUpf' +
'DP5nRqUkl9NM/0HjwyPc3JpCB4Pwz2gD+m393K0crzTjo8X4Wq+Kc' +
'DXGVDHgMLu8RfsmQtBsJ5BBhJEzdylExpYMbDt4XnL+6YLrv0JpYp' +
'uCQmjCW08O8dDKDSYJkh2Q/4+VLf47aFx31ztV9Ir4HnpoS6cGKxx' +
'ViRODE/rz9lAk+Pqkg=');
numImageArray[0] := BitmapFromString(10, 16, 'beNrbcWv9wfsQVFS31dSqi4EhDci' +
'AC0JQaNyCrNL1cGVALoS9au+dwtotQF3Iit39pydkrQAyZq29DDSt' +
'pHH7it131uy7C5HtmHYEKLhgw5Xixu1ARvecE0t23IKgZTtvTVl6F' +
'ihY1rwjKnUpkDFh0Rm4LAQBBYFShuadQAaaFEQWjmghC3EV0F/IUt' +
'NWXIBIQXyE5mYgFygIlIIoAzKQZSs79gAFgVJAdnL+GmfvqciyQC7' +
'QWDgX6Ovsik1ABtABQMX+kfOQFUMEgabBlYEQAGnmEb8=');
numImageArray[1] := BitmapFromString(6, 16, 'beNpjSJu19nJD/4' +
'Hk/DWG5p1LdtwCIv/IeUDEwJAGRBARCBqWIhMWnYGIABlwWQQCAD1' +
'lkdE=');
numImageArray[2] := BitmapFromString(10, 16, 'beNpbe3n9wftA1' +
'Ni/391/OgNDmqlVV1HdVoggEK07eB/IBYojI6CapdtuAGW755wwtu' +
'icuPAMRHHHtCMQBVml64Hc5Pw101ZcWLLjFhAt33Vn5Z67bVMPQxQ' +
'AZYsbt0OkkBFEFlMcLhuVuhSrFNAioGzbtCNYZSs79vhHzsNlrKF5' +
'54RFZ3BpBCJcNmZXbMIqNWvtZay+g6CG/gNoInDb0aSA5gCtAAYjk' +
'A10P1osQBBQCy4pIJoFAGNiGWA=');
numImageArray[3] := BitmapFromString(9, 16, 'beNrbcWvJjluz1l' +
'7OrthkaN7JwJDm7D21of8AUBAiDhFERhDZpPzVbdOOQJRNW3HBP3I' +
'eUAqoGMidv/U6RBxuCEQjsiAcAcWBVmOKA20BmgbUi2ZUZcceoJbu' +
'OScwzYEjoBo02QmLzkSlLoXIYuoFIogs0O+YUkD1+N0P8TWpXoMEG' +
'tBGuGsh4pBQLW7cDg95oDIgFxoUALQe9y8=');
numImageArray[4] := BitmapFromString(10, 16, 'beNrbcWvJDnSUX' +
'bGJgSFtyc7ba/bfQ5OasOgMUAokuwOLRv/IebhkG/oPVHbswSUL1A' +
'gkscoCHdM95wRWWaBjolKXQtiYskAzZ629jFUW4hg4F00W4hissnD' +
'HYJWFsHEhTF/jCUmqyQIAdFER5g==');
numImageArray[5] := BitmapFromString(10, 16, 'beNrbcevgtvsQV' +
'Fe+lYEhDY7iIhas2X8PIrVt9Q1kKSCaO+XEkh234Br72/fDzYEgiC' +
'xQo5V5F5oUXBZio7/X9Pb6XUCVyLJdXVPQbCwvXrhh5ZGta88CZZc' +
't2rFkwZYJvUtqqqZ6uNdBFCQktE2ePB0oe2Dn4+MHn968+vb29bdX' +
'Lz5fOPcYRMHkSRuAsscOPLt45tW1i6+vXnh99TwILVt4FiiblbEcK' +
'Hv8wDM4Orb/6bG9T4/ufhroOwuoAE0Wjrrb9kNkj+55CkTH9sHQfp' +
'Ds5L6jibFLgAqO7HiCiRoqdiyYfgaoF1Nq84qb8ZGLgQygrLV5T4D' +
'3zAXTzkCkgIyy/E0QNlAWyAXKQvwIFIcrA8kCAC6BLIQ=');
numImageArray[6] := BitmapFromString(10, 16, 'beNo78HzNwgNoq' +
'K12TVzEdAaGNCBCEzcxaHRz7AIyZvRtRZYqyFwIVFxfvgLTNIhUT/' +
'N6NPGV8/cBzcGlC4ggdmGVgmusKFgKVANkAxUDLYLIQhwP5M6dvAP' +
'IXTRjF8QNwX4TIcai+QtZC9zXW9ceP3bwyqWL94Bo08YzQEF7+y6I' +
'7J27T+8/fIGMIOI5uUuB5KUrD27dfHH14vPzJ6AIKGhn07tk6TEgY' +
'8GsU6cOPEdGQMGWul1AZbZWvUF+s5Cl5k49BZTdsf4OkA0kgQqqSr' +
'bs23ofyF065zyQCyThioEKgLIQl+Rnrt208gZIHAB48hOy');
numImageArray[7] := BitmapFromString(10, 16, 'beNo7eH/W2ssMD' +
'GlYUWP//rZpR3DJLthwJadyU1Hd1qXbbqw/eB+OgOKhcQuAjIrWnc' +
'jiEFTVvqtj2hFMcQhy95+OZhoczVp1ISFrBS6NQGf0zz2BS9bUqgu' +
'X1NQlZ7NK1+OSBUoBFZBhLNAxQCfhMRboHaxSQO8DAwGXRmDQAQMQ' +
'lyww2IGBjyIIAFI4P9A=');
numImageArray[8] := BitmapFromString(10, 16, 'beNplUUsLAWEU9' +
'btkOWtlYamwUDYWsrGREitZsVCzMlmgPBZehSabGUU0ESHJJOJPON' +
'PRbaJuX/dx7j3n3k+3b/f3znoUC9OAv+rxxGBwcpnRpH82dds0Lop' +
'Sioa1prZxQt3uNraRUM3nLQ46h2SiDfxqeWWJhkYO4bTT8bVe3N0A' +
'5oMBFW8+Oz7sn1LCcCQhplW3CEvEm7OhowR0IIUwIjV1SQCToEOvm' +
'wV40SBdYuXSHFukUz0C4H/31W2AEf6zsAu+nIKCUSIFnR8itWJwAu' +
'2nKtegEtD9X5LisQvmC4C/IDqpTfZFHqGT/wAqNRK4');
numImageArray[9] := BitmapFromString(10, 16, 'beNo7eH/voRdAt' +
'GDplZi4pQwMaUBUVLplzcY7EHEgmjXvgqV1L5AEsjdtfwCUBXIhCp' +
'avvgFUD5GCI1//2UAFQAZQJVAWWQqIJk8/DRTsmXAMqAZTFmg+UBD' +
'uEjRZIIKIQ/QC3YxVtqZ+N5DMyF6LKQtxGMR8oDKIONAvaFqAXIgV' +
'QL8AnQpxM5DEdA+yfzERHo3AQEN2A6YuNClgyAC1AF0ItGvS9FO7D' +
'j3bfujJtkNPthx8BPF1eNzC5v4D6w/eR0EA36MnuA==');
Cloud := DTMFromString('78DA635465606010664001EB0FDE05D38C503' +
'EA3269060465593D5B101558D13901042551356B900558D1A9050' +
'4055E3573407550DC81E5E543546D11D286A00833A08E8');
end;
procedure FindCloud;
begin
if FindDTM(Cloud,x, y,609, 141, 678, 182) then
WriteLn('Found Cloud, attempting solve..');
end;
procedure FindTopNumber;
begin
end;
procedure FindBottomNumber;
begin
end;
procedure FindSymbol;
begin
if (findbitmaptolerancein(add, x, y, 629, 104, 686, 147, 150)) then
else if (findbitmaptolerancein(sub, x, y, 629, 104, 686, 147, 150)) then
else if (findbitmaptolerancein(mult, x, y, 629, 104, 686, 147, 150)) then
else if (findbitmaptolerancein(divi, x, y, 629, 104, 686, 147, 150)) then
end;
procedure Solve;
begin
end;
begin
ActivateClient;
LoadPictures;
FindCloud;
end.