on *:join:#:{
  if $read(oplar.txt,s,$nick) { 
    tokenize 32 $v1
    var %t = 0 | var %m = $numtok($1-,32)
    while %t < %m { inc %t | if $gettok($1-,%t,32) == $chan { mode $ifmatch +o $nick } }
  } 
}