rework on introstory

This commit is contained in:
EverythingWindows 2022-11-08 13:02:02 +07:00
parent f96d01a788
commit 344a0ff99e
11 changed files with 179 additions and 37 deletions

View file

@ -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

View file

@ -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

View file

@ -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"

View file

@ -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

View file

@ -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

View file

@ -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)

View file

@ -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
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 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 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

View file

@ -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.
'''

View file

@ -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>

View file

@ -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.

View file

@ -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" />