More organized

ShiftOS-TheRevival/Functions/InGame/Shiftoriums.vb

@@ -2,6 +2,8 @@
     Public prompt As String
 
     Public Sub Shiftorium_ListFeatures()
+        'Shows available installable feature on Shiftorium
+        'Only AvailableFeature that are in the value of 0 can be displayed in the list
         NewLine("Shiftorium Available Feature(s)")
         NewLine(Nothing)
         If Strings.AvailableFeature(11) = "0" Then
@@ -53,6 +55,9 @@
                                                 If Strings.AvailableFeature(30) = "0" Then
                                                     NewLine("(batchscript | 100 CP) ShiftOS Batch Script Support")
                                                 End If
+                                                If Strings.AvailableFeature(31) = "0" Then
+                                                    NewLine("(clipboard | 100 CP) Clipboard support")
+                                                End If
                                             End If
                                         End If
                                     End If
@@ -376,6 +381,17 @@
                     NewLine(ManHeader(1))
                     Console.BadCommand = False
                 End If
+            Case "clipboard"
+                If Strings.AvailableFeature(31) = "0" Then
+                    ManHeader(0) = "Clipboard Support"
+                    ManHeader(1) = "100 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds the supports for clipboard")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    Console.BadCommand = False
+                End If
             Case Else
                 Console.BadCommand = False
                 Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
@@ -478,6 +494,9 @@
             Case "batchscript"
                 Shiftorium_InstallFeatures(True, "batchscript", 30, 100)
                 Console.BadCommand = False
+            Case "clipboard"
+                Shiftorium_InstallFeatures(True, "clipboard", 31, 100)
+                Console.BadCommand = False
             Case Else
                 Console.BadCommand = False
                 NewLine("Shiftorium: Bad command or not available")
@@ -485,7 +504,9 @@
     End Sub
 
     Public Sub Shiftorium_InstallFeatures(IsCLI As Boolean, Feature As String, FeatureRow As Integer, Codepoint As Integer)
+        'Import the current CP as an Integer
         Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
+        'See what feature that are going to be installed
         Select Case Strings.AvailableFeature(FeatureRow)
             Case "0"
                 If TempCP >= Codepoint Then
@@ -570,6 +591,7 @@
                         Case "textpad"
                             Strings.AvailableFeature(17) = "1"
                             Strings.AvailableFeature(30) = "0"
+                            Strings.AvailableFeature(31) = "0"
                             success = True
                         Case "shiftkey"
                             Strings.AvailableFeature(18) = "1"
@@ -623,12 +645,16 @@
                         Case "batchscript"
                             Strings.AvailableFeature(30) = "1"
                             success = True
+                        Case "clipboard"
+                            Strings.AvailableFeature(31) = "1"
+                            success = True
                     End Select
                     If success = False Then
                         If IsCLI = True Then
                             NewLine("Shiftorium: Invalid command or feature already installed")
                         End If
                     Else
+                        'It will deduct the current codepoint to the modified codepoint and exporting it back to ComputerInfo(2)
                         Strings.ComputerInfo(4) = Strings.ComputerInfo(4) + 1
                         TempCP = TempCP - Codepoint
                         Strings.ComputerInfo(2) = Convert.ToString(TempCP)

ShiftOS-TheRevival/Functions/InGame/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(30) As String
+    Public Shared AvailableFeature(31) As String
     Public Shared CLIInterpreter As String
     Public Shared SaveFile As String
     Public Shared Achievement As String
@@ -79,6 +79,7 @@
     '28 = Date by month and year [Shows date in MM/YYYY format] (0.2.5) (default : 0)
     '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 = Clipboard support for ShiftOS [Gives clipboard support for copy-pasting in ShiftOS] (0.2.6) (default : 0)
     '
     'Features bought hierarchy :
     'ShiftOS Key (KEY) (5 CP)
@@ -100,6 +101,7 @@
     '>>>>>>>4-bit Color Display (4BITCOLOR) (80 CP)
     '>>>>>>>>Terminal Read-Only Memory Driver (ROMDRIVER, DIR, MKDIR, RMDIR, CD, PWD) (90 CP)
     '>>>>>>>>>TextPad (100 CP)
+    '>>>>>>>>>>Clipboard support (CLIPBOARD) (100 CP)
     '>>>>>>>>>>ShiftOS Batch Script Support (BATCHSCRIPT) (100 CP)
     '>>Basic Calculator (BC) (55 CP)
     '>>Time by Seconds (TIME, STIME) (10 CP)

ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb

@@ -3,6 +3,7 @@
 Module SaveLoadSystem
 
     Public Sub NewGameMode()
+        '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\saved", True)
         Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS")
@@ -44,9 +45,12 @@ Module SaveLoadSystem
         Strings.AvailableFeature(28) = "2"
         Strings.AvailableFeature(29) = "2"
         Strings.AvailableFeature(30) = "2"
+        '0.2.6 Features
+        Strings.AvailableFeature(31) = "2"
     End Sub
 
     Public Sub FreeRoamMode()
+        'Sets all features to as bought
         Strings.ComputerInfo(0) = "shiftos"
         Strings.ComputerInfo(1) = "user"
         Strings.ComputerInfo(2) = "0"
@@ -84,9 +88,12 @@ Module SaveLoadSystem
         Strings.AvailableFeature(28) = "3"
         Strings.AvailableFeature(29) = "1"
         Strings.AvailableFeature(30) = "1"
+        '0.2.6 Features
+        Strings.AvailableFeature(31) = "1"
     End Sub
 
     Public Sub GodMode()
+        'Same as new game but codepoints automatically assigned to 9999 and not saved into the FS
         Strings.ComputerInfo(0) = "shiftos"
         Strings.ComputerInfo(1) = "user"
         Strings.ComputerInfo(2) = 9999
@@ -123,6 +130,8 @@ Module SaveLoadSystem
         Strings.AvailableFeature(28) = "2"
         Strings.AvailableFeature(29) = "2"
         Strings.AvailableFeature(30) = "2"
+        '0.2.6 Features
+        Strings.AvailableFeature(31) = "2"
     End Sub
 
     Public Sub SaveGame()

ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj

@@ -111,14 +111,14 @@
     <Compile Include="MainForms\DebugWindow.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="MainForms\DirectoryManagements.vb" />
+    <Compile Include="Functions\InGame\DirectoryManagements.vb" />
     <Compile Include="MainForms\Epilepsy.Designer.vb">
       <DependentUpon>Epilepsy.vb</DependentUpon>
     </Compile>
     <Compile Include="MainForms\Epilepsy.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="MainForms\FileManagement.vb" />
+    <Compile Include="Functions\InGame\FileManagement.vb" />
     <Compile Include="MainForms\IntroStory.Designer.vb">
       <DependentUpon>IntroStory.vb</DependentUpon>
     </Compile>
@@ -126,7 +126,7 @@
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="MainForms\SaveLoadSystem.vb" />
-    <Compile Include="MainForms\Shiftoriums.vb" />
+    <Compile Include="Functions\InGame\Shiftoriums.vb" />
     <Compile Include="MainForms\ShiftOSMenu.vb">
       <SubType>Form</SubType>
     </Compile>
@@ -140,19 +140,19 @@
     <Compile Include="MainForms\ShiftOSUpdater.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="MainForms\Strings.vb" />
+    <Compile Include="Functions\InGame\Strings.vb" />
     <Compile Include="MainForms\Console.Designer.vb">
       <DependentUpon>Console.vb</DependentUpon>
     </Compile>
     <Compile Include="MainForms\Console.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="MainForms\ConsoleAPI.vb" />
-    <Compile Include="MainForms\TerminalAPI.vb" />
-    <Compile Include="MainForms\TerminalExternalApps.vb" />
-    <Compile Include="MainForms\TerminalColorSystem.vb" />
-    <Compile Include="MainForms\TerminalInternalApps.vb" />
-    <Compile Include="MainForms\TheUpdater.vb" />
+    <Compile Include="API\ConsoleAPI.vb" />
+    <Compile Include="API\TerminalAPI.vb" />
+    <Compile Include="Functions\InGame\TerminalExternalApps.vb" />
+    <Compile Include="Functions\InGame\TerminalColorSystem.vb" />
+    <Compile Include="Functions\InGame\TerminalInternalApps.vb" />
+    <Compile Include="Functions\OutGame\TheUpdater.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>