shiftos-archive/ShiftOS-TheRevival-Old
1
0
Fork 0
mirror of https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git synced 2025-01-22 18:02:16 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

More NewLine migration, Epilepsy warning fixing, and fixing update system

Browse source
This commit is contained in:
EverythingWindows 2022-11-13 21:22:42 +07:00
parent 54355f9686
commit f3d11527bd
14 changed files with 456 additions and 118 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

70
ShiftOS-TheRevival/MainForms/Console.vb
View file

@ -101,7 +101,7 @@ Public Class Console
NewLine("Oopsie! It's only for newer version") NewLine("Oopsie! It's only for newer version")
End Sub End Sub
Private Sub DoCommand() Public Sub DoCommand()
AdvancedCommand = True AdvancedCommand = True
BadCommand = True BadCommand = True
Select Case command Select Case command
@ -134,6 +134,43 @@ Public Class Console
DisplayColors() DisplayColors()
AdvancedCommand = False AdvancedCommand = False
BadCommand = False BadCommand = False
Case "date"
If Strings.AvailableFeature(24) = 1 Then
NewLine("The date is " & Date.Now.DayOfYear & " days since the first day of the year")
AdvancedCommand = False
BadCommand = False
ElseIf Strings.AvailableFeature(24) = 3 Then
If Strings.AvailableFeature(25) = 1 Then
Dim TheWeek As String = Date.Now.DayOfYear / 7
NewLine("The date is " & TheWeek.Substring(0, 2) & " weeks since the first week of the year")
AdvancedCommand = False
BadCommand = False
ElseIf Strings.AvailableFeature(25) = 3 Then
If Strings.AvailableFeature(26) = 1 Then
NewLine("The date is " & Date.Now.Month & " months since the first month of the year")
AdvancedCommand = False
BadCommand = False
ElseIf Strings.AvailableFeature(26) = 3 Then
If Strings.AvailableFeature(27) = 1 Then
NewLine("The year is " & Date.Now.Year)
AdvancedCommand = False
BadCommand = False
ElseIf Strings.AvailableFeature(27) = 3 Then
If Strings.AvailableFeature(28) = 1 Then
NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month)
AdvancedCommand = False
BadCommand = False
ElseIf Strings.AvailableFeature(28) = 3 Then
If Strings.AvailableFeature(29) = 1 Then
NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month & "/" & Date.Now.Year)
AdvancedCommand = False
BadCommand = False
End If
End If
End If
End If
End If
End If
Case "dir" Case "dir"
If Strings.AvailableFeature(16) = "1" Then If Strings.AvailableFeature(16) = "1" Then
TerminalDirectories(CurrentDirectory) TerminalDirectories(CurrentDirectory)
@ -181,6 +218,29 @@ Public Class Console
If Strings.AvailableFeature(22) = 1 Then If Strings.AvailableFeature(22) = 1 Then
NewLine("COWSAY Spawn a cow And saying anything you want") NewLine("COWSAY Spawn a cow And saying anything you want")
End If End If
If Strings.AvailableFeature(24) = 1 Then
NewLine("DATE Displays date in days since first day of the year format")
ElseIf Strings.AvailableFeature(24) = 3 Then
If Strings.AvailableFeature(25) = 1 Then
NewLine("DATE Displays date in weeks since first week of the year format")
ElseIf Strings.AvailableFeature(25) = 3 Then
If Strings.AvailableFeature(26) = 1 Then
NewLine("DATE Displays date in months since first month of the year format")
ElseIf Strings.AvailableFeature(26) = 3 Then
If Strings.AvailableFeature(27) = 1 Then
NewLine("DATE Displays date in year format format")
ElseIf Strings.AvailableFeature(27) = 3 Then
If Strings.AvailableFeature(28) = 1 Then
NewLine("DATE Displays date in MM/YYYY format")
ElseIf Strings.AvailableFeature(28) = 3 Then
If Strings.AvailableFeature(29) = 1 Then
NewLine("DATE Displays date in general DD/MM/YYYY format")
End If
End If
End If
End If
End If
End If
If Strings.AvailableFeature(16) = 1 Then If Strings.AvailableFeature(16) = 1 Then
NewLine("DEL Delete a selected file from the directory") NewLine("DEL Delete a selected file from the directory")
NewLine("DIR Displays subdirectories And files In a directory") NewLine("DIR Displays subdirectories And files In a directory")
@ -455,6 +515,13 @@ Public Class Console
BadCommand = False BadCommand = False
End If End If
End If End If
If command Like "run *" Then
If Strings.AvailableFeature(30) = 1 Then
Terminal_RunTerminalFile(command.Substring(4))
AdvancedCommand = False
BadCommand = False
End If
End If
If command Like "shiftorium *" Then If command Like "shiftorium *" Then
Dim prompt As String = command.Replace("shiftorium ", "") Dim prompt As String = command.Replace("shiftorium ", "")
NewLine("Shiftorium ShiftOS Center") NewLine("Shiftorium ShiftOS Center")
@ -493,7 +560,6 @@ Public Class Console
End If End If
End If End If
End If End If
If BadCommand = True Then If BadCommand = True Then
NewLine("Bad command or wrong file name") NewLine("Bad command or wrong file name")
End If End If

6
ShiftOS-TheRevival/MainForms/ConsoleAPI.vb
View file

@ -15,4 +15,10 @@
Console.TextBox1.Select(Console.TextBox1.Text.Length, 0) Console.TextBox1.Select(Console.TextBox1.Text.Length, 0)
Console.TextBox1.ScrollToCaret() Console.TextBox1.ScrollToCaret()
End Sub End Sub
Public Sub TextRebindBehind()
'Console.TextBox1.Select(Console.TextBox1.Lines.Length - 1, 0)
Console.TextBox1.Select(Console.TextBox1.Lines.Length - 1, 0)
Console.TextBox1.ScrollToCaret()
End Sub
End Module End Module

25
ShiftOS-TheRevival/MainForms/DirectoryManagements.vb
View file

@ -2,12 +2,13 @@
Dim spaces As String Dim spaces As String
Public Sub TerminalDirectories(TheDirectory As String) Public Sub TerminalDirectories(TheDirectory As String)
Console.Pseudodir = TheDirectory.Replace(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", "!") Console.Pseudodir = TheDirectory.Replace(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", "!")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Contents of " & Console.Pseudodir & Environment.NewLine NewLine("Contents of " & Console.Pseudodir)
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB ." NewLine(Nothing)
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB .." NewLine("[DIR] 0 KB .")
NewLine("[DIR] 0 KB ..")
For Each Dir As String In IO.Directory.GetDirectories(TheDirectory) For Each Dir As String In IO.Directory.GetDirectories(TheDirectory)
Dim dirinf As New IO.DirectoryInfo(Dir) Dim dirinf As New IO.DirectoryInfo(Dir)
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB " & dirinf.Name NewLine("[DIR] 0 KB " & dirinf.Name)
Next Next
For Each file As String In IO.Directory.GetFiles(TheDirectory) For Each file As String In IO.Directory.GetFiles(TheDirectory)
Dim filinf As New IO.FileInfo(file) Dim filinf As New IO.FileInfo(file)
@ -33,11 +34,11 @@
End Select End Select
Select Case thesize Select Case thesize
Case 1 Case 1
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & spaces & filsize & " KB " & filinf.Name NewLine(spaces & filsize & " KB " & filinf.Name)
Case 2 Case 2
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & spaces & filsize & " MB " & filinf.Name NewLine(spaces & filsize & " MB " & filinf.Name)
Case 3 Case 3
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & spaces & filsize & " GB " & filinf.Name NewLine(spaces & filsize & " GB " & filinf.Name)
End Select End Select
Next Next
End Sub End Sub
@ -45,7 +46,7 @@
Public Sub NavigateDir(TheDirectory As String) Public Sub NavigateDir(TheDirectory As String)
If TheDirectory = ".." Then If TheDirectory = ".." Then
If Console.CurrentDirectory = Strings.OnceInfo(1) Then If Console.CurrentDirectory = Strings.OnceInfo(1) Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "!\" NewLine("!\")
Else Else
Console.CurrentDirectory = IO.Directory.GetParent(Console.CurrentDirectory).ToString Console.CurrentDirectory = IO.Directory.GetParent(Console.CurrentDirectory).ToString
End If End If
@ -55,14 +56,14 @@
ElseIf IO.Directory.Exists(TheDirectory) Then ElseIf IO.Directory.Exists(TheDirectory) Then
Console.CurrentDirectory = TheDirectory Console.CurrentDirectory = TheDirectory
Else Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "The directory is not exist!" NewLine("The directory is not exist!")
End If End If
End If End If
End Sub End Sub
Public Sub CreateDir(TheDirectory As String) Public Sub CreateDir(TheDirectory As String)
If IO.Directory.Exists(Console.CurrentDirectory + "\" + TheDirectory) Then If IO.Directory.Exists(Console.CurrentDirectory + "\" + TheDirectory) Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Directory is already exists!" NewLine("Directory is already exists!")
Else Else
IO.Directory.CreateDirectory(Console.CurrentDirectory + "\" + TheDirectory) IO.Directory.CreateDirectory(Console.CurrentDirectory + "\" + TheDirectory)
End If End If
@ -73,10 +74,10 @@
Try Try
IO.Directory.Delete(Console.CurrentDirectory + "\" + TheDirectory) IO.Directory.Delete(Console.CurrentDirectory + "\" + TheDirectory)
Catch ex As Exception Catch ex As Exception
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ex.Message NewLine(ex.Message)
End Try End Try
Else Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "The directory is not exists!" NewLine("The directory is not exists!")
End If End If
End Sub End Sub
End Module End Module

2
ShiftOS-TheRevival/MainForms/Epilepsy.Designer.vb generated
View file

@ -77,6 +77,8 @@ Partial Class Epilepsy
Me.ForeColor = System.Drawing.Color.White Me.ForeColor = System.Drawing.Color.White
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "Epilepsy" Me.Name = "Epilepsy"
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Epilepsy" Me.Text = "Epilepsy"
Me.ResumeLayout(False) Me.ResumeLayout(False)

2
ShiftOS-TheRevival/MainForms/FileManagement.vb
View file

@ -4,7 +4,7 @@ Module FileManagement
Public Sub CatFile(filename As String) Public Sub CatFile(filename As String)
If File.Exists(Console.CurrentDirectory & "\" & filename) = True Then If File.Exists(Console.CurrentDirectory & "\" & filename) = True Then
Dim ContentsFinal As String = File.ReadAllText(Console.CurrentDirectory & "\" & filename) Dim ContentsFinal As String = File.ReadAllText(Console.CurrentDirectory & "\" & filename)
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ContentsFinal NewLine(ContentsFinal)
End If End If
End Sub End Sub

21
ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb
View file

@ -37,6 +37,13 @@ Module SaveLoadSystem
Strings.AvailableFeature(22) = "2" Strings.AvailableFeature(22) = "2"
'0.2.5 Features '0.2.5 Features
Strings.AvailableFeature(23) = "2" Strings.AvailableFeature(23) = "2"
Strings.AvailableFeature(24) = "2"
Strings.AvailableFeature(25) = "2"
Strings.AvailableFeature(26) = "2"
Strings.AvailableFeature(27) = "2"
Strings.AvailableFeature(28) = "2"
Strings.AvailableFeature(29) = "2"
Strings.AvailableFeature(30) = "2"
End Sub End Sub
Public Sub FreeRoamMode() Public Sub FreeRoamMode()
@ -70,6 +77,13 @@ Module SaveLoadSystem
Strings.AvailableFeature(22) = "1" Strings.AvailableFeature(22) = "1"
'0.2.5 Features '0.2.5 Features
Strings.AvailableFeature(23) = "1" Strings.AvailableFeature(23) = "1"
Strings.AvailableFeature(24) = "3"
Strings.AvailableFeature(25) = "3"
Strings.AvailableFeature(26) = "3"
Strings.AvailableFeature(27) = "3"
Strings.AvailableFeature(28) = "3"
Strings.AvailableFeature(29) = "1"
Strings.AvailableFeature(30) = "1"
End Sub End Sub
Public Sub GodMode() Public Sub GodMode()
@ -102,6 +116,13 @@ Module SaveLoadSystem
Strings.AvailableFeature(22) = "2" Strings.AvailableFeature(22) = "2"
'0.2.5 Features '0.2.5 Features
Strings.AvailableFeature(23) = "2" Strings.AvailableFeature(23) = "2"
Strings.AvailableFeature(24) = "2"
Strings.AvailableFeature(25) = "2"
Strings.AvailableFeature(26) = "2"
Strings.AvailableFeature(27) = "2"
Strings.AvailableFeature(28) = "2"
Strings.AvailableFeature(29) = "2"
Strings.AvailableFeature(30) = "2"
End Sub End Sub
Public Sub SaveGame() Public Sub SaveGame()

6
ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb
View file

@ -150,9 +150,9 @@ Public Class ShiftOSMenu
btn_StoryMode.Enabled = False btn_StoryMode.Enabled = False
ShouldUpdate = True ShouldUpdate = True
ShiftOSUpdater.Show() ShiftOSUpdater.Show()
'ShiftOSUpdater.Label2.Text = "A new version, " & CurrentVersion & " is available." & Environment.NewLine & "Your version is " & TheUpdater.WhatVersion & "Update now to get more features." 'ShiftOSUpdater.Label2.Text = "A new version, " & CurrentVersion & " is available." & Environment.NewLine & "Your version is " & TheUpdater.WhatVersion & "Update now to get more features." ShiftOSUpdater.Label2.Text = "A new version, " & CurrentVersion & " is available." & Environment.NewLine & "Your version is " & TheUpdater.WhatVersion & Environment.NewLine & "Update now to get more features." 'ShiftOSUpdater.Label2.Text = "A new version, " & CurrentVersion & " is available." & Environment.NewLine & "Your version is " & TheUpdater.WhatVersion & "Update now to get more features."
ShiftOSUpdater.Label2.Text = "Update function is temporarily disabled." & Environment.NewLine & "Click the 'Reset' to reset the save" 'ShiftOSUpdater.Label2.Text = "Update function is temporarily disabled." & Environment.NewLine & "Click the 'Reset' to reset the save"
ShiftOSUpdater.Button2.Text = "Reset" 'ShiftOSUpdater.Button2.Text = "Reset"
End If End If
Else Else
If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS") = True Then If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS") = True Then

215
ShiftOS-TheRevival/MainForms/Shiftoriums.vb
View file

@ -2,52 +2,57 @@
Public prompt As String Public prompt As String
Public Sub Shiftorium_ListFeatures() Public Sub Shiftorium_ListFeatures()
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium Available Feature(s)" & Environment.NewLine NewLine("Shiftorium Available Feature(s)")
NewLine(Nothing)
If Strings.AvailableFeature(11) = "0" Then If Strings.AvailableFeature(11) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(key | 5 CP) ShiftOS Key" NewLine("(key | 5 CP) ShiftOS Key")
Else Else
If Strings.AvailableFeature(0) = "0" Then If Strings.AvailableFeature(0) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(man | 10 CP) ShiftOS Help Manual" NewLine("(man | 10 CP) ShiftOS Help Manual")
Else Else
If Strings.AvailableFeature(19) = "0" Then If Strings.AvailableFeature(19) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(username | 15 CP) Custom Username" NewLine("(username | 15 CP) Custom Username")
End If End If
If Strings.AvailableFeature(20) = "0" Then If Strings.AvailableFeature(20) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(hostname | 15 CP) Custom hostname" NewLine("(hostname | 15 CP) Custom hostname")
End If End If
End If End If
If Strings.AvailableFeature(1) = "0" Then If Strings.AvailableFeature(1) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(clear | 20 CP) Clear Terminal Screen" NewLine("(clear | 20 CP) Clear Terminal Screen")
Else Else
If Strings.AvailableFeature(2) = "0" Then If Strings.AvailableFeature(2) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(print | 25 CP) Print Terminal Screen" NewLine("(print | 25 CP) Print Terminal Screen")
Else Else
If Strings.AvailableFeature(3) = "0" Then If Strings.AvailableFeature(3) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(termdspdrv | 40 CP) Terminal Display Driver" NewLine("(termdspdrv | 40 CP) Terminal Display Driver")
Else Else
If Strings.AvailableFeature(4) = "0" Then If Strings.AvailableFeature(4) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(infobar | 50 CP) Terminal InfoBar" NewLine("(infobar | 50 CP) Terminal InfoBar")
End If End If
If Strings.AvailableFeature(8) = "0" Then If Strings.AvailableFeature(8) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(shiftfetch | 55 CP) Shiftfetch" NewLine("(shiftfetch | 55 CP) Shiftfetch")
End If End If
If Strings.AvailableFeature(10) = "0" Then If Strings.AvailableFeature(10) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(2bitcolor | 60 CP) 2-bit Color Support" NewLine("(2bitcolor | 60 CP) 2-bit Color Support")
Else Else
If Strings.AvailableFeature(13) = "0" Then If Strings.AvailableFeature(13) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(rgb | 70 CP) Red, Green, and Blue" NewLine("(rgb | 70 CP) Red, Green, and Blue")
Else Else
If Strings.AvailableFeature(14) = "0" Then If Strings.AvailableFeature(14) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(rgb2 | 75 CP) RGB Variant" NewLine("(rgb2 | 75 CP) RGB Variant")
Else Else
If Strings.AvailableFeature(15) = "0" Then If Strings.AvailableFeature(15) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(4bitcolor | 80 CP) 4-bit Color Support" NewLine("(4bitcolor | 80 CP) 4-bit Color Support")
Else Else
If Strings.AvailableFeature(16) = "0" Then If Strings.AvailableFeature(16) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(romdriver | 90 CP) Terminal Read-Only Memory Support" NewLine("(romdriver | 90 CP) Terminal Read-Only Memory Support")
Else Else
If Strings.AvailableFeature(17) = "0" Then If Strings.AvailableFeature(17) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(textpad | 100 CP) TextPad" NewLine("(textpad | 100 CP) TextPad")
Else
If Strings.AvailableFeature(30) = "0" Then
NewLine("(script | 100 CP) ShiftOS Batch Script Support")
End If
End If End If
End If End If
End If End If
@ -56,37 +61,41 @@
End If End If
End If End If
If Strings.AvailableFeature(18) = "0" Then If Strings.AvailableFeature(18) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(shiftkey | 45 CP) ShiftKey" NewLine("(shiftkey | 45 CP) ShiftKey")
End If End If
If Strings.AvailableFeature(21) = "0" Then If Strings.AvailableFeature(21) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(rev | 30 CP) Reverse String" NewLine("(rev | 30 CP) Reverse String")
Else Else
If Strings.AvailableFeature(22) = "0" Then If Strings.AvailableFeature(22) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(cowsay | 50 CP) Cowsay" NewLine("(cowsay | 50 CP) Cowsay")
End If End If
End If End If
End If End If
If Strings.AvailableFeature(5) = "0" Then If Strings.AvailableFeature(5) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(stime | 10 CP) Time by Seconds" NewLine("(stime | 10 CP) Time by Seconds")
Else Else
If Strings.AvailableFeature(6) = "0" Then If Strings.AvailableFeature(6) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(mtime | 20 CP) Time by Minutes" NewLine("(mtime | 20 CP) Time by Minutes")
Else Else
If Strings.AvailableFeature(7) = "0" Then If Strings.AvailableFeature(7) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(htime | 30 CP) Time by Hours" NewLine("(htime | 30 CP) Time by Hours")
Else Else
If Strings.AvailableFeature(12) = "0" Then If Strings.AvailableFeature(12) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(pmam | 40 CP) PM and AM" NewLine("(pmam | 40 CP) PM and AM")
Else Else
If Strings.AvailableFeature(23) = "0" Then If Strings.AvailableFeature(23) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(hhmm | 50 CP) Time by Hours and Minutes" NewLine("(hhmm | 50 CP) Time by Hours and Minutes")
Else
If Strings.AvailableFeature(24) = "0" Then
NewLine("(date | 70 CP) Date command")
End If
End If End If
End If End If
End If End If
End If End If
End If End If
If Strings.AvailableFeature(9) = "0" Then If Strings.AvailableFeature(9) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(bc | 55 CP) Basic Calculator" NewLine("(bc | 55 CP) Basic Calculator")
End If End If
End If End If
End If End If
@ -102,7 +111,11 @@
If Strings.AvailableFeature(0) = "0" Then If Strings.AvailableFeature(0) = "0" Then
ManHeader(0) = "ShiftOS Help Manual (command: man)" ManHeader(0) = "ShiftOS Help Manual (command: man)"
ManHeader(1) = "10 CP" ManHeader(1) = "10 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows up any further help instruction on each command, its corresponding action and its example if necessary" & Environment.NewLine & Environment.NewLine & ManHeader(1) NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Shows up any further help instruction on each command, its corresponding action and its example if necessary")
NewLine(Nothing)
NewLine(ManHeader(1))
Console.BadCommand = False Console.BadCommand = False
End If End If
Case "clear" Case "clear"
@ -266,6 +279,83 @@
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in Hours and Minutes format" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in Hours and Minutes format" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False Console.BadCommand = False
End If End If
Case "date"
If Strings.AvailableFeature(24) = "0" Then
ManHeader(0) = "Date command"
ManHeader(1) = "70 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Displays date in days format since first day of the year")
NewLine(Nothing)
NewLine(ManHeader(1))
Console.BadCommand = False
End If
Case "woy"
If Strings.AvailableFeature(25) = "0" Then
ManHeader(0) = "Date by week of year"
ManHeader(1) = "75 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Displays date in week format since first week of the year")
NewLine(Nothing)
NewLine(ManHeader(1))
Console.BadCommand = False
End If
Case "moy"
If Strings.AvailableFeature(26) = "0" Then
ManHeader(0) = "Date by month of year"
ManHeader(1) = "80 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Displays date in month format since first month of the year")
NewLine(Nothing)
NewLine(ManHeader(1))
Console.BadCommand = False
End If
Case "year"
If Strings.AvailableFeature(27) = "0" Then
ManHeader(0) = "Date by year"
ManHeader(1) = "85 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Displays date in year format")
NewLine(Nothing)
NewLine(ManHeader(1))
Console.BadCommand = False
End If
Case "mmyyyy"
If Strings.AvailableFeature(28) = "0" Then
ManHeader(0) = "Date by month and year"
ManHeader(1) = "90 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Displays date in month and year format")
NewLine(Nothing)
NewLine(ManHeader(1))
Console.BadCommand = False
End If
Case "generaldate"
If Strings.AvailableFeature(29) = "0" Then
ManHeader(0) = "Date by general format"
ManHeader(1) = "95 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Displays date in DD/MM/YYYY format")
NewLine(Nothing)
NewLine(ManHeader(1))
Console.BadCommand = False
End If
Case "batchscript"
If Strings.AvailableFeature(30) = "0" Then
ManHeader(0) = "ShiftOS Batch Script Support"
ManHeader(1) = "100 CP"
NewLine(ManHeader(0))
NewLine(Nothing)
NewLine("Adds the supports for ShiftOS Batch Script")
NewLine(Nothing)
NewLine(ManHeader(1))
Console.BadCommand = False
End If
Case Else Case Else
Console.BadCommand = False Console.BadCommand = False
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
@ -273,7 +363,7 @@
End Sub End Sub
Public Sub Shiftorium_DetectInstallFeatures() Public Sub Shiftorium_DetectInstallFeatures()
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Installing feature..." NewLine("Installing feature...")
Select Case prompt Select Case prompt
Case "man" Case "man"
Shiftorium_InstallFeatures(True, "man", 0, 10) Shiftorium_InstallFeatures(True, "man", 0, 10)
@ -347,9 +437,30 @@
Case "hhmm" Case "hhmm"
Shiftorium_InstallFeatures(True, "hhmm", 23, 50) Shiftorium_InstallFeatures(True, "hhmm", 23, 50)
Console.BadCommand = False Console.BadCommand = False
Case "date"
Shiftorium_InstallFeatures(True, "date", 24, 70)
Console.BadCommand = False
Case "woy"
Shiftorium_InstallFeatures(True, "woy", 25, 75)
Console.BadCommand = False
Case "moy"
Shiftorium_InstallFeatures(True, "moy", 26, 80)
Console.BadCommand = False
Case "year"
Shiftorium_InstallFeatures(True, "year", 27, 85)
Console.BadCommand = False
Case "mmyyyy"
Shiftorium_InstallFeatures(True, "mmyyyy", 28, 90)
Console.BadCommand = False
Case "generaldate"
Shiftorium_InstallFeatures(True, "generaldate", 29, 95)
Console.BadCommand = False
Case "batchscript"
Shiftorium_InstallFeatures(True, "batchscript", 30, 100)
Console.BadCommand = False
Case Else Case Else
Console.BadCommand = False Console.BadCommand = False
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available" NewLine("Shiftorium: Bad command or not available")
End Select End Select
End Sub End Sub
@ -438,6 +549,7 @@
success = True success = True
Case "textpad" Case "textpad"
Strings.AvailableFeature(17) = "1" Strings.AvailableFeature(17) = "1"
Strings.AvailableFeature(30) = "0"
success = True success = True
Case "shiftkey" Case "shiftkey"
Strings.AvailableFeature(18) = "1" Strings.AvailableFeature(18) = "1"
@ -454,39 +566,72 @@
success = True success = True
Case "cowsay" Case "cowsay"
Strings.AvailableFeature(22) = "1" Strings.AvailableFeature(22) = "1"
success = True
Case "hhmm" Case "hhmm"
Strings.AvailableFeature(12) = "3" Strings.AvailableFeature(12) = "3"
Strings.AvailableFeature(23) = "1" Strings.AvailableFeature(23) = "1"
Strings.AvailableFeature(24) = "0"
success = True
Case "date"
Strings.AvailableFeature(24) = "1"
Strings.AvailableFeature(25) = "0"
success = True
Case "woy"
Strings.AvailableFeature(24) = "3"
Strings.AvailableFeature(25) = "1"
Strings.AvailableFeature(26) = "0"
success = True
Case "moy"
Strings.AvailableFeature(25) = "3"
Strings.AvailableFeature(26) = "1"
Strings.AvailableFeature(27) = "0"
success = True
Case "year"
Strings.AvailableFeature(26) = "3"
Strings.AvailableFeature(27) = "1"
Strings.AvailableFeature(28) = "0"
success = True
Case "mmyyyy"
Strings.AvailableFeature(27) = "3"
Strings.AvailableFeature(28) = "1"
Strings.AvailableFeature(29) = "0"
success = True
Case "generaldate"
Strings.AvailableFeature(28) = "3"
Strings.AvailableFeature(29) = "1"
success = True
Case "batchscript"
Strings.AvailableFeature(30) = "1"
success = True success = True
End Select End Select
If success = False Then If success = False Then
If IsCLI = True Then If IsCLI = True Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Invalid command or feature already installed" NewLine("Shiftorium: Invalid command or feature already installed")
End If End If
Else Else
Strings.ComputerInfo(4) = Strings.ComputerInfo(4) + 1 Strings.ComputerInfo(4) = Strings.ComputerInfo(4) + 1
TempCP = TempCP - Codepoint TempCP = TempCP - Codepoint
Strings.ComputerInfo(2) = Convert.ToString(TempCP) Strings.ComputerInfo(2) = Convert.ToString(TempCP)
If IsCLI = True Then If IsCLI = True Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Feature has been install succesfully" NewLine("Feature has been install succesfully")
End If End If
End If End If
Else Else
If IsCLI = True Then If IsCLI = True Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Insufficent Codepoint" NewLine("Shiftorium: Insufficent Codepoint")
End If End If
End If End If
Case "1" Case "1"
If IsCLI = True Then If IsCLI = True Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature has already been installed" NewLine("Shiftorium: Feature has already been installed")
End If End If
Case "2" Case "2"
If IsCLI = True Then If IsCLI = True Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature is not available" NewLine("Shiftorium: Feature is not available")
End If End If
Case "3" Case "3"
If IsCLI = True Then If IsCLI = True Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature is already upgraded to a newer one" NewLine("Shiftorium: Feature is already upgraded to a newer one")
End If End If
End Select End Select
End Sub End Sub

17
ShiftOS-TheRevival/MainForms/Strings.vb
View file

@ -3,7 +3,7 @@
Public Shared ComputerInfo(6) As String Public Shared ComputerInfo(6) As String
Public Shared IsFree As Boolean Public Shared IsFree As Boolean
Public Shared OnceInfo(8) As String Public Shared OnceInfo(8) As String
Public Shared AvailableFeature(24) As String Public Shared AvailableFeature(30) As String
Public Shared CLIInterpreter As String Public Shared CLIInterpreter As String
Public Shared SaveFile As String Public Shared SaveFile As String
Public Shared Achievement As String Public Shared Achievement As String
@ -72,7 +72,13 @@
'21 = Reverse String [Reverse a text] (0.2.4) (default : 0) '21 = Reverse String [Reverse a text] (0.2.4) (default : 0)
'22 = Cowsay [Cowsay] (0.2.4) (default : 0) '22 = Cowsay [Cowsay] (0.2.4) (default : 0)
'23 = Time by Hours and Minutes [Shows time in Hours and Minutes format] (0.2.5) (default : 0) '23 = Time by Hours and Minutes [Shows time in Hours and Minutes format] (0.2.5) (default : 0)
'24 = fortune command [Shows random quote] (0.2.5) (default : 0) '24 = Date command [Shows date in days since first day of the year format] (0.2.5) (default : 0)
'25 = Date by week [Shows date in weeks since first week of the year format] (0.2.5) (default : 0)
'26 = Date by month [Shows date in months since first month of the year format] (0.2.5) (default : 0)
'27 = Date by year [Shows date in year format] (0.2.5) (default : 0)
'28 = Date by month and year [Shows date in MM/YYYY format] (0.2.5) (default : 0)
'29 = Date by general [Shows date in general DD/MM/YYYY format] (0.2.5) (default : 0)
'30 = Batch-file support for ShiftOS [Gives execution support for ShiftOS Script File (.scr)] (0.2.5) (default : 0)
' '
'Features bought hierarchy : 'Features bought hierarchy :
'ShiftOS Key (KEY) (5 CP) 'ShiftOS Key (KEY) (5 CP)
@ -94,10 +100,17 @@
'>>>>>>>4-bit Color Display (4BITCOLOR) (80 CP) '>>>>>>>4-bit Color Display (4BITCOLOR) (80 CP)
'>>>>>>>>Terminal Read-Only Memory Driver (ROMDRIVER, DIR, MKDIR, RMDIR, CD, PWD) (90 CP) '>>>>>>>>Terminal Read-Only Memory Driver (ROMDRIVER, DIR, MKDIR, RMDIR, CD, PWD) (90 CP)
'>>>>>>>>>TextPad (100 CP) '>>>>>>>>>TextPad (100 CP)
'>>>>>>>>>>ShiftOS Batch Script Support (BATCHSCRIPT) (100 CP)
'>>Basic Calculator (BC) (55 CP) '>>Basic Calculator (BC) (55 CP)
'>>Time by Seconds (TIME, STIME) (10 CP) '>>Time by Seconds (TIME, STIME) (10 CP)
'>>>Time by Minutes (TIME, MTIME) (20 CP) '>>>Time by Minutes (TIME, MTIME) (20 CP)
'>>>>Time by Hours (Time, HTIME) (30 CP) '>>>>Time by Hours (Time, HTIME) (30 CP)
'>>>>>PM and AM (Time, PMAM (40 CP)) '>>>>>PM and AM (Time, PMAM (40 CP))
'>>>>>>Time by Hours and Minutes (Time, HHMM (50 CP)) '>>>>>>Time by Hours and Minutes (Time, HHMM (50 CP))
'>>>>>>>Date command (DATE (70 CP))
'>>>>>>>>Date by week (DATE, WOY (75 CP))
'>>>>>>>>>Date by month (DATE, MOY (80 CP))
'>>>>>>>>>>Date by year (DATE, YEAR (85 CP))
'>>>>>>>>>>>Date by month and year (DATE, MMYYYY (90 CP))
'>>>>>>>>>>>>Date by general (DATE, GENERALDATE (95 CP))
End Class End Class

21
ShiftOS-TheRevival/MainForms/TerminalAPI.vb
View file

@ -46,4 +46,25 @@
End If End If
End If End If
End Sub End Sub
Public Sub Terminal_RunTerminalFile(filename As String)
Dim sr As System.IO.StreamReader
If My.Computer.FileSystem.FileExists(Console.CurrentDirectory & "\" & filename) Then
Dim fileext As New IO.FileInfo(Console.CurrentDirectory & "\" & filename)
If fileext.Extension = ".scr" Then
sr = My.Computer.FileSystem.OpenTextFileReader(Console.CurrentDirectory & "\" & filename)
Dim linenum As Integer = IO.File.ReadAllLines(Console.CurrentDirectory & "\" & filename).Length
Dim i As Integer = 1
While i <= linenum
command = sr.ReadLine()
Console.DoCommand()
NewLine(Nothing)
i = i + 1
End While
sr.Close()
Else
End If
End If
End Sub
End Module End Module

59
ShiftOS-TheRevival/MainForms/TerminalColorSystem.vb
View file

@ -13,48 +13,49 @@
Public FgColor As Color Public FgColor As Color
Public Sub DisplayColors() Public Sub DisplayColors()
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "TERMINAL SUPPORTED COLORS" & Environment.NewLine & Environment.NewLine NewLine("TERMINAL SUPPORTED COLORS")
NewLine(Nothing)
NewLine(Nothing)
If Strings.AvailableFeature(10) = "1" Then If Strings.AvailableFeature(10) = "1" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "0 = Black 8 = Gray" NewLine("0 = Black 8 = Gray")
Else Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "0 = Black 8 = ???" NewLine("0 = Black 8 = ???")
End If End If
If Strings.AvailableFeature(14) = "1" Then If Strings.AvailableFeature(14) = "1" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "1 = Blue 9 = Light Blue" NewLine("1 = Blue 9 = Light Blue")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "2 = Green A = Light Green" NewLine("2 = Green A = Light Green")
Else Else
If Strings.AvailableFeature(13) = "1" Then If Strings.AvailableFeature(13) = "1" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "1 = ??? 9 = Light Blue" NewLine("1 = ??? 9 = Light Blue")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "2 = Green A = ???" NewLine("2 = Green A = ???")
Else Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "1 = ??? 9 = ???" NewLine("1 = ??? 9 = ???")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "2 = ??? A = ???" NewLine("2 = ??? A = ???")
End If End If
End If End If
If Strings.AvailableFeature(15) = "1" Then If Strings.AvailableFeature(15) = "1" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "3 = Aqua B = Light Aqua" NewLine("3 = Aqua B = Light Aqua")
Else Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "3 = ??? B = ???" NewLine("3 = ??? B = ???")
End If End If
If Strings.AvailableFeature(14) = "1" Then If Strings.AvailableFeature(14) = "1" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "4 = Red C = Light Red" NewLine("4 = Red C = Light Red")
ElseIf Strings.AvailableFeature(13) = "1" Then ElseIf Strings.AvailableFeature(13) = "1" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "4 = ??? C = Light Red" NewLine("4 = ??? C = Light Red")
Else Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "4 = ??? C = ???" NewLine("4 = ??? C = ???")
End If End If
If Strings.AvailableFeature(15) = "1" Then If Strings.AvailableFeature(15) = "1" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "5 = Purple D = Light Purple" NewLine("5 = Purple D = Light Purple")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "6 = Yellow E = Yellow" NewLine("6 = Yellow E = Yellow")
Else Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "5 = ??? D = ???" NewLine("5 = ??? D = ???")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "6 = ??? E = ???" NewLine("6 = ??? E = ???")
End If End If
If Strings.AvailableFeature(10) = "1" Then If Strings.AvailableFeature(10) = "1" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "7 = Dark Gray F = White" NewLine("7 = Dark Gray F = White")
Else Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "7 = ??? F = White" NewLine("7 = ??? F = White")
End If End If
End Sub End Sub
@ -68,7 +69,7 @@
FgColor = Color.Black FgColor = Color.Black
End Select End Select
If Bg = Fg Then If Bg = Fg Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Background and Foreground Color cannot be same!" NewLine("Background and Foreground Color cannot be same!")
Else Else
If Strings.AvailableFeature(10) = "1" Then If Strings.AvailableFeature(10) = "1" Then
Select Case Bg Select Case Bg
@ -91,7 +92,7 @@
BgColor = Color.Red BgColor = Color.Red
End Select End Select
Else Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available." NewLine("One or two colors you selected is not available.")
End If End If
Case "1", "4", "a" Case "1", "4", "a"
If Strings.AvailableFeature(14) = "1" Then If Strings.AvailableFeature(14) = "1" Then
@ -104,7 +105,7 @@
BgColor = Color.Lime BgColor = Color.Lime
End Select End Select
Else Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available." NewLine("One or two colors you selected is not available.")
End If End If
Case "3", "5", "6", "b", "d", "e" Case "3", "5", "6", "b", "d", "e"
If Strings.AvailableFeature(15) = "1" Then If Strings.AvailableFeature(15) = "1" Then
@ -123,7 +124,7 @@
BgColor = Color.Yellow BgColor = Color.Yellow
End Select End Select
Else Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available." NewLine("One or two colors you selected is not available.")
End If End If
Case Else Case Else
BgColor = Color.Black BgColor = Color.Black
@ -148,7 +149,7 @@
FgColor = Color.Red FgColor = Color.Red
End Select End Select
Else Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available." NewLine("One or two colors you selected is not available.")
End If End If
Case "1", "4", "a" Case "1", "4", "a"
If Strings.AvailableFeature(14) = "1" Then If Strings.AvailableFeature(14) = "1" Then
@ -161,7 +162,7 @@
FgColor = Color.Lime FgColor = Color.Lime
End Select End Select
Else Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available." NewLine("One or two colors you selected is not available.")
End If End If
Case "3", "5", "6", "b", "d", "e" Case "3", "5", "6", "b", "d", "e"
If Strings.AvailableFeature(15) = "1" Then If Strings.AvailableFeature(15) = "1" Then
@ -180,13 +181,13 @@
FgColor = Color.Yellow FgColor = Color.Yellow
End Select End Select
Else Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available." NewLine("One or two colors you selected is not available.")
End If End If
Case Else Case Else
FgColor = Color.White FgColor = Color.White
End Select End Select
Else Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Color is not supported for 1-bit Color Display" NewLine("Color is not supported for 1-bit Color Display")
Select Case App Select Case App
Case "terminal" Case "terminal"
BgColor = Color.Black BgColor = Color.Black

35
ShiftOS-TheRevival/MainForms/TerminalExternalApps.vb
View file

@ -33,12 +33,18 @@ Module TerminalExternalApps
Select Case App Select Case App
Case "bc" Case "bc"
Console.DefaultPrompt = "> " Console.DefaultPrompt = "> "
Console.TextBox1.Text = "bc (Basic Calcultator)" & Environment.NewLine & "Copyright, Free Software Foundation." & Environment.NewLine & "ShiftOS port by DevX." & Environment.NewLine & "This is free software with ABSOLUTELY NO WARRANTY." & Environment.NewLine ResetLine("bc (Basic Calcultator)")
NewLine("Copyright, Free Software Foundation.")
NewLine("ShiftOS port by DevX.")
NewLine("This is free software with ABSOLUTELY NO WARRANTY.")
NewLine(Nothing)
Console.CurrentInterpreter = "bc" Console.CurrentInterpreter = "bc"
ShouldChange = True ShouldChange = True
Case "guess" 'Guess the Number Case "guess" 'Guess the Number
Console.DefaultPrompt = "Your answer: " Console.DefaultPrompt = "Your answer: "
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Guess the Number" & Environment.NewLine & "Guess the correct number between 1 and 50 and you'll get anything between 1 to 10 Codepoints" & Environment.NewLine & "Type 'exit' to terminate this game" 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" Console.CurrentInterpreter = "guess"
GTN_GenerateNumber() GTN_GenerateNumber()
ShouldChange = True ShouldChange = True
@ -53,7 +59,8 @@ Module TerminalExternalApps
Console.DefaultPrompt = "Navigate> " Console.DefaultPrompt = "Navigate> "
Console.CurrentInterpreter = "shiftoriumfx" Console.CurrentInterpreter = "shiftoriumfx"
ShiftoriumFX_DisplayPackages() ShiftoriumFX_DisplayPackages()
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & Environment.NewLine & "Type any package you want to investigate" NewLine(Nothing)
NewLine("Type any package you want to investigate")
ShouldChange = True ShouldChange = True
Case "textpad" Case "textpad"
Console.DefaultPrompt = Nothing Console.DefaultPrompt = Nothing
@ -64,6 +71,7 @@ Module TerminalExternalApps
TextPad_CheckExist(command) TextPad_CheckExist(command)
Console.ToolBar.Text = "TextPad - " & command & Environment.NewLine & "Ctrl-Q Exit | Ctrl-N New | Ctrl-O Open | Ctrl-S Save | F12 Save As" Console.ToolBar.Text = "TextPad - " & command & Environment.NewLine & "Ctrl-Q Exit | Ctrl-N New | Ctrl-O Open | Ctrl-S Save | F12 Save As"
Console.ReleaseCursor = True Console.ReleaseCursor = True
TextRebind()
End Select End Select
If Console.ReleaseCursor = True Then If Console.ReleaseCursor = True Then
'Strings.OnceInfo(5) = Terminal.TrackPos 'Strings.OnceInfo(5) = Terminal.TrackPos
@ -157,7 +165,7 @@ Module TerminalExternalApps
Try Try
GTN_CheckNumber() GTN_CheckNumber()
Catch ex As Exception Catch ex As Exception
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Invalid value!" NewLine("Invalid value!")
End Try End Try
End Select End Select
Case "shiftoriumfx" Case "shiftoriumfx"
@ -168,14 +176,18 @@ Module TerminalExternalApps
TerminateApp(Nothing) TerminateApp(Nothing)
Case Else Case Else
ShiftoriumFX_DisplayPackages() ShiftoriumFX_DisplayPackages()
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & Environment.NewLine & "Type any package you want to investigate" & Environment.NewLine & "Invalid package or bad command" NewLine(Nothing)
NewLine("Type any package you want to investigate")
NewLine("Invalid package or bad command")
End Select End Select
Case "bc" Case "bc"
Select Case command Select Case command
Case "jim" Case "jim"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "69, the funni number" & Environment.NewLine & "gotcha!" NewLine("69, the funni number")
NewLine("gotcha!")
Case "ojas" Case "ojas"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "dis calculator is very gud" & Environment.NewLine & "it counts from another universe" NewLine("dis calculator is very gud")
NewLine("it counts from another universe")
Case "exit" Case "exit"
TerminateApp(Nothing) TerminateApp(Nothing)
Case Else Case Else
@ -224,7 +236,7 @@ Module TerminalExternalApps
End Try End Try
BC_Counting(BC_Numbers1, BC_Numbers2, BC_Operation2) BC_Counting(BC_Numbers1, BC_Numbers2, BC_Operation2)
BC_ThriceMoreValue = Nothing BC_ThriceMoreValue = Nothing
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & BC_Result NewLine(BC_Result)
End Select End Select
End Select End Select
End Sub End Sub
@ -254,13 +266,14 @@ Module TerminalExternalApps
Dim GetCP As New Random Dim GetCP As New Random
Dim GotCP As Integer = GetCP.Next(1, 11) Dim GotCP As Integer = GetCP.Next(1, 11)
ChangeCP(True, GotCP) ChangeCP(True, GotCP)
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "You are correct!, you got " & GotCP & " Codepoint(s)" & Environment.NewLine & "Guess the new number between 1 and 50." NewLine("You are correct!, you got " & GotCP & " Codepoint(s)")
NewLine("Guess the new number between 1 and 50.")
GTN_GenerateNumber() GTN_GenerateNumber()
Else Else
If TheirNumber < TheNumber Then If TheirNumber < TheNumber Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Higher!" NewLine("Higher!")
ElseIf TheirNumber > TheNumber Then ElseIf TheirNumber > TheNumber Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Lower!" NewLine("Lower!")
End If End If
End If End If
End If End If

47
ShiftOS-TheRevival/MainForms/TerminalInternalApps.vb
View file

@ -13,44 +13,44 @@
Exit Do Exit Do
End If End If
Loop Loop
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "< " & Say & " >" NewLine("< " & Say & " >")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " " NewLine(" ")
Do Do
Console.TextBox1.Text = Console.TextBox1.Text & "-" AddLine("-")
SubtractLength = SubtractLength - 1 SubtractLength = SubtractLength - 1
If SubtractLength = 0 Then If SubtractLength = 0 Then
Console.TextBox1.Text = Console.TextBox1.Text & "-" AddLine("-")
SubtractLength = Say.Length + 1 SubtractLength = Say.Length + 1
Exit Do Exit Do
End If End If
Loop Loop
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " \ ^__^" NewLine(" \ ^__^")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " \ (oo)\_______" NewLine(" \ (oo)\_______")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " (__)\ )\/\" NewLine(" (__)\ )\/\")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " ||----w |" NewLine(" ||----w |")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " || ||" NewLine(" || ||")
Case 41 To 80 Case 41 To 80
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " __________________________________________ " NewLine(" __________________________________________ ")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "/ " & Say.Substring(0, 40) & " \" NewLine("/ " & Say.Substring(0, 40) & " \")
Say = Say.Substring(40, Say.Length - 40) Say = Say.Substring(40, Say.Length - 40)
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "\ " & Say NewLine("\ " & Say)
Dim Spaces As Integer = 40 - Say.Length Dim Spaces As Integer = 40 - Say.Length
Do Do
Console.TextBox1.Text = Console.TextBox1.Text & " " AddLine(" ")
If Spaces = 0 Then If Spaces = 0 Then
Console.TextBox1.Text = Console.TextBox1.Text & "/" AddLine("/")
Exit Do Exit Do
End If End If
Spaces = Spaces - 1 Spaces = Spaces - 1
Loop Loop
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " ------------------------------------------ " NewLine(" ------------------------------------------ ")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " \ ^__^" NewLine(" \ ^__^")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " \ (oo)\_______" NewLine(" \ (oo)\_______")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " (__)\ )\/\" NewLine(" (__)\ )\/\")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " ||----w |" NewLine(" ||----w |")
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " || ||" NewLine(" || ||")
Case >= 81 Case >= 81
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "cowsay: Character limit exceeded" NewLine("cowsay: Character limit exceeded")
'Dim SubtractLength As Integer = Say.Length + 1 'Dim SubtractLength As Integer = Say.Length + 1
'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " __________________________________________ " 'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " __________________________________________ "
'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "/ " & Say.Substring(0, 40) & " \" 'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "/ " & Say.Substring(0, 40) & " \"
@ -92,7 +92,8 @@
'Summary of the command's action 'Summary of the command's action
' '
'Example usage : command 'Example usage : command
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual" & Environment.NewLine NewLine("ShiftOS Help Manual")
NewLine(Nothing)
'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & command.Substring(4) 'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & command.Substring(4)
Dim mancommand As String = Command.Replace("man ", "") Dim mancommand As String = Command.Replace("man ", "")
Dim TempUsage As String = "'" & mancommand & "' Usage: " Dim TempUsage As String = "'" & mancommand & "' Usage: "
@ -237,7 +238,7 @@
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_ver & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_ver & Environment.NewLine
Console.BadCommand = False Console.BadCommand = False
Case Else Case Else
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "MAN : Invalid command" NewLine("MAN : Invalid command")
End Select End Select
End Sub End Sub
End Module End Module

48
ShiftOS-TheRevival/MainForms/TheUpdater.vb
View file

@ -60,6 +60,54 @@ Module TheUpdater
Strings.ComputerInfo(5) = "0F" Strings.ComputerInfo(5) = "0F"
Strings.ComputerInfo(6) = "F0" Strings.ComputerInfo(6) = "F0"
ShiftOSUpdater.Button2.Text = "Updated!" ShiftOSUpdater.Button2.Text = "Updated!"
Case "0.2.4"
Strings.AvailableFeature(0) = AvailableFeatureHere(0)
Strings.AvailableFeature(1) = AvailableFeatureHere(1)
Strings.AvailableFeature(2) = AvailableFeatureHere(2)
Strings.AvailableFeature(3) = AvailableFeatureHere(3)
Strings.AvailableFeature(4) = AvailableFeatureHere(4)
Strings.AvailableFeature(5) = AvailableFeatureHere(5)
Strings.AvailableFeature(6) = AvailableFeatureHere(6)
Strings.AvailableFeature(7) = AvailableFeatureHere(7)
Strings.AvailableFeature(8) = AvailableFeatureHere(8)
Strings.AvailableFeature(9) = AvailableFeatureHere(9)
Strings.AvailableFeature(10) = AvailableFeatureHere(10)
Strings.AvailableFeature(11) = AvailableFeatureHere(11)
Strings.AvailableFeature(12) = AvailableFeatureHere(12)
Strings.AvailableFeature(13) = AvailableFeatureHere(13)
Strings.AvailableFeature(14) = AvailableFeatureHere(14)
Strings.AvailableFeature(15) = AvailableFeatureHere(15)
Strings.AvailableFeature(16) = AvailableFeatureHere(16)
Strings.AvailableFeature(17) = AvailableFeatureHere(17)
Strings.AvailableFeature(18) = AvailableFeatureHere(18)
Strings.AvailableFeature(19) = AvailableFeatureHere(19)
Strings.AvailableFeature(20) = AvailableFeatureHere(20)
Strings.AvailableFeature(21) = AvailableFeatureHere(21)
Strings.AvailableFeature(22) = AvailableFeatureHere(22)
If Strings.AvailableFeature(12) = "1" Then
Strings.AvailableFeature(23) = "0"
Else
Strings.AvailableFeature(23) = "2"
End If
Strings.AvailableFeature(24) = "2"
Strings.AvailableFeature(25) = "2"
Strings.AvailableFeature(26) = "2"
Strings.AvailableFeature(27) = "2"
Strings.AvailableFeature(28) = "2"
Strings.AvailableFeature(29) = "2"
If Strings.AvailableFeature(17) = 1 Then
Strings.AvailableFeature(30) = "0"
Else
Strings.AvailableFeature(30) = "2"
End If
Strings.ComputerInfo(0) = ComputerInfoHere(0)
Strings.ComputerInfo(1) = ComputerInfoHere(1)
Strings.ComputerInfo(2) = ComputerInfoHere(2)
Strings.ComputerInfo(3) = ComputerInfoHere(3)
Strings.ComputerInfo(4) = ComputerInfoHere(4)
Strings.ComputerInfo(5) = "0F"
Strings.ComputerInfo(6) = "F0"
ShiftOSUpdater.Button2.Text = "Updated!"
End Select End Select
File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt", My.Resources.CurrentVersion) File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt", My.Resources.CurrentVersion)
File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos", Strings.AvailableFeature) File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos", Strings.AvailableFeature)