From 16094d6b2fd9409d0866ac8f62ca355a383ebb1e Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sat, 3 Dec 2022 14:41:48 +0700 Subject: [PATCH] Shiftoriumable File Skimmer --- .../InGame/StoreManager/Shiftoriums.vb | 200 +++++++++++++++++- .../Universal/File Skimmer/Uni_FileSkimmer.vb | 4 +- .../TerminalApplications/Internal/Com_App.vb | 4 +- .../Internal/Com_Applist.vb | 3 + 4 files changed, 208 insertions(+), 3 deletions(-) diff --git a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb index f8bb31f..f6bb039 100644 --- a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb +++ b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb @@ -168,8 +168,37 @@ Else If Strings.AvailableFeature(44) = 0 Then NewLine("(fileskimmer | 300 CP) File Skimmer") + Else + If Strings.AvailableFeature(45) = 0 Then + NewLine("(fs_folder | 325 CP) FS Folder Support") + Else + If Strings.AvailableFeature(46) = 0 Then + NewLine("(fs_file | 350 CP) FS File Support") + Else + If Strings.AvailableFeature(47) = 0 Then + NewLine("(fs_delete | 400 CP) FS Delete Support") + End If + If Strings.AvailableFeature(48) = 0 Then + NewLine("(fs_zip | 500 CP) FS ZIP Support") + End If + End If + End If + If Strings.AvailableFeature(49) = 0 Then + NewLine("(fs_ppane | 350 CP) FS Property Pane") + End If + If Strings.AvailableFeature(50) = 0 Then + NewLine("(fs_jobbar | 400 CP) FS JobBar") + Else + If Strings.AvailableFeature(51) = 0 Then + NewLine("(fs_smallicons | 425 CP) FS Small Icons Layout") + End If + If Strings.AvailableFeature(52) = 0 Then + NewLine("(fs_list | 425 CP) FS List Layout") + End If + End If End If End If + End If End Sub Public Sub Shiftorium_InformationFeatures() @@ -565,7 +594,106 @@ ManHeader(1) = "250 CP" NewLine(ManHeader(0)) NewLine(Nothing) - NewLine("Adds US States category into Knowledge Input") + NewLine("Expands read and write support for Dual Window Manager") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "fileskimmer" + If Strings.AvailableFeature(44) = 0 Then + ManHeader(0) = "File Skimmer" + ManHeader(1) = "300 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("A file manager for ShiftOS") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "fs_folder" + If Strings.AvailableFeature(45) = 0 Then + ManHeader(0) = "FS Folder support" + ManHeader(1) = "325 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Adds folder read and write support for File Skimmer") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "fs_file" + If Strings.AvailableFeature(46) = 0 Then + ManHeader(0) = "FS File support" + ManHeader(1) = "350 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Adds file read and write support for File Skimmer") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "fs_delete" + If Strings.AvailableFeature(47) = 0 Then + ManHeader(0) = "FS Delete support" + ManHeader(1) = "400 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Supports file or directory deletion function in ShiftOS") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "fs_zip" + If Strings.AvailableFeature(48) = 0 Then + ManHeader(0) = "FS Delete support" + ManHeader(1) = "500 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Supports ZIP compression function in ShiftOS") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "fs_ppane" + If Strings.AvailableFeature(49) = 0 Then + ManHeader(0) = "FS Property Pane" + ManHeader(1) = "350 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("A sidebar for displaying informations about the file / directory") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "fs_jobbar" + If Strings.AvailableFeature(50) = 0 Then + ManHeader(0) = "FS JobBar" + ManHeader(1) = "400 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("A top panel contains certain actions for File Skimmer") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "fs_smallicons" + If Strings.AvailableFeature(51) = 0 Then + ManHeader(0) = "FS Small Icons Layout" + ManHeader(1) = "425 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Adds small icons as a display layout in File Skimmer") + NewLine(Nothing) + NewLine(ManHeader(1)) + NormalCommand() + End If + Case "fs_list" + If Strings.AvailableFeature(51) = 0 Then + ManHeader(0) = "FS List" + ManHeader(1) = "425 CP" + NewLine(ManHeader(0)) + NewLine(Nothing) + NewLine("Adds list as a display layout in File Skimmer") NewLine(Nothing) NewLine(ManHeader(1)) NormalCommand() @@ -709,6 +837,36 @@ Case "ki_us" Shiftorium_InstallFeatures(True, "ki_us", 42, 300) NormalCommand() + Case "duwm_rw" + Shiftorium_InstallFeatures(True, "duwm_rw", 43, 250) + NormalCommand() + Case "fileskimmer" + Shiftorium_InstallFeatures(True, "fileskimmer", 44, 300) + NormalCommand() + Case "fs_folder" + Shiftorium_InstallFeatures(True, "fs_folder", 45, 325) + NormalCommand() + Case "fs_file" + Shiftorium_InstallFeatures(True, "fs_file", 46, 350) + NormalCommand() + Case "fs_delete" + Shiftorium_InstallFeatures(True, "fs_delete", 47, 400) + NormalCommand() + Case "fs_zip" + Shiftorium_InstallFeatures(True, "fs_zip", 48, 500) + NormalCommand() + Case "fs_ppane" + Shiftorium_InstallFeatures(True, "fs_ppane", 49, 350) + NormalCommand() + Case "fs_jobbar" + Shiftorium_InstallFeatures(True, "fs_jobbar", 50, 400) + NormalCommand() + Case "fs_smallicons" + Shiftorium_InstallFeatures(True, "fs_smallicons", 51, 425) + NormalCommand() + Case "fs_list" + Shiftorium_InstallFeatures(True, "fs_list", 52, 425) + NormalCommand() Case Else NormalCommand() NewLine("Shiftorium: Bad command or not available") @@ -879,6 +1037,7 @@ GUISCustomizations.DesktopColor = Color.Black Strings.AvailableFeature(36) = "0" Strings.AvailableFeature(37) = "0" + Strings.AvailableFeature(43) = "0" success = True Case "shifter" Strings.AvailableFeature(36) = "1" @@ -907,6 +1066,45 @@ Case "ki_us" Strings.AvailableFeature(42) = "1" success = True + Case "duwm_rw" + Strings.AvailableFeature(43) = "1" + Strings.AvailableFeature(44) = "0" + success = True + Case "fileskimmer" + Strings.AvailableFeature(44) = "1" + Strings.AvailableFeature(45) = "0" + Strings.AvailableFeature(49) = "0" + Strings.AvailableFeature(50) = "0" + success = True + Case "fs_folder" + Strings.AvailableFeature(45) = "1" + Strings.AvailableFeature(46) = "0" + success = True + Case "fs_file" + Strings.AvailableFeature(46) = "1" + Strings.AvailableFeature(47) = "0" + Strings.AvailableFeature(48) = "0" + success = True + Case "fs_delete" + Strings.AvailableFeature(47) = "1" + success = True + Case "fs_zip" + Strings.AvailableFeature(48) = "1" + success = True + Case "fs_ppane" + Strings.AvailableFeature(49) = "1" + success = True + Case "fs_jobbar" + Strings.AvailableFeature(50) = "1" + Strings.AvailableFeature(51) = "0" + Strings.AvailableFeature(52) = "0" + success = True + Case "fs_smallicons" + Strings.AvailableFeature(51) = "1" + success = True + Case "fs_list" + Strings.AvailableFeature(52) = "1" + success = True End Select If success = False Then If IsCLI = True Then diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb index 33ee27a..50ed01c 100644 --- a/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb +++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb @@ -11,7 +11,6 @@ Public Class Uni_FileSkimmer 'End thingy CurrentDir = Strings.OnceInfo(1) txt_AddressBar.Text = CurrentDir.Replace(Strings.OnceInfo(1), "!\") - pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_folder ShowContent() End Sub @@ -228,6 +227,9 @@ Public Class Uni_FileSkimmer pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_unknown lbl_filetype.Text = "Unknown File Type" IsFile = True + ElseIf lsv_Content.SelectedItems(0).Text = "???" Then + pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_unknown + lbl_filetype.Text = "Unknown Type" End If If IsFile = True Then lbl_filesize.Visible = True diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb index 48caef6..a85ac14 100644 --- a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb @@ -15,7 +15,9 @@ DuWM_NewProcess(DuWM_Shifter) End If Case "file_skimmer" - DuWM_NewProcess(Uni_FileSkimmer) + If Strings.AvailableFeature(44) = 1 Then + DuWM_NewProcess(Uni_FileSkimmer) + End If End Select End Select End Sub diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Applist.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Applist.vb index 63941a1..b12ad2c 100644 --- a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Applist.vb +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Applist.vb @@ -3,6 +3,9 @@ NewLine("ShiftOS Graphical Application List") NewLine("To run a program, you can type 'app ' and the name of the program listed below (along with its underscore or any symbols included)") NewLine(Nothing) + If Strings.AvailableFeature(44) = 1 Then + NewLine("FILE_SKIMMER A file manager for ShiftOS") + End If If Strings.AvailableFeature(37) = 1 Then NewLine("KNOWLEDGE_INPUT Simple puzzle game where you guess as many things as you can") End If