You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
1.2 KiB
30 lines
1.2 KiB
Open "Scores.txt" for reading, as file 1
|
|
Set LineCounter to 0
|
|
|
|
While not at end of file
|
|
Read a line from file 1 and pass its values to TopName(LineCounter), TopMinute(LineCounter), TopSecond(LineCounter), TopMillisecond(LineCounter)
|
|
Increase LineCounter by 1
|
|
Loop
|
|
|
|
Close file 1
|
|
|
|
Set TopName(5) to PlayerName
|
|
Set TopMinute(5) to LevelMinutes
|
|
Set TopSecond(5) to LevelSeconds
|
|
Set TopMillisecond(5) to LevelMilliseconds
|
|
|
|
For LineCounter is between 5 to 1, stepping back 1
|
|
Set TotalMilliseconds(0) to the result of ((((TopMinute(LineCounter - 1) / 100000000) * 60 + (TopSecond(LineCounter - 1) / 100000000)) * 100) + (TopMillisecond(LineCounter - 1)) / 100000000)
|
|
Set TotalMilliseconds(1) to the result of (((TopMinute(LineCounter) / 100000000) * 60 + (TopSecond(LineCounter) / 100000000)) * 100) + (TopMillisecond(LineCounter)) / 100000000)
|
|
|
|
If TotalMilliseconds(1) is less than TotalMilliseconds(0) then
|
|
Call the procedure MoveName with the parameter LineCounter
|
|
End If
|
|
Next
|
|
|
|
Open "Scores.txt" for writing, as file 2
|
|
For LineCounter is between 0 to 4
|
|
Write TopName(LineCounter), TopMinute(LineCounter), TopSecond(LineCounter), TopMillisecond(LineCounter) to file 2
|
|
Next
|
|
|
|
Close file 2
|