Code:
 on @*:JOIN:#:{
   if (*[p]* iswm $nick) && ($nick ison #plounge) { mode $chan +o $nick }
}
on @*:nick:{
if (*[p]* !iswm $newnick) {
var %a = $comchan($nick,0)
while %a {
if ($newnick isop $comchan($nick,%a)) { .mode $comchan($nick,%a) -o $newnick }
dec %a
}
}
}