Option Explicit

Private iBaseLevel As Integer

Private iCurLevel As Integer

Private iStatMod As Integer

Private iRaceMod As Integer

Private iClassMod As Integer

Private iMiscMod As Integer

Private sName As String

Private sDescription As String

Private iCost As Integer

Public Property Let Description(ByVal sData As String)

sDescription = sData

End Property

Public Property Get Description() As String

Description = sDescription

End Property

Public Property Let Name(ByVal sData As String)

sName = sData

End Property

Public Property Get Name() As String

Name = sName

End Property

Public Property Let RaceMod(ByVal iData As Integer)

iRaceMod = iData

End Property

Public Property Get RaceMod() As Integer

RaceMod = iRaceMod

End Property

Public Property Let StatMod(ByVal iData As Integer)

iStatMod = iData

End Property

Public Property Get StatMod() As Integer

StatMod = iStatMod

End Property

Public Property Let BaseLevel(ByVal iData As Integer)

iBaseLevel = iData

End Property

Public Property Get BaseLevel() As Integer

BaseLevel = iBaseLevel

End Property

Public Property Let CurLevel(ByVal iData As Integer)

iCurLevel = iData

End Property

Public Property Get CurLevel() As Integer

CurLevel = iCurLevel

End Property

Public Property Let Cost(ByVal iData As Integer)

iCost = iData

End Property

Public Property Get Cost() As Integer

Cost = iCost

End Property

Public Property Let ClassMod(ByVal iData As Integer)

iClassMod = iData

End Property

Public Property Get ClassMod() As Integer

ClassMod = iClassMod

End Property

Public Property Let MiscMod(ByVal iData As Integer)

iMiscMod = iData

End Property

Public Property Get MiscMod() As Integer

MiscMod = iMiscMod

End Property

Public Function Use() As Boolean

Dim iRoll As Integer

Use = False

End Function

Public Function TotalBonus() As Integer

TotalBonus = iMiscMod + iStatMod + iClassMod + iRaceMod

End Function

Public Sub Increase(ByVal iAmount As Integer)

End Sub

Public Sub Decrease(ByVal iAmount As Integer)

End Sub

Private Sub Class_Initialize()

iMiscMod = 0

iStatMod = 0

iClassMod = 0

iRaceMod = 0

End Sub