rework on introstory

ShiftOS-TheRevival/MainForms/IntroStory.Designer.vb

@@ -24,25 +24,39 @@ Partial Class IntroStory
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Me.OpacityPlay = New System.Windows.Forms.Timer(Me.components)
+        Me.Label1 = New System.Windows.Forms.Label()
         Me.SuspendLayout()
         '
         'OpacityPlay
         '
         '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Consolas", 32.0!)
+        Me.Label1.Location = New System.Drawing.Point(0, 0)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(790, 51)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Your computer has been hijacked!"
+        '
         'IntroStory
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
         Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.Controls.Add(Me.Label1)
         Me.Name = "IntroStory"
         Me.ShowIcon = False
         Me.ShowInTaskbar = False
         Me.Text = "IntroStory"
         Me.TopMost = True
         Me.ResumeLayout(False)
+        Me.PerformLayout()
 
     End Sub
 
     Friend WithEvents OpacityPlay As Timer
+    Friend WithEvents Label1 As Label
 End Class

ShiftOS-TheRevival/MainForms/IntroStory.vb

@@ -8,18 +8,26 @@
 
     Private Sub OpacityPlay_Tick(sender As Object, e As EventArgs) Handles OpacityPlay.Tick
         Select Case TimerDisplay
-            Case 1, 5, 9, 13, 17
+            Case 1, 9, 17, 25
+                BackColor = Color.White
+                Label1.ForeColor = Color.Black
                 Visible = True
                 TimerDisplay = TimerDisplay + 1
-            Case 3, 7, 11, 15, 19
+            Case 3, 7, 11, 15, 19, 23, 27
                 Visible = False
                 TimerDisplay = TimerDisplay + 1
-            Case 21
+            Case 5, 13, 21
                 BackColor = Color.Black
+                Label1.ForeColor = Color.White
+                Visible = True
+                TimerDisplay = TimerDisplay + 1
+            Case 29
+                BackColor = Color.Black
+                Label1.ForeColor = Color.Black
                 Visible = True
                 Opacity = 0.1
-                TimerDisplay = 22
+                TimerDisplay = 30
-            Case 22
+            Case 30
                 If Opacity = 1 Then
                     Strings.ComputerInfo(3) = "0"
                     Strings.IsFree = False

ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb

@@ -39,7 +39,7 @@ Module SaveLoadSystem
         Strings.ComputerInfo(0) = "shiftos"
         Strings.ComputerInfo(1) = "user"
         Strings.ComputerInfo(2) = "0"
-        Strings.ComputerInfo(4) = "19"
+        Strings.ComputerInfo(4) = "21"
         Strings.AvailableFeature(0) = "1"
         Strings.AvailableFeature(1) = "1"
         Strings.AvailableFeature(2) = "1"

ShiftOS-TheRevival/MainForms/ShiftOSMenu.Designer.vb

@@ -34,6 +34,8 @@ Partial Class ShiftOSMenu
         Me.Thumbnail = New System.Windows.Forms.PictureBox()
         Me.BannerChange = New System.Windows.Forms.Timer(Me.components)
         Me.Label3 = New System.Windows.Forms.Label()
+        Me.btn_Chapter5 = New System.Windows.Forms.Button()
+        Me.btn_Back = New System.Windows.Forms.Button()
         CType(Me.Thumbnail, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -64,11 +66,11 @@ Partial Class ShiftOSMenu
         Me.btn_Aboot.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btn_Aboot.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.btn_Aboot.ForeColor = System.Drawing.Color.White
-        Me.btn_Aboot.Location = New System.Drawing.Point(22, 184)
+        Me.btn_Aboot.Location = New System.Drawing.Point(22, 204)
         Me.btn_Aboot.Name = "btn_Aboot"
-        Me.btn_Aboot.Size = New System.Drawing.Size(224, 23)
+        Me.btn_Aboot.Size = New System.Drawing.Size(224, 40)
         Me.btn_Aboot.TabIndex = 3
-        Me.btn_Aboot.Text = "About"
+        Me.btn_Aboot.Text = "About" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         Me.btn_Aboot.UseVisualStyleBackColor = True
         '
         'lbl_BuildString
@@ -86,9 +88,9 @@ Partial Class ShiftOSMenu
         Me.btn_StoryMode.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btn_StoryMode.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.btn_StoryMode.ForeColor = System.Drawing.Color.White
-        Me.btn_StoryMode.Location = New System.Drawing.Point(22, 126)
+        Me.btn_StoryMode.Location = New System.Drawing.Point(22, 112)
         Me.btn_StoryMode.Name = "btn_StoryMode"
-        Me.btn_StoryMode.Size = New System.Drawing.Size(224, 23)
+        Me.btn_StoryMode.Size = New System.Drawing.Size(224, 40)
         Me.btn_StoryMode.TabIndex = 1
         Me.btn_StoryMode.Text = "Story Mode"
         Me.btn_StoryMode.UseVisualStyleBackColor = True
@@ -98,9 +100,9 @@ Partial Class ShiftOSMenu
         Me.btn_FreeRoam.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btn_FreeRoam.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.btn_FreeRoam.ForeColor = System.Drawing.Color.White
-        Me.btn_FreeRoam.Location = New System.Drawing.Point(22, 155)
+        Me.btn_FreeRoam.Location = New System.Drawing.Point(22, 158)
         Me.btn_FreeRoam.Name = "btn_FreeRoam"
-        Me.btn_FreeRoam.Size = New System.Drawing.Size(224, 23)
+        Me.btn_FreeRoam.Size = New System.Drawing.Size(224, 40)
         Me.btn_FreeRoam.TabIndex = 2
         Me.btn_FreeRoam.Text = "Free Roam Mode"
         Me.btn_FreeRoam.UseVisualStyleBackColor = True
@@ -110,9 +112,9 @@ Partial Class ShiftOSMenu
         Me.btn_Exit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btn_Exit.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.btn_Exit.ForeColor = System.Drawing.Color.White
-        Me.btn_Exit.Location = New System.Drawing.Point(22, 213)
+        Me.btn_Exit.Location = New System.Drawing.Point(22, 250)
         Me.btn_Exit.Name = "btn_Exit"
-        Me.btn_Exit.Size = New System.Drawing.Size(224, 23)
+        Me.btn_Exit.Size = New System.Drawing.Size(224, 40)
         Me.btn_Exit.TabIndex = 4
         Me.btn_Exit.Text = "Exit"
         Me.btn_Exit.UseVisualStyleBackColor = True
@@ -137,13 +139,39 @@ Partial Class ShiftOSMenu
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("Consolas", 12.0!)
         Me.Label3.ForeColor = System.Drawing.Color.White
-        Me.Label3.Location = New System.Drawing.Point(18, 94)
+        Me.Label3.Location = New System.Drawing.Point(18, 87)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(162, 19)
         Me.Label3.TabIndex = 1
         Me.Label3.Text = "Shift it your way"
         Me.Label3.Visible = False
         '
+        'btn_Chapter5
+        '
+        Me.btn_Chapter5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_Chapter5.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.btn_Chapter5.ForeColor = System.Drawing.Color.White
+        Me.btn_Chapter5.Location = New System.Drawing.Point(22, 296)
+        Me.btn_Chapter5.Name = "btn_Chapter5"
+        Me.btn_Chapter5.Size = New System.Drawing.Size(224, 40)
+        Me.btn_Chapter5.TabIndex = 4
+        Me.btn_Chapter5.Text = "Chapter 5" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Praeter sensum"
+        Me.btn_Chapter5.UseVisualStyleBackColor = True
+        Me.btn_Chapter5.Visible = False
+        '
+        'btn_Back
+        '
+        Me.btn_Back.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_Back.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.btn_Back.ForeColor = System.Drawing.Color.White
+        Me.btn_Back.Location = New System.Drawing.Point(22, 342)
+        Me.btn_Back.Name = "btn_Back"
+        Me.btn_Back.Size = New System.Drawing.Size(224, 40)
+        Me.btn_Back.TabIndex = 4
+        Me.btn_Back.Text = "Back"
+        Me.btn_Back.UseVisualStyleBackColor = True
+        Me.btn_Back.Visible = False
+        '
         'ShiftOSMenu
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -154,6 +182,8 @@ Partial Class ShiftOSMenu
         Me.Controls.Add(Me.lbl_BuildString)
         Me.Controls.Add(Me.btn_FreeRoam)
         Me.Controls.Add(Me.btn_StoryMode)
+        Me.Controls.Add(Me.btn_Back)
+        Me.Controls.Add(Me.btn_Chapter5)
         Me.Controls.Add(Me.btn_Exit)
         Me.Controls.Add(Me.btn_Aboot)
         Me.Controls.Add(Me.Label3)
@@ -183,4 +213,6 @@ Partial Class ShiftOSMenu
     Friend WithEvents Thumbnail As PictureBox
     Friend WithEvents BannerChange As Timer
     Friend WithEvents Label3 As Label
+    Friend WithEvents btn_Chapter5 As Button
+    Friend WithEvents btn_Back As Button
 End Class

ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb

@@ -32,7 +32,10 @@ Public Class ShiftOSMenu
     End Sub
 
     Private Sub btn_Exit_Click(sender As Object, e As EventArgs) Handles btn_Exit.Click
-        Close()
+        Select Case btn_Exit.Text
+            Case "Exit"
+                Close()
+        End Select
     End Sub
 
     Private Sub btn_FreeRoam_Click(sender As Object, e As EventArgs) Handles btn_FreeRoam.Click
@@ -81,6 +84,17 @@ Public Class ShiftOSMenu
                 btn_Aboot.Visible = False
                 btn_Exit.Visible = False
             Case "Yes"
+                Label3.Text = "Choose Chapter"
+                btn_StoryMode.Text = "Chapter 1" & Environment.NewLine & "Hijacked!"
+                btn_FreeRoam.Text = "Chapter 2" & Environment.NewLine & "Exploration"
+                btn_Aboot.Text = "Chapter 3" & Environment.NewLine & "Escaped"
+                btn_Exit.Text = "Chapter 4" & Environment.NewLine & "The known"
+                btn_Aboot.Visible = True
+                btn_Exit.Visible = True
+                btn_Chapter5.Visible = True
+                btn_Back.Visible = True
+            Case "Chapter 1" & Environment.NewLine & "Hijacked!"
+                MsgBox(My.Resources.epilepsy)
                 Strings.IsFree = False
                 Strings.OnceInfo(6) = "story"
                 IntroStory.Show()
@@ -99,6 +113,22 @@ Public Class ShiftOSMenu
         End Select
     End Sub
 
+    Private Sub btn_Chapter5_Click(sender As Object, e As EventArgs) Handles btn_Chapter5.Click
+
+    End Sub
+
+    Private Sub btn_Back_Click(sender As Object, e As EventArgs) Handles btn_Back.Click
+        Label3.Visible = False
+        btn_StoryMode.Text = "Story Mode"
+        btn_FreeRoam.Text = "Free Roam Mode"
+        btn_Aboot.Text = "About"
+        btn_Exit.Text = "Exit"
+        btn_Aboot.Visible = True
+        btn_Exit.Visible = True
+        btn_Chapter5.Visible = False
+        btn_Back.Visible = False
+    End Sub
+
     Private Sub CheckUpdate()
         Try
             If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SOS_NewVer.txt") = True Then

ShiftOS-TheRevival/MainForms/Strings.vb

@@ -2,10 +2,11 @@
     Public Shared OSInfo() As String
     Public Shared ComputerInfo(6) As String
     Public Shared IsFree As Boolean
-    Public Shared OnceInfo(6) As String
+    Public Shared OnceInfo(8) As String
-    Public Shared AvailableFeature(18) As String
+    Public Shared AvailableFeature(20) As String
     Public Shared CLIInterpreter As String
     Public Shared SaveFile As String
+    Public Shared Achievement As String
 
     'STRING CATEGORIZATION WRITING RULES!
     'THIS IS IN ORDER TO REMAIN COMPATIBLE WITH OLDER VERSIONS!
@@ -34,6 +35,8 @@
     '4 = RootDirectoryString (0.2.3) (default : !)
     '5 = Terminal TrackPos (0.2.3) (default : 0)
     '6 = GameMode (0.2.3) (dependant)
+    '7 = MaxWidth (0.2.4) (depentant)
+    '8 = MaxHeight (0.2.4) (depentant)
     '
     'ComputerInfo Strings:
     '0 = Computer Name (0.1) (default : shiftos)

ShiftOS-TheRevival/MainForms/Terminal.vb

@@ -27,6 +27,8 @@ Public Class Terminal
     Public Sub InitializeTerminal()
         Strings.OnceInfo(1) = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS"
         Strings.OnceInfo(4) = "!"
+        Strings.OnceInfo(7) = Width
+        Strings.OnceInfo(8) = Height
         If Strings.IsFree = True Then
             Strings.ComputerInfo(0) = "shiftos"
             Strings.ComputerInfo(1) = "user"
@@ -224,6 +226,9 @@ Public Class Terminal
                 End If
                 TextBox1.Text = TextBox1.Text & Environment.NewLine & "GUESS       Runs 'Guess the Number' application"
                 TextBox1.Text = TextBox1.Text & Environment.NewLine & "HELP        Shows all commands available and its corresponding action"
+                If Strings.AvailableFeature(20) = 1 Then
+                    TextBox1.Text = TextBox1.Text & Environment.NewLine & "HOSTNAME    Sets the name of current hostname/computer name with a new one"
+                End If
                 If Strings.AvailableFeature(4) = 1 Then
                     TextBox1.Text = TextBox1.Text & Environment.NewLine & "INFOBAR     Displays informations about current session such as current app, current user, current time, etc."
                 End If
@@ -267,6 +272,9 @@ Public Class Terminal
                         End If
                     End If
                 End If
+                If Strings.AvailableFeature(20) = 1 Then
+                    TextBox1.Text = TextBox1.Text & Environment.NewLine & "USERNAME    Sets the name of current user with a new one"
+                End If
                 TextBox1.Text = TextBox1.Text & Environment.NewLine & "VER         Printing current version of ShiftOS TheRevival"
                 TextBox1.Text = TextBox1.Text & Environment.NewLine
                 AdvancedCommand = False
@@ -406,6 +414,14 @@ Public Class Terminal
                     BadCommand = False
                 End If
             End If
+            If command Like "hostname *" Then
+                If Strings.AvailableFeature(20) = 1 Then
+                    Strings.ComputerInfo(0) = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
+                End If
+                AssignPrompt()
+                AdvancedCommand = False
+                BadCommand = False
+            End If
             If command Like "infobar *" Then
                 If Strings.AvailableFeature(4) = "1" Then
                     'Infobar panel-ish and some sort
@@ -603,6 +619,18 @@ Public Class Terminal
                     BadCommand = False
                 End If
             End If
+            If command Like "username *" Then
+                If Strings.AvailableFeature(19) = 1 Then
+                    If command.Substring(9) = "root" Then
+                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "This username is already taken!"
+                    Else
+                        Strings.ComputerInfo(1) = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
+                    End If
+                End If
+                AssignPrompt()
+                AdvancedCommand = False
+                BadCommand = False
+            End If
         End If
 
         If BadCommand = True Then
@@ -842,25 +870,25 @@ Public Class Terminal
                         TextBox1.Text = "Connected to <null>"
                     Case 25
                         TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Hey there, Unknown user!"
-                    Case 40
+                    Case 60
-                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: You have been selected for an unvolentary test on my experimental operating system, ShiftOS"
+                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Congratulaions! You have been involuntarily selected for a test on my experimental operating system, ShiftOS."
-                    Case 90
+                    Case 125
-                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: ShiftOS is an operating system that purposes itself to evolve itself as the time progresses"
+                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: ShiftOS is an operating system that will evolve itself as you use it as I progressively add more features into ShiftOS."
-                    Case 140
+                    Case 160
-                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I will add features into the operating system as you use it"
+                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Currently ShiftOS isn't much from a basic command-line operating system."
-                    Case 170
+                    Case 210
-                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Currently ShiftOS didn't have that much function aside from a command line with little command"
+                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I don't wish to reveal my indentity at this point in time."
-                    Case 190
+                    Case 270
-                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I'll install ShiftOS now on your system"
+                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I will install ShiftOS on your system once I leave while I work on... something else."
-                    Case 215
+                    Case 335
-                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I will come back and contact you later on when the time is necessary, see you!"
+                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Once you have ShiftOS rich feature enough, I will come back to you. In the mean time, goodbye!"
-                    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
+                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null> Disconnected"
+                    Case 430
+                        TextBox1.Text = "Installing ShiftOS..."
+                    Case 550
+                        TextBox1.Text = "ShiftOS Installed, The computer will restart in a few seconds"
+                    Case 600
                         StoryOnlyTimer.Stop()
                         TextBox1.Text = Nothing
                         TextBox1.ReadOnly = False

ShiftOS-TheRevival/My Project/Resources.Designer.vb

@@ -69,6 +69,24 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized string similar to WARNING: READ BEFORE PLAYING!
+        '''
+        '''A very small percentage of individuals may experience epileptic seizures when 
+        '''exposed to certain light patterns or flashing lights. Exposure to certain patterns or 
+        '''backgrounds on a computer screen, or while playing video games, may induce an 
+        '''epileptic seizure in these individuals. Certain conditions may induce previously 
+        '''undetected epileptic symptoms even in persons who have no history of prior 
+        '''seizures or epilepsy.
+        '''
+        '''If you, or anyone in your family, have an epil [rest of string was truncated]&quot;;.
+        '''</summary>
+        Friend ReadOnly Property epilepsy() As String
+            Get
+                Return ResourceManager.GetString("epilepsy", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized string similar to A basic command-line tool for simple calculation.
         '''

ShiftOS-TheRevival/My Project/Resources.resx

@@ -121,6 +121,9 @@
   <data name="CurrentVersion" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\CurrentVersion.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
   </data>
+  <data name="epilepsy" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\epilepsy.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
   <data name="man_bc" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\man manuals\bc.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
   </data>

ShiftOS-TheRevival/Resources/epilepsy.txt

@@ -0,0 +1,5 @@
+WARNING: READ BEFORE PLAYING!
+
+A very small percentage of individuals may experience epileptic seizures when exposed to certain light patterns or flashing lights. Exposure to certain patterns or backgrounds on a computer screen, or while playing video games, may induce an epileptic seizure in these individuals. Certain conditions may induce previously undetected epileptic symptoms even in persons who have no history of prior seizures or epilepsy.
+
+If you, or anyone in your family, have an epileptic condition, consult your physician prior to playing. If you experience any of the following symptoms while playing a video or computer game – dizziness, altered vision, eye or muscle twitches, loss of awareness, disorientation, any involuntary movement, or convulsions – IMMEDIATELY discontinue use and consult your physician before resuming play.

ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj

@@ -199,6 +199,7 @@
   </ItemGroup>
   <ItemGroup>
     <None Include="Resources\CurrentVersion.txt" />
+    <Content Include="Resources\epilepsy.txt" />
     <Content Include="Resources\man Manuals\bc.txt" />
     <Content Include="Resources\man Manuals\cd.txt" />
     <Content Include="Resources\man Manuals\clear.txt" />