Public Class QuestStorage

    Private commandList As New ArrayList
    Private name As String

    Public Sub New(ByVal name As String)
        Me.name = name
    End Sub

    Public Sub addCommand(ByVal command As String)
        commandList.Add(command)
    End Sub

    Public Function getCommands() As ArrayList
        Return commandList
    End Function

    Public Overrides Function toString() As String
        Return name
    End Function

End Class
