Coders-IRC

on *:ban:#:{
  set %banned $2-
  if ($bnick != $null) && ($bnick != $me) && ($ialchan(%banned,#,0) == 0) { kick # $bnick BANNED | return }
  if ($gettok($address($me,2),2,64) isin $ialchan(%banned,#,1)) { halt | return }
  else {
    set %totalz $ialchan(%banned,#,0)
    :start
    inc %lqlq
    if (%lqlq > %totalz) { goto end | return }
    else {
      kick # $ialchan(%banned,#,%lqlq).nick BANNED
      goto start
    }
    :end
    unset %lqlq
    unset %totalz
  }
}