diff options
Diffstat (limited to 'ShiftOS-TheRevival/Functions')
4 files changed, 50 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 diff --git a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb index 550d01d..68579c0 100644 --- a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb +++ b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb @@ -123,6 +123,7 @@ Module SaveLoadSystem Strings.AvailableFeature(50) = "2" Strings.AvailableFeature(51) = "2" Strings.AvailableFeature(52) = "2" + Strings.AvailableFeature(53) = "2" End Select End Sub @@ -191,6 +192,10 @@ Module SaveLoadSystem Strings.AvailableFeature(50) = "1" Strings.AvailableFeature(51) = "1" Strings.AvailableFeature(52) = "1" + Strings.AvailableFeature(53) = "1" + 'GUI Customizations + GUISCustomizations.DesktopColor = Color.Black + GUISCustomizations.GUIConsoleFont = New Font("Consolas", 11) End Sub Public Sub GodMode() @@ -256,6 +261,7 @@ Module SaveLoadSystem Strings.AvailableFeature(50) = "2" Strings.AvailableFeature(51) = "2" Strings.AvailableFeature(52) = "2" + Strings.AvailableFeature(53) = "2" End Sub Public Sub SaveGame() @@ -267,6 +273,10 @@ Module SaveLoadSystem Case 1 Dim DesktopColor As Integer = GUISCustomizations.DesktopColor.ToArgb() File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\Shifter_Desktop.sos", DesktopColor.ToString) + Dim ConsoleFont(1) As String + ConsoleFont(0) = GUISCustomizations.GUIConsoleFont.Name + ConsoleFont(1) = GUISCustomizations.GUIConsoleFont.Size + File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\Shifter_ConsoleFont.sos", ConsoleFont) End Select End If End If @@ -286,6 +296,13 @@ Module SaveLoadSystem Else GUISCustomizations.DesktopColor = Color.Black End If + If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\Shifter_ConsoleFont.sos") = True Then + Dim ConsoleFont(1) As String + ConsoleFont = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\Shifter_ConsoleFont.sos") + GUISCustomizations.GUIConsoleFont = New Font(ConsoleFont(0), ConsoleFont(1)) + Else + GUISCustomizations.GUIConsoleFont = New Font("Consolas", 11) + End If End Select End If End If |