diff options
Diffstat (limited to 'shiftos_next/TerminalGames.vb')
| -rw-r--r-- | shiftos_next/TerminalGames.vb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/shiftos_next/TerminalGames.vb b/shiftos_next/TerminalGames.vb index 3cb7ee2..6d4dfed 100644 --- a/shiftos_next/TerminalGames.vb +++ b/shiftos_next/TerminalGames.vb @@ -5,8 +5,9 @@ Public Sub MQInterpret(question As String, answer As Integer) Dim random As New Random() - Private correct As Boolean = False + 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))) |