diff --git a/ShiftOS-TheRevival/MainForms/Epilepsy.Designer.vb b/ShiftOS-TheRevival/MainForms/Epilepsy.Designer.vb new file mode 100644 index 0000000..12410a1 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Epilepsy.Designer.vb @@ -0,0 +1,91 @@ + _ +Partial Class Epilepsy + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Epilepsy)) + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.AutoClose = New System.Windows.Forms.Timer(Me.components) + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Times New Roman", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.Color.Red + Me.Label1.Location = New System.Drawing.Point(197, 94) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(411, 73) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "WARNING!!!" + ' + 'Label2 + ' + Me.Label2.Font = New System.Drawing.Font("Consolas", 11.0!) + Me.Label2.Location = New System.Drawing.Point(12, 213) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(776, 205) + Me.Label2.TabIndex = 1 + Me.Label2.Text = resources.GetString("Label2.Text") + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Font = New System.Drawing.Font("Consolas", 24.0!) + Me.Button1.ForeColor = System.Drawing.Color.Red + Me.Button1.Location = New System.Drawing.Point(244, 473) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(294, 51) + Me.Button1.TabIndex = 2 + Me.Button1.Text = "CLOSE NOW!" + Me.Button1.UseVisualStyleBackColor = True + ' + 'AutoClose + ' + ' + 'Epilepsy + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Black + Me.ClientSize = New System.Drawing.Size(800, 600) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.ForeColor = System.Drawing.Color.White + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Name = "Epilepsy" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Epilepsy" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label + Friend WithEvents Button1 As Button + Friend WithEvents AutoClose As Timer +End Class diff --git a/ShiftOS-TheRevival/MainForms/Epilepsy.resx b/ShiftOS-TheRevival/MainForms/Epilepsy.resx new file mode 100644 index 0000000..1ae0071 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Epilepsy.resx @@ -0,0 +1,128 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 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. + + + 17, 17 + + \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Epilepsy.vb b/ShiftOS-TheRevival/MainForms/Epilepsy.vb new file mode 100644 index 0000000..f1d86c1 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Epilepsy.vb @@ -0,0 +1,28 @@ +Public Class Epilepsy + Dim AutoClosed As Integer = 0 + + Private Sub Epilepsy_Load(sender As Object, e As EventArgs) Handles MyBase.Load + AutoClose.Start() + End Sub + + Private Sub AutoClose_Tick(sender As Object, e As EventArgs) Handles AutoClose.Tick + AutoClosed = AutoClosed + 1 + Select Case AutoClosed + Case 6, 18, 30, 42, 54, 66, 78, 90, 102, 114 + Label1.Visible = False + Case 12, 24, 36, 48, 60, 72, 84, 96, 108, 120 + Label1.Visible = True + Case 125 + Strings.IsFree = False + Strings.OnceInfo(6) = "story" + IntroStory.Show() + ShiftOSMenu.Close() + NewGameMode() + Close() + End Select + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Close() + End Sub +End Class \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb index 96909f1..02b5377 100644 --- a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb +++ b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb @@ -93,12 +93,7 @@ Public Class ShiftOSMenu 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() - NewGameMode() - Close() + Epilepsy.Show() End Select End Sub @@ -171,8 +166,9 @@ Public Class ShiftOSMenu btn_StoryMode.Enabled = False ShouldUpdate = True ShiftOSUpdater.Show() - ShiftOSUpdater.Label2.Text = "A new version, " & CurrentVersion & " is available." & Environment.NewLine & "Update now to get more features." - ShiftOSUpdater.Button2.Text = "Update" + '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 = "Update function is temporarily disabled." & Environment.NewLine & "Click the 'Reset' to reset the save" + ShiftOSUpdater.Button2.Text = "Reset" End If Else If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS") = True Then diff --git a/ShiftOS-TheRevival/My Project/Resources.Designer.vb b/ShiftOS-TheRevival/My Project/Resources.Designer.vb index 4565264..98c9ecb 100644 --- a/ShiftOS-TheRevival/My Project/Resources.Designer.vb +++ b/ShiftOS-TheRevival/My Project/Resources.Designer.vb @@ -61,7 +61,7 @@ Namespace My.Resources End Property ''' - ''' Looks up a localized string similar to 0.2.3. + ''' Looks up a localized string similar to 0.2.4. ''' Friend ReadOnly Property CurrentVersion() As String Get @@ -69,19 +69,6 @@ Namespace My.Resources End Get End Property - ''' - ''' 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 epileptic cond [rest of string was truncated]";. - ''' - Friend ReadOnly Property epilepsy() As String - Get - Return ResourceManager.GetString("epilepsy", resourceCulture) - End Get - End Property - ''' ''' Looks up a localized string similar to Fuck '''Shit diff --git a/ShiftOS-TheRevival/My Project/Resources.resx b/ShiftOS-TheRevival/My Project/Resources.resx index 7b9b712..9bbc6f2 100644 --- a/ShiftOS-TheRevival/My Project/Resources.resx +++ b/ShiftOS-TheRevival/My Project/Resources.resx @@ -121,9 +121,6 @@ ..\Resources\CurrentVersion.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252 - - ..\resources\epilepsy.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 - ..\resources\fortunes.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8 diff --git a/ShiftOS-TheRevival/Resources/epilepsy.txt b/ShiftOS-TheRevival/Resources/epilepsy.txt deleted file mode 100644 index 42a8a8e..0000000 --- a/ShiftOS-TheRevival/Resources/epilepsy.txt +++ /dev/null @@ -1,5 +0,0 @@ -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. \ No newline at end of file diff --git a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj index 61a4748..7dfac67 100644 --- a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj +++ b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj @@ -100,6 +100,12 @@ Form + + Epilepsy.vb + + + Form + IntroStory.vb @@ -154,6 +160,9 @@ BugSlap.vb + + Epilepsy.vb + IntroStory.vb @@ -203,7 +212,6 @@ -