Timing.scar fix

[TRiLeZ]

About a month ago I noticed that some functions did not work so I posted them here. Evil Chicken said that he commited what I posted but he only changed one thing that I fixed. I tryed to use one of the functions but it didnt work. All of the other functions are working though so thats good.

The function is WaitColor.

The problem is... while (Time < GetSystemTime) do
it should be while (Time > GetSystemTime) do

Here is the function all fixed up:

{*******************************************************************************
Function WaitColor(x, y, Color, Tol, MaxTime: integer): Boolean;
By: Rasta Magician, fixed by TRiLeZ
Description: Waits for a color at (x, y) with tolerance Tol, returns true if found
*******************************************************************************}
Function WaitColor(X, Y, Color, Tol, MaxTime: Integer): Boolean;
var
  Time: Integer;
begin
  Result := False;
  Time := GetSystemTime + MaxTime;
  while (Time > GetSystemTime) do
  begin
    if SimilarColors(GetColor(X, Y), Color, Tol) then
    begin
      Result := True;
      Exit;
    end;
    Wait(5 + Random(6));
  end;
end;

[EvilChicken!]

Committed, thank you.

[Sir R. M8gic1an]

/me Slaps nava. that was his edit.

~RM