on *:Text:!mckon:#: {
  if ($nick isop $chan) || if ($nick ishop $chan) || ($nick == Manic) { 
    set %ck on
  }
  else { notice $nick This command is only available to Operators. Sorry. }
}
on *:Text:!mckoff:#: {
  if ($nick isop $chan) || if ($nick ishop $chan) || ($nick == Manic) { 
    set %ck off
  }
  else { notice $nick This command is only available to Operators. Sorry. }
} 

on @*:join:#manic:{ .enable #check | whois $nick }

#check off

raw *:*:{ 
  if ($numeric == 318) { 
    .disable #check 
  }
  if ($numeric == 319) {
    if (%ck == on) {
      var %badchannels = #pest-hq #pc #pestcontrol #pc
      if ($regex($3-,/(?<=^| )([@%+-]?\Q $+ $replacecs(%badchannels,\E,\E\\E\Q,$chr(32),\E|\Q) $+ \E)(?= |$)/i)) {
        ; bad channel found!
        if ($2 ison #manic) { /ban -k $v2 2 4Multiple Pest Control Channels are NOT tollerated on 8PC-HQ! | /msg #manicc $2 has been banned on #manic for multi-channeling! Channel: $regml(1) (auto-join whois/ban by ~Manic~) } 
      }
      elseif ($regsubex($3-,/(?<=^| )(?!\S*(?:pc|pest|control))\S*/ig,)) {
        ; a pest control channel(s) found
        .msg [-Manic-] $1 is in the following pest control channels: $v1
      } 
    }
    halt 
  }
  #check end

}