mormonman
2009-04-14 20:59:11
Well, I don't know what is wrong with my internet, but it has lags spikes all the time. I am getting a new router, but who knows if it will work?… I whipped this up to handle those lags that bring up the Welcome Screen.
Use:
Questions, Comments, Criticism?
function findscreen : boolean;
var time : longint;
begin
result:= (GetColor(207, 409) = 238301);
if not result then
begin
marktime(time);
while not (loggedin or result) do
begin
if (timefrommark(time) > 30000) then break;
wait(500);
end;
end;
end;
Use:
if not logged in then//login check whenever you use it...
if not findscreen then
begin
logout;
nextplayer(false);
end else
begin//Click Here to Continue
wait(1000 + random(3000));
mousebox(249, 419, 521, 445, 1);
marktime(s);
while (timefrommark(s) < 30000) and (not(loggedin)) do
wait(1000 + random(1000));
end;
Questions, Comments, Criticism?