Code below or wait for SRL update, should be in ~30 mins - hour.
Simba Code:
function DidClick(Red: Boolean; Time: integer): boolean;
var
TimeOut, x, y, w, h: integer;
TPA1, TPA2: TPointArray;
B: TBox;
begin
GetMousePos(x, y);
GetClientDimensions(w, h);
B := IntToBox(x - 15, y - 15, x + 15, y + 15);
if B.x1 < 0 then B.x1 := 0;
if B.y1 < 0 then B.y1 := 0;
if B.x2 > w then B.x2 := w;
if B.y2 > h then B.y2 := h;
TimeOut := GetSystemTime + Time;
while (GetSystemTime < TimeOut) do
begin
With B do
begin
FindColors(TPA1, 333711, x1, y1, x2, y2);//Red
FindColors(TPA2, 168682, x1, y1, x2, y2);//Orange/Yellow
if (Length(TPA1) > 0) and (Length(TPA2) > 0) then
begin
if (Length(TPA1) > Length(TPA2)) then
begin
if Red then
Result := True
else
Result := False;
Exit;
end;
if (Length(TPA1) < Length(TPA2)) then
begin
if Red then
Result := False
else
Result := True;
Exit;
end;
end;
end;
wait(2);
end;
end;
Code below or wait for SRL update, should be in ~30 mins - hour.