diff options
Diffstat (limited to 'shiftos_next/TerminalGames.vb')
| -rw-r--r-- | shiftos_next/TerminalGames.vb | 94 |
1 files changed, 0 insertions, 94 deletions
diff --git a/shiftos_next/TerminalGames.vb b/shiftos_next/TerminalGames.vb deleted file mode 100644 index 6d4dfed..0000000 --- a/shiftos_next/TerminalGames.vb +++ /dev/null @@ -1,94 +0,0 @@ -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 correct As Boolean = False - Dim args() As String = question.Replace("What is ", "").Split(" ") - Dim cptoadd As Integer = random.Next(1, 5) - Select Case args(1) - Case "+" - correct = (answer = CInt(args(0)) + CInt(args(2))) - Case "-" - correct = (answer = args(0) - args(2)) - Case "*" - correct = (answer = args(0) * args(2)) - Case "/" - correct = (answer = args(0) / args(2)) - End Select - If (correct) Then - AddLine("Correct! You have earned " & cptoadd & " Codepoints!") - AddCP(cptoadd) - Else - AddLine("Incorrect! Better luck next time...") - End If - 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 |
