diff options
Diffstat (limited to 'ShiftOS-TheRevival/TerminalApplications/Internal/Com_Guide.vb')
| -rw-r--r-- | ShiftOS-TheRevival/TerminalApplications/Internal/Com_Guide.vb | 97 |
1 files changed, 97 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Guide.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Guide.vb new file mode 100644 index 0000000..116ba22 --- /dev/null +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Guide.vb @@ -0,0 +1,97 @@ +Module Com_Guide + Public Sub Guide() + NewLine("The Definitive Guide on ShiftOS") + NewLine(Nothing) + NewLine("ShiftOS is an experimental operating system set to revolutionize personal computing in a progressive way you can think of") + Select Case Strings.ComputerInfo(3) + Case 0 + NewLine("You are now in a command-line interface phase of ShiftOS. You can only do one program/task at one time.") + End Select + NewLine(Nothing) + NewLine("To get a list of features available to purchase of ShiftOS, you can type 'shiftorium list'") + NewLine("And you can buy a features on ShiftOS by typing 'shiftorium install ' and then type the codename of the feature") + NewLine(Nothing) + NewLine("Type 'help' to get a list of all commands available in ShiftOS") + If Strings.AvailableFeature(0) = 1 Then + NewLine("To get any help for each command in the operating system, you can type 'man' and the name of the feature") + NewLine(Nothing) + End If + If Strings.AvailableFeature(5) = 1 Then + NewLine("Time is displayed by seconds since 0:00 format such as 660 seconds since midnight is 0:11") + ElseIf Strings.AvailableFeature(5) = 3 Then + If Strings.AvailableFeature(6) = 1 Then + NewLine("Time is displayed by minutes since 0:00 format such as 69 minutes since midnight is 1:09") + ElseIf Strings.AvailableFeature(6) = 3 Then + If Strings.AvailableFeature(7) = 1 Then + NewLine("Time is displayed by hours since 0:00 format such as 19 hours since midnight is 19:00") + ElseIf Strings.AvailableFeature(7) = 3 Then + If Strings.AvailableFeature(12) = 1 Then + NewLine("Time is displayed by PM and AM format, eg: 9 AM, 4 PM") + ElseIf Strings.AvailableFeature(12) = 3 Then + If Strings.AvailableFeature(23) = 1 Then + NewLine("Time is displayed by HH:MM format, eg: 4:20") + End If + End If + End If + End If + End If + If Strings.AvailableFeature(24) = 1 Then + NewLine("Date is displayed in days since first day of the year format, such as 32 days since first day of the year is 1 February") + ElseIf Strings.AvailableFeature(24) = 3 Then + If Strings.AvailableFeature(25) = 1 Then + NewLine("Date is displayed in weeks since first week of the year format, such as 10 weeks since first week of the year is approximately first week of March") + ElseIf Strings.AvailableFeature(25) = 3 Then + If Strings.AvailableFeature(26) = 1 Then + NewLine("Date is displayed in months since first month of the year format, such as 8 months since first month of the year is August") + ElseIf Strings.AvailableFeature(26) = 3 Then + If Strings.AvailableFeature(27) = 1 Then + NewLine("Date is displayed in year format, eg: 2022") + ElseIf Strings.AvailableFeature(27) = 3 Then + If Strings.AvailableFeature(28) = 1 Then + NewLine("Date is displayed in MM/YYYY format, eg: 11/2022") + ElseIf Strings.AvailableFeature(28) = 3 Then + If Strings.AvailableFeature(29) = 1 Then + NewLine("Date is displayed in DD/MM/YYYY format, eg: 20/11/2022") + End If + End If + End If + End If + End If + End If + NewLine("This operating system supports ") + If Strings.AvailableFeature(10) = 1 Then + If Strings.AvailableFeature(13) = 1 Then + If Strings.AvailableFeature(14) = 1 Then + If Strings.AvailableFeature(15) = 1 Then + AddLine("16 colors") + Else + AddLine("Black, Dark and Light Gray, White, as well as Red, Green, and Blue with their darker/brighter variant") + End If + Else + AddLine("Black, Dark and Light Gray, White, as well as Red, Green, and Blue") + End If + Else + AddLine("only in Black, Dark Gray, Light Gray, and White") + End If + Else + AddLine("only 2 colors, Black and White") + End If + AddLine(". For more information, you can type 'colors' to get the list of supported colors.") + NewLine(Nothing) + If Strings.AvailableFeature(19) = 1 Then + NewLine("You can change your username by typing 'username ' and the name of your username") + End If + If Strings.AvailableFeature(20) = 1 Then + NewLine("You can change your computer name by typing 'hostname ' and the name of your hostname") + End If + NewLine(Nothing) + NewLine("You can get more codepoints by guessing the correct number with 'guess'") + If Strings.AvailableFeature(17) = 1 Then + AddLine(", writing a text document in 'textpad'") + End If + If Strings.AvailableFeature(34) = 1 Then + AddLine(", answer basic arithmatical question on 'mathquiz'") + End If + AddLine(".") + End Sub +End Module |