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, 110 insertions, 0 deletions

diff --git a/shiftos_next/TerminalGames.vb b/shiftos_next/TerminalGames.vb
new file mode 100644
index 0000000..fab93b3
--- /dev/null
+++ b/shiftos_next/TerminalGames.vb
@@ -0,0 +1,110 @@
+Module TerminalGames
+
+    Public mathquiz As Boolean = False
+    Public guessthenumber As Boolean = False
+
+    Public Sub MQInterpret(question As String, answer As Integer)
+        Dim random As New Random()
+        Dim args() As String = question.Replace("What is ", "").Split(" ")
+        Select Case args(1)
+            Case "+"
+                If answer = args(0) + args(2) Then
+                    Dim cptoadd As Integer = random.Next(1, 5)
+                    AddLine("Correct! You have earned " & cptoadd & " Codepoints!")
+                    AddCP(cptoadd)
+                Else
+                    AddLine("Incorrect! Better luck next time...")
+                End If
+            Case "-"
+                If answer = args(0) - args(2) Then
+                    Dim cptoadd As Integer = random.Next(1, 5)
+                    AddLine("Correct! You have earned " & cptoadd & " Codepoints!")
+                    AddCP(cptoadd)
+                Else
+                    AddLine("Incorrect! Better luck next time...")
+                End If
+            Case "*"
+                If answer = args(0) * args(2) Then
+                    Dim cptoadd As Integer = random.Next(1, 5)
+                    AddLine("Correct! You have earned " & cptoadd & " Codepoints!")
+                    AddCP(cptoadd)
+                Else
+                    AddLine("Incorrect! Better luck next time...")
+                End If
+            Case "/"
+                If answer = args(0) / args(2) Then
+                    Dim cptoadd As Integer = random.Next(1, 5)
+                    AddLine("Correct! You have earned " & cptoadd & " Codepoints!")
+                    AddCP(cptoadd)
+                Else
+                    AddLine("Incorrect! Better luck next time...")
+                End If
+        End Select
+        MQCreateQuestion()
+    End Sub
+
+    Public Sub MQCreateQuestion()
+        Dim rand As New Random
+        Dim num1 As Integer = rand.Next(1, 10)
+        Dim num2 As Integer = rand.Next(1, 10)
+        Dim operandchooser As Integer = rand.Next(1, 4)
+        Dim operand As String
+        Select Case operandchooser
+            Case 1
+                operand = " + "
+            Case 2
+                While num2 > num1
+                    num2 = rand.Next(1, 10)
+                End While
+                operand = " - "
+            Case 3
+                operand = " * "
+            Case 4
+                operand = " / "
+            Case Else
+                operand = " + "
+        End Select
+        AddLine("What is " & num1 & operand & num2 & " ?")
+    End Sub
+
+    Public Sub changeinterpreter()
+        If mathquiz = True Then
+            AddLine(" === MathQuiz ===" & vbNewLine)
+            AddLine("MathQuiz is a basic game for ShiftOS that allows you to earn Codepoints for solving math " & vbNewLine & "questions. These questions will always be (num1) (operand) (num2) = (answer)." & vbNewLine)
+            AddLine("(num1) and (num2) will always be integers between 1 and 10.")
+            AddLine("(operand) Will always be either a +, -, * (times) or / (division) statement that can change the answer.")
+            MQCreateQuestion()
+        End If
+        If guessthenumber = True Then
+            AddLine(" -= Guess The Number =-" & vbNewLine)
+            AddLine("Guess the Number is a game that allows you to earn Codepoints for")
+            AddLine("guessing a number between 1 and 100." & vbNewLine)
+            GTNStart()
+        End If
+    End Sub
+
+    Public GTNCorrect As Integer
+
+    Public Sub GTNStart()
+        Dim rand As New Random()
+        GTNCorrect = rand.Next(1, 100)
+        AddLine("Choose a number between 1 and 100:")
+    End Sub
+
+    Public Sub GTNInterpret(num As Integer)
+        If num < 100 And num > 0 Then
+            If GTNCorrect = num Then
+                Dim rand As New Random()
+                Dim cptoadd As Integer = rand.Next(1, 10)
+                AddLine("Correct! You have earned " & cptoadd & " Codepoints.")
+                GTNStart()
+            ElseIf num > GTNCorrect Then
+                AddLine("Lower!")
+            ElseIf num < GTNCorrect Then
+                AddLine("Higher!")
+            End If
+        Else
+            AddLine("Number isn't between 1 and 100!")
+        End If
+    End Sub
+End Module