I get an error when trying to run this script.
I think I'm missing a really simple thing, i just cantfind it.
SCAR Code:program New;
var
WillowLog2: integer;
procedure LoadBitmap;
begin
P := BitmapFromString(18, 21, 'z78DA7373C3070C30801B9580' +
'01C5809E76116FA3015501257691E71E4AEC1AD5355474D1331D0' +
'E4EBB689D97A95B1EBA51158CDA356AD760B08BD60000B0BF120B' +
'');
end;
procedure FBitmap;
var
x, y :integer;
if FindBitmapToleranceIn(P, x, y, 251, 284, 367, 306, 25); then
begin
WriteLn('Found the letter P');
end else
begin
WriteLn('Color Not Found. :/ Sorry');
end;
end;


Reply With Quote







