In your until the coordinates for the black dot are different.
SCAR Code:
procedure HandleLag;
begin
if not GetColor(179, 129) = 0 then Exit;
repeat
if (GetColor(179, 129) = 0) then Wait(500+random(500));
until(not GetColor(109, 192) = 0);
end;
Should be:
SCAR Code:
procedure HandleLag;
begin
if not GetColor(179, 129) = 0 then Exit;
repeat
if (GetColor(179, 129) = 0) then Wait(500+random(500));
until(not GetColor(179, 129) = 0);
end;
This is kind of a dangerous way to detect the loading box anyways. What if there is a black color there on the screen? It would think that this was the lag box.
What I did a long time ago when they came out with the lag thing (over 2 years ago) was get the coordinates around the box, then count the colors in it:
SCAR Code:
function Loading: Boolean;
var TPA: TPointArray;
LoadingTime: Integer;
begin
if(not(LoggedIn))then Exit;
FindColorsSpiralTolerance(x,y,TPA,0,7,7,204,34,0);
Result := GetArrayLength(TPA) = 5291;
end;
Use:
SCAR Code:
while(Loading)do wait(1);
There might not be exactly 5291 black colors in the rectangle now and those may not be the correct coordinates. But it worked fine back then.