on @black:join:#:if (%black = on) { mode # +bb $nick $wildsite | kick # $nick 01Black listed }
menu nicklist {
  -
  Black list
  .ON/Enable
  ..Add $1:%black = on | .auser black $1 | echo 3 *** Added $1 to black list | .notice $1 I added you to my black list | mode # +bb $1 $address($1,2) | kick # $1 01Black listed
  ..Remove $1:%black = on | .ruser black $1 | echo 3 *** Removed $1 from black list | .notice $1 I removed you from my black list | mode # -bb $1 $address($1,2)
  ..-
  ..List:{
    if ($ulist(*,black,0) = 0) { echo 2 * Black list empty | halt } 
    else { %black = on | echo 2 * Black list: | set %i $ulist(*,black,0) | while (%i) { echo 2 $ulist(*,black,%i) | dec %i } }
  }
  ..Clear:%black = on | .rlevel black | echo 3 * Black list has been cleared
  .OFF/Disable:%black = off | echo 3 *** Black is OFF
  -
}