Full Skinning Implementation

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.

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()

shiftos_next/BWM and CMD Apps/file skimmer.vb

@@ -105,28 +105,37 @@
                 End If
             Else
                 If mode = "open" Then
-                    Dim filinf As New IO.FileInfo(lvfiles.SelectedItems(0).Tag)
+                    If IO.Directory.Exists(lvfiles.SelectedItems(0).Tag) Then
-                    Select Case application
+                        OpenFile(lvfiles.SelectedItems(0).Tag)
-                        Case "textpad"
+                    Else
-                            If filinf.Extension = ".txt" Then
+                        Dim filinf As New IO.FileInfo(lvfiles.SelectedItems(0).Tag)
-                                Dim sr As New IO.StreamReader(lvfiles.SelectedItems(0).Tag.ToString)
+                        Select Case application
-                                TextPad.txtfilebody.Text = sr.ReadToEnd()
+                            Case "textpad"
-                                sr.Close()
+                                If filinf.Extension = ".txt" Then
+                                    Dim sr As New IO.StreamReader(lvfiles.SelectedItems(0).Tag.ToString)
+                                    TextPad.txtfilebody.Text = sr.ReadToEnd()
+                                    sr.Close()
+                                    Me.Close()
+                                End If
+                            Case "skin_loader"
+                                SkinLoader.readfile(lvfiles.SelectedItems(0).Tag.ToString)
+                                SkinLoader.skintoload = lvfiles.SelectedItems(0).Tag.ToString
                                 Me.Close()
-                            End If
+                        End Select
-                        Case "skin_loader"
+                    End If
-                            SkinLoader.readfile(lvfiles.SelectedItems(0).Tag.ToString)
-                            SkinLoader.skintoload = lvfiles.SelectedItems(0).Tag.ToString
-                            Me.Close()
-                    End Select
                 Else
                     OpenFile(lvfiles.SelectedItems(0).Tag)
                 End If
-            End If
+                End If
         Catch
         End Try
     End Sub
 
+    Private Sub file_skimmer_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        mode = ""
+        application = ""
+    End Sub
+
     Private Sub file_skimmer_Load(sender As Object, e As EventArgs) Handles Me.Load
         topmenu.Renderer = New basicwm_renderer()
         tools.Renderer = New basicwm_renderer()
@@ -199,6 +208,7 @@
                         Me.Close()
                     Case "skin_loader"
                         saveskin(currentdir + "\" + txtfilename.Text + ".bsk")
+                        Me.Close()
                 End Select
             End If
         Else

shiftos_next/BWM and CMD Apps/shiftorium_cmd.vb

@@ -42,6 +42,13 @@
                             If boughtdraggablewindows = False Then
                                 AddItem("BWM Draggable Windows", 25)
                             End If
+                            If boughtshifter = False Then
+                                AddItem("Shifter", 60)
+                            Else
+                                If boughtskinloader = False Then
+                                    AddItem("Skin Loader", 75)
+                                End If
+                            End If
                         End If
                     End If
                 End If
@@ -55,6 +62,14 @@
                 If boughtterminalsettextcolor = False And boughtbasicsettings = True Then
                     AddItem("Set Terminal Text Color", 10)
                 End If
+                If boughtred = False Then AddItem("Red", 30)
+                If boughtgreen = False Then AddItem("Green", 30)
+                If boughtblue = False Then AddItem("Blue", 30)
+                If boughtpurple = False Then AddItem("Purple", 30)
+                If boughtpink = False Then AddItem("Pink", 30)
+                If boughtyellow = False Then AddItem("Yellow", 30)
+                If boughtorange = False Then AddItem("Orange", 30)
+                If boughtbrown = False Then AddItem("Brown", 30)
             End If
             lbitems.SelectedIndex = 0
         Catch ex As Exception
@@ -84,6 +99,18 @@
                     lbitems.SelectedIndex -= 1
                 End If
             Case Keys.Enter
+                handleitemdescription("Skin Loader - 75 CP", "Ever wanted to save and load skins for use later? Really like that one color scheme but want to change? Want to share your skins with friends? This application is for you. It allows you to load, save, or apply BWM Skin Files.")
+                handleitemdescription("Shifter - 60 CP", "Tired of that same old gray, black and white color scheme? Fear not, the Shifter is here! It allows you to set different settings for the BWM, such as text and background colors. Soon, you may even be able to share skins with friends!")
+
+                handleitemdescription("Red - 30 CP", "Enable the display of Red on the screen.")
+                handleitemdescription("Green - 30 CP", "Enable the display of Green on the screen.")
+                handleitemdescription("Blue - 30 CP", "Enable the display of Blue on the screen.")
+                handleitemdescription("Purple - 30 CP", "Enable the display of Purple on the screen.")
+                handleitemdescription("Pink - 30 CP", "Enable the display of Pink on the screen.")
+                handleitemdescription("Yellow - 30 CP", "Enable the display of Yellow on the screen.")
+                handleitemdescription("Orange - 30 CP", "Enable the display of Orange on the screen.")
+                handleitemdescription("Brown - 30 CP", "Enable the display of Brown on the screen.")
+
                 handleitemdescription("BWM Draggable Windows - 25 CP", "We are able to have multiple windows on the screen, but they all stick to the center of the screen and can't be moved! This upgrade fixes that.")
                 handleitemdescription("Basic Window Manager - 100 CP", "Fullscreen applications, well, suck. You can't get any work done outside of that app without closing it, and can't even view the Terminal. This upgrade changes that. We've found a way to use the Basic GUI server to create a simple window manager. It allows multiple windows on the screen, and up to 3 Terminal windows at once.")
                 handleitemdescription("Textpad - 50 CP", "Hmmmmm... What was I gonna do on Sunday? Oh yeah! I have to get that website written for my buddy. Better write that down before I forget... " & vbNewLine & vbNewLine & "Textpad allows you to create text documents. Handy if you need to write something down!")
@@ -97,6 +124,18 @@
                 handleitemdescription("Custom Username - 10 CP", "Hello, user! Isn't that wierd that that's all we know you as? Buy this upgrade to change yourr name from ""user"" to anything you want!")
                 handleitemdescription("Basic Terminal Settings - 5 CP", "Ever wanted to customize the terminal to act the way you'd like it to? This upgrade is for you. You won't be able to use it until you buy settings, but hey! The command is there.")
             Case Keys.Space
+                handlebuy("Skin Loader - 75 CP", boughtskinloader, "Now, you can head to the Terminal and type ""open skin loader"", and do what you please.")
+                handlebuy("Shifter - 60 CP", boughtshifter, "Great! Just type ""open shifter"" in the Terminal and start customizing!")
+
+                handlebuy("Red - 30 CP", boughtred, "Red can now be displayed on screen, and used in the Color Picker.")
+                handlebuy("Green - 30 CP", boughtgreen, "Green can now be displayed on screen, and used in the Color Picker.")
+                handlebuy("Blue - 30 CP", boughtblue, "Blue can now be displayed on screen, and used in the Color Picker.")
+                handlebuy("Purple - 30 CP", boughtpurple, "Purple can now be displayed on screen, and used in the Color Picker.")
+                handlebuy("Pink - 30 CP", boughtpink, "Pink can now be displayed on screen, and used in the Color Picker.")
+                handlebuy("Orange - 30 CP", boughtorange, "Orange can now be displayed on screen, and used in the Color Picker.")
+                handlebuy("Yellow - 30 CP", boughtyellow, "Yellow can now be displayed on screen, and used in the Color Picker.")
+                handlebuy("Brown - 30 CP", boughtbrown, "Brown can now be displayed on screen, and used in the Color Picker.")
+
                 handlebuy("BWM Draggable Windows - 25 CP", boughtdraggablewindows, "The upgrade has been applied, and now we can drag windows around using our mouse!")
                 handlebuy("Basic Window Manager - 100 CP", boughtbasicwm, "Awesome! Just exit the Shiftorium and type ""bwm"" into the Terminal, and away we go. Future sessions will not require typing ""bwm"".")
                 handlebuy("Textpad - 50 CP", boughttextpad, "Great. Now our computer is a bit more useful than before...")