shiftos-archive/ShiftOS-TheRevival-Old
1
0
Fork 0
mirror of https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git synced 2025-01-23 02:12:14 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions
ShiftOS-TheRevival-Old/ShiftOS-TheRevival/MainForms/Terminal.vb

874 lines
44 KiB
VB.net
Raw Normal View History

story mode completed
2022-11-02 21:28:19 +00:00
Imports System.IO
Public Class Terminal
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
Public TrackPos As Integer
0.1 final code
2022-11-01 22:57:27 +00:00
Public command As String
Public DefaultPrompt As String
0.1.1 code
2022-11-02 01:52:31 +00:00
Public AdvancedCommand As Boolean
rework on main menu, terminal
2022-11-02 04:17:14 +00:00
Public BadCommand As Boolean
story mode completed
2022-11-02 21:28:19 +00:00
Public DisplayStory As Integer
Public StoryToTell As String
v0.2.2 stuff working on
2022-11-03 15:27:40 +00:00
Public ChangeInterpreter As Boolean = False
v0.2.2 stuffy (infobar, time, more efficient code)
2022-11-04 06:12:41 +00:00
Public CurrentInterpreter As String = "terminal"
Menu system, bc fixings, and references to directory navigation added
2022-11-05 16:48:35 +00:00
Public CurrentDirectory As String
dir command done
2022-11-06 08:20:38 +00:00
Public Pseudodir As String
time accuracy to PM and AM and story mode fixing few bugs
2022-11-06 00:21:26 +00:00
Public StayAtChapter As Boolean = False
0.2.3 final code
2022-11-06 11:45:00 +00:00
Public ToolBarUse As Boolean = False
Public ReleaseCursor As Boolean = False
0.1 final code
2022-11-01 22:57:27 +00:00
Private Sub Terminal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FormBorderStyle = FormBorderStyle.None
WindowState = FormWindowState.Maximized
PAUSE function
2022-11-04 23:27:35 +00:00
Cursor.Hide()
v0.2.2 stuffy (infobar, time, more efficient code)
2022-11-04 06:12:41 +00:00
InitializeTerminal()
End Sub
Public Sub InitializeTerminal()
directory majority finished
2022-11-06 09:22:35 +00:00
Strings.OnceInfo(1) = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS"
dir command done
2022-11-06 08:20:38 +00:00
Strings.OnceInfo(4) = "!"
0.1 final code
2022-11-01 22:57:27 +00:00
If Strings.IsFree = True Then
Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user"
v0.2.2 stuffy (infobar, time, more efficient code)
2022-11-04 06:12:41 +00:00
CheckFeature()
0.1 final code
2022-11-01 22:57:27 +00:00
PrintPrompt()
AssignPrompt()
0.1.1 code
2022-11-02 01:52:31 +00:00
Else
time accuracy to PM and AM and story mode fixing few bugs
2022-11-06 00:21:26 +00:00
If StayAtChapter = True Then
story mode completed
2022-11-02 21:28:19 +00:00
Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user"
0.2.3 final code
2022-11-06 11:45:00 +00:00
LoadGame()
v0.2.2 stuffy (infobar, time, more efficient code)
2022-11-04 06:12:41 +00:00
CheckFeature()
story mode completed
2022-11-02 21:28:19 +00:00
PrintPrompt()
AssignPrompt()
time accuracy to PM and AM and story mode fixing few bugs
2022-11-06 00:21:26 +00:00
Else
If Strings.ComputerInfo(3) = "0" Then
TextBox1.ReadOnly = True
StayAtChapter = True
StoryOnlyTimer.Start()
Else
Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user"
0.2.3 final code
2022-11-06 11:45:00 +00:00
LoadGame()
time accuracy to PM and AM and story mode fixing few bugs
2022-11-06 00:21:26 +00:00
CheckFeature()
PrintPrompt()
AssignPrompt()
End If
story mode completed
2022-11-02 21:28:19 +00:00
End If
0.1 final code
2022-11-01 22:57:27 +00:00
End If
dir command done
2022-11-06 08:20:38 +00:00
CurrentDirectory = Strings.OnceInfo(1)
Pseudodir = CurrentDirectory.Replace(Strings.OnceInfo(1), "!\")
0.1.1 code
2022-11-02 01:52:31 +00:00
TextBox1.Select(TextBox1.TextLength, 0)
TextBox1.ScrollToCaret()
0.1 final code
2022-11-01 22:57:27 +00:00
End Sub
v0.2.2 stuffy (infobar, time, more efficient code)
2022-11-04 06:12:41 +00:00
Public Sub CheckFeature()
If Strings.AvailableFeature(4) = "1" Then
0.2.3 final code
2022-11-06 11:45:00 +00:00
If ToolBarUse = True Then
If Strings.OnceInfo(2) = "True" Then
InfoBarTimer.Start()
TextBox1.Dock = DockStyle.None
ToolBar.Visible = True
ToolBar.SendToBack()
InfoBar.Visible = True
InfoBar.SendToBack()
TextBox1.Dock = DockStyle.Fill
Else
TextBox1.Dock = DockStyle.None
InfoBar.Visible = False
ToolBar.Visible = True
ToolBar.SendToBack()
TextBox1.Dock = DockStyle.Fill
End If
perfection to color function
2022-11-06 07:24:53 +00:00
Else
0.2.3 final code
2022-11-06 11:45:00 +00:00
If Strings.OnceInfo(2) = "True" Then
InfoBarTimer.Start()
TextBox1.Dock = DockStyle.None
InfoBar.Visible = True
InfoBar.SendToBack()
ToolBar.Visible = False
TextBox1.Dock = DockStyle.Fill
Else
TextBox1.Dock = DockStyle.None
InfoBar.Visible = False
ToolBar.Visible = False
TextBox1.Dock = DockStyle.Fill
End If
perfection to color function
2022-11-06 07:24:53 +00:00
End If
v0.2.2 stuffy (infobar, time, more efficient code)
2022-11-04 06:12:41 +00:00
Else
TextBox1.Dock = DockStyle.None
InfoBar.Visible = False
TextBox1.Dock = DockStyle.Fill
End If
End Sub
0.1 final code
2022-11-01 22:57:27 +00:00
Public Sub PrintPrompt()
If TextBox1.Text = Nothing Then
v0.2.2 stuff working on
2022-11-03 15:27:40 +00:00
If ChangeInterpreter = True Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & DefaultPrompt
0.1 final code
2022-11-01 22:57:27 +00:00
Else
v0.2.2 stuff working on
2022-11-03 15:27:40 +00:00
If Strings.OnceInfo(0) = "Yes" Then
TextBox1.Text = "root@" & Strings.ComputerInfo(0) & " #> "
Else
TextBox1.Text = Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> "
End If
0.1 final code
2022-11-01 22:57:27 +00:00
End If
Else
v0.2.2 stuff working on
2022-11-03 15:27:40 +00:00
If ChangeInterpreter = True Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & DefaultPrompt
0.1 final code
2022-11-01 22:57:27 +00:00
Else
v0.2.2 stuff working on
2022-11-03 15:27:40 +00:00
If Strings.OnceInfo(0) = "Yes" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "root@" & Strings.ComputerInfo(0) & " #> "
Else
TextBox1.Text = TextBox1.Text & Environment.NewLine & Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> "
End If
0.1 final code
2022-11-01 22:57:27 +00:00
End If
End If
End Sub
Public Sub AssignPrompt()
v0.2.2 stuff working on
2022-11-03 15:27:40 +00:00
If ChangeInterpreter = False Then
If Strings.OnceInfo(0) = "Yes" Then
DefaultPrompt = "root@" & Strings.ComputerInfo(0) & " #> "
Else
DefaultPrompt = Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> "
End If
0.1 final code
2022-11-01 22:57:27 +00:00
End If
End Sub
rework on main menu, terminal
2022-11-02 04:17:14 +00:00
Private Sub Undeveloped()
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Oopsie! It's only for newer version"
End Sub
0.1 final code
2022-11-01 22:57:27 +00:00
Private Sub ReadCommand()
command = TextBox1.Lines(TextBox1.Lines.Length - 1)
0.2.3 final code
2022-11-06 11:45:00 +00:00
If DefaultPrompt = Nothing Then
Else
command = command.Replace(DefaultPrompt, "")
End If
0.1 final code
2022-11-01 22:57:27 +00:00
command = command.ToLower()
End Sub
0.1.1 code
2022-11-02 01:52:31 +00:00
Private Sub DoCommand()
AdvancedCommand = True
rework on main menu, terminal
2022-11-02 04:17:14 +00:00
BadCommand = True
0.1.1 code
2022-11-02 01:52:31 +00:00
Select Case command
rework on main menu, terminal
2022-11-02 04:17:14 +00:00
Case ""
0.1.1 code
2022-11-02 01:52:31 +00:00
AdvancedCommand = False
rework on main menu, terminal
2022-11-02 04:17:14 +00:00
BadCommand = False
bc finally freaking worked
2022-11-05 15:24:30 +00:00
Case "bc"
If Strings.AvailableFeature(9) = "1" Then
ChangeInterpreter = True
0.2.3 final code
2022-11-06 11:45:00 +00:00
AppHost("bc", False)
bc finally freaking worked
2022-11-05 15:24:30 +00:00
AdvancedCommand = False
BadCommand = False
End If
rework on main menu, terminal
2022-11-02 04:17:14 +00:00
Case "clear"
If Strings.AvailableFeature(1) = "1" Then
TextBox1.Text = Nothing
AdvancedCommand = False
BadCommand = False
End If
added more command
2022-11-02 02:57:21 +00:00
Case "codepoint"
TextBox1.Text = TextBox1.Text & Environment.NewLine & Strings.ComputerInfo(2) & " Codepoint(s) available in your wallet"
AdvancedCommand = False
rework on main menu, terminal
2022-11-02 04:17:14 +00:00
BadCommand = False
perfection to color function
2022-11-06 07:24:53 +00:00
Case "colors"
DisplayColors()
AdvancedCommand = False
BadCommand = False
dir command done
2022-11-06 08:20:38 +00:00
Case "dir"
TerminalDirectories(CurrentDirectory)
AdvancedCommand = False
BadCommand = False
dir fixing and stuff
2022-11-06 14:19:35 +00:00
Case "exit su"
If Strings.OnceInfo(0) = "No" Then
Else
AdvancedCommand = False
BadCommand = False
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Exitting root mode..."
Strings.OnceInfo(0) = "No"
AssignPrompt()
End If
rework on main menu, terminal
2022-11-02 04:17:14 +00:00
Case "guess"
v0.2.2 stuff working on
2022-11-03 15:27:40 +00:00
ChangeInterpreter = True
0.2.3 final code
2022-11-06 11:45:00 +00:00
AppHost("guess", False)
v0.2.2 stuff working on
2022-11-03 15:27:40 +00:00
AdvancedCommand = False
BadCommand = False
'Undeveloped()
finished shiftorium
2022-11-02 19:46:32 +00:00
Case "gimme"
Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
TempCP = TempCP + 50
Strings.ComputerInfo(2) = Convert.ToString(TempCP)
TextBox1.Text = TextBox1.Text & Environment.NewLine & "you cheater!"
added more command
2022-11-02 02:57:21 +00:00
Case "help"
TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual" & Environment.NewLine & Environment.NewLine & "You can type 'help' to get all available commands and its corresponding action."
If Strings.AvailableFeature(0) = 1 Then
rework on main menu, terminal
2022-11-02 04:17:14 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & "To get help on each command, you can type 'man [command]'" & Environment.NewLine
Else
TextBox1.Text = TextBox1.Text & Environment.NewLine
added more command
2022-11-02 02:57:21 +00:00
End If
Menu system, bc fixings, and references to directory navigation added
2022-11-05 16:48:35 +00:00
If Strings.AvailableFeature(9) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "BC Basic Calculator for simple calculation"
End If
0.2.4 started
2022-11-07 00:13:50 +00:00
If Strings.AvailableFeature(16) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "CD Changes directory to a selected one"
End If
added more command
2022-11-02 02:57:21 +00:00
If Strings.AvailableFeature(1) = 1 Then
finished shiftorium
2022-11-02 19:46:32 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & "CLEAR Clear the terminal"
added more command
2022-11-02 02:57:21 +00:00
End If
shiftorium stuffy
2022-11-02 18:52:22 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & "CODEPOINT Display Codepoint(s) from your wallet"
perfection to color function
2022-11-06 07:24:53 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & "COLOR Changes Terminal Text and Background color to the corresponding choice"
TextBox1.Text = TextBox1.Text & Environment.NewLine & "COLORS Shows available colors support for the terminal"
0.2.4 started
2022-11-07 00:13:50 +00:00
If Strings.AvailableFeature(16) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "DIR Displays subdirectories and files in a directory"
End If
Terminal Display Driver added, migrating Shiftorium functions into Module
2022-11-04 01:56:41 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & "GUESS Runs 'Guess the Number' application"
shiftorium stuffy
2022-11-02 18:52:22 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & "HELP Shows all commands available and its corresponding action"
added more command
2022-11-02 02:57:21 +00:00
If Strings.AvailableFeature(0) = 1 Then
shiftorium stuffy
2022-11-02 18:52:22 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN Shows a command, its corresponding action, and its example usage"
added more command
2022-11-02 02:57:21 +00:00
End If
0.2.4 started
2022-11-07 00:13:50 +00:00
If Strings.AvailableFeature(16) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "MKDIR Creating a directory"
End If
If Strings.AvailableFeature(16) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "PWD Display current directory navigated on ShiftOS"
End If
Terminal Display Driver added, migrating Shiftorium functions into Module
2022-11-04 01:56:41 +00:00
If Strings.AvailableFeature(2) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "PRINT Prints a corresponding text entered in the command"
End If
PAUSE function
2022-11-04 23:27:35 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & "REBOOT Terminate and re-run ShiftOS session"
0.2.4 started
2022-11-07 00:13:50 +00:00
If Strings.AvailableFeature(16) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "RMDIR Deleting a directory"
End If
PAUSE function
2022-11-04 23:27:35 +00:00
If Strings.AvailableFeature(8) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "SHIFTFETCH Shows informations about your computer"
End If
Terminal Display Driver added, migrating Shiftorium functions into Module
2022-11-04 01:56:41 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & "SHIFTORIUM A software center for upgrading features on ShiftOS"
shiftorium stuffy
2022-11-02 18:52:22 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & "SHUTDOWN Terminate ShiftOS session"
TextBox1.Text = TextBox1.Text & Environment.NewLine & "SU Runs terminal as super user"
Man and other optimization
2022-11-07 07:38:42 +00:00
If Strings.AvailableFeature(17) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "TEXTPAD Simple text-editor for ShiftOS"
End If
v0.2.2 stuffy (infobar, time, more efficient code)
2022-11-04 06:12:41 +00:00
If Strings.AvailableFeature(5) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "TIME Display the current time in the form of seconds since midnight"
ElseIf Strings.AvailableFeature(5) = 3 Then
If Strings.AvailableFeature(6) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "TIME Display the current time in the form of minutes since midnight"
ElseIf Strings.AvailableFeature(6) = 3 Then
If Strings.AvailableFeature(7) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "TIME Display the current time in the form of hours since midnight"
time accuracy to PM and AM and story mode fixing few bugs
2022-11-06 00:21:26 +00:00
ElseIf Strings.AvailableFeature(7) = 3 Then
If Strings.AvailableFeature(12) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "TIME Display the current time in the form of PM and AM format"
End If
v0.2.2 stuffy (infobar, time, more efficient code)
2022-11-04 06:12:41 +00:00
End If
End If
End If
shiftorium stuffy
2022-11-02 18:52:22 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & "VER Printing current version of ShiftOS TheRevival"
added more command
2022-11-02 02:57:21 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine
rework on main menu, terminal
2022-11-02 04:17:14 +00:00
AdvancedCommand = False
BadCommand = False
0.2.4 started
2022-11-07 00:13:50 +00:00
Case "pwd"
TextBox1.Text = TextBox1.Text & Environment.NewLine & CurrentDirectory.Replace(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", "!")
AdvancedCommand = False
BadCommand = False
v0.2.2 stuffy (infobar, time, more efficient code)
2022-11-04 06:12:41 +00:00
Case "reboot"
TextBox1.Text = Nothing
AdvancedCommand = False
BadCommand = False
InitializeTerminal()
Shiftorium help stuffy
2022-11-07 07:59:14 +00:00
Case "shiftorium"
TextBox1.Text = TextBox1.Text & Environment.NewLine & My.Resources.man_shiftorium
AdvancedCommand = False
BadCommand = False
neofetch ported to shiftfetch
2022-11-04 22:36:43 +00:00
Case "shiftfetch"
If Strings.AvailableFeature(8) = "1" Then
If Strings.OnceInfo(0) = "Yes" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & Environment.NewLine & " :^!7?JJJJJ?7!^: root@shiftos"
Else
TextBox1.Text = TextBox1.Text & Environment.NewLine & Environment.NewLine & " :^!7?JJJJJ?7!^: user@shiftos"
End If
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .~?PB###BGP555PGB###BP?~. ----------------------"
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .!P#&B57^..::^~~!!~^::~7YG&#5!. OS: ShiftOS TheRevival"
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .?#@G7: .^ :^::!5&#?. Host: " & Environment.MachineName
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .?#@5^ ! .^!!..J&#? Kernel: " & My.Resources.CurrentVersion
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ^B@G^ .J :7?..J@G: Uptime: N/A"
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ~&@Y 7 ~PB&#Y:. ~G7 ~&&^ Packages: " & Strings.ComputerInfo(4)
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ^&@Y Y 5#5??YB@&B~ .GJ :&&: Shell: sos-justshell"
TextBox1.Text = TextBox1.Text & Environment.NewLine & " G@B ? 5P ^YB! .#! ~@G Window Manager: -"
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ^@@! : @Y .:::^~:. 7# Y@^ Window Manager Theme: -"
TextBox1.Text = TextBox1.Text & Environment.NewLine & " 7@@: ! B@&BBBBGPPB@#Y. :&^ ^@? Terminal: shiftos-terminal"
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ?@@: 7 :??7~:. 5@@5 :&^ .&? Terminal Font: Consolas, 11pt"
time accuracy to PM and AM and story mode fixing few bugs
2022-11-06 00:21:26 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ~@@! !@ G#&B!. Y@@B 7#. Y~ CPU: " & My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing)
neofetch ported to shiftfetch
2022-11-04 22:36:43 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & " B@G B@J ...~&G. 7@@@? .#? 7 GPU: N/A"
time accuracy to PM and AM and story mode fixing few bugs
2022-11-06 00:21:26 +00:00
Dim TripleDigitRAM As String
TripleDigitRAM = (My.Computer.Info.TotalPhysicalMemory / 1024 / 1024 / 1024)
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ~&@? ^@Y !G#57~~!YB@#Y^ .GP .. Memory: " & TripleDigitRAM.Substring(0, 4) & " GB"
neofetch ported to shiftfetch
2022-11-04 22:36:43 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & " !@@7 ~#J 5#&&BG57^ ~BY Codepoint: " & Strings.ComputerInfo(2)
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ~#@Y .5P~ ^5G~ "
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .J&#! ^JY!:. ^?P5! "
TextBox1.Text = TextBox1.Text & Environment.NewLine & " :J&B?..!JYY7!~::...::~!7Y5Y7: "
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .7PBP?^::~!?JJJJJJJ?7~: "
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .~?55Y?!^:... "
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .:~~^~^^::. "
AdvancedCommand = False
BadCommand = False
End If
Case "shiftoriumfx"
dir command done
2022-11-06 08:20:38 +00:00
'ChangeInterpreter = True
'AppHost("shiftoriumfx")
AdvancedCommand = False
neofetch ported to shiftfetch
2022-11-04 22:36:43 +00:00
BadCommand = False
Undeveloped()
0.1.1 code
2022-11-02 01:52:31 +00:00
Case "shutdown", "shut down"
0.2.3 final code
2022-11-06 11:45:00 +00:00
If Strings.OnceInfo(6) = "story" Then
SaveGame()
End If
PAUSE function
2022-11-04 23:27:35 +00:00
Cursor.Show()
0.1.1 code
2022-11-02 01:52:31 +00:00
ShiftOSMenu.Show()
Close()
Shiftorium help stuffy
2022-11-07 07:59:14 +00:00
Case "textpad"
If Strings.AvailableFeature(17) = "1" Then
TextBox1.Text = TextBox1.Text & "Type any filename after 'textpad'!, ex: textpad text.txt"
AdvancedCommand = False
BadCommand = False
End If
v0.2.2 stuffy (infobar, time, more efficient code)
2022-11-04 06:12:41 +00:00
Case "time"
If Strings.AvailableFeature(5) = "1" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) & " seconds passed since midnight"
ElseIf Strings.AvailableFeature(5) = "3" Then
If Strings.AvailableFeature(6) = "1" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & Math.Floor(Date.Now.Subtract(Date.Today).TotalMinutes) & " minutes passed since midnight"
ElseIf Strings.AvailableFeature(6) = "3" Then
If Strings.AvailableFeature(7) = "1" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " hours passed since midnight"
time accuracy to PM and AM and story mode fixing few bugs
2022-11-06 00:21:26 +00:00
ElseIf Strings.AvailableFeature(7) = "3" Then
If Strings.AvailableFeature(12) = "1" Then
If Date.Now.Hour < 12 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "The time is " & TimeOfDay.Hour & " AM"
Else
TextBox1.Text = TextBox1.Text & Environment.NewLine & "The time is " & TimeOfDay.Hour - 12 & " PM"
End If
End If
v0.2.2 stuffy (infobar, time, more efficient code)
2022-11-04 06:12:41 +00:00
End If
End If
End If
AdvancedCommand = False
BadCommand = False
dir command done
2022-11-06 08:20:38 +00:00
Case "su"
If Strings.OnceInfo(0) = "Yes" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "You already in root mode!"
Else
Strings.OnceInfo(0) = "Yes"
AssignPrompt()
End If
AdvancedCommand = False
BadCommand = False
shiftorium stuffy
2022-11-02 18:52:22 +00:00
Case "ver"
Terminal Display Driver added, migrating Shiftorium functions into Module
2022-11-04 01:56:41 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS TheRevival version " & My.Resources.CurrentVersion
shiftorium stuffy
2022-11-02 18:52:22 +00:00
AdvancedCommand = False
BadCommand = False
0.1.1 code
2022-11-02 01:52:31 +00:00
End Select
If AdvancedCommand = True Then
dir fixing and stuff
2022-11-06 14:19:35 +00:00
If command Like "cat *" Then
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
If Strings.AvailableFeature(16) = 1 Then
CatFile(command.Substring(4))
AdvancedCommand = False
BadCommand = False
End If
dir fixing and stuff
2022-11-06 14:19:35 +00:00
End If
directory majority finished
2022-11-06 09:22:35 +00:00
If command Like "cd *" Then
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
If Strings.AvailableFeature(16) = 1 Then
NavigateDir(command.Replace("cd ", ""))
AdvancedCommand = False
BadCommand = False
End If
directory majority finished
2022-11-06 09:22:35 +00:00
End If
perfection to color function
2022-11-06 07:24:53 +00:00
If command Like "color *" Then
GetColor("terminal", command.Substring(6, 1), command.Substring(7, 1))
BadCommand = False
End If
If command Like "infobar *" Then
If Strings.AvailableFeature(4) = "1" Then
'Infobar panel-ish and some sort
Dim infobarcommand As String = command.Replace("infobar ", "")
Dim advancedtool As Boolean = True
Select Case infobarcommand
Case "on"
Strings.OnceInfo(2) = "True"
CheckFeature()
BadCommand = False
advancedtool = False
Case "off"
Strings.OnceInfo(2) = "False"
CheckFeature()
BadCommand = False
advancedtool = False
End Select
If advancedtool = True Then
If infobarcommand Like "color *" Then
GetColor("infobar", infobarcommand.Substring(6, 1), infobarcommand.Substring(7, 1))
BadCommand = False
End If
End If
End If
End If
shiftorium stuffy
2022-11-02 18:52:22 +00:00
If command Like "man *" Then
finished shiftorium
2022-11-02 19:46:32 +00:00
If Strings.AvailableFeature(0) = "1" Then
'MAN command starts with this kinda format
'ShiftOS Help Manual
'
''command' Usage: [switch/value if needed]
'
'Summary of the command's action
'
'Example usage : command
TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual" & Environment.NewLine
'TextBox1.Text = TextBox1.Text & Environment.NewLine & command.Substring(4)
Dim mancommand As String = command.Replace("man ", "")
Dim TempUsage As String = "'" & mancommand & "' Usage: "
Select Case mancommand
v0.2.2 stuff working on
2022-11-03 15:27:40 +00:00
'In process to convert every command from printing from code to printing from text file
bc finally freaking worked
2022-11-05 15:24:30 +00:00
Case "bc"
If Strings.AvailableFeature(9) = "1" Then
TempUsage = TempUsage & "bc"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_bc & Environment.NewLine
BadCommand = False
End If
Man and other optimization
2022-11-07 07:38:42 +00:00
Case "cd"
If Strings.AvailableFeature(16) = "1" Then
TempUsage = TempUsage & "cd [DIRECTORY]"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_cd & Environment.NewLine
BadCommand = False
End If
finished shiftorium
2022-11-02 19:46:32 +00:00
Case "clear"
v0.2.2 stuff working on
2022-11-03 15:27:40 +00:00
If Strings.AvailableFeature(1) = "1" Then
TempUsage = TempUsage & "clear"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_clear & Environment.NewLine
BadCommand = False
End If
Man and other optimization
2022-11-07 07:38:42 +00:00
Case "color"
TempUsage = TempUsage & "color [bg][fg]"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_color & Environment.NewLine
BadCommand = False
Case "colors"
TempUsage = TempUsage & "colors"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_colors & Environment.NewLine
BadCommand = False
finished shiftorium
2022-11-02 19:46:32 +00:00
Case "codepoint"
TempUsage = TempUsage & "codepoint"
v0.2.2 stuff working on
2022-11-03 15:27:40 +00:00
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_codepoint & Environment.NewLine
finished shiftorium
2022-11-02 19:46:32 +00:00
BadCommand = False
Man and other optimization
2022-11-07 07:38:42 +00:00
Case "dir"
If Strings.AvailableFeature(16) = "1" Then
TempUsage = TempUsage & "dir"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_dir & Environment.NewLine
BadCommand = False
End If
Terminal Display Driver added, migrating Shiftorium functions into Module
2022-11-04 01:56:41 +00:00
Case "guess"
TempUsage = TempUsage & "guess"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_guess & Environment.NewLine
BadCommand = False
finished shiftorium
2022-11-02 19:46:32 +00:00
Case "help"
TempUsage = TempUsage & "help"
Terminal Display Driver added, migrating Shiftorium functions into Module
2022-11-04 01:56:41 +00:00
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_help & Environment.NewLine
finished shiftorium
2022-11-02 19:46:32 +00:00
BadCommand = False
Case "man"
Terminal Display Driver added, migrating Shiftorium functions into Module
2022-11-04 01:56:41 +00:00
If Strings.AvailableFeature(0) = "1" Then
TempUsage = TempUsage & "man [command]"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_man & Environment.NewLine
BadCommand = False
End If
Man and other optimization
2022-11-07 07:38:42 +00:00
Case "mkdir"
If Strings.AvailableFeature(16) = "1" Then
TempUsage = TempUsage & "mkdir [DIRECTORY]"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_mkdir & Environment.NewLine
BadCommand = False
End If
Terminal Display Driver added, migrating Shiftorium functions into Module
2022-11-04 01:56:41 +00:00
Case "print"
If Strings.AvailableFeature(2) = "1" Then
TempUsage = TempUsage & "print [text]"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_print & Environment.NewLine
BadCommand = False
End If
PAUSE function
2022-11-04 23:27:35 +00:00
Case "reboot"
TempUsage = TempUsage & "reboot"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_reboot & Environment.NewLine
BadCommand = False
Man and other optimization
2022-11-07 07:38:42 +00:00
Case "rmdir"
If Strings.AvailableFeature(16) = "1" Then
TempUsage = TempUsage & "rmdir [DIRECTORY]"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_rmdir & Environment.NewLine
BadCommand = False
End If
PAUSE function
2022-11-04 23:27:35 +00:00
Case "shiftfetch"
If Strings.AvailableFeature(8) = "1" Then
TempUsage = TempUsage & "shiftfetch"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftfetch & Environment.NewLine
BadCommand = False
End If
Terminal Display Driver added, migrating Shiftorium functions into Module
2022-11-04 01:56:41 +00:00
Case "shiftorium"
TempUsage = TempUsage & "shiftorium [option] [featureName]"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftorium & Environment.NewLine
finished shiftorium
2022-11-02 19:46:32 +00:00
BadCommand = False
Case "shutdown"
TempUsage = TempUsage & "shutdown"
Terminal Display Driver added, migrating Shiftorium functions into Module
2022-11-04 01:56:41 +00:00
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shutdown & Environment.NewLine
finished shiftorium
2022-11-02 19:46:32 +00:00
BadCommand = False
Case "ver"
TempUsage = TempUsage & "ver"
Terminal Display Driver added, migrating Shiftorium functions into Module
2022-11-04 01:56:41 +00:00
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_ver & Environment.NewLine
finished shiftorium
2022-11-02 19:46:32 +00:00
BadCommand = False
Case Else
TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN : Invalid command"
End Select
End If
shiftorium stuffy
2022-11-02 18:52:22 +00:00
End If
directory majority finished
2022-11-06 09:22:35 +00:00
If command Like "mkdir *" Then
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
If Strings.AvailableFeature(16) Then
CreateDir(command.Replace("mkdir ", ""))
AdvancedCommand = False
BadCommand = False
End If
End If
If command Like "print *" Then
If Strings.AvailableFeature(2) = "1" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & command.Substring(6)
Dim printed As String = command.Replace("print ", "")
''It has the same issue, only displays in lowercase
'TextBox1.Text = TextBox1.Text & Environment.NewLine & printed
BadCommand = False
AdvancedCommand = False
End If
directory majority finished
2022-11-06 09:22:35 +00:00
End If
If command Like "rmdir *" Then
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
If Strings.AvailableFeature(16) = 1 Then
RemoveDir(command.Replace("rmdir ", ""))
AdvancedCommand = False
BadCommand = False
End If
directory majority finished
2022-11-06 09:22:35 +00:00
End If
shiftorium stuffy
2022-11-02 18:52:22 +00:00
If command Like "shiftorium *" Then
Dim prompt As String = command.Replace("shiftorium ", "")
finished shiftorium
2022-11-02 19:46:32 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium ShiftOS Center"
shiftorium stuffy
2022-11-02 18:52:22 +00:00
If prompt Like "info *" Then
Terminal Display Driver added, migrating Shiftorium functions into Module
2022-11-04 01:56:41 +00:00
Shiftoriums.prompt = command.Replace("shiftorium info ", "")
Shiftorium_InformationFeatures()
shiftorium stuffy
2022-11-02 18:52:22 +00:00
End If
If prompt Like "install *" Then
Terminal Display Driver added, migrating Shiftorium functions into Module
2022-11-04 01:56:41 +00:00
Shiftoriums.prompt = command.Replace("shiftorium install ", "")
Shiftorium_DetectInstallFeatures()
shiftorium stuffy
2022-11-02 18:52:22 +00:00
End If
If prompt = "list" Then
Terminal Display Driver added, migrating Shiftorium functions into Module
2022-11-04 01:56:41 +00:00
Shiftorium_ListFeatures()
finished shiftorium
2022-11-02 19:46:32 +00:00
BadCommand = False
shiftorium stuffy
2022-11-02 18:52:22 +00:00
End If
End If
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
If command Like "textpad *" Then
If Strings.AvailableFeature(17) = 1 Then
ChangeInterpreter = True
command = command.Replace("textpad ", "")
AppHost("textpad", True)
AdvancedCommand = False
Terminal Display Driver added, migrating Shiftorium functions into Module
2022-11-04 01:56:41 +00:00
BadCommand = False
End If
0.1.1 code
2022-11-02 01:52:31 +00:00
End If
story mode completed
2022-11-02 21:28:19 +00:00
End If
rework on main menu, terminal
2022-11-02 04:17:14 +00:00
story mode completed
2022-11-02 21:28:19 +00:00
If BadCommand = True Then
rework on main menu, terminal
2022-11-02 04:17:14 +00:00
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Bad command or wrong file name"
End If
0.1.1 code
2022-11-02 01:52:31 +00:00
End Sub
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
Public Sub TextRebind()
TextBox1.Select(TextBox1.Text.Length, 0)
TextBox1.ScrollToCaret()
End Sub
0.2.3 final code
2022-11-06 11:45:00 +00:00
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
Private Sub txtterm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
TerminalApps.KeyInput = e.KeyData
dir command done
2022-11-06 08:20:38 +00:00
Select Case e.KeyData
Case (Keys.Control + Keys.Q)
If CurrentInterpreter = "terminal" Then
Else
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
TerminateApp(TerminalApps.KeyInput)
TextRebind()
dir command done
2022-11-06 08:20:38 +00:00
End If
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
Case Else
CaptureKeyBinding(TerminalApps.KeyInput)
dir command done
2022-11-06 08:20:38 +00:00
End Select
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
'If ReleaseCursor = True Then
'Else
' Select Case e.KeyCode
' Case Keys.ShiftKey
' TrackPos = TrackPos - 1
' Case Keys.Alt
' TrackPos = TrackPos - 1
' Case Keys.CapsLock
' TrackPos = TrackPos - 1
' Case Keys.ControlKey
' TrackPos = TrackPos - 1
' Case Keys.LWin
' TrackPos = TrackPos - 1
' Case Keys.RWin
' TrackPos = TrackPos - 1
' Case Keys.Right
' If TextBox1.SelectionStart = TextBox1.TextLength Then
' TrackPos = TrackPos - 1
' End If
' Case Keys.Left
' If TrackPos < 1 Then
' e.SuppressKeyPress = True
' TrackPos = TrackPos - 1
' Else
' TrackPos = TrackPos - 2
' End If
' Case Keys.Up
' e.SuppressKeyPress = True
' TrackPos = TrackPos - 1
' Case Keys.Down
' e.SuppressKeyPress = True
' TrackPos = TrackPos - 1
' End Select
'End If
'If e.KeyCode = Keys.Enter Then
' e.SuppressKeyPress = True
' If TextBox1.ReadOnly = True Then
' Else
' ReadCommand()
' If ChangeInterpreter = True Then
' DoChildCommand()
' PrintPrompt()
' TextBox1.Select(TextBox1.Text.Length, 0)
' Else
' DoCommand()
' PrintPrompt()
' TextBox1.Select(TextBox1.Text.Length, 0)
' End If
' End If
' 'If command = "clear" Then
' ' PrintPrompt()
' ' TextBox1.Select(TextBox1.Text.Length, 0)
' 'Else
' ' PrintPrompt()
' ' TextBox1.Select(TextBox1.Text.Length, 0)
' 'End If
' TrackPos = 0
'Else
' If ReleaseCursor = True Then
' Else
' If e.KeyCode = Keys.Back Then
' Else
' TrackPos = TrackPos + 1
' End If
' End If
'End If
'If e.KeyCode = Keys.Back Then
' If TrackPos < 1 Then
dir command done
2022-11-06 08:20:38 +00:00
' e.SuppressKeyPress = True
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
' Else
' If TextBox1.SelectedText.Length < 1 Then
' TrackPos = TrackPos - 1
dir command done
2022-11-06 08:20:38 +00:00
' Else
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
' e.SuppressKeyPress = True
dir command done
2022-11-06 08:20:38 +00:00
' End If
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
' End If
'End If
'TextBox1.Select(TextBox1.TextLength, 0)
'TextBox1.ScrollToCaret()
0.2.3 final code
2022-11-06 11:45:00 +00:00
If ReleaseCursor = True Then
Else
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
Select Case e.KeyData
Case Keys.Enter
e.SuppressKeyPress = True
If TextBox1.ReadOnly = True Then
0.2.3 final code
2022-11-06 11:45:00 +00:00
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
Else
ReadCommand()
If ChangeInterpreter = True Then
DoChildCommand()
PrintPrompt()
TextRebind()
0.2.3 final code
2022-11-06 11:45:00 +00:00
Else
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
DoCommand()
PrintPrompt()
TextRebind()
0.2.3 final code
2022-11-06 11:45:00 +00:00
End If
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
End If
TrackPos = 0
Case Keys.ShiftKey, Keys.Alt, Keys.ControlKey, Keys.LWin, Keys.RWin
e.SuppressKeyPress = True
Case Keys.Back
If TrackPos <= 0 Then
0.2.3 final code
2022-11-06 11:45:00 +00:00
e.SuppressKeyPress = True
Else
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
TrackPos = TrackPos - 1
'If TextBox1.SelectedText.Length < 1 Then
' TrackPos = TrackPos - 1
'Else
' e.SuppressKeyPress = True
'End If
0.2.3 final code
2022-11-06 11:45:00 +00:00
End If
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
Case Keys.Right
If TextBox1.SelectionStart = TextBox1.TextLength Then
0.2.3 final code
2022-11-06 11:45:00 +00:00
Else
TrackPos = TrackPos + 1
End If
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
'If TrackPos <= 0 Then
' Dim CommandChar As String
' CommandChar = TextBox1.Lines(TextBox1.Lines.Length - 1)
' CommandChar = CommandChar.Replace(DefaultPrompt, "")
' TrackPos = CommandChar.Length - 1
' TextBox1.Select(TextBox1.TextLength, 0)
' TextBox1.ScrollToCaret()
'End If
Case Keys.Left
If TextBox1.SelectionStart = 0 Then
0.2.3 final code
2022-11-06 11:45:00 +00:00
e.SuppressKeyPress = True
Else
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
TrackPos = TrackPos - 1
0.2.3 final code
2022-11-06 11:45:00 +00:00
End If
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
If TrackPos <= 0 Then
Dim CommandChar As String
CommandChar = TextBox1.Lines(TextBox1.Lines.Length - 1)
CommandChar = CommandChar.Replace(DefaultPrompt, "")
TrackPos = CommandChar.Length - 1
TextBox1.Select(TextBox1.TextLength, 0)
TextBox1.ScrollToCaret()
End If
'If TrackPos < 1 Then
' e.SuppressKeyPress = True
' TrackPos = TrackPos - 1
'Else
' TrackPos = TrackPos - 2
'End If
Case Keys.Up
e.SuppressKeyPress = True
Case Keys.Down
e.SuppressKeyPress = True
Case Else
TrackPos = TrackPos + 1
End Select
0.2.3 final code
2022-11-06 11:45:00 +00:00
End If
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
'If e.KeyCode = Keys.Enter Then
' 'If command = "clear" Then
' ' txtterm.Text = txtterm.Text + ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
' ' txtterm.Select(txtterm.Text.Length, 0)
' 'Else
' ' txtterm.Text = txtterm.Text + Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
' ' txtterm.Select(txtterm.Text.Length, 0)
' 'End If
'Else
' If e.KeyCode = Keys.Back Then
' Else
' TrackPos = TrackPos + 1
' End If
'End If
'If e.KeyCode = Keys.Back Then
' 'If TrackPos < 1 Then
' ' e.SuppressKeyPress = True
' 'Else
' ' If TextBox1.SelectedText.Length < 1 Then
' ' TrackPos = TrackPos - 1
' ' Else
' ' e.SuppressKeyPress = True
' ' End If
' 'End If
'End If
0.1 final code
2022-11-01 22:57:27 +00:00
End Sub
Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click, TextBox1.MouseDoubleClick
TextBox1.Select(TextBox1.TextLength, 0)
TextBox1.ScrollToCaret()
End Sub
story mode completed
2022-11-02 21:28:19 +00:00
Private Sub StoryOnlyTimer_Tick(sender As Object, e As EventArgs) Handles StoryOnlyTimer.Tick
Select Case Strings.ComputerInfo(3)
Case "0"
Select Case DisplayStory
Case 5
TextBox1.Text = "Connected to <null>"
Case 25
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Hey there, Unknown user!"
Case 40
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: You have been selected for an unvolentary test on my experimental operating system, ShiftOS"
Case 90
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: ShiftOS is an operating system that purposes itself to evolve itself as the time progresses"
Case 140
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I will add features into the operating system as you use it"
Case 170
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Currently ShiftOS didn't have that much function aside from a command line with little command"
Case 190
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I'll install ShiftOS now on your system"
Case 215
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I will come back and contact you later on when the time is necessary, see you!"
Case 250
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null> Disconnected"
Case 275
TextBox1.Text = "Installing ShiftOS..."
Case 350
TextBox1.Text = "ShiftOS Installed, The computer will restart in a few seconds"
Case 400
time accuracy to PM and AM and story mode fixing few bugs
2022-11-06 00:21:26 +00:00
StoryOnlyTimer.Stop()
story mode completed
2022-11-02 21:28:19 +00:00
TextBox1.Text = Nothing
TextBox1.ReadOnly = False
Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user"
time accuracy to PM and AM and story mode fixing few bugs
2022-11-06 00:21:26 +00:00
CheckFeature()
story mode completed
2022-11-02 21:28:19 +00:00
PrintPrompt()
AssignPrompt()
TextBox1.Select(TextBox1.TextLength, 0)
TextBox1.ScrollToCaret()
End Select
End Select
DisplayStory = DisplayStory + 1
End Sub
v0.2.2 stuffy (infobar, time, more efficient code)
2022-11-04 06:12:41 +00:00
Private Sub InfoBarTimer_Tick(sender As Object, e As EventArgs) Handles InfoBarTimer.Tick
InfoBar.Text = "|"
If Strings.AvailableFeature(5) = "1" Then
InfoBar.Text = InfoBar.Text & " " & Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) & " |"
ElseIf Strings.AvailableFeature(5) = "3" Then
If Strings.AvailableFeature(6) = "1" Then
InfoBar.Text = InfoBar.Text & " " & Math.Floor(Date.Now.Subtract(Date.Today).TotalMinutes) & " |"
ElseIf Strings.AvailableFeature(6) = "3" Then
If Strings.AvailableFeature(7) = "1" Then
InfoBar.Text = InfoBar.Text & " " & Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " |"
time accuracy to PM and AM and story mode fixing few bugs
2022-11-06 00:21:26 +00:00
ElseIf Strings.AvailableFeature(7) = "3" Then
If Strings.AvailableFeature(12) = "1" Then
If Date.Now.Hour < 12 Then
InfoBar.Text = InfoBar.Text & Environment.NewLine & " " & TimeOfDay.Hour & " AM |"
Else
InfoBar.Text = InfoBar.Text & Environment.NewLine & " " & TimeOfDay.Hour - 12 & " PM |"
End If
End If
v0.2.2 stuffy (infobar, time, more efficient code)
2022-11-04 06:12:41 +00:00
End If
End If
End If
If Strings.OnceInfo(0) = "Yes" Then
InfoBar.Text = InfoBar.Text & " root |"
Else
InfoBar.Text = InfoBar.Text & " user |"
End If
InfoBar.Text = InfoBar.Text & " " & CurrentInterpreter & " |"
InfoBar.Text = InfoBar.Text & " " & Strings.ComputerInfo(2) & " CP |"
TextPad is finally working correctly
2022-11-07 07:16:34 +00:00
InfoBar.Text = InfoBar.Text & " " & TrackPos & " |"
End Sub
Private Sub TextBox1_Click(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseDoubleClick, TextBox1.Click
v0.2.2 stuffy (infobar, time, more efficient code)
2022-11-04 06:12:41 +00:00
End Sub
0.1 final code
2022-11-01 22:57:27 +00:00
End Class
Reference in a new issue Copy permalink