aboutsummaryrefslogtreecommitdiff
path: root/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
diff options
context:
space:
mode:
Diffstat (limited to 'ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb')
-rw-r--r--ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb200
1 files changed, 199 insertions, 1 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
generated by cgit v1.2.3 (git 2.46.0) at 2026-06-04 02:27:17 +0000