Unnamed

on *:TEXT:!chancheck*:#: {
  if ($nick isop $chan) || ($nick == Chris_Alot77) {
    /msg #arpc 6Commensing whois check. Users on banned channels will be banned.
    /chancheck
  }
}
alias chancheck {
  .enable #arpcheck
  set %lastnick $nick(#ARPC,$nick(#ARPC,0,r),r)
  var %a = 1
  while ($nick(#ARPC,%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)
}
#arpcheck 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 #ARPC $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
    }
  }
}
#arpcheck end