on *:NICK: {
  .var %x 1
  while (%x <= $chan(0)) {
    if ($nick == $matchtok($readini(nicklist.ini, nicklist, $chan(%x)),$nick,1,32)) {
      .writeini nicklist.ini nicklist $chan(%x) $reptok($readini(nicklist.ini, nicklist, $chan),$nick,$newnick,1,32)
      .inc %x 1     
      updtopic $chan 
    }
    else { .inc %x 1 }
  }
}