Just figured this out. Replace your GetBoxSide with
function GetBoxSide: Integer;
var
Side, x, y: Integer;
begin
Result := 0;
Side := BitmapFromString(181, 181, '');
repeat
wait(100);
if FindColorTolerance(x, y, 16579837, 182, 45, 183, 225, 5) then continue;
if FindColorTolerance(x, y, 16579837, 342, 45, 343, 225, 5) then continue;
if FindColorTolerance(x, y, 16579837, 172, 55, 352, 56, 5) then continue;
if FindColorTolerance(x, y, 16579837, 172, 215, 352, 216, 5) then continue;
if FindColorTolerance(x, y, 12764106, 182, 45, 183, 225, 5) then continue;
if FindColorTolerance(x, y, 12764106, 342, 45, 343, 225, 5) then continue;
if FindColorTolerance(x, y, 12764106, 172, 55, 352, 56, 5) then continue;
if FindColorTolerance(x, y, 12764106, 172, 215, 352, 216, 5) then continue;
Break;
until False;
CopyClientToBitmap(Side, 172, 45, 352, 225);
Result := Side;
end;
:D