From d7cdf48c58d3663550a88975747c3db04efe7c29 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sun, 27 Nov 2022 20:58:48 +0700 Subject: nice try on file skimmer lol --- .../Functions/InGame/ROMs/Strings.vb | 4 +- .../Functions/InGame/StoreManager/Shiftoriums.vb | 67 ++++++++- .../Functions/InGame/SystemManager/Terminate.vb | 1 + .../Functions/OutGame/SaveLoadSystem.vb | 152 ++++++++++++++------- 4 files changed, 175 insertions(+), 49 deletions(-) (limited to 'ShiftOS-TheRevival/Functions') diff --git a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb index 9ebbd3e..e9c28a1 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(41) As String + Public Shared AvailableFeature(42) As String Public Shared CLIInterpreter As String Public Shared SaveFile As String Public Shared Achievement As String @@ -96,6 +96,7 @@ '39 = KI Fruits [Adds fruit category into the Knowledge Input] (default : 0) '40 = DuWM RGB Support [Adds RGB and its other variant support to DuWM] (default : 0) '41 = DuWM 16 Colors Support [Adds mix of RGB color support into ShiftOS] (default : 0) + '42 = KI US States [Adds United States States category into the Knowledge Input] (default : 0) ' 'Features bought hierarchy : ' @@ -145,4 +146,5 @@ '>>Knowledge Input (KNOWLEDGE) (275 CP) '>>>KI Animals (KI_ANIMALS) (300 CP) '>>>KI Fruits (KI_FRUITS) (300 CP) + '>>>KI US States (KI_US) (300 CP) End Class diff --git a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb index 098e782..d13c40c 100644 --- a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb +++ b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb @@ -159,8 +159,11 @@ If Strings.AvailableFeature(39) = 0 Then NewLine("(ki_fruits | 300 CP) KI Fruits") End If + If Strings.AvailableFeature(42) = 0 Then + NewLine("(ki_us | 300 CP) KI US States") + End If + End If End If - End If End Sub Public Sub Shiftorium_InformationFeatures() @@ -495,6 +498,61 @@ NewLine(ManHeader(1)) NormalCommand() End If + Case "ki_animals" + If Strings.AvailableFeature(38) = 0 Then + ManHeader(0) = "KI Animals" + ManHeader(1) = "300 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Adds animals category into Knowledge Input") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "ki_fruits" + If Strings.AvailableFeature(39) = 0 Then + ManHeader(0) = "KI Fruits" + ManHeader(1) = "300 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Adds fruits category into Knowledge Input") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "duwmrgb" + If Strings.AvailableFeature(40) = 0 Then + ManHeader(0) = "DuWM RGB support" + ManHeader(1) = "225 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Adds Red, Green, and Blue and its darker/lighter color support for Dual Window Manager") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "duwmrgb2" + If Strings.AvailableFeature(41) = 0 Then + ManHeader(0) = "DuWM 16 Colors support" + ManHeader(1) = "275 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Adds 16 colors support for Dual Window Manager") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "ki_us" + If Strings.AvailableFeature(42) = 0 Then + ManHeader(0) = "KI US States" + ManHeader(1) = "300 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Adds US States category into Knowledge Input") + 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" @@ -631,6 +689,9 @@ Case "duwmrgb2" Shiftorium_InstallFeatures(True, "duwmrgb2", 41, 275) NormalCommand() + Case "ki_us" + Shiftorium_InstallFeatures(True, "ki_us", 42, 300) + NormalCommand() Case Else NormalCommand() NewLine("Shiftorium: Bad command or not available") @@ -811,6 +872,7 @@ Strings.AvailableFeature(37) = "1" Strings.AvailableFeature(38) = "0" Strings.AvailableFeature(39) = "0" + Strings.AvailableFeature(42) = "0" success = True Case "ki_animals" Strings.AvailableFeature(38) = "1" @@ -825,6 +887,9 @@ Strings.AvailableFeature(40) = "3" Strings.AvailableFeature(41) = "1" success = True + Case "ki_us" + Strings.AvailableFeature(42) = "1" + success = True End Select If success = False Then If IsCLI = True Then diff --git a/ShiftOS-TheRevival/Functions/InGame/SystemManager/Terminate.vb b/ShiftOS-TheRevival/Functions/InGame/SystemManager/Terminate.vb index 25dabb2..263c5ff 100644 --- a/ShiftOS-TheRevival/Functions/InGame/SystemManager/Terminate.vb +++ b/ShiftOS-TheRevival/Functions/InGame/SystemManager/Terminate.vb @@ -12,6 +12,7 @@ Cursor.Show() NewLine("Shutting down...") ShiftOSMenu.Show() + Cursor.Show() If IsStartG = False Then Console.Close() End If diff --git a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb index 187fcbd..97721fe 100644 --- a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb +++ b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb @@ -2,7 +2,7 @@ Module SaveLoadSystem - Public Sub NewGameMode() + Public Sub NewGameMode(Chapter As Integer) 'Sets all features to 2 (Unavailable for Shiftorium) except ShiftOS Key (AvailableFeatures(11)) Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", True) Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS", True) @@ -14,52 +14,106 @@ Module SaveLoadSystem Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(2) = "0" Strings.ComputerInfo(4) = "0" - Strings.AvailableFeature(0) = "2" - Strings.AvailableFeature(1) = "2" - Strings.AvailableFeature(2) = "2" - Strings.AvailableFeature(3) = "2" - Strings.AvailableFeature(4) = "2" - Strings.AvailableFeature(5) = "2" - Strings.AvailableFeature(6) = "2" - Strings.AvailableFeature(7) = "2" - Strings.AvailableFeature(8) = "2" - Strings.AvailableFeature(9) = "2" - Strings.AvailableFeature(10) = "2" - Strings.AvailableFeature(11) = "0" - Strings.AvailableFeature(12) = "2" - Strings.AvailableFeature(13) = "2" - Strings.AvailableFeature(14) = "2" - Strings.AvailableFeature(15) = "2" - '0.2.4 Features - Strings.AvailableFeature(16) = "2" - Strings.AvailableFeature(17) = "2" - Strings.AvailableFeature(18) = "2" - Strings.AvailableFeature(19) = "2" - Strings.AvailableFeature(20) = "2" - Strings.AvailableFeature(21) = "2" - Strings.AvailableFeature(22) = "2" - '0.2.5 Features - Strings.AvailableFeature(23) = "2" - Strings.AvailableFeature(24) = "2" - Strings.AvailableFeature(25) = "2" - Strings.AvailableFeature(26) = "2" - Strings.AvailableFeature(27) = "2" - Strings.AvailableFeature(28) = "2" - Strings.AvailableFeature(29) = "2" - Strings.AvailableFeature(30) = "2" - '0.2.6 Features - Strings.AvailableFeature(31) = "2" - Strings.AvailableFeature(32) = "2" - Strings.AvailableFeature(33) = "2" - '0.2.7 Features - Strings.AvailableFeature(34) = "2" - 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" + Select Case Chapter + Case 0 + Strings.AvailableFeature(0) = "2" + Strings.AvailableFeature(1) = "2" + Strings.AvailableFeature(2) = "2" + Strings.AvailableFeature(3) = "2" + Strings.AvailableFeature(4) = "2" + Strings.AvailableFeature(5) = "2" + Strings.AvailableFeature(6) = "2" + Strings.AvailableFeature(7) = "2" + Strings.AvailableFeature(8) = "2" + Strings.AvailableFeature(9) = "2" + Strings.AvailableFeature(10) = "2" + Strings.AvailableFeature(11) = "0" + Strings.AvailableFeature(12) = "2" + Strings.AvailableFeature(13) = "2" + Strings.AvailableFeature(14) = "2" + Strings.AvailableFeature(15) = "2" + '0.2.4 Features + Strings.AvailableFeature(16) = "2" + Strings.AvailableFeature(17) = "2" + Strings.AvailableFeature(18) = "2" + Strings.AvailableFeature(19) = "2" + Strings.AvailableFeature(20) = "2" + Strings.AvailableFeature(21) = "2" + Strings.AvailableFeature(22) = "2" + '0.2.5 Features + Strings.AvailableFeature(23) = "2" + Strings.AvailableFeature(24) = "2" + Strings.AvailableFeature(25) = "2" + Strings.AvailableFeature(26) = "2" + Strings.AvailableFeature(27) = "2" + Strings.AvailableFeature(28) = "2" + Strings.AvailableFeature(29) = "2" + Strings.AvailableFeature(30) = "2" + '0.2.6 Features + Strings.AvailableFeature(31) = "2" + Strings.AvailableFeature(32) = "2" + Strings.AvailableFeature(33) = "2" + '0.2.7 Features + Strings.AvailableFeature(34) = "2" + 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" + '0.2.8 Features + Strings.AvailableFeature(42) = "2" + Case 1 + Strings.AvailableFeature(0) = "1" + Strings.AvailableFeature(1) = "1" + Strings.AvailableFeature(2) = "1" + Strings.AvailableFeature(3) = "1" + Strings.AvailableFeature(4) = "1" + Strings.AvailableFeature(5) = "3" + Strings.AvailableFeature(6) = "3" + Strings.AvailableFeature(7) = "3" + Strings.AvailableFeature(8) = "1" + Strings.AvailableFeature(9) = "1" + Strings.AvailableFeature(10) = "1" + Strings.AvailableFeature(11) = "1" + Strings.AvailableFeature(12) = "3" + Strings.AvailableFeature(13) = "1" + Strings.AvailableFeature(14) = "1" + Strings.AvailableFeature(15) = "1" + '0.2.4 Features + Strings.AvailableFeature(16) = "1" + Strings.AvailableFeature(17) = "1" + Strings.AvailableFeature(18) = "1" + Strings.AvailableFeature(19) = "1" + Strings.AvailableFeature(20) = "1" + Strings.AvailableFeature(21) = "1" + Strings.AvailableFeature(22) = "1" + '0.2.5 Features + Strings.AvailableFeature(23) = "1" + Strings.AvailableFeature(24) = "3" + Strings.AvailableFeature(25) = "3" + Strings.AvailableFeature(26) = "3" + Strings.AvailableFeature(27) = "3" + Strings.AvailableFeature(28) = "3" + Strings.AvailableFeature(29) = "1" + Strings.AvailableFeature(30) = "1" + '0.2.6 Features + Strings.AvailableFeature(31) = "1" + Strings.AvailableFeature(32) = "1" + Strings.AvailableFeature(33) = "1" + '0.2.7 Features + Strings.AvailableFeature(34) = "1" + 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" + '0.2.8 Features + Strings.AvailableFeature(42) = "2" + End Select End Sub Public Sub FreeRoamMode() @@ -115,6 +169,8 @@ Module SaveLoadSystem Strings.AvailableFeature(39) = "1" Strings.AvailableFeature(40) = "3" Strings.AvailableFeature(41) = "1" + '0.2.8 Features + Strings.AvailableFeature(42) = "1" End Sub Public Sub GodMode() @@ -168,6 +224,8 @@ Module SaveLoadSystem Strings.AvailableFeature(39) = "2" Strings.AvailableFeature(40) = "2" Strings.AvailableFeature(41) = "2" + '0.2.8 Features + Strings.AvailableFeature(42) = "2" End Sub Public Sub SaveGame() -- cgit v1.2.3