SRL Archive - Help and Support

Ok using a scar for custom purpose.

I always need to be able monitor for colour and if found interupt other procedures and run another.
Im aware of how to find a color, Just dont understand the procedure set up i should use

Been along time since ive done this.

repeat
  wait(50);
until(GetColor(x,y) = 000000)

AnotherProcedure();

or

repeat
  wait(50);
  if GetColor(x,y) = 000000 then
    AnotherProcedure();
until(false)

~RM

No that will mean, my procedures will have to wait to run or might miss it.

The 'Wait(50)' RM posted is simply to avoid lag.

you could use SetTimeout or a TTimer
if thats what you mean

~shut

Heres some pseudo code (if you can call this that):

procedure TheProc;
while (not GetColor(x, y, color)) do begin
    Myproc;
    MyFunc(a, x, d);
end
//here proceed with the things you want to do when it gets the color
TheProc; //now return to _self_
end

EDIT: And heres some working code (tested it with MS Paint):

program new;

function ColorIs(Color: Integer): boolean;
begin
Result := False;
  if (GetColor(100, 100) = Color) then begin
    Result := True;
  end;
end;

procedure WaitForC;
begin
  while (not ColorIs(16777215)) do begin
    ClearDebug;
    Writeln('Waiting for the color...');
    Sleep(10);
  end;
  ClearDebug;
  Writeln('Color is there!');
  Sleep(5000000);
  WaitForC;
end;

begin
  WaitForC;
end. 

I wanted to do this a few months ago, but I think the only way I found to do it(if I remember correctly) was to write a plugin.

afaik multiple threads would be the simplest way to solve this problem.

Your a genius lord.

Considerin we don't have multiple threading….

SetTimeout has a reputation for failing

~RM

From: Sir R. Magician
Considerin we don't have multiple threading….

SetTimeout has a reputation for failing

~RM

Cough. Plugin. Cough.

BTW: First post in like a year.

Describe your situation mental? I might be able to help.

Welcome back tniffoc.