blob: 3cb7ee24e21427435f8921e69287587f54b62aea (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
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()
Private correct As Boolean = False
Dim args() As String = question.Replace("What is ", "").Split(" ")
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
|
