rework on introstory

7 files changed, 150 insertions, 35 deletions

diff --git a/ShiftOS-TheRevival/MainForms/IntroStory.Designer.vb b/ShiftOS-TheRevival/MainForms/IntroStory.Designer.vb
index 73034d8..93ec027 100644
--- a/ShiftOS-TheRevival/MainForms/IntroStory.Designer.vb
+++ b/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
diff --git a/ShiftOS-TheRevival/MainForms/IntroStory.vb b/ShiftOS-TheRevival/MainForms/IntroStory.vb
index f7d30d9..36df1e5 100644
--- a/ShiftOS-TheRevival/MainForms/IntroStory.vb
+++ b/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
-            Case 22
+                TimerDisplay = 30
+            Case 30
                 If Opacity = 1 Then
                     Strings.ComputerInfo(3) = "0"
                     Strings.IsFree = False
diff --git a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb
index f8a9153..a88976e 100644
--- a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb
+++ b/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"
diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.Designer.vb b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.Designer.vb
index f861629..afb0dbc 100644
--- a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.Designer.vb
+++ b/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
diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb
index 12b7dfe..c4a6145 100644
--- a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb
+++ b/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
diff --git a/ShiftOS-TheRevival/MainForms/Strings.vb b/ShiftOS-TheRevival/MainForms/Strings.vb
index e94de02..fb30681 100644
--- a/ShiftOS-TheRevival/MainForms/Strings.vb
+++ b/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 AvailableFeature(18) As String
+    Public Shared OnceInfo(8) 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)
diff --git a/ShiftOS-TheRevival/MainForms/Terminal.vb b/ShiftOS-TheRevival/MainForms/Terminal.vb
index 77bce4d..45e3c3d 100644
--- a/ShiftOS-TheRevival/MainForms/Terminal.vb
+++ b/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
-                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: You have been selected for an unvolentary test on my experimental operating system, ShiftOS"
-                    Case 90
-                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: ShiftOS is an operating system that purposes itself to evolve itself as the time progresses"
-                    Case 140
-                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I will add features into the operating system as you use it"
-                    Case 170
-                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Currently ShiftOS didn't have that much function aside from a command line with little command"
-                    Case 190
-                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I'll install ShiftOS now on your system"
-                    Case 215
-                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I will come back and contact you later on when the time is necessary, see you!"
-                    Case 250
+                    Case 60
+                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Congratulaions! You have been involuntarily selected for a test on my experimental operating system, ShiftOS."
+                    Case 125
+                        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 160
+                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Currently ShiftOS isn't much from a basic command-line operating system."
+                    Case 210
+                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I don't wish to reveal my indentity at this point in time."
+                    Case 270
+                        TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I will install ShiftOS on your system once I leave while I work on... something else."
+                    Case 335
+                        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 400
                         TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null> Disconnected"
-                    Case 275
+                    Case 430
                         TextBox1.Text = "Installing ShiftOS..."
-                    Case 350
+                    Case 550
                         TextBox1.Text = "ShiftOS Installed, The computer will restart in a few seconds"
-                    Case 400
+                    Case 600
                         StoryOnlyTimer.Stop()
                         TextBox1.Text = Nothing
                         TextBox1.ReadOnly = False