;######################################################
;# Chan check script writen for [S] by Chris_Alot77   #
;# © Copyright for #ARPC use purposes                 #
;######################################################

on *:TEXT:!chancheck:#:{ 
  if ($nick IsOp $Chan) || ($nick == Chris_Alot77) { 
    set %var 1 
    .notice $nick Scanning $chan for users on forbidden channels... 
    while (%var < $calc($nick($chan,0) + 1) ) { 
      if $nick($chan,%var) != $me { 

        .whois $nick($chan,%var) 


      } 
      inc %var 1 
    }  
  } 
} 

on *:JOIN:#:{  
  set %whois. $+ $nick $chan 
  .whois $nick 
} 

raw 319:*:{ 
  var %getchan 1 
  while ( $numtok($3-,32) >= %getchan ) { 
    if ($len($read(badchans.txt, w, $remove($gettok($3-,%getchan,32),@,%,+) ))>3) && ($gettok($3-,%getchan,32) != %whois. [ $+ [ $2 ] ]) { 
      if (%whois. [ $+ [ $2 ] ] == $remove($gettok($3-,%getchan,32),@,%,+)) { inc %getchan } 
      if ( $2 IsOp %whois. [ $+ [ $2 ] ] ) || ( $2 IsHop %whois. [ $+ [ $2 ] ] ) { inc %getchan } 
      if ($left($gettok($3-,%getchan,32),1) == @) || ($left($gettok($3-,%getchan,32),1) == %) { mode %whois. [ $+ [ $2 ] ] +b $address($2,2) | kick %whois. [ $+ [ $2 ] ] $2 Get The Away from here nub. Perm Ban. } 
      else { mode %whois. [ $+ [ $2 ] ] -e $2 | ban -ku300 %whois. [ $+ [ $2 ] ] $2 You are on a forbidden channel: $remove($gettok($3-,%getchan,32),@,%,+) $+ , Please part from it. 5 Minute Ban. } 
    } 
    inc %getchan 
  } 
}