procedure AppOnIdle(Ticks: integer);
begin
if ( Ticks mod (60 * 10) = 0 ) then begin
WriteLn('10 seconds has passed');
SayToPlayer(0,'Type /!help to see all available commands!');   
end;
end;