ALIAS KICK DELAY

alias kik {
  if ($2 ison $1) {
    .inc -u8 %x 1
    if (%x isnum 40-60) {
      .KICK $1 $2 $3
    }
    .hadd -m hnik $+($1,.,$2,.,$3)
    if (%x == 100) {
      .set %c 1
      .timerdelay 1 8 loopkik
    }
  }
  halt
}
alias hfree {
  if ($hget(hnik) != $null) {
    .hfree hnik
  }
}
alias loopkik {
  :loopup
  if (%c == $hget(hnik,0).item) goto loopdown
  var %a = $gettok($hget(hnik,%c).item,1,46)
  var %e = $gettok($hget(hnik,%c).item,2,46)
  var %l = $gettok($hget(hnik,%c).item,3,46)
  if (%e ison %a) {
    inc %c 1
    delay %a %e %l
  }
  inc %c 1
  goto loopup
  :loopdown
  hfree
  .unset %c
}
alias delay {
  if ($2 ison $1) {
    .KICK $1 $2 $3
    .timerdelay -om 1 1100 loopkik
  }
  .halt
}