chan limiter

;;
;; Chan limiter by Koko`
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


alias checkchanlim {
  var %chan = $$1
  if ( $calc($ialchan(*, %chan, 0) + 5) >= $chan(%chan).limit ) { mode %chan +l $calc($ialchan(*, %chan, 0) + 10) }
  if ( $calc($chan(%chan).limit - 10) > $ialchan(*, %chan, 0) ) { mode %chan +l $calc($ialchan(*, %chan, 0) + 10) }
}

#chanlimiter on
on *:join:#bulgarians: if ($nick == $me) { .timer $+ $cid $+ $chan 0 60 $!chekchanlim($chan) }
on *:part:#: if ($nick == $me) { .timer $+ $cid $+ $chan off }
on *:kick:#: if ($knick == $me) { .timer $+ $cid $+ $chan off }
on *:disconnect: .timer $+ $cid $+ * off
#chanlimiter end