Code archives/File Utilities/Highscore functions
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
Implement this in your game to save, load and sort your highscores. 20 players in the example but any number can be used by increasing the array. | |||||
; Highscore load/save/sort by Wedoe Dim names$(21) Dim scores(21) ; Your game goes here ! End ;-------------------------------- Read highscore from file Function readhs() file=ReadFile("highscore.sco") For a=1 To 20 names$(a)=ReadLine(file) scores(a)=ReadLine(file) Next CloseFile (file) End Function ;-------------------------------- Write highscore to file Function writehs() file=WriteFile("highscore.sco") For a=1 To 20 WriteLine (file,names$(a)) WriteLine (file,scores(a)) Next CloseFile (file) End Function ;------------------------------- Simple bubblesort Function sorths() .sorths swap=0 For a=1 To 20 If scores(a+1) > scores(a) Then tmp1=scores(a) tmp2$=names$(a) scores(a)=scores(a+1) names$(a)=names$(a+1) scores(a+1)=tmp1 names$(a+1)=tmp2$ swap=1 EndIf Next If swap=1 Then Goto sorths End Function ;------------------------------- ; When you have some data for the scorelist ; always put last player in position 21 ; and then sort the list. ; If he is worthy to get on the list he will ; and if not he will remain at number 21 ; which you of course never prints out |
Comments
| ||
Pretty simple and does the trick. I'm using this myself, nice work! |
Code Archives Forum