Adds freebie point spending. Adds cancel as an option to MenuStyle to allow cancelling. Adds includeInRandom to MenuItem to hide specific MenuItems from GetRandomMenuItemId.

dos/sbf/colors.bm

@@ -1,9 +1,20 @@
-Sub SetColor (c As Integer)
-    ScreenColor = c
-    Color c
-End Sub
-
-Function GetColor ()
-    GetColor = ScreenColor
-End Function
-
+Sub SetColor (c As Integer)
+    ScreenColor = c
+    Color c
+End Sub
+
+Function GetColor ()
+    GetColor = ScreenColor
+End Function
+
+Sub PrintWithMaybeColor (message As String, textColor As Integer, useColors As Integer)
+    Dim oldColor As Integer
+    If useColors = TRUE Then
+        oldColor = GetColor
+        SetColor (textColor)
+    End If
+    Print message
+    If useColors = TRUE Then
+        SetColor (oldColor)
+    End If
+End Sub