diff options
Diffstat (limited to 'ShiftOS-TheRevival/Functions/InGame')
3 files changed, 33 insertions, 7 deletions
diff --git a/ShiftOS-TheRevival/Functions/InGame/ROMs/GUISCustomizations.vb b/ShiftOS-TheRevival/Functions/InGame/ROMs/GUISCustomizations.vb index 0ee26e4..f5d86dc 100644 --- a/ShiftOS-TheRevival/Functions/InGame/ROMs/GUISCustomizations.vb +++ b/ShiftOS-TheRevival/Functions/InGame/ROMs/GUISCustomizations.vb @@ -1,4 +1,6 @@ Public Class GUISCustomizations 'Desktop Stuff Public Shared DesktopColor As Color + 'Console Stuff + Public Shared GUIConsoleFont As Font End Class diff --git a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb index 685b484..6bd57f1 100644 --- a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb +++ b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb @@ -3,7 +3,7 @@ Public Shared ComputerInfo(7) As String Public Shared IsFree As Boolean Public Shared OnceInfo(8) As String - Public Shared AvailableFeature(52) As String + Public Shared AvailableFeature(53) As String Public Shared CLIInterpreter As String Public Shared SaveFile As String Public Shared Achievement As String @@ -107,6 +107,7 @@ '50 = File Skimmer JobBar [Adds a top bar for actions on File Skimmer] (default : 0) '51 = File Skimmer Small Icons [Adds small icons layout on File Skimmer] (default : 0) '52 = File Skimmer List [Adds small icons layout on File Skimmer] (default : 0) + '53 = Shifter Console [Adds Console Customization on Shifter] (default : 0) ' 'Features bought hierarchy : ' @@ -153,6 +154,7 @@ '>>DuWM RGB Support (DUWMRGB) (225 CP) '>>>DuWM 16 Colors Support (DUWMRGB2) (275 CP) '>>Shifter (SHIFTER) (250 CP) + '>>>Shifter Console (SHR_CONSOLE) (275 CP) '>>Knowledge Input (KNOWLEDGE) (275 CP) '>>>KI Animals (KI_ANIMALS) (300 CP) '>>>KI Fruits (KI_FRUITS) (300 CP) diff --git a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb index f6bb039..5d9ee99 100644 --- a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb +++ b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb @@ -142,14 +142,17 @@ If Strings.AvailableFeature(36) = 0 Then NewLine("(shifter | 250 CP) Shifter") Else + If Strings.AvailableFeature(53) = 0 Then + NewLine("(shr_console | 275 CP) Shifter Console") + End If If Strings.AvailableFeature(40) = 0 Then - NewLine("(duwmrgb | 225 CP) DuWM RGB Support") - Else - If Strings.AvailableFeature(41) = 0 Then - NewLine("(duwmrgb2 | 275 CP) DuWM 16 Color Support") + NewLine("(duwmrgb | 225 CP) DuWM RGB Support") + Else + If Strings.AvailableFeature(41) = 0 Then + NewLine("(duwmrgb2 | 275 CP) DuWM 16 Color Support") + End If End If End If - End If If Strings.AvailableFeature(37) = 0 Then NewLine("(knowledge | 275 CP) Knowledge Input") Else @@ -688,7 +691,7 @@ NormalCommand() End If Case "fs_list" - If Strings.AvailableFeature(51) = 0 Then + If Strings.AvailableFeature(52) = 0 Then ManHeader(0) = "FS List" ManHeader(1) = "425 CP" NewLine(ManHeader(0)) @@ -698,6 +701,17 @@ NewLine(ManHeader(1)) NormalCommand() End If + Case "shr_console" + If Strings.AvailableFeature(53) = 0 Then + ManHeader(0) = "Shifter Console" + ManHeader(1) = "275 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Adds Console customability on Shifter") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If Case Else NormalCommand() Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available" @@ -867,6 +881,9 @@ Case "fs_list" Shiftorium_InstallFeatures(True, "fs_list", 52, 425) NormalCommand() + Case "shr_console" + Shiftorium_InstallFeatures(True, "shr_console", 53, 275) + NormalCommand() Case Else NormalCommand() NewLine("Shiftorium: Bad command or not available") @@ -1035,6 +1052,7 @@ Strings.AvailableFeature(35) = "1" Strings.ComputerInfo(7) = 1 GUISCustomizations.DesktopColor = Color.Black + GUISCustomizations.GUIConsoleFont = New Font("Consolas", 11) Strings.AvailableFeature(36) = "0" Strings.AvailableFeature(37) = "0" Strings.AvailableFeature(43) = "0" @@ -1043,6 +1061,7 @@ Strings.AvailableFeature(36) = "1" Strings.AvailableFeature(40) = "0" Strings.AvailableFeature(41) = "0" + Strings.AvailableFeature(53) = "0" success = True Case "knowledge" Strings.AvailableFeature(37) = "1" @@ -1105,6 +1124,9 @@ Case "fs_list" Strings.AvailableFeature(52) = "1" success = True + Case "shr_console" + Strings.AvailableFeature(53) = "1" + success = True End Select If success = False Then If IsCLI = True Then |