How do I make a script that repeats the same line every X amount of seconds?

[miketh2005]

How do I make a script that repeats the same line every X amount of seconds?

[xmRipper]

http://enesce.com/help/index.html?Events/AppOnIdle.html
Look at the Timer Examples.

[iDante]

I sometimes like doing it this way (which is unnecessarily complex but whatever):

Code: [Select]

const
   Time = 5; //Seconds

var
   Timer: integer;

procedure ActivateServer;
begin
   Timer := Time;
end;

procedure AppOnIdle(Ticks: cardinal);
begin
   Timer := Timer - 1;
   if (Timer = 0) then begin
      //Do stuff here
      Timer := Time;
   end;
end;

[miketh2005]

I sometimes like doing it this way (which is unnecessarily complex but whatever):

Code: [Select]

const
   Time = 5; //Seconds

var
   Timer: integer;

procedure ActivateServer;
begin
   Timer := Time;
end;

procedure AppOnIdle(Ticks: cardinal);
begin
   Timer := Timer - 1;
   if (Timer = 0) then begin
      //Do stuff here
      Timer := Time;
   end;
end;

Thanks, what do I put in "Do stuff here" I knew how a long time ago, but I forgot.

[iDante]

I sometimes like doing it this way (which is unnecessarily complex but whatever):

Code: [Select]

const
   Time = 5; //Seconds

var
   Timer: integer;

procedure ActivateServer;
begin
   Timer := Time;
end;

procedure AppOnIdle(Ticks: cardinal);
begin
   Timer := Timer - 1;
   if (Timer = 0) then begin
      //Do stuff here
      Timer := Time;
   end;
end;

Thanks, what do I put in "Do stuff here" I knew how a long time ago, but I forgot.

Code: [Select]

WriteConsole(0, 'Writing', $FFFFFF);
Will write the stuff in ''s (currently Writing) in white (#FFFFFF) to everyone (0).

[miketh2005]

Thanks.