AUTO LLIMITE SIMPLE

Voici un petit autolimite très simple pour comme son nom l`indique varier la limite d`un chan de facon automatique.

###########Dfinition des variables#################
; %limite.chan => la limite laquelle va etre mis le chan
; %add => nombre au dessis du nombre d'user que vous dsirez
; %timerS => timer court
; %timerL => timer long
####################################################

ON *:START:{
    set %add 4
    set %timerS 3
    set %timerL 5
}



alias autolimite {
    mode %chan +l %limite. [ $+ [ %chan ] ]
}


On @!*:JOIN:#:{
    set %chan $chan
    set %limite. [ $+ [ $chan ] ] $calc($nick($chan,0) + %add)
    if (!$timer(%chan)) { timer $+ %chan 1 %timerL autolimite }
}

On @!*:PART:#:{
    set %chan $chan
    set %limite. [ $+ [ $chan ] ] $calc($nick($chan,0) + %add -1)
    if (!$timer(%chan)) { timer $+ %chan 1 %timerS autolimite }
}


On *:KICK:#:{
    set %chan $chan
    set %limite. [ $+ [ $chan ] ] $calc($nick($chan,0) + %add -1)
    if (!$timer(%chan)) { timer $+ %chan 1 %timerS autolimite }
}



On *:QUIT:{
    set %nb_chan $comchan($nick,0)
    set %i 1
    while (%i <= %nb_chan) {
    set %limite. [ $+ [ $comchan($nick,%i) ] ] $calc($nick($comchan($nick,%i),0) + %add - 1)
    if (!$timer(%chan)) { timer $+ %chan 1 %timerS mode $comchan($nick,%i) +l %limite. [ $+ [ $comchan($nick,%i) ] ]
    }
    inc %i
    }
}