Code: Select all
procedure svs;
var saveTimer : TDateTime;
Begin
if InJournalBetweenTimes('Saving World State', Now - MsToDateTime(30000), Now) >= 0 then Begin
saveTimer := Now;
UOSay('SaveCheck');
WaitJournalLine(saveTimer, 'SaveCheck', 30000);
wait(1000);
End;
End;