For the first question ,you could use something like this:
SCAR Code:
Procedure GoingOn(What:string);
begin
Writeln(What+' ('+TheTime+')')
status(What+' ('+TheTime+')')
end;
REMEMBER THAT THIS IS STRAIGHT OUT OF PENTTI'S MULTI CITY MINER AND I DON'T KNOW IF YOU MAY USE THIS!!!!
For the debug thing: I really don't know
For the timing use something like this:
SCAR Code:
begin
repeat
Login;
MarkTime(LoginTime)
repeat
//MainLoop here
until ((not(LoggedIn) or (TimeFromMark(LoginTime) > YOURTIMEHERE))
MarkTime(StayLoggedOut);
repeat
wait(5000)
until (TimeFromMark(StayLoggedOut) > YOURTIMEHERE)
NextPlayer(True);
until(false);
end.