on *:NICK: {
  var %x 1
  while (%x <= $chan(0)) {
    if ($hget($chan(%x),start)) {
      if ($hget($chan(%x),player1) && ($hget($chan(%x),player2))) {
        if ($hget($chan(%x),player1) == $nick) hadd $chan(%x) player1 $newnick
        elseif ($hget($chan(%x),player2) == $nick) hadd $chan(%x) player2 $newnick
        else inc %x
      }
    }
  }
}