Executing sth in every X minutes, help!

[keshramisami]

Hi! I wrote script, that starts "party" on cmd, and after 60 seconds party ends.. I want to do it executes automaticly every X mintues, but really don't know how (tried AppOnIdle event from enesce help but I can''t make this work). Here's the script executing "party" on cmd (used iDante Timer from "How to write soldat script"): http://nopaste.com/p/aVYG7ow8o
Could somebody help me ? Ty

[JFK]

lol, sure

replace the line:

Code: [Select]

if Timer > 0 then
with:

Code: [Select]

if (Timer > 0) and (Timer < 60) then

and change this:

Code: [Select]

Timer := -1;
to:

Code: [Select]

Timer := X;
and replace X the number of SECONDS you want it to execute automaticly.

type /party once to start the fun
and /recompile to stop it :p

oh and i would remove the line with WriteFile in it. I really don't see the purpose of it and it will execute every second..

[DorkeyDear]

Another method to do this would be:

Code: [Select]

var
  CallAt: cardinal;

procedure OnTimeEnd();
begin
  // this gets called every 5 minutes
end;

procedure ActivateServer();
begin
  CallAt := GetTickCount() + 60; // one second latter
end;

procedure AppOnIdle(Ticks: cardinal);
begin
  if ((CallAt > 0) and (Ticks >= CallAt)) then begin
    CallAt := Ticks + 18000; // 60 ticks per second * 60 seconds per minute * 5 minutes = 18000 ticks
    OnTimeEnd();
  end;
end;But this is probably more confusing, but it doesn't have to set a variable every second. The other way works just as well.

[EnEsCe]

Bah.

Code: [Select]

procedure AppOnIdle(Ticks: cardinal);
begin
  if (Ticks mod (3600 * 5) = 0) then begin
    //Code here to be executed every 5 minutes
  end;
end;

You all do it so very very wrong.

[iDante]

Bah.

Code: [Select]

procedure AppOnIdle(Ticks: cardinal);
begin
  if (Ticks mod (3600 * 5) = 0) then begin
    //Code here to be executed every 5 minutes
  end;
end;

You all do it so very very wrong.

Yeah that works too.
On another note, why does AppOnIdle use ticks instead of just the # of seconds?

[EnEsCe]

Because that doesn't allow room for the function to ever be called more than once per second.

[keshramisami]

I tried all of those... Nothing works, only one thing that have changed is player dies and seeing "party ends blalbla" on join team... I'm propably doing it wrong, because I'm newbie, so please gimme ready piece of code :/ Ty.. Oh, and btw. I don't wanna to make another topic so Ill ask here: I need sth to clear all dropped weapons from map when party ends... Ty ^^