No problem.
One way is to have a multi-dimensioned string array variable:
Dim HiScore$(9,1)
This creates a variable which will store 20 string items. You can store 10 player names for the hiscore table in the first subscript (using ,0) and 10 scores in the second subscript (using ,1).
This sounds complicated, but it will make sense when you see this:
Hiscore$(0,0) = "Tom"
Hiscore$(1,0) = "Steve"
Hiscore$(2,0) = "Alice"
and so on to...
Hiscore$(9,0) = "Freddy"
Space for ten names OK?
All you do when a game is finished is look at the players score and see if it's better than the last score on the hiscore table (array position 9).
If it is, then ask for their name. (You already know their score).
If say they have the fifth highest score, then they go into the table at position 4 (remember we are storing scores from 0 to 9 - not 1 to 10).
The scores are stored in the same way as the names, but using the subscript 1:
Hiscore$(0,1) = Str$(Score)
Hiscore$(2,1) = Str$(Score)
Hiscore$(3,1) = Str$(Score) ... and so on.
So, if our player (let's say it's "Some Guy") scored 25000 and that got you on the table at 3rd position we would use:
Input "Made The HiScore Table! Enter Your Name: ";Name$
Hiscore$(2,0) = Name$
Hiscore$(2,1) = Str$(Score)
When you display the HiScore table on the screen, you simply do it in a For..Next loop from 0 to 9, printing subscript 0 and 1 on the same line. Eg:
For N=0 To 9
Print Hiscore$(N,0);" ";Hiscore$(N,1)
Next N
For example, at any time, Hiscore$(6,0) will contain the name of the seventh name on the list and Hiscore$(6,1) will contain the seventh name's score.
The hardest bit is figuring out where on the table the current score should go...
Assuming that your players score is stored in the variable 'Score', you do the following:
If Score > Val(Hiscore$(9,0))
Rem Current score bigger than last on hiscore list
For N=9 To 0 Step -1
If Score > Val(Hiscore$(N,0))
Rem N is position on the table for this player
TablePosition = N
Exit: Rem Found position, so jump out of loop
Endif
Next N
Rem Next shuffle names and scores down to make room for new entry
For N=9 To N+1 Step-1
Hiscore$(N,0)=Hiscore$(N-1,0)
Hiscore$(N,1)=Hiscore$(N-1,1)
Next N
Hiscore$(TablePosition,0)=Name$
Hiscore$(TablePosition,1)=Str$(Score)
Endif
(Hope this works - typing it straight into the box from memory)!
What this does is check to see if the current score is good enough to get on the table. If it is, it runs through the array to find out what position it made.
It then moves all the scores down one position starting at the position the new score has to be slotted in. (The last one falls off the end).
Finally, it slots the new name and score in at the new position.
This should work OK, but if I have made any small errors, it should still give you the general idea of how to make a hiscore table in your game!
TDK_Man
