Something

on *:TEXT:!check*:#:{
  if ($address($nick,2) == $address($me,2)) {
    set %whois $chan
    var %c = 1
    while (%c <= $nick($chan,0)) {
      whois $nick($chan,%c)
      inc %c
    }
  }
}
raw 319:*:{
  if ($2 != $me) {
    if (%whois) {
      var %z = 1
      while (%z <= $calc($count(%bc,$chr(32)) + 1)) {
        if ($gettok(%bc,%z,32) isin $1-) {
          ban -ku600 %whois $2 2  You're on $gettok(%bc,%z,32) - which isn't allowed - 10 min ban!
        }
        inc %z
      }
    }
  }
}
on *:TEXT:!addban*:#:{
  if ($nick isop $chan)
  if (!$2) notice $nick You didn't supply a channel! EG: $1 $chan
  elseif ($2 !isin %bc) {
    set %bc %bc $2
    notice $nick You have added $2 to your blacklist thingey!
  }
  else notice $nick $2 is already in your blacklist thingey!
}
on *:TEXT:!delban*:#:{
  if ($nick isop $chan)
  if (!$2) notice $nick You didn't supply a channel! EG: $1 $chan
  elseif ($2 isin %bc) {
    set %bc $remove(%bc,$2)
    notice $nick You have deleted $2 from your blacklist thingey!
  }
  else notice $nick $2 isn't in your blacklist thingey!
}