diff options
Diffstat (limited to 'ShiftOS-TheRevival/TerminalApplications/External/GuessTheNumber')
| -rw-r--r-- | ShiftOS-TheRevival/TerminalApplications/External/GuessTheNumber/App_Guess.vb | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/TerminalApplications/External/GuessTheNumber/App_Guess.vb b/ShiftOS-TheRevival/TerminalApplications/External/GuessTheNumber/App_Guess.vb new file mode 100644 index 0000000..32910ed --- /dev/null +++ b/ShiftOS-TheRevival/TerminalApplications/External/GuessTheNumber/App_Guess.vb @@ -0,0 +1,40 @@ +Module App_Guess + 'This is for GTN's RAM + Public TheNumber As Integer = 0 + Public FreezeText As String + + Public Sub GTN_Start() + Console.DefaultPrompt = "Your answer: " + NewLine("Guess the Number") + NewLine("Guess the correct number between 1 and 50 and you'll get anything between 1 to 10 Codepoints") + NewLine("Type 'exit' to terminate this game") + Console.CurrentInterpreter = "guess" + GTN_GenerateNumber() + Console.ShouldChange = True + End Sub + + Public Sub GTN_GenerateNumber() + Dim RandNum As New Random + TheNumber = RandNum.Next(1, 51) + End Sub + + Public Sub GTN_CheckNumber() + Dim TheirNumber As Integer = Convert.ToInt32(command) + If TheirNumber > 0 And TheirNumber < 51 Then + If TheirNumber = TheNumber Then + Dim GetCP As New Random + Dim GotCP As Integer = GetCP.Next(1, 11) + ChangeCP(True, GotCP) + NewLine("You are correct!, you got " & GotCP & " Codepoint(s)") + NewLine("Guess the new number between 1 and 50.") + GTN_GenerateNumber() + Else + If TheirNumber < TheNumber Then + NewLine("Higher!") + ElseIf TheirNumber > TheNumber Then + NewLine("Lower!") + End If + End If + End If + End Sub +End Module |