oh.. lol, i had LogOutMark declared as a global integer. hang on. let me post the whole script..
EDIT:
SCAR Code:
program New;
{.include SRL\SRL.scar}
const
StartPlayer =0;
var
LogOutMark : Integer;
procedure DeclarePlayers;
begin
RCMaster := 'azy'; //<- fill in the Nickname of the RC master.
RCLoc := 'Chickens';
SRLID := '1062';
SRLPassword := '527614';
HowManyPlayers := 1;
CurrentPlayer := StartPlayer;
NumberOfPlayers(HowManyPlayers); // set arraylength
Players[0].Name :='lazydude67';
Players[0].Pass :='';
Players[0].Nick :='azy';
Players[0].integers[1] :=0; //See Notes: 0,1,2,3,4
Players[0].Skill:='Strength'; //Strength, Attack, Range, Random, Defense, or Pure
Players[0].Active:=True;
end;
procedure SleepEvery(mins, forxmins: integer);
var
Mark: Integer;
begin
if ((TimeFromMark(LogOutMark) / 1000) / 60 >= mins) then
begin
LogOut;
WriteLn('Logging out and coming back in about ' + IntToStr(forxmins) +' min(s)');
MarkTime(Mark);
repeat
Wait(1000 + Random(1000));
Wait(15 + Random(15) + Random(15))
until (TimeFromMark(Mark) / 60000 >= forxmins);
LoginPlayer;
MarkTime(LogOutMark);
end;
end;
begin
SetupSRL;
DeclarePlayers;
MarkTime(LogOutMark);
repeat
SleepEvery(1, 1);
until(False);
end.