elite's tb30 on join

READ NOTES AT BOTTOM!


on *:TEXT:!noobcheck:#:{ 
if $nick IsOp $#hq-staff || $nick IsHop $hq-staff || ($address($nick,2) == $address($me,2)) { 
set %var 1 
.notice $nick Scanning #pc-hq 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 #pc-hq 
  .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 }  
      else { mode %whois. [ $+ [ $2 ] ] -e $2 | ban -ku1800 %whois. [ $+ [ $2 ] ] $2 7You are on a 4forbidden7 channel: 14 $remove($gettok($3-,%getchan,32),@,%,+) $+ ,7 Leave that channel then try again. 11 30 12 Minute Ban. } 
    } 
    inc %getchan 
  } 
}


type !noobcheck in #hq-staff to start it.
go to paste: bad channel lsit too ull need it.