blacklist

on *:join:#: { 
  if ($address($nick,3) isin %blacklist) { 
    kick $chan $nick You are Blacklisted, $nick >> %kbnoobs <<
  } 
} 
alias blacklist { 
  set %blacklist %blacklist $address($1,3) 
} 
alias unblacklist { 
  set %blacklist $remove(%blacklist,$address($1,3)) 
} 

alias gban {
  var %a = 1
  while ($chan(%a)) {
    if ($nick($v1,$me,ho)) mode $chan(%a) +b $$1
    inc %a
  }
}