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

time accuracy to PM and AM and story mode fixing few bugs

Browse source
This commit is contained in:
EverythingWindows 2022-11-06 07:21:26 +07:00
parent a0e7f1ba37
commit f20fb77b7d
8 changed files with 187 additions and 74 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -3,8 +3,8 @@
Public Sub NewGameMode() Public Sub NewGameMode()
Strings.ComputerInfo(2) = "0" Strings.ComputerInfo(2) = "0"
Strings.ComputerInfo(4) = "0" Strings.ComputerInfo(4) = "0"
Strings.AvailableFeature(0) = "0" Strings.AvailableFeature(0) = "2"
Strings.AvailableFeature(1) = "0" Strings.AvailableFeature(1) = "2"
Strings.AvailableFeature(2) = "2" Strings.AvailableFeature(2) = "2"
Strings.AvailableFeature(3) = "2" Strings.AvailableFeature(3) = "2"
Strings.AvailableFeature(4) = "2" Strings.AvailableFeature(4) = "2"
@ -14,11 +14,13 @@
Strings.AvailableFeature(8) = "2" Strings.AvailableFeature(8) = "2"
Strings.AvailableFeature(9) = "2" Strings.AvailableFeature(9) = "2"
Strings.AvailableFeature(10) = "2" Strings.AvailableFeature(10) = "2"
Strings.AvailableFeature(11) = "0"
Strings.AvailableFeature(12) = "2"
End Sub End Sub
Public Sub FreeRoamMode() Public Sub FreeRoamMode()
Strings.ComputerInfo(2) = "0" Strings.ComputerInfo(2) = "0"
Strings.ComputerInfo(4) = "11" Strings.ComputerInfo(4) = "12"
Strings.AvailableFeature(0) = "1" Strings.AvailableFeature(0) = "1"
Strings.AvailableFeature(1) = "1" Strings.AvailableFeature(1) = "1"
Strings.AvailableFeature(2) = "1" Strings.AvailableFeature(2) = "1"
@ -26,17 +28,19 @@
Strings.AvailableFeature(4) = "1" Strings.AvailableFeature(4) = "1"
Strings.AvailableFeature(5) = "3" Strings.AvailableFeature(5) = "3"
Strings.AvailableFeature(6) = "3" Strings.AvailableFeature(6) = "3"
Strings.AvailableFeature(7) = "1" Strings.AvailableFeature(7) = "3"
Strings.AvailableFeature(8) = "1" Strings.AvailableFeature(8) = "1"
Strings.AvailableFeature(9) = "1" Strings.AvailableFeature(9) = "1"
Strings.AvailableFeature(10) = "1" Strings.AvailableFeature(10) = "1"
Strings.AvailableFeature(11) = "1"
Strings.AvailableFeature(12) = "1"
End Sub End Sub
Public Sub GodMode() Public Sub GodMode()
Strings.ComputerInfo(2) = 9999 Strings.ComputerInfo(2) = 9999
Strings.ComputerInfo(4) = "0" Strings.ComputerInfo(4) = "0"
Strings.AvailableFeature(0) = "0" Strings.AvailableFeature(0) = "2"
Strings.AvailableFeature(1) = "0" Strings.AvailableFeature(1) = "2"
Strings.AvailableFeature(2) = "2" Strings.AvailableFeature(2) = "2"
Strings.AvailableFeature(3) = "2" Strings.AvailableFeature(3) = "2"
Strings.AvailableFeature(4) = "2" Strings.AvailableFeature(4) = "2"
@ -46,5 +50,7 @@
Strings.AvailableFeature(8) = "2" Strings.AvailableFeature(8) = "2"
Strings.AvailableFeature(9) = "2" Strings.AvailableFeature(9) = "2"
Strings.AvailableFeature(10) = "2" Strings.AvailableFeature(10) = "2"
Strings.AvailableFeature(11) = "0"
Strings.AvailableFeature(12) = "2"
End Sub End Sub
End Module End Module

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

@ -6,6 +6,7 @@ Public Class ShiftOSMenu
Public Shared BuildLab() As String Public Shared BuildLab() As String
Public Shared BannerUse As Integer = 1 Public Shared BannerUse As Integer = 1
Public Shared TimeToChange Public Shared TimeToChange
Public Shared ShouldUpdate As Boolean = False
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Try 'Try
@ -26,6 +27,7 @@ Public Class ShiftOSMenu
' MsgBox("Why? Because of " & ex.Message) ' MsgBox("Why? Because of " & ex.Message)
'End Try 'End Try
CheckUpdate() CheckUpdate()
'CheckInstall()
BannerChange.Start() BannerChange.Start()
End Sub End Sub
@ -63,6 +65,7 @@ Public Class ShiftOSMenu
Strings.IsFree = False Strings.IsFree = False
MsgBox("This feature is in development, be sure to watch out for bugs") MsgBox("This feature is in development, be sure to watch out for bugs")
IntroStory.Show() IntroStory.Show()
NewGameMode()
Close() Close()
End Select End Select
End Sub End Sub
@ -102,6 +105,31 @@ Public Class ShiftOSMenu
End Try End Try
End Sub End Sub
Private Sub CheckInstall()
If Directory.Exists(My.Computer.FileSystem.SpecialDirectories.Temp & "\ShiftOS\ShiftFS") = True Then
Dim WhatVersion As String = File.ReadAllText(My.Computer.FileSystem.SpecialDirectories.Temp & "\ShiftOS\version.txt")
If WhatVersion = My.Resources.CurrentVersion Then
Else
btn_Aboot.Enabled = False
btn_Exit.Enabled = False
btn_FreeRoam.Enabled = False
btn_StoryMode.Enabled = False
ShouldUpdate = True
ShiftOSUpdater.Show()
End If
Else
If Directory.Exists(My.Computer.FileSystem.SpecialDirectories.Temp & "\ShiftOS") = True Then
If Directory.Exists(My.Computer.FileSystem.SpecialDirectories.Temp & "\ShiftOS\ShiftFS") = True Then
Directory.CreateDirectory(My.Computer.FileSystem.GetTempFileName & "\ShiftOS\ShiftFS")
End If
Else
Directory.CreateDirectory(My.Computer.FileSystem.GetTempFileName & "\ShiftOS")
Directory.CreateDirectory(My.Computer.FileSystem.GetTempFileName & "\ShiftOS\ShiftFS")
End If
End If
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
Label2.Text = "Debug it your way" Label2.Text = "Debug it your way"
End Sub End Sub

22
ShiftOS-TheRevival/MainForms/ShiftOSUpdater.Designer.vb generated
View file

@ -25,7 +25,6 @@ Partial Class ShiftOSUpdater
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.SuspendLayout() Me.SuspendLayout()
' '
@ -51,31 +50,22 @@ Partial Class ShiftOSUpdater
' '
'Button1 'Button1
' '
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Consolas", 10.0!) Me.Button1.Font = New System.Drawing.Font("Consolas", 10.0!)
Me.Button1.Location = New System.Drawing.Point(286, 220) Me.Button1.Location = New System.Drawing.Point(286, 149)
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(86, 29) Me.Button1.Size = New System.Drawing.Size(86, 29)
Me.Button1.TabIndex = 2 Me.Button1.TabIndex = 2
Me.Button1.Text = "Cancel" Me.Button1.Text = "Cancel"
Me.Button1.UseVisualStyleBackColor = True Me.Button1.UseVisualStyleBackColor = True
' '
'ProgressBar1
'
Me.ProgressBar1.BackColor = System.Drawing.Color.Black
Me.ProgressBar1.Cursor = System.Windows.Forms.Cursors.AppStarting
Me.ProgressBar1.ForeColor = System.Drawing.Color.White
Me.ProgressBar1.Location = New System.Drawing.Point(20, 98)
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(352, 29)
Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
Me.ProgressBar1.TabIndex = 3
'
'Button2 'Button2
' '
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Font = New System.Drawing.Font("Consolas", 10.0!) Me.Button2.Font = New System.Drawing.Font("Consolas", 10.0!)
Me.Button2.Location = New System.Drawing.Point(194, 220) Me.Button2.Location = New System.Drawing.Point(194, 149)
Me.Button2.Name = "Button2" Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(86, 29) Me.Button2.Size = New System.Drawing.Size(86, 29)
Me.Button2.TabIndex = 2 Me.Button2.TabIndex = 2
@ -87,9 +77,8 @@ Partial Class ShiftOSUpdater
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.Black Me.BackColor = System.Drawing.Color.Black
Me.ClientSize = New System.Drawing.Size(384, 261) Me.ClientSize = New System.Drawing.Size(380, 186)
Me.ControlBox = False Me.ControlBox = False
Me.Controls.Add(Me.ProgressBar1)
Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label2)
@ -110,6 +99,5 @@ Partial Class ShiftOSUpdater
Friend WithEvents Label1 As Label Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label Friend WithEvents Label2 As Label
Friend WithEvents Button1 As Button Friend WithEvents Button1 As Button
Friend WithEvents ProgressBar1 As ProgressBar
Friend WithEvents Button2 As Button Friend WithEvents Button2 As Button
End Class End Class

15
ShiftOS-TheRevival/MainForms/ShiftOSUpdater.vb
View file

@ -6,6 +6,14 @@ Public Class ShiftOSUpdater
Public NewVersion As String Public NewVersion As String
Public WithEvents Download As WebClient Public WithEvents Download As WebClient
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ShiftOSMenu.ShouldUpdate = True Then
Else
ShiftOSMenu.btn_Aboot.Enabled = True
ShiftOSMenu.btn_Exit.Enabled = True
ShiftOSMenu.btn_FreeRoam.Enabled = True
ShiftOSMenu.btn_StoryMode.Enabled = True
End If
Close() Close()
End Sub End Sub
@ -31,12 +39,17 @@ Public Class ShiftOSUpdater
ShiftOSMenu.btn_StoryMode.Enabled = True ShiftOSMenu.btn_StoryMode.Enabled = True
Button2.Text = "Saved" Button2.Text = "Saved"
End If End If
ElseIf Button2.Text = "Update" Then
Label2.Text = "Updating ShiftOS from" & My.Resources.CurrentVersion & " to " & NewVersion
Else Else
End If End If
End Sub End Sub
Private Sub ShiftOSUpdate_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub ShiftOSUpdate_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If ShiftOSMenu.ShouldUpdate = True Then
Button1.Text = "Update"
End If
End Sub End Sub
'Will revisit this later 'Will revisit this later

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

@ -3,42 +3,50 @@
Public Sub Shiftorium_ListFeatures() Public Sub Shiftorium_ListFeatures()
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium Available Feature(s)" & Environment.NewLine Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium Available Feature(s)" & Environment.NewLine
If Strings.AvailableFeature(0) = "0" Then If Strings.AvailableFeature(11) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(man | 20 CP) ShiftOS Help Manual" Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(key | 5 CP) ShiftOS Key"
End If
If Strings.AvailableFeature(1) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(clear | 25 CP) Clear Terminal Screen"
Else Else
If Strings.AvailableFeature(2) = "0" Then If Strings.AvailableFeature(0) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(print | 30 CP) Print Terminal Screen" Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(man | 20 CP) ShiftOS Help Manual"
End If
If Strings.AvailableFeature(1) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(clear | 25 CP) Clear Terminal Screen"
Else Else
If Strings.AvailableFeature(3) = "0" Then If Strings.AvailableFeature(2) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(termdspdrv | 50 CP) Terminal Display Driver" Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(print | 30 CP) Print Terminal Screen"
Else Else
If Strings.AvailableFeature(4) = "0" Then If Strings.AvailableFeature(3) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(infobar | 55 CP) Terminal InfoBar" Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(termdspdrv | 50 CP) Terminal Display Driver"
End If Else
If Strings.AvailableFeature(8) = "0" Then If Strings.AvailableFeature(4) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(shiftfetch | 75 CP) Shiftfetch" Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(infobar | 55 CP) Terminal InfoBar"
End If
If Strings.AvailableFeature(8) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(shiftfetch | 75 CP) Shiftfetch"
End If
End If End If
End If End If
End If If Strings.AvailableFeature(5) = "0" Then
If Strings.AvailableFeature(5) = "0" Then Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(stime | 10 CP) Time by Seconds"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(stime | 10 CP) Time by Seconds"
Else
If Strings.AvailableFeature(6) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(mtime | 20 CP) Time by Minutes"
Else Else
If Strings.AvailableFeature(7) = "0" Then If Strings.AvailableFeature(6) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(htime | 40 CP) Time by Hours" Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(mtime | 20 CP) Time by Minutes"
Else
If Strings.AvailableFeature(7) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(htime | 40 CP) Time by Hours"
Else
If Strings.AvailableFeature(12) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(pmam | 60 CP) PM and AM"
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 Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(bc | 10 CP) Basic Calculator"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(bc | 10 CP) Basic Calculator" End If
End If If Strings.AvailableFeature(10) = "0" Then
If Strings.AvailableFeature(10) = "0" Then Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(2bitcolor | 100 CP) 2-bit Color Support"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(2bitcolor | 100 CP) 2-bit Color Support" End If
End If End If
End If End If
End Sub End Sub
@ -126,6 +134,20 @@
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds 2 colours (Dark Gray, Light Gray) supports to the terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1) Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds 2 colours (Dark Gray, Light Gray) supports to the terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Terminal.BadCommand = False
End If End If
Case "key"
If Strings.AvailableFeature(11) = "0" Then
ManHeader(0) = "ShiftOS Key"
ManHeader(1) = "5 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "An encryption key to unlock advanced terminal feature for ShiftOS" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False
End If
Case "pmam"
If Strings.AvailableFeature(12) = "0" Then
ManHeader(0) = "PM and AM"
ManHeader(1) = "60 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in PM and AM format" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False
End If
Case Else Case Else
Terminal.BadCommand = False Terminal.BadCommand = False
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available" Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
@ -168,6 +190,12 @@
Case "2bitcolor" Case "2bitcolor"
Shiftorium_InstallFeatures(True, "2bitcolor", 10, 100) Shiftorium_InstallFeatures(True, "2bitcolor", 10, 100)
Terminal.BadCommand = False Terminal.BadCommand = False
Case "key"
Shiftorium_InstallFeatures(True, "key", 11, 5)
Terminal.BadCommand = False
Case "pmam"
Shiftorium_InstallFeatures(True, "pmam", 12, 60)
Terminal.BadCommand = False
Case Else Case Else
Terminal.BadCommand = False Terminal.BadCommand = False
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available" Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
@ -215,12 +243,26 @@
Case "htime" Case "htime"
Strings.AvailableFeature(6) = "3" Strings.AvailableFeature(6) = "3"
Strings.AvailableFeature(7) = "1" Strings.AvailableFeature(7) = "1"
Strings.AvailableFeature(12) = "0"
success = True success = True
Case "shiftfetch" Case "shiftfetch"
Strings.AvailableFeature(8) = "1" Strings.AvailableFeature(8) = "1"
success = True
Case "bc" Case "bc"
Strings.AvailableFeature(9) = "1" Strings.AvailableFeature(9) = "1"
success = True success = True
Case "2bitcolor"
Strings.AvailableFeature(10) = "1"
success = True
Case "key"
Strings.AvailableFeature(11) = "1"
Strings.AvailableFeature(0) = "0"
Strings.AvailableFeature(1) = "0"
success = True
Case "pmam"
Strings.AvailableFeature(7) = "3"
Strings.AvailableFeature(12) = "1"
'Strings.AvailableFeature(13) = "0"
End Select End Select
If success = False Then If success = False Then
If IsCLI = True Then If IsCLI = True Then

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

@ -2,8 +2,8 @@
Public Shared OSInfo() As String Public Shared OSInfo() As String
Public Shared ComputerInfo(4) As String Public Shared ComputerInfo(4) As String
Public Shared IsFree As Boolean Public Shared IsFree As Boolean
Public Shared OnceInfo(0) As String Public Shared OnceInfo(1) As String
Public Shared AvailableFeature(10) As String Public Shared AvailableFeature(12) As String
Public Shared CLIInterpreter As String Public Shared CLIInterpreter As String
Public Shared SaveFile As String Public Shared SaveFile As String
@ -49,17 +49,21 @@
'8 = Shiftfetch [ShiftOS port of Neofetch, A command-line system information tool] (0.2.3) (default : 0) '8 = Shiftfetch [ShiftOS port of Neofetch, A command-line system information tool] (0.2.3) (default : 0)
'9 = bc [Basic Calculator for ShiftOS] (0.2.3) (default : 0) '9 = bc [Basic Calculator for ShiftOS] (0.2.3) (default : 0)
'10 = 2-bit Color Display [Adds Dark Gray and Light Gray support to the Display Driver] (0.2.3) (default : 0) '10 = 2-bit Color Display [Adds Dark Gray and Light Gray support to the Display Driver] (0.2.3) (default : 0)
'11 = ShiftOS Key [A key to unlock advanced features on ShiftOS] (0.2.3) (default : 0)
'12 = Time by PM and AM [Showing time in hours form since midnight] (0.2.3) (default : 0)
' '
'Features bought hierarchy : 'Features bought hierarchy :
'ShiftOS Help Manual (MAN) (20 CP) 'ShiftOS Key (KEY) (5 CP)
'Terminal Clear (CLEAR) (25 CP) '>ShiftOS Help Manual (MAN) (20 CP)
'>Terminal Print (PRINT) (30 CP) '>Terminal Clear (CLEAR) (25 CP)
'>>Terminal Display Driver (TERMDSPDRV) (50 CP) '>>Terminal Print (PRINT) (30 CP)
'>>>Terminal InfoBar (INFOBAR) (55 CP) '>>>Terminal Display Driver (TERMDSPDRV) (50 CP)
'>>>Shiftfetch (SHIFTFETCH) (75 CP) '>>>>Terminal InfoBar (INFOBAR) (55 CP)
'>>>2-bit Color Display (2BITCOLOR) (100 CP) '>>>>Shiftfetch (SHIFTFETCH) (75 CP)
'>Basic Calculator (BC) (75 CP) '>>>>2-bit Color Display (2BITCOLOR) (100 CP)
'>Time by Seconds (TIME, STIME) (10 CP) '>>Basic Calculator (BC) (75 CP)
'>>Time by Minutes (TIME, MTIME) (20 CP) '>>Time by Seconds (TIME, STIME) (10 CP)
'>>>Time by Hours (Time, HTIME) (40 CP) '>>>Time by Minutes (TIME, MTIME) (20 CP)
'>>>>Time by Hours (Time, HTIME) (40 CP)
'>>>>>PM and AM (Time, PMAM (60 CP))
End Class End Class

1
ShiftOS-TheRevival/MainForms/Terminal.Designer.vb generated
View file

@ -58,6 +58,7 @@ Partial Class Terminal
Me.InfoBar.TabIndex = 0 Me.InfoBar.TabIndex = 0
Me.InfoBar.Text = "Infobar" Me.InfoBar.Text = "Infobar"
Me.InfoBar.TextAlign = System.Windows.Forms.HorizontalAlignment.Right Me.InfoBar.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.InfoBar.Visible = False
' '
'InfoBarTimer 'InfoBarTimer
' '

49
ShiftOS-TheRevival/MainForms/Terminal.vb
View file

@ -11,6 +11,7 @@ Public Class Terminal
Public ChangeInterpreter As Boolean = False Public ChangeInterpreter As Boolean = False
Public CurrentInterpreter As String = "terminal" Public CurrentInterpreter As String = "terminal"
Public CurrentDirectory As String Public CurrentDirectory As String
Public StayAtChapter As Boolean = False
Private Sub Terminal_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Terminal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FormBorderStyle = FormBorderStyle.None FormBorderStyle = FormBorderStyle.None
@ -24,21 +25,28 @@ Public Class Terminal
If Strings.IsFree = True Then If Strings.IsFree = True Then
Strings.ComputerInfo(0) = "shiftos" Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(1) = "user"
'Strings.ComputerInfo(2) = 0
CheckFeature() CheckFeature()
PrintPrompt() PrintPrompt()
AssignPrompt() AssignPrompt()
Else Else
If Strings.ComputerInfo(3) = "0" Then If StayAtChapter = True Then
TextBox1.ReadOnly = True
StoryOnlyTimer.Start()
Else
Strings.ComputerInfo(0) = "shiftos" Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(1) = "user"
Strings.ComputerInfo(2) = 0
CheckFeature() CheckFeature()
PrintPrompt() PrintPrompt()
AssignPrompt() AssignPrompt()
Else
If Strings.ComputerInfo(3) = "0" Then
TextBox1.ReadOnly = True
StayAtChapter = True
StoryOnlyTimer.Start()
Else
Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user"
CheckFeature()
PrintPrompt()
AssignPrompt()
End If
End If End If
End If End If
TextBox1.Select(TextBox1.TextLength, 0) TextBox1.Select(TextBox1.TextLength, 0)
@ -175,6 +183,10 @@ Public Class Terminal
ElseIf Strings.AvailableFeature(6) = 3 Then ElseIf Strings.AvailableFeature(6) = 3 Then
If Strings.AvailableFeature(7) = 1 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" TextBox1.Text = TextBox1.Text & Environment.NewLine & "TIME Display the current time in the form of hours since midnight"
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
End If End If
End If End If
End If End If
@ -214,9 +226,11 @@ Public Class Terminal
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ^@@! : @Y .:::^~:. 7# Y@^ Window Manager Theme: -" 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@@: ! B@&BBBBGPPB@#Y. :&^ ^@? Terminal: shiftos-terminal"
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ?@@: 7 :??7~:. 5@@5 :&^ .&? Terminal Font: Consolas, 11pt" TextBox1.Text = TextBox1.Text & Environment.NewLine & " ?@@: 7 :??7~:. 5@@5 :&^ .&? Terminal Font: Consolas, 11pt"
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ~@@! !@ G#&B!. Y@@B 7#. Y~ CPU: N/A" 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)
TextBox1.Text = TextBox1.Text & Environment.NewLine & " B@G B@J ...~&G. 7@@@? .#? 7 GPU: N/A" TextBox1.Text = TextBox1.Text & Environment.NewLine & " B@G B@J ...~&G. 7@@@? .#? 7 GPU: N/A"
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ~&@? ^@Y !G#57~~!YB@#Y^ .GP .. Memory: " & (My.Computer.Info.TotalPhysicalMemory / 1024 / 1024 / 1024) & " GB" 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"
TextBox1.Text = TextBox1.Text & Environment.NewLine & " !@@7 ~#J 5#&&BG57^ ~BY Codepoint: " & Strings.ComputerInfo(2) 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 & " ~#@Y .5P~ ^5G~ "
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .J&#! ^JY!:. ^?P5! " TextBox1.Text = TextBox1.Text & Environment.NewLine & " .J&#! ^JY!:. ^?P5! "
@ -246,6 +260,14 @@ Public Class Terminal
ElseIf Strings.AvailableFeature(6) = "3" Then ElseIf Strings.AvailableFeature(6) = "3" Then
If Strings.AvailableFeature(7) = "1" 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" TextBox1.Text = TextBox1.Text & Environment.NewLine & Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " hours passed since midnight"
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
End If End If
End If End If
End If End If
@ -490,11 +512,12 @@ Public Class Terminal
Case 350 Case 350
TextBox1.Text = "ShiftOS Installed, The computer will restart in a few seconds" TextBox1.Text = "ShiftOS Installed, The computer will restart in a few seconds"
Case 400 Case 400
StoryOnlyTimer.Stop()
TextBox1.Text = Nothing TextBox1.Text = Nothing
TextBox1.ReadOnly = False TextBox1.ReadOnly = False
Strings.ComputerInfo(0) = "shiftos" Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(1) = "user"
Strings.ComputerInfo(2) = 0 CheckFeature()
PrintPrompt() PrintPrompt()
AssignPrompt() AssignPrompt()
TextBox1.Select(TextBox1.TextLength, 0) TextBox1.Select(TextBox1.TextLength, 0)
@ -514,6 +537,14 @@ Public Class Terminal
ElseIf Strings.AvailableFeature(6) = "3" Then ElseIf Strings.AvailableFeature(6) = "3" Then
If Strings.AvailableFeature(7) = "1" Then If Strings.AvailableFeature(7) = "1" Then
InfoBar.Text = InfoBar.Text & " " & Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " |" InfoBar.Text = InfoBar.Text & " " & Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " |"
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
End If End If
End If End If
End If End If