37 lines
803 B
VB.net
37 lines
803 B
VB.net
'Created to support ContentPack SFX
|
|
Public Class SoundContainer
|
|
|
|
Public _sound As SoundEffect
|
|
Public _origin As String
|
|
|
|
Public Sub New(sound As SoundEffect, origin As String)
|
|
Me._sound = sound
|
|
Me._origin = origin
|
|
End Sub
|
|
|
|
Public Property Sound() As SoundEffect
|
|
Get
|
|
Return Me._sound
|
|
End Get
|
|
Set(value As SoundEffect)
|
|
Me._sound = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Origin() As String
|
|
Get
|
|
Return Me._origin
|
|
End Get
|
|
Set(value As String)
|
|
Me._origin = value
|
|
End Set
|
|
End Property
|
|
|
|
Public ReadOnly Property IsStandardSound() As Boolean
|
|
Get
|
|
Return (Me.Origin = "Content")
|
|
End Get
|
|
End Property
|
|
|
|
End Class
|