Timer Question

[Irlandec]

How to add a timers to commands(every timer i different).
Exmaple:

timer1 for command /test
timer2 for command /do etc.

Here's an exmaple of one timer in my code:

Code: [Select]

var
   k_timer: array[1..32] of integer;

procedure AppOnIdle(Ticks: integer);
var i: integer;
begin
        for i := 1 to 32 do
        if k_timer[I] > 0 then begin
                k_timer[I] := k_timer[I] - 1;
                if k_timer[I] = 0 then
                        WriteConsole(i,'Hunter Kit cooled down, type !kit to get it',cWowItIsAColour);
        end;
end;
and only 1 timer is possible( i dunno, all my tries failed)

[As de Espada]

you'll have to make one timer for each command

Code: [Select]

var
    test_timer: array[1..32] of integer;
    do_timer: array[1..32] of integer;

procedure ticktimer(timer);
        if timer > 0 then begin
           timer := timer - 1;
           if timer = 0 then
case timer of
    test_timer[i]:WriteConsole(i,'Hunter Kit cooled down, type !kit to get it',cWowItIsAColour);
    (...)
end;
       end;
end;

procedure AppOnIdle(Ticks: integer);
var i: integer;
begin
       for i := 1 to 32 do begin
           ticktimer(test_timer[i]);
           ticktimer(do_timer[i]);
end
end;
or something like that, I didn't tested it

[jrgp]

Nah, just use procedure AppOnIdle(Ticks: integer); once and have multiple modulus if-thens inside.

ex:

Code: [Select]

procedure AppOnIdle(Ticks: integer);
begin
  //first thing
  if (Ticks % 5) = 0 then
     Whatever1();  //something to do every 5 seconds
  //a different timer
  if (Ticks % 60) = 0 then
     Whatever1();  //something to do every minute
end;

(the descriptions on time probably aren't correct and my code might be syntacticly invalid, but you probably get the idea)

[DorkeyDear]

@jrgp 60 ticks = 1 second..
and I don't believe % is defined in pascal
so instead:

Code: [Select]

procedure AppOnIdle(Ticks: integer);
begin
  //first thing
  if (Ticks mod (60 * 5)) = 0 then
     Whatever1();  //something to do every 5 seconds
  //a different timer
  if (Ticks % (60 * 60) = 0) then
     Whatever1();  //something to do every minute
end;

[Irlandec]

Umm , actuallt I wanted the timer started after command was executed

[amb2010]

Then add a boolean in front of the Ifs so that when you type the command it sets the boolean to true then just set it back to false when you don't want it to do the timer.

-taken from curts example-

Code: [Select]

procedure AppOnIdle(Ticks: integer);
begin
  //first thing
  if (start1) then begin
    if (Ticks mod (60 * 5)) = 0 then
      Whatever1();  //something to do every 5 seconds
  end;
  //a different timer
  if (start2) then begin
    if (Ticks % (60 * 60) = 0) then
      Whatever1();  //something to do every minute
  end;
end;
I think that should work....