Code:
 on +1000:join:#:{
    mode # + $+ $iif($pre($me) = . || $pre($me) = .,q,o) $nick
}
alias pre { .return $iif($1 !isreg #,$left($nick(#,$1).pnick,1)) }


I used to use that when i was on IRCDs