alias pb.top10 {
  var %x 1
  while (%x <= $pb.players) {
    if ($hget(pb.top10,$address($hget(pb.users,%x),5))) != $null) {
      hadd pb.top10 $address($hget(pb.users,%x),5) %x
      hadd pb.top10 $address($hget(pb.users,%x),5) %x
    }
    if ($hget(pb.top10,$address($hget(pb.users,%x),5))) == $null) {
      hadd pb.top10 $address($hget(pb.users,%x),5) 1
      hadd pb.top10 $address($hget(pb.users,%x),5) 1
    }
    inc %x
  }
}