New ways to earn Codepoints + Terminal Cleanup

Alrighty. This one's a small one.

I've ported the two beginner apps from UltraDOS that helped you earn
codepoints (scriptpoints in UltraDOS) to ShiftOS-Next.

I've also moved some Terminal methods like AddLine() to an API.vb
module. I've also hid the MathQuiz and GuessTheNumber code in the
TerminalGames module.

1 files changed, 94 insertions, 0 deletions

diff --git a/shiftos_next/API.vb b/shiftos_next/API.vb
new file mode 100644
index 0000000..16cb502
--- /dev/null
+++ b/shiftos_next/API.vb
@@ -0,0 +1,94 @@
+Module API
+    'Terminal
+
+    Public txtterm As TextBox = Terminal.txtterm
+
+    Public Sub wrongcommand()
+        AddLine("Invalid command! Type ""help"" for a list of commands.")
+    End Sub
+
+    Public Sub AddLine(text As String)
+        txtterm.Text += vbNewLine + text
+        SelectBottom()
+    End Sub
+
+    Public Sub openfile(file As String)
+        Dim filinfo As New IO.FileInfo(file)
+        Select Case filinfo.Extension
+            Case ".txt"
+                If boughttextpad = True Then
+                    Dim sr As New IO.StreamReader(file)
+                    TextPad.txtfilebody.Text = sr.ReadToEnd()
+                    sr.Close()
+                    TextPad.Show()
+                Else
+                    wrongcommand()
+                End If
+            Case Else
+                wrongcommand()
+        End Select
+    End Sub
+
+
+    Public Sub showterminalcolors()
+        AddLine(" ==== SUPPORTED TERMINAL COLORS ==== " & vbNewLine)
+        AddLine("Below is a list of values that you can specify in <colorname> arguments. Note that only certain colors are supported; and if the video driver can output a color but it isn't on this list, it is not supported by the Terminal display engine." & vbNewLine)
+        If boughtgray Then AddLine("gray")
+        AddLine("white")
+        AddLine("black")
+        If boughtred Then AddLine("red")
+        If boughtgreen Then AddLine("green")
+        If boughtblue Then AddLine("blue")
+        If boughtyellow Then AddLine("yellow")
+        If boughtorange Then AddLine("orange")
+        If boughtpink Then AddLine("pink")
+        If boughtpurple Then AddLine("purple")
+        If boughtbrown Then AddLine("brown")
+    End Sub
+
+    Public Sub ShowHelp()
+        AddLine("ShiftOS Help" & vbNewLine)
+        AddLine("Usage tips: " & vbNewLine)
+        AddLine(" - The terminal runs in full-screen.")
+        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
+            AddLine(" - Applications can use the GUI server to display a proper GUI.")
+        Else
+            AddLine(" - Applications are fully text-based.")
+        End If
+        AddLine(" - Terminal commands are case-insensitive." & vbNewLine)
+        AddLine("Commands: " & vbNewLine)
+        If boughtdirectorysurfing Then
+            AddLine(" - cd: Change to the specified directory.")
+            AddLine(" - mkdir: Create a directory inside the current directory (marked before the %)")
+            AddLine(" - ls, dir: View the contents of the current directory.")
+        End If
+        If boughtbasicsettings Then
+            AddLine(" - set <setting> <value>: Change some minimal settings in ShiftOS.")
+            If boughtcustomusername Then
+                AddLine("   Settings: ")
+                AddLine("   username <string>: Set the username of the OS.")
+            End If
+            If boughtterminalsettextcolor = True Then
+                AddLine("   textcolor <colorname>: Set the terminal text color.")
+            End If
+        End If
+        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.")
+        AddLine(" - help: Shows this screen." & vbNewLine)
+        AddLine("Installed Programs:" & vbNewLine)
+        AddLine("Below is a list of all the programs on your computer, followed by what they do. You can open one by typing ""open <name>""." & vbNewLine)
+        AddLine(" - shiftorium: Upgrade the OS with Codepoints using this application.")
+        If boughtfileskimmer Then AddLine(" - file skimmer: A handy little file browser.")
+        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.")
+    End Sub
+
+    Public Sub SelectBottom()
+        txtterm.Select(txtterm.Text.Length, 0)
+    End Sub
+
+End Module