on *:NICK: {
  if $istok(%oto+m [ $+ [ $chan ] ],$nick,32) {
    if $istok(%oto+m [ $+ [ $chan ] ],$nick,32) { %oto+m [ $+ [ $1 ] ] = $remtok(%oto+m [ $+ [  $chan ] ],$nick,1,32) } 
    set  %oto+m [ $+ [ $chan ] ] = $addtok(%oto+m [ $+ [ $chan ] ],$newnick,32) 
  }
}