diff options
Diffstat (limited to 'ShiftOS-TheRevival/Functions')
3 files changed, 115 insertions, 1 deletions
diff --git a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb index 325f583..25794b5 100644 --- a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb +++ b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb @@ -3,7 +3,7 @@ Public Shared ComputerInfo(6) As String Public Shared IsFree As Boolean Public Shared OnceInfo(8) As String - Public Shared AvailableFeature(31) As String + Public Shared AvailableFeature(35) As String Public Shared CLIInterpreter As String Public Shared SaveFile As String Public Shared Achievement As String @@ -80,6 +80,8 @@ '29 = Date by general [Shows date in general DD/MM/YYYY format] (0.2.5) (default : 0) '30 = Batch-file support for ShiftOS [Gives execution support for ShiftOS Script File (.scr)] (0.2.5) (default : 0) '31 = Rename support [Ability to rename files in ShiftOS] (default : 0) + '32 = Zip command [Ability to compress file in a zip file] (default : 0) + '33 = Unzip command [Ability to extract file in a zip file] (default : 0) ' 'Features bought hierarchy : 'ShiftOS Key (KEY) (5 CP) @@ -100,6 +102,8 @@ '>>>>>>RGB Variant (rgb2) (75 CP) '>>>>>>>4-bit Color Display (4BITCOLOR) (80 CP) '>>>>>>>>Terminal Read-Only Memory Driver (ROMDRIVER, DIR, MKDIR, RMDIR, CD, PWD) (90 CP) + '>>>>>>>>>ZIP command (ZIP) (95 CP) + '>>>>>>>>>UNZIP command (UNZIP) (95 CP) '>>>>>>>>>Rename support (RENAME) (95 CP) '>>>>>>>>>TextPad (100 CP) '>>>>>>>>>>ShiftOS Batch Script Support (BATCHSCRIPT) (100 CP) diff --git a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb index dcc0fb1..af57f18 100644 --- a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb +++ b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb @@ -59,6 +59,12 @@ If Strings.AvailableFeature(31) = "0" Then NewLine("(rename | 95 CP) Rename command") End If + If Strings.AvailableFeature(32) = 0 Then + NewLine("(zip | 95 CP) Zip command") + End If + If Strings.AvailableFeature(33) = 0 Then + NewLine("(unzip | 95 CP) Unzip command") + End If End If End If End If @@ -392,6 +398,28 @@ NewLine(ManHeader(1)) NormalCommand() End If + Case "zip" + If Strings.AvailableFeature(32) = "0" Then + ManHeader(0) = "Zip command" + ManHeader(1) = "95 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Gives ShiftOS support for compressing a file or directory into a ZIP file") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "unzip" + If Strings.AvailableFeature(33) = "0" Then + ManHeader(0) = "Unzip command" + ManHeader(1) = "95 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Gives ShiftOS support for compressing extracting a file or directory from a ZIP file") + 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" @@ -497,6 +525,12 @@ Case "rename" Shiftorium_InstallFeatures(True, "rename", 31, 95) NormalCommand() + Case "zip" + Shiftorium_InstallFeatures(True, "zip", 32, 95) + NormalCommand() + Case "unzip" + Shiftorium_InstallFeatures(True, "unzip", 33, 95) + NormalCommand() Case Else NormalCommand() NewLine("Shiftorium: Bad command or not available") @@ -588,6 +622,8 @@ Strings.AvailableFeature(16) = "1" Strings.AvailableFeature(17) = "0" Strings.AvailableFeature(31) = "0" + Strings.AvailableFeature(32) = "0" + Strings.AvailableFeature(33) = "0" success = True Case "textpad" Strings.AvailableFeature(17) = "1" @@ -648,6 +684,12 @@ Case "rename" Strings.AvailableFeature(31) = "1" success = True + Case "zip" + Strings.AvailableFeature(32) = "1" + success = True + Case "unzip" + Strings.AvailableFeature(33) = "1" + success = True End Select If success = False Then If IsCLI = True Then diff --git a/ShiftOS-TheRevival/Functions/OutGame/TheUpdater.vb b/ShiftOS-TheRevival/Functions/OutGame/TheUpdater.vb index ca1f7d9..28b827e 100644 --- a/ShiftOS-TheRevival/Functions/OutGame/TheUpdater.vb +++ b/ShiftOS-TheRevival/Functions/OutGame/TheUpdater.vb @@ -100,6 +100,15 @@ Module TheUpdater Else Strings.AvailableFeature(30) = "2" End If + If Strings.AvailableFeature(16) = 1 Then + Strings.AvailableFeature(31) = 0 + Strings.AvailableFeature(32) = 0 + Strings.AvailableFeature(33) = 0 + Else + Strings.AvailableFeature(31) = 2 + Strings.AvailableFeature(32) = 2 + Strings.AvailableFeature(33) = 2 + End If Strings.ComputerInfo(0) = ComputerInfoHere(0) Strings.ComputerInfo(1) = ComputerInfoHere(1) Strings.ComputerInfo(2) = ComputerInfoHere(2) @@ -107,6 +116,65 @@ Module TheUpdater 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.5" + 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) + If Strings.AvailableFeature(16) = 1 Then + Strings.AvailableFeature(31) = 0 + Strings.AvailableFeature(32) = 0 + Strings.AvailableFeature(33) = 0 + Else + Strings.AvailableFeature(31) = 2 + Strings.AvailableFeature(32) = 2 + Strings.AvailableFeature(33) = 2 + End If + 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!" End Select File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt", My.Resources.CurrentVersion) |