diff options
Diffstat (limited to 'ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb')
| -rw-r--r-- | ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb | 17 |
1 files changed, 17 insertions, 0 deletions
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 |