21 lines
458 B
Plaintext
21 lines
458 B
Plaintext
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
|