function FindBoxEx(SwitchPlayers, Active: boolean): boolean;
Well, this probably isn't worthy of using in SRL. Thought I would post here as a quick fix until the boxsolving is working (whenever I call findNormalRandoms, it always thinks there is a box whether there is or isnt one.
SCAR Code:
function FindBoxEx(SwitchPlayers, Active: boolean): boolean;
var
BoxMask, bx, by: integer;
begin
GameTab(4);
BoxMask := BitmapFromString(16, 12, 'z78DA3330A026700303039A81' +
'51F3879FF96E4860A884C6E0319978F594B8D98D08409EC9002B4' +
'CE1CD');
result:= FindBitMapMaskTolerance(BoxMask, bx, by, 554, 207, 727, 464, 1, 1);
if result then
begin
MMouse(bx,by,0,0);
If IsUpText('ox')then
begin
Players[CurrentPlayer].Rand:= 'Box Found';
Writeln('Box Found!');
If SwitchPlayers then
begin
NextPlayer(Active);
exit;
end;
if (UseBoxSolver) then
SolveBox
else
GambleBox;
end;
end;
FreeBitmap(BoxMask);
end;