diff options
| author | TheUltimateHacker <[email protected]> | 2015-05-29 14:24:56 -0400 |
|---|---|---|
| committer | TheUltimateHacker <[email protected]> | 2015-05-29 14:24:56 -0400 |
| commit | 7d123b89e26c054d83e12b2e229f2f62fe13014e (patch) | |
| tree | 814bdb585f3f5704a34a8d4b980d3085078c424a /shiftos_next/APIs/API.vb | |
| parent | 2bed5c22ff991077bdd1aadd20275c17c1218211 (diff) | |
| download | shiftos-next-7d123b89e26c054d83e12b2e229f2f62fe13014e.tar.gz shiftos-next-7d123b89e26c054d83e12b2e229f2f62fe13014e.tar.bz2 shiftos-next-7d123b89e26c054d83e12b2e229f2f62fe13014e.zip | |
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.
Diffstat (limited to 'shiftos_next/APIs/API.vb')
| -rw-r--r-- | shiftos_next/APIs/API.vb | 34 |
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() |