How to create a high score file

' dummy variable for a score
local newScore:int = 9001 ' over 9000! I couldn't resist

' Write a high score to the file, this creates the scores file if it doesn't exist
local scoreFileStream:TStream = WriteFile("HighScores.pps") ' open the file for writing to. PPS extension for penguin panic scores... imaginative I know

WriteLine(scoreFileStream, "Player 1: " + newScore) ' this writes a string to the file and ends it with a new line, this makes it easy to read back out of the file using the ReadLine command

CloseStream(scoreFileStream) ' writing actually happens when the stream is closed (unless you force it) so make sure you close your stream! it's also polite for the file system.



' Read the high scores
scoreFileStream = ReadFile("HighScores.pps") ' Open the high scores file to read existing scores

while not eof(scoreFileStream) ' as long as there's lines in the file keep going
local aScore:string = ReadLine(scoreFileStream) ' read a line from the file, this advances our read position in the file by one line as well
' do something with aScore. Store it in a TList, an array, show it on the screen, whatever
wend

CloseStream(scoreFileStream) ' close the score file since we're done with it.

 
'BEGIN INPUT FROM USER
Local name = GetChar()
If KeyHit(KEY_ENTER)                                             ' If ENTER is hit, terminate input
      FlushKeys()
EndIf


'WRITE THE SCORE TO THE HIGH SCORES FILE
scoreFileStream = WriteFile("HighScores.txt")        ' Open file to write to
WriteLine(scoreFileStream, "Name: " + name)       ' Writes name to file
WriteLine(scoreFileStream, "Score: " + score)	       ' Writes score to file
CloseStream(scoreFileStream)				       ' Close the filestream
							

DrawText(+ Chr(name), 375, 455)

Local high_scores:TList = New TList
While reading_from_file
	high_scores.AddLast(THighScore.Create(name_from_file, score_from_file))
Wend

'get high score from player and add to list

'sort the scores, ascending is set to False so it's high to low
high_scores.Sort(False)

'now we want to write the 10 highest results only to the file
Local i:Int = 10
For Local hs:THighScore = EachIn high_scores
	put_in_file(hs.name, hs.score)
	i :- 1
	If i = 0 Then Exit
Next

'we're done
high_scores = Null
close_file

Type THighScore
	Field name:String
	Field score:Int

	Method Compare:Int(other:Object)
		'as you can store anything in a TList, we need to check this is a high score object
		Local hs:THighScore = THighScore(other)
		'if this isn't a high score object, use a fail-safe compare method
		If Not hs Then Return Super.Compare(other)
		If hs.score < score Then Return -1
		If hs.score > score Then Return 1
		If hs.score = score Then Return 0
	End Method

	Function Create:THighScore(name:String, score:Int)
		Local high_score:THighScore = New THighScore
		high_score.name = name
		high_score.score = score
		Return high_score
	End Function
End Type

score = int(ReadLine(file))

writeline(file, name$)
writeint(file,score%)

str$ = readline(file)
score% = readint(file)

Local hs:THighScore = THighScore(other)