Option Explicit

'Used for any animated or non-animated graphic - character, item, building, etc

Private sFileName As String

'Current tile

Private iX As Integer

Private iY As Integer

'Direction character is facing

Private iDirection As Direction

Public objSurface As DirectDrawSurface7

Private iWidth As Integer

Private iHeight As Integer

Private iCurFrame As Integer

Private iNumFrames As Integer

Public Property Get FileName() As String

FileName = sFileName

End Property

Public Property Get Width() As Integer

Width = iWidth

End Property

Public Property Get Height() As Integer

Height = iHeight

End Property

Public Property Get CurFrame() As Integer

CurFrame = iCurFrame

End Property

Public Property Get NumFrames() As Integer

NumFrames = iNumFrames

End Property

Public Function Render(objSurface As DirectDrawSurface7)

'To be filled in later

End Function

Public Function LoadSprite(ByVal sFile As String) As Boolean

'To be filled in later

sFileName = sFile

End Function