Allows spending freebie points on disciplines and attributes.

dos/sbf/character.bm

@@ -234,6 +234,7 @@ Sub NewCharacter (ch As CharacterType)
     ch.willpower = 0
     ch.bloodPool = 0
     ch.derangementId = -1
+    ch.freebiePoints = 15
     ' Virtues
     ch.selfControl = 1
     ch.courage = 1
@@ -418,6 +419,14 @@ Sub FillVirtues (ch As CharacterType, values() As Integer)
     Next
 End Sub
 
+Function GetFreebiePoints(ch as CharacterType)
+    GetFreebiePoints = ch.freebiePoints
+End Function
+
+Sub SetFreebiePoints(ch As CharacterType, points As Integer)
+    ch.freebiepoints = points
+End Sub
+
 ' Attributes
 
 Sub FillAttributeValues (ch As CharacterType, values() As Integer, groupIndex As Integer)