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 $address($$1,2)
      $iif($$1 ison $chan(%a),kick $chan(%a) $$1 Banned)
      inc %a
    }
  }
}