on *:text:!addchannel*:#:{
  set %badchan $addtok(%badchan,$2,32)
  msg $chan new channel added to list: $2 $+ .
}
on *:text:!delchannel*:#:{
  set %badchan $deltok(%badchan,$2,32)
  msg $chan Channel removed: $2 $+ .
}
on *:join:#:{
  whois $nick
}
raw 319:*: {
  if (%badchan iswm $3-) {
  ban -ku600 $chan $nick Your in another pc channel!
}