Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;
- ;; Chan limiter by Koko`
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- alias checkchanlim {
- var %chan = $$1
- if ($me !isop %chan) { return }
- 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:#: if ($nick == $me) { .timer $+ $cid $+ $chan 0 60 $!checkchanlim( $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
Add Comment
Please, Sign In to add comment