diff options
Diffstat (limited to 'ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb')
| -rw-r--r-- | ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb b/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb index 58ab882..a0e8523 100644 --- a/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb +++ b/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb @@ -50,14 +50,18 @@ End Sub Public Sub MQ_CheckAnswer() - Dim TheAnswer As Integer = command - If TheAnswer = MQ_ShouldResult Then - NewLine("You got the right answer! You got " & MQ_ShouldResult & " Codepoint(s)") - ChangeCP(True, MQ_ShouldResult) - MQ_GiveQuestion() - Else - NewLine("You got the wrong answer! Try again") - MQ_GiveQuestion() - End If + Try + Dim TheAnswer As Integer = command + If TheAnswer = MQ_ShouldResult Then + NewLine("You got the right answer! You got " & MQ_ShouldResult & " Codepoint(s)") + ChangeCP(True, MQ_ShouldResult) + MQ_GiveQuestion() + Else + NewLine("You got the wrong answer! Try again") + MQ_GiveQuestion() + End If + Catch ex As Exception + NewLine("Invalid number or command") + End Try End Sub End Module |