diff options
Diffstat (limited to 'ShiftOS-TheRevival/Functions/InGame')
| -rw-r--r-- | ShiftOS-TheRevival/Functions/InGame/CodepointSystem.vb | 11 | ||||
| -rw-r--r-- | ShiftOS-TheRevival/Functions/InGame/ColorSystem.vb (renamed from ShiftOS-TheRevival/Functions/InGame/TerminalColorSystem.vb) | 49 |
2 files changed, 12 insertions, 48 deletions
diff --git a/ShiftOS-TheRevival/Functions/InGame/CodepointSystem.vb b/ShiftOS-TheRevival/Functions/InGame/CodepointSystem.vb new file mode 100644 index 0000000..6a76a28 --- /dev/null +++ b/ShiftOS-TheRevival/Functions/InGame/CodepointSystem.vb @@ -0,0 +1,11 @@ +Module CodepointSystem + Public Sub ChangeCP(Addition As Boolean, NeededCP As Integer) + Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2)) + If Addition = True Then + TempCP = TempCP + NeededCP + Else + TempCP = TempCP - NeededCP + End If + Strings.ComputerInfo(2) = Convert.ToString(TempCP) + End Sub +End Module diff --git a/ShiftOS-TheRevival/Functions/InGame/TerminalColorSystem.vb b/ShiftOS-TheRevival/Functions/InGame/ColorSystem.vb index 9042910..80f1c8f 100644 --- a/ShiftOS-TheRevival/Functions/InGame/TerminalColorSystem.vb +++ b/ShiftOS-TheRevival/Functions/InGame/ColorSystem.vb @@ -1,4 +1,4 @@ -Module TerminalColorSystem +Module ColorSystem 'GUIDE to COLORS in TERMINAL 'Using the same Hexadecimal numbering as what Command Prompt used to: '0 = Black 8 = Gray @@ -12,53 +12,6 @@ Public BgColor As Color Public FgColor As Color - Public Sub DisplayColors() - NewLine("TERMINAL SUPPORTED COLORS") - NewLine(Nothing) - NewLine(Nothing) - If Strings.AvailableFeature(10) = "1" Then - NewLine("0 = Black 8 = Gray") - Else - NewLine("0 = Black 8 = ???") - End If - If Strings.AvailableFeature(14) = "1" Then - NewLine("1 = Blue 9 = Light Blue") - NewLine("2 = Green A = Light Green") - Else - If Strings.AvailableFeature(13) = "1" Then - NewLine("1 = ??? 9 = Light Blue") - NewLine("2 = Green A = ???") - Else - NewLine("1 = ??? 9 = ???") - NewLine("2 = ??? A = ???") - End If - End If - If Strings.AvailableFeature(15) = "1" Then - NewLine("3 = Aqua B = Light Aqua") - Else - NewLine("3 = ??? B = ???") - End If - If Strings.AvailableFeature(14) = "1" Then - NewLine("4 = Red C = Light Red") - ElseIf Strings.AvailableFeature(13) = "1" Then - NewLine("4 = ??? C = Light Red") - Else - NewLine("4 = ??? C = ???") - End If - If Strings.AvailableFeature(15) = "1" Then - NewLine("5 = Purple D = Light Purple") - NewLine("6 = Yellow E = Yellow") - Else - NewLine("5 = ??? D = ???") - NewLine("6 = ??? E = ???") - End If - If Strings.AvailableFeature(10) = "1" Then - NewLine("7 = Dark Gray F = White") - Else - NewLine("7 = ??? F = White") - End If - End Sub - Public Sub GetColor(App As String, Bg As String, Fg As String) Select Case App Case "terminal" |