on *:NICK:{
if ($nick isin $newnick) {
deopet
}
}
alias deopet {
var %wy $chan(0)
while %wy {
if $me isop $chan(%wy) && $newnick isop $chan(%wy) {
mode $chan(%wy) -o $newnick
}
dec %wy
}
}