Nice, saves me from having to make one
Had to change it slightly though.
Simba Code:
repeat
b := IntToBox(520, 39, 532, 51); //may add another check
if findColorsTolerance(TPA, 1072344, b, 24, colorSetting(2, 0.24, 0.53)) then // red box top right
begin //added begin and end because it was just executing the writeln() part if it was true, but the rest would always execute making it always exit true without wait.
writeln('Shopscreen is open');
exit(true); //shorter, just saves a line, no real difference.
end;
until (getSystemTime() >= t);