Imports Microsoft.Xna.Framework
Imports Microsoft.Xna.Framework.Graphics

Public Class clsGameObject

    Protected _POSITION As Vector2
    Protected _VELOCITY As Vector2
    Protected _CENTER As Vector2
    Protected _SPRITE As Texture2D
    Protected _COLOR As Color
    Protected _SCALE As Single
    Protected _LIFE As Integer
    Protected _DAMAGE As Integer
    Protected _INGAME As Boolean

    Public Overridable Property Position() As Vector2
        Get
            Return _POSITION
        End Get
        Set(value As Vector2)
            _POSITION = value
        End Set
    End Property

    Public Overridable Property Velocity() As Vector2
        Get
            Return _VELOCITY
        End Get
        Set(value As Vector2)
            _VELOCITY = value
        End Set
    End Property

    Public Overridable Property Center() As Vector2
        Get
            Return _CENTER
        End Get
        Set(value As Vector2)
            _CENTER = value
        End Set
    End Property

    Public Overridable Property Sprite() As Texture2D
        Get
            Return _SPRITE
        End Get
        Set(value As Texture2D)
            _SPRITE = value
        End Set
    End Property

    Public Overridable Property Color() As Color
        Get
            Return _COLOR
        End Get
        Set(value As Color)
            _COLOR = value
        End Set
    End Property

    Public Overridable Property Scale() As Single
        Get
            Return _SCALE
        End Get
        Set(value As Single)
            _SCALE = value
        End Set
    End Property

    Public Overridable Property Life() As Integer
        Get
            Return _LIFE
        End Get
        Set(value As Integer)
            _LIFE = value
        End Set
    End Property

    Public Overridable Property Damage() As Integer
        Get
            Return _DAMAGE
        End Get
        Set(value As Integer)
            _DAMAGE = value
        End Set
    End Property

    Public Overridable Property InGame() As Boolean
        Get
            Return _INGAME
        End Get
        Set(value As Boolean)
            _INGAME = value
        End Set
    End Property

    Public Overridable Sub Draw(ByVal Batch As SpriteBatch)
        Batch.Draw(Me.Sprite, Me.Position, Nothing, Me.Color, Nothing, Me.Center, Me.Scale, SpriteEffects.None, 0)
    End Sub

    Sub New(ByVal Sprite As Texture2D)
        Me.Color = Color.White
        Me.Position = Vector2.Zero
        Me.Scale = 1.0
        Me.Velocity = Vector2.Zero
        Me.InGame = False
        Me.Sprite = Sprite
        Me.Center = Me.Position + New Vector2(Me.Sprite.Width * Me.Scale / 2, Me.Sprite.Height * Me.Scale / 2)
        Me.InGame = True
    End Sub

End Class