SRL Archive - OSR Help

Basically how do I tell Simba to FindColorSpiralTolerance and repeat until it finds that color then allow me to use the color.

How I do it now

if FindColorSpiralTolerance(x,x,x,x,x,x,x,x) then
writeLn('found the color')
MoveMouse (x,x)

Could use a "break" when you've found the colour.

procedure IttyWitty;
var
  x, y, Failsafe: Integer;

begin
  Failsafe := 0;  // Resetting it to zero

repeat
  if FindColorSpiralTolerance(x, y, 24352, MSX1, MSY1, MSX2, MSY2, 5) then
  begin
    Writeln('Found The Color');
    MMouse(x, y, 1, 1, True);
    Break;  // Breaks out of the loop and continues with the script.
  end else Failsafe := Failsafe +1 ; 
  if Failsafe >= 10 then Break; // For not getting stuck in an inf. loop we add a failsafe. 
  Wait(100); // To prevent lag we add a small wait.
until(false)
end;

thank you