Mirage Source

        SaveGame.Add("MyPlayerName")
        'Total number of pieces
        InputData(0) = 0
        'Total money
        InputData(1) = 100
        'Total pieces of each kind
        InputData(2) = 0 'Head
        InputData(3) = 0 'Body
        InputData(4) = 0 'Left Arm
        InputData(5) = 0 'Right Arm
        InputData(6) = 0 'Left Foot
        InputData(7) = 0 'Rigth Foot
        'Battle stuff
        InputData(8) = 0 ' Total matches
        InputData(9) = 0 ' Won Matches
        InputData(10) = 0 ' Lost matches
        InputData(11) = 0 ' Multiplayer Matches
        SaveGame.Add(InputData)

    Public Sub SaveArrayList(ByVal path As String, ByVal arrayList As ArrayList)

        Try
            Dim writer As New StreamWriter(path, False, System.Text.Encoding.Unicode)

            For Each s As String In arrayList
                writer.WriteLine(s.ToString)
            Next

            writer.Close()
        Catch ex As Exception
            Debug.Write(ex.ToString, "SaveArrayList")
        End Try

    End Sub

    Public Function LoadArrayList(ByVal path As String) As ArrayList

        Try
            If Not File.Exists(path) Then
                Return New ArrayList
            End If

            Dim reader As New StreamReader(path, True), s As String, list As New ArrayList

            Do
                s = reader.ReadLine
                If s = vbNullString Then Exit Do
                list.Add(s)
            Loop

            reader.Close()

            Return list

        Catch ex As Exception
            Debug.Write(ex.ToString)
            Return New ArrayList
        End Try

    End Function