diff options
| author | EverythingWindows <[email protected]> | 2022-11-24 22:51:51 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-24 22:51:51 +0700 |
| commit | fb1e91c76bda9662305b3025ea3e6a9d72c9fe0b (patch) | |
| tree | 54e664674cf55f0764a178bc6d3456591a925b0e /ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb | |
| parent | 9754f495672581abd7098c39027b512525b5f9ab (diff) | |
| download | shiftos-therevival-old-fb1e91c76bda9662305b3025ea3e6a9d72c9fe0b.tar.gz shiftos-therevival-old-fb1e91c76bda9662305b3025ea3e6a9d72c9fe0b.tar.bz2 shiftos-therevival-old-fb1e91c76bda9662305b3025ea3e6a9d72c9fe0b.zip | |
rough 0.2.7
Diffstat (limited to 'ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb')
| -rw-r--r-- | ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb | 22 |
1 files changed, 19 insertions, 3 deletions
diff --git a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb index 5747e1d..34cc3f7 100644 --- a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb +++ b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb @@ -172,11 +172,15 @@ Module SaveLoadSystem Public Sub SaveGame() If Strings.OnceInfo(6) = "story" Then - If Strings.AvailableFeature(35) = 0 Then - MsgBox("Fuck you!!") - End If File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\ComputerInfo.sos", Strings.ComputerInfo) File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos", Strings.AvailableFeature) + If Strings.AvailableFeature(35) Then + Select Case Strings.ComputerInfo(7) + Case 1 + Dim DesktopColor As Integer = GUISCustomizations.DesktopColor.ToArgb() + File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\Shifter_Desktop.sos", DesktopColor.ToString) + End Select + End If End If End Sub @@ -184,6 +188,18 @@ Module SaveLoadSystem If Strings.OnceInfo(6) = "story" Then Strings.ComputerInfo = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\ComputerInfo.sos") Strings.AvailableFeature = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos") + If Strings.AvailableFeature(35) Then + Select Case Strings.ComputerInfo(7) + Case 1 + Dim DesktopColor As Integer + If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\Shifter_Desktop.sos") = True Then + DesktopColor = File.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\Shifter_Desktop.sos") + GUISCustomizations.DesktopColor = Color.FromArgb(DesktopColor) + Else + GUISCustomizations.DesktopColor = Color.Black + End If + End Select + End If End If End Sub End Module
\ No newline at end of file |