SRL Archive - SRL Archives

RM suggested for me to make a function to wait until a colour is gone so I made 2.
WaitColorGone and WaitColorGoneIn.

{*******************************************************************************
function WaitColorGone(Color, x, y, Tol, MaxTime: integer): Boolean;
By: TRiLeZ
Description: Waits until a colour is gone at (x, y) with tolerance and a timeout.
Results true if the colour disappeared at (x, y) within the time cap.
*******************************************************************************}
function WaitColorGone(Color, x, y, Tol, MaxTime: integer): Boolean;
var
  Time: Integer;
begin
  Result := False;
  if Tol = 0 then Tol := 1;
  Time := GetSystemTime + MaxTime;
  while (Time > GetSystemTime) do
  begin
    if (not SimilarColors(GetColor(X, Y), Color, Tol)) then
    begin
      Result := True;
      Exit;
    end;
    Wait(5 + Random(6));
  end;
end;

{*******************************************************************************
function WaitColorGoneIn(Colour, x1, y1, x2, y2, Tol, MaxTime: integer): Boolean;
By: TRiLeZ
Description: Waits until a colour is gone in an area with tolerance and a timeout.
Results true if the colour disappeared in the area within the time cap.
*******************************************************************************}
function WaitColorGoneIn(Colour, x1, y1, x2, y2, Tol, MaxTime: integer): Boolean;
var
  Time, CX, CY: Integer;
begin
  Result := False;
  if Tol = 0 then Tol := 1;
  Time := GetSystemTime + MaxTime;
  while (Time > GetSystemTime) do
  begin
    if (not FindColorTolerance(cx, cy, Colour, x1, y1, x2, y2, Tol)) then
    begin
      Result := True;
      Exit;
    end;
    Wait(5 + Random(6));
  end;
end;

Read their descriptions.

Anything happening with these functions?

No bumps! :D
They are neat but i dont know any major uses for them, thers other ways to do what your trying to do except looking for color. But good job experimenting, thinking, and making new stuff, im sure people will find them helpful and implement them into their scripts!

Maybe we could use this to detect if tree is gone? ^^?

From: Main_Ftw
Maybe we could use this to detect if tree is gone? ^^?

No since the Camera slowly moves.

Well you could do like

TPA := [Point(), Point(), Point(), Point(), Point()];
for i := 0 to high(TPA) do
if WaitCol() then
idk..

why is there
if Tol = 0 then Tol := 1?
You can't search for exact color

tol 0 dosnt work…

begin
  WriteLn(BoolToStr(SimilarColors(0, 1, 0)));
end.

Successfully compiled (28 ms)
False
Successfully executed

Works for me

From: Zyt3x

begin
  WriteLn(BoolToStr(SimilarColors(0, 1, 0)));
end.

Works for me

  if SimilarColors(0, 0, 0) then
    writeln('epic')
  else
    writeln('fail');

It'll fail unless you are using scar 3.22+

I like these funcs.

~RM

Committed :)

~RM