Option Explicit

Private picTexture As DirectDrawSurface7

'Type of tile - grass, water, lava, stone, dirt, road, etc

Private iTileType As Integer

Private iTileID As Integer

'Other information about tile - could be link to additional graphic

'that sits on tile - door, wall, tree, etc

Private lFlags As Long

'Item that sits on the tile

Private iContents As Integer

Private iContentsType As Integer

'Action that occurs when the tile is stepped on or pressed

Private objAction As clsAction

'Is this the first time the tile has been stepped on/pressed

Private bInitialEntry As Boolean

Public Event Press()

Public Event StepOn()

Public Property Set Action(ByVal objData As clsAction)

Set objAction = objData

End Property

Public Property Get Action() As clsAction

Set Action = objAction

End Property

Public Property Let TileType(ByVal iData As Integer)

iTileType = iData

End Property

Public Property Get TileType() As Integer

TileType = iTileType

End Property

Public Property Set Texture(ByVal picData As DirectDrawSurface7)

Set picTexture = picData

End Property

Public Property Get Texture() As DirectDrawSurface7

Set Texture = picTexture

End Property

Public Property Get Flags() As Long

Flags = lFlags

End Property

Public Property Let Flags(ByVal lData As Long)

lFlags = lData

End Property

Public Property Get Contents() As Integer

Contents = iContents

End Property

Public Property Let Contents(ByVal iData As Integer)

iContents = iData

End Property

Private Sub Class_Initialize()

Set objAction = New clsAction

End Sub

Public Property Get TileID() As Integer

TileID = iTileID

End Property

Public Property Let TileID(ByVal iData As Integer)

iTileID = iData

End Property

Public Property Get ContentsType() As Integer

ContentsType = iContentsType

End Property

Public Property Let ContentsType(ByVal iData As Integer)

iContentsType = iData

End Property