From a594d38810939c8afbf0e12fb970d8aa3fd880e5 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Thu, 24 Nov 2022 08:18:00 +0700 Subject: Developing Chapter 2 stuff now --- ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb') diff --git a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb index a2dc8bc..be9269c 100644 --- a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb +++ b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb @@ -53,11 +53,13 @@ Module SaveLoadSystem Strings.AvailableFeature(33) = "2" '0.2.7 Features Strings.AvailableFeature(34) = "2" + Strings.AvailableFeature(35) = "2" + Strings.AvailableFeature(36) = "2" End Sub Public Sub FreeRoamMode() IsConsoleParent = True - 'Sets all features to as bought + 'Sets all features to as bought or either upgraded, Complete ShiftOS should have been like this Strings.ComputerInfo(0) = "shiftos" Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(2) = "0" @@ -101,6 +103,8 @@ Module SaveLoadSystem Strings.AvailableFeature(33) = "1" '0.2.7 Features Strings.AvailableFeature(34) = "1" + Strings.AvailableFeature(35) = "1" + Strings.AvailableFeature(36) = "1" End Sub Public Sub GodMode() @@ -147,10 +151,15 @@ Module SaveLoadSystem Strings.AvailableFeature(33) = "2" '0.2.7 Features Strings.AvailableFeature(34) = "2" + Strings.AvailableFeature(35) = "2" + Strings.AvailableFeature(36) = "2" End Sub 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) End If -- cgit v1.2.3