diff options
Diffstat (limited to 'ShiftOS-TheRevival/TerminalApplications')
4 files changed, 36 insertions, 27 deletions
diff --git a/ShiftOS-TheRevival/TerminalApplications/External/BasicCalculator/App_BC.vb b/ShiftOS-TheRevival/TerminalApplications/External/BasicCalculator/App_BC.vb index 52a1f30..adcb3bd 100644 --- a/ShiftOS-TheRevival/TerminalApplications/External/BasicCalculator/App_BC.vb +++ b/ShiftOS-TheRevival/TerminalApplications/External/BasicCalculator/App_BC.vb @@ -68,6 +68,9 @@ BC_Counting(BC_Numbers1, BC_Numbers2, BC_Operation2) BC_ThriceMoreValue = Nothing NewLine(BC_Result) + If BC_Result = 69 Then + NewLine("Nice!") + End If End Sub Public Sub BC_Counting(FirstNum As Integer, SecondNum As Integer, Operation As String) diff --git a/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb b/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb index 40ce30b..58ab882 100644 --- a/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb +++ b/ShiftOS-TheRevival/TerminalApplications/External/MathQuiz/App_MathQuiz.vb @@ -17,34 +17,36 @@ End Sub Public Sub MQ_GiveQuestion() - Dim RandomNum As New Random - MQ_1stNum = RandomNum.Next(1, 10) - MQ_2ndNum = RandomNum.Next(1, 10) - OperationChooser = RandomNum.Next(1, 5) - Select Case OperationChooser - Case 1 - MQ_Operation = " + " - MQ_ShouldResult = MQ_1stNum + MQ_2ndNum - Case 2 - While MQ_2ndNum >= MQ_1stNum - MQ_2ndNum = RandomNum.Next(1, 10) - End While - MQ_Operation = " - " - MQ_ShouldResult = MQ_1stNum - MQ_2ndNum - Case 3 - MQ_Operation = " * " - MQ_ShouldResult = MQ_1stNum * MQ_2ndNum - Case 4 - While MQ_2ndNum > MQ_1stNum + Try + Dim RandomNum As New Random + MQ_1stNum = RandomNum.Next(1, 10) + MQ_2ndNum = RandomNum.Next(1, 10) + OperationChooser = RandomNum.Next(1, 5) + Select Case OperationChooser + Case 1 + MQ_Operation = " + " + MQ_ShouldResult = MQ_1stNum + MQ_2ndNum + Case 2 + While MQ_2ndNum >= MQ_1stNum MQ_2ndNum = RandomNum.Next(1, 10) End While - MQ_Operation = " / " - MQ_ShouldResult = MQ_1stNum / MQ_2ndNum - Case Else - MQ_Operation = " + " - MQ_ShouldResult = MQ_1stNum + MQ_2ndNum - End Select - NewLine("What is " & MQ_1stNum & MQ_Operation & MQ_2ndNum & " ?") + MQ_Operation = " - " + MQ_ShouldResult = MQ_1stNum - MQ_2ndNum + Case 3 + MQ_Operation = " * " + MQ_ShouldResult = MQ_1stNum * MQ_2ndNum + Case 4 + While MQ_2ndNum > MQ_1stNum + MQ_2ndNum = RandomNum.Next(1, 10) + End While + MQ_Operation = " / " + MQ_ShouldResult = MQ_1stNum / MQ_2ndNum + End Select + NewLine("What is " & MQ_1stNum & MQ_Operation & MQ_2ndNum & " ?") + Catch ex As Exception + NewLine(ex.Message) + TerminateApp(Nothing) + End Try End Sub Public Sub MQ_CheckAnswer() diff --git a/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb b/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb index 6e8c7bd..e7952f8 100644 --- a/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb +++ b/ShiftOS-TheRevival/TerminalApplications/External/TerminalExternalApps.vb @@ -10,7 +10,7 @@ Module TerminalExternalApps ' Terminal.TextBox1.ReadOnly = True ' Terminal.DefaultPrompt = "Press any key to continue..." ' Terminal.CurrentInterpreter = "pause" - ' FreezeText = Terminal.TextBox1.Text + ' FreezeText = Terminal.TextBox1 x .Text ' ShouldChange = True Case "shiftoriumfx" 'ShiftoriumFX : Advanced Shiftorium Console.DefaultPrompt = "Navigate> " @@ -100,6 +100,8 @@ Module TerminalExternalApps Case "ojas" NewLine("dis calculator is very gud") NewLine("it counts from another universe") + Case "cameron" + NewLine("quiet frankly it's ShiftOS") Case "exit" TerminateApp(Nothing) Case Else diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb index e7b22f1..48caef6 100644 --- a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb @@ -14,6 +14,8 @@ If Strings.AvailableFeature(36) = 1 Then DuWM_NewProcess(DuWM_Shifter) End If + Case "file_skimmer" + DuWM_NewProcess(Uni_FileSkimmer) End Select End Select End Sub |