Option Explicit

'Tile coords for action - can be different than tile triggering action

Private iX As Integer

Private iY As Integer

'Action Type - see ActionType enum

Private iActionType As Integer

'Specifies if the action is to be reset after triggering

Private bReset As Boolean

'Time before action is reset

Private iResetTime As Integer

'Delay from time trigger is pressed until action occurs

Private iDelay As Integer

'Should action be triggered

Private bTriggerAction As Boolean

'Message that is displayed when the action is triggered

Private sMessage As String

'Is the message shown to just everyone in the party

Private bMsgShowAll As Boolean

'Type of trap that is triggered

Private iTrapType As Integer

'Item or monster that spawns when action is triggered

Private iSpawnIndex As Integer

'Map that character is teleported to

Private sLevelName As String

Public Property Get X() As Integer

X = iX

End Property

Public Property Let X(ByVal iData As Integer)

iX = iData

End Property

Public Property Get Y() As Integer

Y = iY

End Property

Public Property Let Y(ByVal iData As Integer)

iY = iData

End Property

Public Property Get ActionType() As Integer

ActionType = iActionType

End Property

Public Property Let ActionType(ByVal iData As Integer)

iActionType = iData

End Property

Public Property Get Reset() As Boolean

Reset = bReset

End Property

Public Property Let Reset(ByVal bData As Boolean)

bReset = bData

End Property

Public Property Get ResetTime() As Integer

ResetTime = iResetTime

End Property

Public Property Let ResetTime(ByVal iData As Integer)

iResetTime = iData

End Property

Public Property Get Delay() As Integer

Delay = iDelay

End Property

Public Property Let Delay(ByVal iData As Integer)

iDelay = iData

End Property

Public Property Get TriggerAction() As Boolean

TriggerAction = bTriggerAction

End Property

Public Property Let TriggerAction(ByVal bData As Boolean)

bTriggerAction = bData

End Property

Public Property Get Message() As String

Message = sMessage

End Property

Public Property Let Message(ByVal sData As String)

sMessage = sData

End Property

Public Property Get MsgShowAll() As Boolean

MsgShowAll = bMsgShowAll

End Property

Public Property Let MsgShowAll(ByVal bData As Boolean)

bMsgShowAll = bData

End Property

Public Property Get TrapType() As Integer

TrapType = iTrapType

End Property

Public Property Let TrapType(ByVal iData As Integer)

iTrapType = iData

End Property

Public Property Get SpawnIndex() As Integer

SpawnIndex = iSpawnIndex

End Property

Public Property Let SpawnIndex(ByVal iData As Integer)

iSpawnIndex = iData

End Property

Public Property Get LevelName() As String

LevelName = sLevelName

End Property

Public Property Let LevelName(ByVal sData As String)

sLevelName = sData

End Property