SRL Archive - SRL Archives

Much shorter DidClick(…), works exactly the same for me.

Function DidClick(Red: Boolean; Time: integer): boolean;
var
  TimeOut, x, y, Trash: integer;
begin
  GetMousePos(x, y);
  TimeOut := GetSystemTime + Time;
  while (GetSystemTime < TimeOut) do
  begin
    Result := FindColor(Trash, Trash, 255 + (Integer(not(Red))*65280), x - 15, y - 15, x + 15, y + 15);
    wait(5);
    if (Result) then Break;
  end;
end;

That doesn't do the same thing. That only checks for 1 color.
I already shortened the function in the original thread but RM said it's unreadable :p

I thought it was only ment to check for one colour?

From: Quickmarch
I thought it was only ment to check for one colour?

Nah, it checks for both. The reason is so that if it detects either color, it'll stop looking, but it'll result in false if it detects the color you weren't looking for.

Ah, yes. :) I guess this is isn't really needed then. :p

I guess noone would mind me closing this, then?

I thought the title said DickClick, made me open this thread.. Disappointing result :-(