From 996601e9cc2874b7aa6e38772bbb7ac23eed6413 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Fri, 18 Nov 2022 16:58:37 +0700 Subject: Moving majority functions of apps from TerminalExternalApp into its own separate module and fixing bug on ability to set hostname and username to blank --- .../External/GuessTheNumber/App_Guess.vb | 40 ++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 ShiftOS-TheRevival/TerminalApplications/External/GuessTheNumber/App_Guess.vb (limited to 'ShiftOS-TheRevival/TerminalApplications/External/GuessTheNumber') 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 -- cgit v1.2.3