Epilepsy Warning dedicated

This commit is contained in:
EverythingWindows 2022-11-13 09:00:34 +07:00
parent 850353a885
commit 6f1a5bfa56
8 changed files with 261 additions and 31 deletions

View file

@ -0,0 +1,91 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Epilepsy
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
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.
<System.Diagnostics.DebuggerStepThrough()> _
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

View file

@ -0,0 +1,128 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Label2.Text" xml:space="preserve">
<value>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.</value>
</data>
<metadata name="AutoClose.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

View file

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

View file

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

View file

@ -61,7 +61,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Looks up a localized string similar to 0.2.3.
''' Looks up a localized string similar to 0.2.4.
'''</summary>
Friend ReadOnly Property CurrentVersion() As String
Get
@ -69,19 +69,6 @@ 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 epileptic cond [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 Fuck
'''Shit

View file

@ -121,9 +121,6 @@
<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="Fortunes" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\fortunes.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>

View file

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

View file

@ -100,6 +100,12 @@
<SubType>Form</SubType>
</Compile>
<Compile Include="MainForms\DirectoryManagements.vb" />
<Compile Include="MainForms\Epilepsy.Designer.vb">
<DependentUpon>Epilepsy.vb</DependentUpon>
</Compile>
<Compile Include="MainForms\Epilepsy.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="MainForms\FileManagement.vb" />
<Compile Include="MainForms\IntroStory.Designer.vb">
<DependentUpon>IntroStory.vb</DependentUpon>
@ -154,6 +160,9 @@
<EmbeddedResource Include="MainForms\BugSlap.resx">
<DependentUpon>BugSlap.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\Epilepsy.resx">
<DependentUpon>Epilepsy.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\IntroStory.resx">
<DependentUpon>IntroStory.vb</DependentUpon>
</EmbeddedResource>
@ -203,7 +212,6 @@
<None Include="Resources\CurrentVersion.txt" />
<Content Include="MainForms\rev.txt" />
<Content Include="Resources\man Manuals\textpad.txt" />
<Content Include="Resources\epilepsy.txt" />
<Content Include="Resources\Fortunes.txt" />
<Content Include="Resources\hangman.txt" />
<Content Include="Resources\man Manuals\bc.txt" />