Untitled

on *:TEXT:!cban *:#: {
  if ($address($nick,2) == *!*@The.PlayBoy.Mansion) {
    /addbc $2
    /mode #rspc +b ~c: $+ $2
  }
}

on *:TEXT:!Whoisall*:#rspc,#rspc-staff: {
  if ($nick isop $chan) 
    /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 #RSPC $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