Sub LoadScore
Dim FileName As String
Dim i As Long

    Call CheckScore
   
    FileName = App.Path & "\data\score.ini
   
    Max_Score = Val(GetVar(FileName, "INIT", "MaxScore"))
   
    ReDim Class(0 To Max_Score) As ScoreRec
   
    Call ClearScore
   
    For i = 0 To Max_Score
        Score(i).Char(i).Name = GetVar(FileName, "CHAR" & i, "Name")
        Score(i).Score = GetVar(FileName, "SCORE" & i, "Score")

        DoEvents
    Next i
End Sub

Sub SaveScore()
Dim FileName As String
Dim i As Long

    FileName = App.Path & "\data\score.ini"
   
    For i = 0 To Max_Score
        Call PutVar(FileName, "SCORE" & i, "Name", Trim(Player(index).Char(i).Score(i).Name))
        Call PutVar(FileName, "SCORE" & i, "Score", STR(Score(i).Score))
    Next i
End Sub

Sub CheckScore()
    If Not FileExist("data\score.ini") Then
        Call SaveScore
    End If
End Sub

    ' :::::::::::::::::
    ' :: Score list ::
    ' :::::::::::::::::
    If LCase(Parse(0)) = "scorelist" Then
        'Stop
        Call SendScoreList
        Exit Sub
    End If

Sub SendScoreList(ByVal index As Long)
Dim packet As String
Dim i As Long
Dim n As Long
packet = ""
n = 0
For i = 1 To MAX_SCORE
If IsPlaying(i) Then
packet = packet & SEP_CHAR & GetPlayerName(i) & SEP_CHAR & GetScore(i) & SEP_CHAR
n = n + 1
End If
Next i

packet = "SCORELIST" & SEP_CHAR & n & packet & END_CHAR

Call SendDataToAll(packet)
End Sub

type ScoreRec
Name as string * NAME_LENGTH
Score as string
end type

Sub SendScoreList()
Dim packet As String

packet = "SCORELIST" & SEP_CHAR & END_CHAR
Call SendData(packet)
End Sub

' ::::::::::::::::::::::::::
' :: Get Score List ::
' ::::::::::::::::::::::::::
If LCase(Parse(0)) = "Scorelist" Then
Dim z As Long

frmMirage.lstScore.Clear

n = 2
z = Val(Parse(1))
For x = n To (z + 1)
frmMirage.lstScore.AddItem Trim(Parse(n))
n = n + 2
Next x
Exit Sub
End If

Player(Index).Char(Player(Index).CharNum).Score = GetVar(FileName, "CHAR" & i, "Score")

Call PutVar(FileName, "CHAR" & i, "Score")

Sub LoadScore()
Dim FileName As String
Dim i As Long

    Call CheckScore
   
    FileName = App.Path & "\data\score.ini"
   
    Call ClearScore
   
    For i = 0 To MAX_PLAYERS
        Score(i).Score = GetVar(FileName, "SCORE" & i, "Score")
        Score(i).Name = GetVar(FileName, "SCORE" & i, "Name")
        DoEvents
    Next i
End Sub

Sub SaveScore()
Dim FileName As String
Dim i As Long

    Call UpdateScores

    FileName = App.Path & "\data\score.ini"
   
    For i = 0 To MAX_PLAYERS
        Call PutVar(FileName, "SCORE" & i, "Name", Score(i).Name)
        Call PutVar(FileName, "SCORE" & i, "Score", Score(i).Score)
    Next i
End Sub

Sub CheckScore()
    If Not FileExist("data\score.ini") Then
        Call SaveScore
    End If
End Sub

Sub ClearScore()
Dim i As Long
    For i = 1 To MAX_PLAYERS
        Score(i).Name = vbNullString
        Score(i).Score = vbNullString
    Next i
End Sub

Sub UpdateScores()
Dim i As Long
    For i = 1 To MAX_PLAYERS
        Score(i).Name = Player(i).Char(Player(i).CharNum).Name
        Score(i).Score = Player(i).Char(Player(i).CharNum).Score
    Next i
End Sub

Function GetScore(ByVal Index As Long) As Long
    GetScore = Player(Index).Char(Player(Index).CharNum).Score
End Function

Sub SendScoreList(ByVal Index As Long)
Dim packet As String
Dim i As Long
Dim n As Long

    Call UpdateScores

    packet = "SCORELIST"
   
    n = 0
   
    For i = 1 To MAX_PLAYERS
        If IsPlaying(i) Then
            packet = packet & SEP_CHAR & GetPlayerName(i) & SEP_CHAR & GetScore(i) & SEP_CHAR
        End If
    Next i

    packet = packet & END_CHAR

    Call SendDataToAll(packet)
End Sub

Type ScoreRec
    Name As String
    Score As String
End Type

    Score As String

Public Score(1 To MAX_PLAYERS) As ScoreRec

    ' :::::::::::::::::
    ' :: Score list ::
    ' :::::::::::::::::
    If LCase(Parse(0)) = "scorelist" Then
        'Stop
        Call SendScoreList
        Exit Sub
    End If

Public Type ScoreRec
    Name As String * NAME_LENGTH
    Score As String
End Type

Public Score(1 To MAX_PLAYERS) As ScoreRec

' ::::::::::::::::::::::
' :: Get Score List ::
' ::::::::::::::::::::::
If LCase(Parse(0)) = "scorelist" Then
    Dim z As Long
    Dim x As Long

    frmMirage.lstScore.Clear

    n = 1
   
    For x = 1 To MAX_PLAYERS
        Score(x).Name = Parse(n)
        Score(x).Score = Parse(n + 1)
       
        n = n + 2
    Next x
   
    For x = 1 To MAX_PLAYERS
        frmMirage.lstScore.AddItem Score(x).Name & " (" & Score(x).Score & ")"
    Next x
   
    Exit Sub
End If

Sub SendScoreList(ByVal Index As Long)

Sub SendScoreList()

Call PutVar(FileName, "CHAR" & i, "Score")