rough 0.2.7

4 files changed, 108 insertions, 4 deletions

diff --git a/ShiftOS-TheRevival/Functions/InGame/LoreManager/IntroStoryTell.vb b/ShiftOS-TheRevival/Functions/InGame/LoreManager/IntroStoryTell.vb
index ff69a3e..7df91e0 100644
--- a/ShiftOS-TheRevival/Functions/InGame/LoreManager/IntroStoryTell.vb
+++ b/ShiftOS-TheRevival/Functions/InGame/LoreManager/IntroStoryTell.vb
@@ -54,7 +54,7 @@
             Case 1
                 Select Case Timestamp
                     Case 5
-                        ResetLine("<null> Connected")
+                        ResetLine("Connected to <null>")
                     Case 25
                         NewLine("<null> : Hmmm, you've got your terminal explored enough, ay?")
                     Case 75
diff --git a/ShiftOS-TheRevival/Functions/InGame/ROMs/GUISCustomizations.vb b/ShiftOS-TheRevival/Functions/InGame/ROMs/GUISCustomizations.vb
new file mode 100644
index 0000000..0ee26e4
--- /dev/null
+++ b/ShiftOS-TheRevival/Functions/InGame/ROMs/GUISCustomizations.vb
@@ -0,0 +1,4 @@
+Public Class GUISCustomizations
+    'Desktop Stuff
+    Public Shared DesktopColor As Color
+End Class
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
diff --git a/ShiftOS-TheRevival/Functions/OutGame/TheUpdater.vb b/ShiftOS-TheRevival/Functions/OutGame/TheUpdater.vb
index 28b827e..b8b66ec 100644
--- a/ShiftOS-TheRevival/Functions/OutGame/TheUpdater.vb
+++ b/ShiftOS-TheRevival/Functions/OutGame/TheUpdater.vb
@@ -109,6 +109,18 @@ Module TheUpdater
                     Strings.AvailableFeature(32) = 2
                     Strings.AvailableFeature(33) = 2
                 End If
+                If Strings.AvailableFeature(9) = 1 Then
+                    Strings.AvailableFeature(34) = 0
+                Else
+                    Strings.AvailableFeature(34) = 2
+                End If
+                Strings.AvailableFeature(35) = 2
+                Strings.AvailableFeature(36) = 2
+                Strings.AvailableFeature(37) = 2
+                Strings.AvailableFeature(38) = 2
+                Strings.AvailableFeature(39) = 2
+                Strings.AvailableFeature(40) = 2
+                Strings.AvailableFeature(41) = 2
                 Strings.ComputerInfo(0) = ComputerInfoHere(0)
                 Strings.ComputerInfo(1) = ComputerInfoHere(1)
                 Strings.ComputerInfo(2) = ComputerInfoHere(2)
@@ -163,6 +175,78 @@ Module TheUpdater
                     Strings.AvailableFeature(32) = 2
                     Strings.AvailableFeature(33) = 2
                 End If
+                If Strings.AvailableFeature(9) = 1 Then
+                    Strings.AvailableFeature(34) = 0
+                Else
+                    Strings.AvailableFeature(34) = 2
+                End If
+                Strings.AvailableFeature(35) = 2
+                Strings.AvailableFeature(36) = 2
+                Strings.AvailableFeature(37) = 2
+                Strings.AvailableFeature(38) = 2
+                Strings.AvailableFeature(39) = 2
+                Strings.AvailableFeature(40) = 2
+                Strings.AvailableFeature(41) = 2
+                Strings.ComputerInfo(0) = ComputerInfoHere(0)
+                Strings.ComputerInfo(1) = ComputerInfoHere(1)
+                Strings.ComputerInfo(2) = ComputerInfoHere(2)
+                Strings.ComputerInfo(3) = ComputerInfoHere(3)
+                Strings.ComputerInfo(4) = ComputerInfoHere(4)
+                Strings.ComputerInfo(5) = "0F"
+                Strings.ComputerInfo(6) = "F0"
+                If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS") = True Then
+
+                Else
+                    Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS")
+                End If
+                ShiftOSUpdater.Button2.Text = "Updated!"
+            Case "0.2.6"
+                Strings.AvailableFeature(0) = AvailableFeatureHere(0)
+                Strings.AvailableFeature(1) = AvailableFeatureHere(1)
+                Strings.AvailableFeature(2) = AvailableFeatureHere(2)
+                Strings.AvailableFeature(3) = AvailableFeatureHere(3)
+                Strings.AvailableFeature(4) = AvailableFeatureHere(4)
+                Strings.AvailableFeature(5) = AvailableFeatureHere(5)
+                Strings.AvailableFeature(6) = AvailableFeatureHere(6)
+                Strings.AvailableFeature(7) = AvailableFeatureHere(7)
+                Strings.AvailableFeature(8) = AvailableFeatureHere(8)
+                Strings.AvailableFeature(9) = AvailableFeatureHere(9)
+                Strings.AvailableFeature(10) = AvailableFeatureHere(10)
+                Strings.AvailableFeature(11) = AvailableFeatureHere(11)
+                Strings.AvailableFeature(12) = AvailableFeatureHere(12)
+                Strings.AvailableFeature(13) = AvailableFeatureHere(13)
+                Strings.AvailableFeature(14) = AvailableFeatureHere(14)
+                Strings.AvailableFeature(15) = AvailableFeatureHere(15)
+                Strings.AvailableFeature(16) = AvailableFeatureHere(16)
+                Strings.AvailableFeature(17) = AvailableFeatureHere(17)
+                Strings.AvailableFeature(18) = AvailableFeatureHere(18)
+                Strings.AvailableFeature(19) = AvailableFeatureHere(19)
+                Strings.AvailableFeature(20) = AvailableFeatureHere(20)
+                Strings.AvailableFeature(21) = AvailableFeatureHere(21)
+                Strings.AvailableFeature(22) = AvailableFeatureHere(22)
+                Strings.AvailableFeature(23) = AvailableFeatureHere(23)
+                Strings.AvailableFeature(24) = AvailableFeatureHere(24)
+                Strings.AvailableFeature(25) = AvailableFeatureHere(25)
+                Strings.AvailableFeature(26) = AvailableFeatureHere(26)
+                Strings.AvailableFeature(27) = AvailableFeatureHere(27)
+                Strings.AvailableFeature(28) = AvailableFeatureHere(28)
+                Strings.AvailableFeature(29) = AvailableFeatureHere(29)
+                Strings.AvailableFeature(30) = AvailableFeatureHere(30)
+                Strings.AvailableFeature(31) = AvailableFeatureHere(31)
+                Strings.AvailableFeature(32) = AvailableFeatureHere(32)
+                Strings.AvailableFeature(33) = AvailableFeatureHere(33)
+                If Strings.AvailableFeature(9) = 1 Then
+                    Strings.AvailableFeature(34) = 0
+                Else
+                    Strings.AvailableFeature(34) = 2
+                End If
+                Strings.AvailableFeature(35) = 2
+                Strings.AvailableFeature(36) = 2
+                Strings.AvailableFeature(37) = 2
+                Strings.AvailableFeature(38) = 2
+                Strings.AvailableFeature(39) = 2
+                Strings.AvailableFeature(40) = 2
+                Strings.AvailableFeature(41) = 2
                 Strings.ComputerInfo(0) = ComputerInfoHere(0)
                 Strings.ComputerInfo(1) = ComputerInfoHere(1)
                 Strings.ComputerInfo(2) = ComputerInfoHere(2)