Unnamed

on *:join:#channel: {
  whois $nick
}

raw 319:*: {

if ($2 ison #channel) {

  set -n %blacklist #mp3channel #creditcard #etc

  set %user.channels $remove($1-,@,+)
  set %checknum $0
  set %i 3
  while (%i <= %checknum) {
    set %blacklist.check $addtok(%blacklist.check,$gettok(%user.channels,%i,32),32)
    set %del $gettok(%user.channels,%i,32)
    if ($istok(%blacklist,%blacklist.check,32) == $true) {
      ban -u300 #ircmods $2 2
      kick #channel $2 You are in a blacklisted channel.
      unset %blacklist.check
      unset %del
      break
    }
    if ($istok(%blacklist.check,%del,32)) {
      set %blacklist.check $deltok(%blacklist.check,$findtok(%blacklist.check,%del,32),32)
      inc %i 1
    }
  }
}