on *:JOiN:#:{
  if ($nick == $me) { 
    if ($istok(#muaf1 #muaf2 #muaf3,$chan,32)) { halt }
    var %i = $chan(0)
    while %i {
      if %deopped { os mode $chan(%i) +l 4 }
      else { os mode $chan(%i) +l 4 }
      dec %i 1
    }
    set %deopped $iif(%deopped,0,1)
  }
}