alias Scores {
  var %x = 1
  while (%x <= $var(%GoodAnswer.*,0)) {
    set %NamePlayer [ $+ [ %x ] ] $gettok($var(%GoodAnswer.*,%x),2,46)
    set %ScorePlayer [ $+ %x ] ] $var(%GoodAnswer.*,%x).value
    inc %x
  }
}