Full Skinning ImplementationHEADmaster

I've finished coding the skinning system for the BWM. Over the skinning
commits, I've added:
- 2 new Shiftorium Upgrades
- 3 new Applications
- A bunch of bugfixes
- A new filetype
- and more.

Alpha 3.1 will be released now.

1 files changed, 31 insertions, 3 deletions

diff --git a/shiftos_next/APIs/API.vb b/shiftos_next/APIs/API.vb
index af6474d..417b2d9 100644
--- a/shiftos_next/APIs/API.vb
+++ b/shiftos_next/APIs/API.vb
@@ -74,7 +74,11 @@
     Public Sub OpenProgram(progtoopen As String)
         Select Case progtoopen
             Case "shifter", "skin", "shift"
-                Shifter.Show()
+                If boughtshifter = True Then
+                    Shifter.Show()
+                Else
+                    AddLine("open: Invalid program """ & progtoopen & """.")
+                End If
             Case "shiftorium", "packages", "pacman", "code shop"
                 shiftorium_cmd.Show()
             Case "files", "fileskimmer", "file skimmer", "fs", "file browser"
@@ -83,6 +87,12 @@
                 Else
                     AddLine("open: Invalid program """ & progtoopen & """.")
                 End If
+            Case "skinloader", "skin loader"
+                If boughtskinloader = True Then
+                    SkinLoader.Show()
+                Else
+                    AddLine("open: Invalid program """ & progtoopen & """.")
+                End If
             Case "textpad", "text", "notepad"
                 If boughttextpad = True Then
                     TextPad.Show()
@@ -104,6 +114,12 @@
                 Else
                     AddLine("close: Invalid program """ & progtoclose & """.")
                 End If
+            Case "skinloader", "skin loader"
+                If boughtskinloader = True Then
+                    SkinLoader.Hide()
+                Else
+                    AddLine("close: Invalid program """ & progtoclose & """.")
+                End If
             Case "textpad", "text", "notepad"
                 If boughttextpad = True Then
                     TextPad.Hide()
@@ -111,7 +127,11 @@
                     AddLine("close: Invalid program """ & progtoclose & """.")
                 End If
             Case "shifter", "skin", "shift"
-                Shifter.Hide()
+                If boughtshifter = True Then
+                    Shifter.Hide()
+                Else
+                    AddLine("close: Invalid program """ & progtoclose & """.")
+                End If
             Case Else
                 AddLine("close: Invalid program """ & progtoclose & """.")
         End Select
@@ -163,7 +183,12 @@
     Public Sub ShowHelp()
         AddLine("ShiftOS Help" & vbNewLine)
         AddLine("Usage tips: " & vbNewLine)
-        AddLine(" - The terminal runs in full-screen.")
+        If boughtbasicwm = False Then
+            AddLine(" - The terminal runs in full-screen.")
+        Else
+            AddLine(" - The terminal can be run in a window.")
+            AddLine(" - Up to three terminals can be ran, within their own seperate window.")
+        End If
         If boughttextpad = True Then AddLine(" - Typing the path to a text file will open it in Textpad.")
         AddLine(" - There are no window managers or desktop environments.")
         If boughtbasicgui = True Then
@@ -188,6 +213,7 @@
                 AddLine("   textcolor <colorname>: Set the terminal text color.")
             End If
         End If
+        If boughtbasicwm = True Then AddLine(" - bwm: Open the Basic Window Manager.")
         AddLine(" - codepoints: Shows the current amount of codepoints.")
         AddLine(" - shutdown: Shuts the system down.")
         AddLine(" - colors: Shows the colors supported by both the Terminal display engine, and the video driver.")
@@ -199,6 +225,8 @@
         If boughttextpad Then AddLine(" - textpad: An application that allows for creating and editing text files.")
         AddLine(" - MathQuiz: Earn Codepoints by solving math questions.")
         AddLine(" - Guess the Number: Earn Codepoints by guessing a random number between 1 and 100.")
+        If boughtskinloader = True Then AddLine(" - Skin Loader: Load, save, and apply skins.")
+        If boughtshifter = True Then AddLine(" - Shifter: Create your own skins for the current Desktop Environment.")
     End Sub
 
     Public Sub SelectBottom()