Public MustInherit Class Character
    Protected _firstAddress As Integer
    Private _value As Integer?

    Public Sub New(ByVal firstAddress As Integer)
        Me._firstAddress = firstAddress
    End Sub

    Public Overridable Property X As Single
        Get
            Return MemoryManager.ReadSingle(_firstAddress + Offsets.X)
        End Get
        Set(ByVal value As Single)
            MemoryManager.WriteSingle(value, _firstAddress + Offsets.X)
        End Set
    End Property

    Public Overridable Property Y As Single
        Get
            Return MemoryManager.ReadSingle(_firstAddress + Offsets.Y)
        End Get
        Set(ByVal value As Single)
            MemoryManager.WriteSingle(value, _firstAddress + Offsets.Y)
        End Set
    End Property

    Public Overridable ReadOnly Property ID As Integer
        Get
            Return MemoryManager.ReadInt(_firstAddress + Offsets.ID)
        End Get
    End Property

    Public ReadOnly Property Value As Integer
        Get
            If _value Is Nothing Then
                _value = MemoryManager.ReadInt(_firstAddress + Offsets.Value)
            End If
            Return _value
        End Get
    End Property

    Public Overridable ReadOnly Property Life As Single
        Get
            Return MemoryManager.ReadInt(_firstAddress + Offsets.Life)
        End Get
    End Property
End Class