SRL Archive - Help

Hi, I am making a script in scar, not rs related but was wondering if my 'FindReadys' func is correct :D

Thanks in advance!

program Main;

var
X,Y: Integer;

function FindReadys:Boolean;
                      
begin        
  if FindColorTolerance(X, Y,16120397, 765, 208, 786, 229, 20) and FindColorTolerance( X, Y,16120397, 763, 176, 787, 202,20) then

  Result:= True 
end;


procedure Logintogame;
begin


  ClickMouse(671,1018,true);  //clicks back into client
  Wait(500);
   
    repeat
      Wait(200);  
      Writeln('Waiting for others to be ready');                                 //(waits until other players are ready)
    until(FindReadys = True); 
    
   MoveMouseSmooth(748,440);
   ClickMouse(748,440,true);
   Wait(200);
   ClickMouse(748,440,true);           //clicks start twice
end;



{procedure WalkOver;
begin
  
end;}





begin
Logintogame;
//WalkOver;
end.

Yep, seems fine :)

Hmm weird, its not working… Maybe its in the rest of the scrpt?

Result :=  (FindColorTolerance(X, Y,16120397, 765, 208, 786, 229, 20) and FindColorTolerance( X, Y,16120397, 763, 176, 787, 202,20));

There ya go


EDIT:

Also

    repeat
      Wait(200);  
      Writeln('Waiting for others to be ready');                                 //(waits until other players are ready)
    until(FindReadys = True); 

you can simplify to

    repeat
      Wait(200);  
      Disguise('Waiting for others to be ready');                                 //(waits until other players are ready)
    until FindReadys 

To be less clutty and shorter hehe

From: Paradoxium
Hmm weird, its not working… Maybe its in the rest of the scrpt?

Maybe, all that function is doing is finding the colour.

Add a Debug to it:

function FindReadys:Boolean;
begin
  if FindColorTolerance(X, Y,16120397, 765, 208, 786, 229, 20) and FindColorTolerance( X, Y,16120397, 763, 176, 787, 202,20) then
    Result:= True
  else
    begin
      Writeln('Couldn''t find the colour'); // so you know if it's finding it or not.
      Result := False;
    end;
end;

From: abu_jwka
Maybe, all that function is doing is finding the colour.

Add a Debug to it:

function FindReadys:Boolean;
begin
  if FindColorTolerance(X, Y,16120397, 765, 208, 786, 229, 20) and FindColorTolerance( X, Y,16120397, 763, 176, 787, 202,20) then
    Result:= True
  else
    begin
      Writeln('Couldn''t find the colour'); // so you know if it's finding it or not.
      Result := False;
    end;
end;

Thanks abu, yeah i figured it out, since im switching windows, the coor are tricky and i messed up on those lol