on *:nick: {
  if $istok($($+(%,.,oto+m,$chan),2),$nick,32) {
    var %i = 0
    while (%i < $comchan($newnick,0)) { 
      inc %i
      set %oto+m [ $+ [ $comchan($newnick,%i) ] ]  $addtok(%oto+m [ $+ [ $comchan($newnick,%i) ] ],$newnick,32) 
    }
  }
}