SCAR Code:
{*******************************************************************************
procedure LogOutEvery(hours, forxmins: Integer);
By: Stupid3ooo
Description: Logs you out every hours for forxmins
*******************************************************************************}
procedure LogOutEvery(hours, forxmins: Integer);
var
Mark: Integer;
begin
if ((TimeFromMark(LogOutMark) / 1000) / 3600 >= hours) then
begin
MarkTime(LogOutMark);
MMouse(Random(500), -10, 0, 0)
LogOut;
Writeln('Logging out and coming back in about ' + IntToStr(forxmins) + ' min(s)');
MarkTime(Mark);
repeat
MMouse(0, 0, 100, 100)
Wait(90000 + Random(1000));
Wait(15 + Random(15) + Random(15))
until (TimeFromMark(Mark) >= forxmins);
Wait(Random(30000) + Random(30000));
LoginPlayer;
Wait(Random(15000) + Random(15000));
end;
end;