AUTO LLIMITE SIMPLE

###########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
  }
}