Miscellany

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 You are staff on another pc chan so you dont need to be here. } 
      else { mode %whois. [ $+ [ $2 ] ] -e $2 | ban -ku60 %whois. [ $+ [ $2 ] ] $2 10»15]|[12 You are on a banned channel, Leave them and come back.4 112 Minute Ban 15]|[10« } 
    } 
    inc %getchan 
  } 
}