RiskYourLife/Client
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Restructure repository to include all source folders

Browse Source 
Move git root from Client/ to src/ to track all source code:
- Client: Game client source (moved to Client/Client/)
- Server: Game server source
- GameTools: Development tools
- CryptoSource: Encryption utilities
- database: Database scripts
- Script: Game scripts
- rylCoder_16.02.2008_src: Legacy coder tools
- GMFont, Game: Additional resources

🤖 Generated with [Claude Code](https://claude.com/claude-code)

Co-Authored-By: Claude <noreply@anthropic.com>
This commit is contained in:
tindevil
2025-11-29 20:17:20 +09:00
parent 5d3cd64a25
commit dd97ddec92
11602 changed files with 1446576 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

176
rylCoder_16.02.2008_src/helperForms/frmAbout.Designer.vb generated Normal file
View File

@@ -0,0 +1,176 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAbout
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents TableLayoutPanel As System.Windows.Forms.TableLayoutPanel
Friend WithEvents LogoPictureBox As System.Windows.Forms.PictureBox
Friend WithEvents LabelProductName As System.Windows.Forms.Label
Friend WithEvents LabelVersion As System.Windows.Forms.Label
Friend WithEvents LabelCompanyName As System.Windows.Forms.Label
Friend WithEvents TextBoxDescription As System.Windows.Forms.TextBox
Friend WithEvents OKButton As System.Windows.Forms.Button
Friend WithEvents LabelCopyright As System.Windows.Forms.Label
'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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAbout))
Me.TableLayoutPanel = New System.Windows.Forms.TableLayoutPanel
Me.LogoPictureBox = New System.Windows.Forms.PictureBox
Me.LabelProductName = New System.Windows.Forms.Label
Me.LabelVersion = New System.Windows.Forms.Label
Me.LabelCopyright = New System.Windows.Forms.Label
Me.LabelCompanyName = New System.Windows.Forms.Label
Me.TextBoxDescription = New System.Windows.Forms.TextBox
Me.OKButton = New System.Windows.Forms.Button
Me.TableLayoutPanel.SuspendLayout()
CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TableLayoutPanel
'
Me.TableLayoutPanel.ColumnCount = 2
Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.0!))
Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 67.0!))
Me.TableLayoutPanel.Controls.Add(Me.LogoPictureBox, 0, 0)
Me.TableLayoutPanel.Controls.Add(Me.LabelProductName, 1, 0)
Me.TableLayoutPanel.Controls.Add(Me.LabelVersion, 1, 1)
Me.TableLayoutPanel.Controls.Add(Me.LabelCopyright, 1, 2)
Me.TableLayoutPanel.Controls.Add(Me.LabelCompanyName, 1, 3)
Me.TableLayoutPanel.Controls.Add(Me.TextBoxDescription, 1, 4)
Me.TableLayoutPanel.Controls.Add(Me.OKButton, 1, 5)
Me.TableLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill
Me.TableLayoutPanel.Location = New System.Drawing.Point(9, 9)
Me.TableLayoutPanel.Name = "TableLayoutPanel"
Me.TableLayoutPanel.RowCount = 6
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
Me.TableLayoutPanel.Size = New System.Drawing.Size(396, 258)
Me.TableLayoutPanel.TabIndex = 0
'
'LogoPictureBox
'
Me.LogoPictureBox.Dock = System.Windows.Forms.DockStyle.Fill
Me.LogoPictureBox.Image = Global.rylCoder.My.Resources.Resources.about
Me.LogoPictureBox.Location = New System.Drawing.Point(3, 3)
Me.LogoPictureBox.Name = "LogoPictureBox"
Me.TableLayoutPanel.SetRowSpan(Me.LogoPictureBox, 6)
Me.LogoPictureBox.Size = New System.Drawing.Size(124, 252)
Me.LogoPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.LogoPictureBox.TabIndex = 0
Me.LogoPictureBox.TabStop = False
'
'LabelProductName
'
Me.LabelProductName.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelProductName.Location = New System.Drawing.Point(136, 0)
Me.LabelProductName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
Me.LabelProductName.MaximumSize = New System.Drawing.Size(0, 17)
Me.LabelProductName.Name = "LabelProductName"
Me.LabelProductName.Size = New System.Drawing.Size(257, 17)
Me.LabelProductName.TabIndex = 0
Me.LabelProductName.Text = "Product Name"
Me.LabelProductName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelVersion
'
Me.LabelVersion.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelVersion.Location = New System.Drawing.Point(136, 25)
Me.LabelVersion.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
Me.LabelVersion.MaximumSize = New System.Drawing.Size(0, 17)
Me.LabelVersion.Name = "LabelVersion"
Me.LabelVersion.Size = New System.Drawing.Size(257, 17)
Me.LabelVersion.TabIndex = 0
Me.LabelVersion.Text = "Version"
Me.LabelVersion.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelCopyright
'
Me.LabelCopyright.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelCopyright.Location = New System.Drawing.Point(136, 50)
Me.LabelCopyright.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
Me.LabelCopyright.MaximumSize = New System.Drawing.Size(0, 17)
Me.LabelCopyright.Name = "LabelCopyright"
Me.LabelCopyright.Size = New System.Drawing.Size(257, 17)
Me.LabelCopyright.TabIndex = 0
Me.LabelCopyright.Text = "Copyright"
Me.LabelCopyright.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelCompanyName
'
Me.LabelCompanyName.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelCompanyName.Location = New System.Drawing.Point(136, 75)
Me.LabelCompanyName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
Me.LabelCompanyName.MaximumSize = New System.Drawing.Size(0, 17)
Me.LabelCompanyName.Name = "LabelCompanyName"
Me.LabelCompanyName.Size = New System.Drawing.Size(257, 17)
Me.LabelCompanyName.TabIndex = 0
Me.LabelCompanyName.Text = "Company Name"
Me.LabelCompanyName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'TextBoxDescription
'
Me.TextBoxDescription.Dock = System.Windows.Forms.DockStyle.Fill
Me.TextBoxDescription.Location = New System.Drawing.Point(136, 103)
Me.TextBoxDescription.Margin = New System.Windows.Forms.Padding(6, 3, 3, 3)
Me.TextBoxDescription.Multiline = True
Me.TextBoxDescription.Name = "TextBoxDescription"
Me.TextBoxDescription.ReadOnly = True
Me.TextBoxDescription.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.TextBoxDescription.Size = New System.Drawing.Size(257, 123)
Me.TextBoxDescription.TabIndex = 0
Me.TextBoxDescription.TabStop = False
Me.TextBoxDescription.Text = resources.GetString("TextBoxDescription.Text")
'
'OKButton
'
Me.OKButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.OKButton.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.OKButton.Location = New System.Drawing.Point(318, 232)
Me.OKButton.Name = "OKButton"
Me.OKButton.Size = New System.Drawing.Size(75, 23)
Me.OKButton.TabIndex = 0
Me.OKButton.Text = "&OK"
'
'frmAbout
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.OKButton
Me.ClientSize = New System.Drawing.Size(414, 276)
Me.Controls.Add(Me.TableLayoutPanel)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmAbout"
Me.Padding = New System.Windows.Forms.Padding(9)
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "About"
Me.TableLayoutPanel.ResumeLayout(False)
Me.TableLayoutPanel.PerformLayout()
CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
End Class

254
rylCoder_16.02.2008_src/helperForms/frmAbout.resx Normal file
View File

@@ -0,0 +1,254 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="TextBoxDescription.Text" xml:space="preserve">
<value>Description:
(At runtime, the labels' text will be replaced with the application's assembly information.
Customize the application's assembly information in the Application pane of Project Designer.)</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAMDAAAAEAGACoHAAAFgAAACgAAAAwAAAAYAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAtVAE6ZQA9aQA+agA1WgAU
IQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAWLgg6cgZEgwBLiQBNigBJfwA/bAAmQQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHEBYHEBYAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAeQBQ+ghRHlAdOnQBVpABXpQBUmQBIfwAwUwAAAAAAAAAAAAAA
AAAAAAAVN0gpY4Qta5Ata5AiU3AMGyQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAqSClEjzJKnilOqBtRrQ5V
rQJXrABVogBLigA1XwAKEAAAAAAAAAAIGB8jZIExha02kb44k8E1irYueZ8rZ4cRIywAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAmRSlSmlJTp0dTrkJVszdUsylTshdUrwdVpwBLkQA5ZgAPHggAAAAQN0Uofp8wmsU1qNQ4s+I7
uOg6suI2oM0shKooaIQNHiYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABUm11YrFxctVpduVRauEtWtkBUtDFTsiBSrQ5LmAE3
awAOJRUOOkkmkLUqq9Ewt+M0wO02w/I2w/M3wvE2vOovp9AnhqoiYnwDCAoAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABPkF1esWphuWpj
vWliv2FfvVpbu1BYuEZVtjlSsSlJoQ88fQoiZUkak7Yhs9olwucpyPEryfItyPIuyPMuyPMvx/Iuv+kp
pssfgqEVTF8BAwMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAArTDZjsnZovntowXtow3plw3NjwWthvl9du1VauEtStz9RrChnjEQ7nrQJwegSyeoY
zfEazfMbzfIdzfIgzPIhzPMky/IlyvAkvuIfnr4beJEMLjcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABdpXZsw41uyI5rxYBqwnNnwnBmwnNlwnJi
v2ZevVpXvk95nVCme39FrM8A1vgC0fIE0fMG0fMH0PMI0PML0fMM0PMP0PMR0PMUy+8Ut9cTlbAPW2sB
BgYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxTztn
vo1vxYBpu1lksTZiqyFiqyFisTZkulllwnRfx2ttq16uc2myeow5utQA2PwB0vMB0vMA0/MA1PMA1PMA
0/MA0/MB0vMC0vMC0fIEx+cFqMQDe5AAJSsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAABgjWZit1xiqR9foAhenwBfnwBfnwBgnwBgpA9huUVnvnKUf2vEZHGj
g40twd0A2vwA1PMA1fMA1fMA1fMB1fMA1vMA1/MA2PQA1fQB0vMBzu4BuNUAk6wFTloAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWS0BsmEdUmwpdnQBfnwBgoQBg
ogBgogBgoQBeoABdqAp/jE+uZHPDb3eOiZIZyOME2PsRzPIXxvEcwPEeuvAft+8btu8WuO8NxfED0/QA
2fQB1PICxOMBor0ccoMJGh4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAB0YFWulnN0lR5UmABeoQBgogBgogBgogBgogBgogBcpwBplAmbXkq3aHu9d3iAjJ0sv+w2vvdFse9H
p+1Hnu1EletAkOk+iek5hOkxiOojmesNvvAA1/UBz+sBrssaip8ONT0AAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB0ZFG+n4m/qHZ2mRRemwBgoQBgogBgogBgogBgogBfpABcpQCA
eCurWmm4d3+1dXV+iqpOsvZXrvJTqO9Mou1JnO1ElexAj+o+iOk6guk6eOc4cOUteuYWqO0B1e8BvNYF
kKkDOkQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB7aFS4m33ZsZjKsHV/nBJm
mgBloABgogBgogBgogBgogBdpwBokwyZXUyzZnm4enytcHJxkr1NtPtUr/BOq+9IpO1Gnu1Cl+w+kuo8
i+k4hek2fug1deY0Z+Mwa+UUqeoBxNsAl64APkkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAB9a1e4mnvOrIjjt5rUsniKmhZtlgBrnQBloABgogBgogBfowBdpQB8eCWpVWS1dn64dXWgbnhg
oNdLtvpTr+9Oq+9IpO1Gnu1Cl+w+kuo8i+k4hek2fug0d+cxcOUxY+QpbeIJrNgAobMBRE8AAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB6aFa7nn/PqobZsYnouJTdsX+ZmSF2kwBymgBsnQBknwBh
oQBdpgBjnAWOZD6wX3O2fX+0bm6LepBRr/BPsvVTr/BOq+9IpO1Gnu1Cl+w+kuo8i+k4hek2fug0d+cx
ceUwaOQvWeAYgtQBobMAPkYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYSz65mnzOqoTZr4bd
sobjs4nir4asmzOCkQB6lQBzmgBqnQBloABcpwBujRKfWVWzbn24e3yqbG9wkLpLtftSsPFSr/BOq+9I
pO1Gnu1Cl+w+kuo8i+k4hek2fug0d+cxcOUwa+UtXN8jXMwIhagBLjYAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAABOQjW2mHvOpoDZroPesIPer4DbrHzgrIXEnlGTkAeDkQB8lgBymgBrnwBioQB/eCesW2y2
eX+3c3OWdINXqOVNtPlSr/BSr/BOq+9IpO1Gnu1Cl+w+kuo8i+k4hek2fug0d+cxcOUva+UrYN0mSsQR
UIsDFSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACujnHNp3/WrIDbroDcrX3aqnnXp3TZpXXXoGit
kiGNjQCGkgB8lQBxnQBulwaTZ0KzZnq3fH6wamp9hqdMs/lPsvRSr/BSr/BOq+9IpO1Gnu1Cl+w+kuo8
i+k4hek2fug0d+cxcOUvauUrYNwlTMEYOY0IESQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACegGPIn3nS
p3vZq3zZqXrXp3bWo3DVoGnUnmPWm2XMlkyljQ+OjQCFkgB5mQB8iRKiYVy1c364dnagbXVfodhLtfxS
r/BSr/BSr/BOq+9IpO1Gnu1Cl+w+kuo8i+k4hek2fug0d+cxcOUvauUrYN0kTsUdOpsUH0cAAAAAAAAA
AAAAAAAAAAAAAAAAAAB9Zk7Dm3XPo3fVpnnXpnbXpHHVomrVnmTSm2DRmFrQllbSk1bGjj2nixKPjwCC
lQCLfSCsY3C4e4Czb3CAhaNMs/dPs/ZSr+9Sr/BSr/BOq+9IpO1Gnu1Cl+w+kuo8i+k4hek2fug0d+cx
ceUvauUsXeAmTs4gQKkgNm0DBAcAAAAAAAAAAAAAAAAAAAAQDQm7lG7OonbSo3PVpHLWomzVn2XUnGDR
mVzQllfOk1HMkEzKjUjKikfGhzuxiR6YjQaadDSxbn27eHefc35co9tKtvxSr/BSr/BSr/BSr/BOq+9I
pO1Gnu1Cl+w+kuo8i+k4huk2f+g1eecxb+YtX+MqVuAoU9UgRbYiPoYMER0AAAAAAAAAAAAAAAAAAACq
hF/JnG7QoG/VoWvWoGfUnGDTmlzRllfPk1LNkE3LjknJi0PHiD7FhTjFgTTHgSvBfxuwclK3eIW3cXF+
iatMs/hPs/VTsO9TsPBTsPBTsPBPrO9Jpe1Hn+1Dmew/lOs9jek4h+k2fecxbuUsXeMqVeAqV+ApVdsi
SMIlQpgiL0sAAAAAAAAAAAAAAABoUDrDl2rPnGrSnWbTm2LSml3RlljPlFPNkE3KjknIi0XGiUDFhTnE
gjLCgCrDgCHFhB7HiSu/iHjAhYyjhZNdqeVIs/tQqu5Qre9Rru9SrvBTr/BPrO9Jpu1Gn+1Blew8j+o5
g+gzdOUtYuIqV+EqVeAqVuAqV+AqVt4jTMsjQ6UiNWgAAAAAAAAAAAAAAACyhlvKmmPQmmDRmlzQmFjO
lFTNkk/Lj0rJjEbGikDFhzvEhDTDgSvBfyHCfxfDghTHiyHKmlvLnZ7Fm6CRsNJfvf1QqvBFnuxEm+xE
mexDluxDlOxAj+o7h+k3fugzceYvZOMrW+EpVN8pU+AqVuAqV+AqV+AqV+AqVt4mUNEgRK4VLXQAAAAA
AAAAAADOm2PHk1/NllvPlVjPlVXOk0/LkEvJjEbHikLFhzzEhDbDgS7CgCPCfxfCgBPEhBPEhRrHjSq7
kGzMoKjFqbCRw+tww/xcru5Hnus/les9jes5g+o0e+cxc+UuaeQqYOIpV+EpUd8oU98qVuAqV+AqV+Aq
V+AqV+AqV+AqV+AoU9UiR7YXMIAAAAAAAAAAAADOl1zNlljMklTNkVDLj0zKjUbHi0LFhjzEgzfEgi/B
gCXBfhjCgBLEghLFhhjEhhzDhiIAAAAAAADJl6AAAACNx+93xPlptPBNouxCl+s/kOs7h+o2gOgzeOYw
b+UtZuQrXeIqWOAqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+AoVNgjSLsaNYkAAAAAAADLj03Nk1bMklDM
jkvLjEjIikLHiD3EhDfDgS/CfybBfhvCgBPDghLFhxnHiyTIjSvBhSIAAAAAAAAAAAAAAAAAAACDw+97
w/dyufJZqO1Fmes/kOs7h+o2gOgzeOYwb+UtZ+QrXeIqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+Ap
VNkjSr4aNo0AAAAAAADOklDMkU7KjkjIi0XHiD/FhTjEgjHCfyjCfh3CgBXDghLGiBrHiyDIjCPHjje3
gjMAAAAAAAAAAAAAAAAAAAAAAAAAAAB/w/V6vvNpse9PnuxBkes7h+o2gOgzeOYwb+UtZ+QrXeIqV+Aq
V+AqV+AqV+AqV+AqV+AqV+AqV+AqV+ApVNkkSr8aN44AAAAAAADNk1DKkErHiT/FhjvEgzTDgCzCfyHC
gRnEhBfHih7IjSTJjinHjSfHiyMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACDwfN3t/BgqO5K
luw9iOo2gOgzeOYwb+UtZ+QrXeIqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+ApVNkjSr4bOJAAAAAA
AADNlVXLkU3GhzrEhDHFgynFhSHFhx3HiyHJjyjKkS3IjyzJjyrHiiAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAACGwfODvvJxsu9coO5Ejes3gOgzeOYwb+UtZ+QrXeIqV+AqV+AqV+AqV+AqV+Aq
V+AqV+AqV+AqV+ApVNkkSr8cOpUAAAAAAADRoGHRnlzMlEfLjzXLkC3KkS7LkzHLki/KkS/KkCzIjCQA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACIwfOAufFwrO9Xme0/huk1eeYw
b+UtZ+QrXeIqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+ApVdokSr8dPJsAAAAAAADVp2vVpmHSn03P
mj7NmDnOmEDMmEHKkC0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACBuvJ5sfFup/BWlOw+f+cycOUtZ+QrXeIqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+Ap
VdokS8IeP6IAAAAAAADSoV/To1XQnUTOmTvMlTTLlDoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4sPB5rvFuo+5XkOo/eecwaeQrXeIqV+Aq
V+AqV+AqV+AqV+AqV+AqV+AqV+AqV+ApVNkkSsAeQKQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAB5rfB5qu9voO1cjepCducyYuMrWOAqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+AoU9UkSr8ePZ8AAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB1p+93pe9xnexhjetLdOY3YuItWuAqV+AqV+AqV+Aq
V+AqV+AqV+AqVt4nUdEjSr4YMX0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB0
n+1ymexoi+pWeuZDa+Q0X+EtWeAqV+AqV+AqV+ArWOAqVt4lTs4fRsAJEzUAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABvl+xzlOxujepkhOhTd+ZBaeM2YOIwXOEvW+ExXeEqV+Aw
W9VBas0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABnjOpxkOtx
j+ptjOpkhOhafedQdeZLceVFbOQ1YeI4Zd1XhOMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAABpiOlujOpujepsi+pnh+lfgehRduZAaeMAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///////8AAP///////wAA////////AAD///////8AAP///A///wAA///wD+f/
AAD//+APgf8AAP//wAYA/wAA//+ABAB/AAD//4AAAD8AAP//AAAAHwAA//4AAAAfAAD//gAAAA8AAP/8
AAAADwAA//wAAAAPAAD/+AAAAAcAAP/wAAAABwAA/+AAAAAHAAD/wAAAAAcAAP+AAAAABwAA/wAAAAAH
AAD+AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD4AAAAAAcAAPAAAAAAAwAA4AAAAAADAADgAAAAAAMAAMAA
AAAAAwAAwAAAAAADAACAAAAAAAMAAIAANAAAAwAAAAB8AAADAAAAAP4AAAMAAAAD/wAAAwAAAAf/AAAD
AAAAH/+AAAMAAAD//8AAAwAAA///4AADAAD////wAAMAAP////gAAwAA/////gADAAD/////AAcAAP//
//+ABwAA/////+AfAAD///////8AAP///////wAA////////AAA=
</value>
</data>
</root>

38
rylCoder_16.02.2008_src/helperForms/frmAbout.vb Normal file
View File

@@ -0,0 +1,38 @@
'################################################
'## ##
'## RYL mcf & gsf file editor ##
'## ##
'## (C) 2006 & 2007 AlphA ##
'## ##
'## This source is for private development. ##
'## You can have this source only with the ##
'## owners permission. ##
'## ##
'################################################
Public NotInheritable Class frmAbout
Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Set the title of the form.
Dim ApplicationTitle As String
If My.Application.Info.Title <> "" Then
ApplicationTitle = My.Application.Info.Title
Else
ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
End If
Me.Text = String.Format("About {0}", ApplicationTitle)
' Initialize all of the text displayed on the About Box.
' TODO: Customize the application's assembly information in the "Application" pane of the project
' properties dialog (under the "Project" menu).
Me.LabelProductName.Text = My.Application.Info.ProductName
Me.LabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
Me.LabelCopyright.Text = My.Application.Info.Copyright
Me.LabelCompanyName.Text = My.Application.Info.CompanyName
Me.TextBoxDescription.Text = My.Application.Info.Description
End Sub
Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
Me.Close()
End Sub
End Class

176
rylCoder_16.02.2008_src/helperForms/frmOptions.Designer.vb generated Normal file
View File

@@ -0,0 +1,176 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmOptions
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmOptions))
Me.txtRylFolder = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.btnSetRylFolder = New System.Windows.Forms.Button
Me.btnSetFileTypes = New System.Windows.Forms.Button
Me.chkFileTypeMcf = New System.Windows.Forms.CheckBox
Me.chkFileTypeGsf = New System.Windows.Forms.CheckBox
Me.chkFileTypeSkey = New System.Windows.Forms.CheckBox
Me.chkFileTypeGcmds = New System.Windows.Forms.CheckBox
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.btnBrowse = New System.Windows.Forms.Button
Me.dlgBrowse = New System.Windows.Forms.FolderBrowserDialog
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'txtRylFolder
'
Me.txtRylFolder.Location = New System.Drawing.Point(70, 12)
Me.txtRylFolder.Name = "txtRylFolder"
Me.txtRylFolder.Size = New System.Drawing.Size(278, 20)
Me.txtRylFolder.TabIndex = 0
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(7, 15)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(57, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Ryl Folder:"
'
'btnSetRylFolder
'
Me.btnSetRylFolder.Location = New System.Drawing.Point(423, 12)
Me.btnSetRylFolder.Name = "btnSetRylFolder"
Me.btnSetRylFolder.Size = New System.Drawing.Size(58, 20)
Me.btnSetRylFolder.TabIndex = 2
Me.btnSetRylFolder.Text = "Set"
Me.btnSetRylFolder.UseVisualStyleBackColor = True
'
'btnSetFileTypes
'
Me.btnSetFileTypes.Location = New System.Drawing.Point(115, 84)
Me.btnSetFileTypes.Name = "btnSetFileTypes"
Me.btnSetFileTypes.Size = New System.Drawing.Size(75, 23)
Me.btnSetFileTypes.TabIndex = 3
Me.btnSetFileTypes.Text = "Set file types"
Me.btnSetFileTypes.UseVisualStyleBackColor = True
'
'chkFileTypeMcf
'
Me.chkFileTypeMcf.AutoSize = True
Me.chkFileTypeMcf.Checked = True
Me.chkFileTypeMcf.CheckState = System.Windows.Forms.CheckState.Checked
Me.chkFileTypeMcf.Location = New System.Drawing.Point(6, 19)
Me.chkFileTypeMcf.Name = "chkFileTypeMcf"
Me.chkFileTypeMcf.Size = New System.Drawing.Size(50, 17)
Me.chkFileTypeMcf.TabIndex = 4
Me.chkFileTypeMcf.Text = "*.mcf"
Me.chkFileTypeMcf.UseVisualStyleBackColor = True
'
'chkFileTypeGsf
'
Me.chkFileTypeGsf.AutoSize = True
Me.chkFileTypeGsf.Checked = True
Me.chkFileTypeGsf.CheckState = System.Windows.Forms.CheckState.Checked
Me.chkFileTypeGsf.Location = New System.Drawing.Point(6, 42)
Me.chkFileTypeGsf.Name = "chkFileTypeGsf"
Me.chkFileTypeGsf.Size = New System.Drawing.Size(47, 17)
Me.chkFileTypeGsf.TabIndex = 5
Me.chkFileTypeGsf.Text = "*.gsf"
Me.chkFileTypeGsf.UseVisualStyleBackColor = True
'
'chkFileTypeSkey
'
Me.chkFileTypeSkey.AutoSize = True
Me.chkFileTypeSkey.Checked = True
Me.chkFileTypeSkey.CheckState = System.Windows.Forms.CheckState.Checked
Me.chkFileTypeSkey.Location = New System.Drawing.Point(6, 65)
Me.chkFileTypeSkey.Name = "chkFileTypeSkey"
Me.chkFileTypeSkey.Size = New System.Drawing.Size(55, 17)
Me.chkFileTypeSkey.TabIndex = 6
Me.chkFileTypeSkey.Text = "*.skey"
Me.chkFileTypeSkey.UseVisualStyleBackColor = True
'
'chkFileTypeGcmds
'
Me.chkFileTypeGcmds.AutoSize = True
Me.chkFileTypeGcmds.Checked = True
Me.chkFileTypeGcmds.CheckState = System.Windows.Forms.CheckState.Checked
Me.chkFileTypeGcmds.Location = New System.Drawing.Point(6, 88)
Me.chkFileTypeGcmds.Name = "chkFileTypeGcmds"
Me.chkFileTypeGcmds.Size = New System.Drawing.Size(64, 17)
Me.chkFileTypeGcmds.TabIndex = 7
Me.chkFileTypeGcmds.Text = "*.gcmds"
Me.chkFileTypeGcmds.UseVisualStyleBackColor = True
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.chkFileTypeMcf)
Me.GroupBox1.Controls.Add(Me.btnSetFileTypes)
Me.GroupBox1.Controls.Add(Me.chkFileTypeGcmds)
Me.GroupBox1.Controls.Add(Me.chkFileTypeGsf)
Me.GroupBox1.Controls.Add(Me.chkFileTypeSkey)
Me.GroupBox1.Location = New System.Drawing.Point(12, 47)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(196, 119)
Me.GroupBox1.TabIndex = 8
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "FileTypes"
'
'btnBrowse
'
Me.btnBrowse.Location = New System.Drawing.Point(354, 12)
Me.btnBrowse.Name = "btnBrowse"
Me.btnBrowse.Size = New System.Drawing.Size(58, 20)
Me.btnBrowse.TabIndex = 9
Me.btnBrowse.Text = "Browse"
Me.btnBrowse.UseVisualStyleBackColor = True
'
'dlgBrowse
'
Me.dlgBrowse.Description = "Folder of your RYL installation"
'
'frmOptions
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(493, 181)
Me.Controls.Add(Me.btnBrowse)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.btnSetRylFolder)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtRylFolder)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmOptions"
Me.Text = "Options"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtRylFolder As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btnSetRylFolder As System.Windows.Forms.Button
Friend WithEvents btnSetFileTypes As System.Windows.Forms.Button
Friend WithEvents chkFileTypeMcf As System.Windows.Forms.CheckBox
Friend WithEvents chkFileTypeGsf As System.Windows.Forms.CheckBox
Friend WithEvents chkFileTypeSkey As System.Windows.Forms.CheckBox
Friend WithEvents chkFileTypeGcmds As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents btnBrowse As System.Windows.Forms.Button
Friend WithEvents dlgBrowse As System.Windows.Forms.FolderBrowserDialog
End Class

251
rylCoder_16.02.2008_src/helperForms/frmOptions.resx Normal file
View File

@@ -0,0 +1,251 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="dlgBrowse.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAMDAAAAEAGACoHAAAFgAAACgAAAAwAAAAYAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAtVAE6ZQA9aQA+agA1WgAU
IQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAWLgg6cgZEgwBLiQBNigBJfwA/bAAmQQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHEBYHEBYAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAeQBQ+ghRHlAdOnQBVpABXpQBUmQBIfwAwUwAAAAAAAAAAAAAA
AAAAAAAVN0gpY4Qta5Ata5AiU3AMGyQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAqSClEjzJKnilOqBtRrQ5V
rQJXrABVogBLigA1XwAKEAAAAAAAAAAIGB8jZIExha02kb44k8E1irYueZ8rZ4cRIywAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAmRSlSmlJTp0dTrkJVszdUsylTshdUrwdVpwBLkQA5ZgAPHggAAAAQN0Uofp8wmsU1qNQ4s+I7
uOg6suI2oM0shKooaIQNHiYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABUm11YrFxctVpduVRauEtWtkBUtDFTsiBSrQ5LmAE3
awAOJRUOOkkmkLUqq9Ewt+M0wO02w/I2w/M3wvE2vOovp9AnhqoiYnwDCAoAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABPkF1esWphuWpj
vWliv2FfvVpbu1BYuEZVtjlSsSlJoQ88fQoiZUkak7Yhs9olwucpyPEryfItyPIuyPMuyPMvx/Iuv+kp
pssfgqEVTF8BAwMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAArTDZjsnZovntowXtow3plw3NjwWthvl9du1VauEtStz9RrChnjEQ7nrQJwegSyeoY
zfEazfMbzfIdzfIgzPIhzPMky/IlyvAkvuIfnr4beJEMLjcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABdpXZsw41uyI5rxYBqwnNnwnBmwnNlwnJi
v2ZevVpXvk95nVCme39FrM8A1vgC0fIE0fMG0fMH0PMI0PML0fMM0PMP0PMR0PMUy+8Ut9cTlbAPW2sB
BgYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxTztn
vo1vxYBpu1lksTZiqyFiqyFisTZkulllwnRfx2ttq16uc2myeow5utQA2PwB0vMB0vMA0/MA1PMA1PMA
0/MA0/MB0vMC0vMC0fIEx+cFqMQDe5AAJSsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAABgjWZit1xiqR9foAhenwBfnwBfnwBgnwBgpA9huUVnvnKUf2vEZHGj
g40twd0A2vwA1PMA1fMA1fMA1fMB1fMA1vMA1/MA2PQA1fQB0vMBzu4BuNUAk6wFTloAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWS0BsmEdUmwpdnQBfnwBgoQBg
ogBgogBgoQBeoABdqAp/jE+uZHPDb3eOiZIZyOME2PsRzPIXxvEcwPEeuvAft+8btu8WuO8NxfED0/QA
2fQB1PICxOMBor0ccoMJGh4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAB0YFWulnN0lR5UmABeoQBgogBgogBgogBgogBgogBcpwBplAmbXkq3aHu9d3iAjJ0sv+w2vvdFse9H
p+1Hnu1EletAkOk+iek5hOkxiOojmesNvvAA1/UBz+sBrssaip8ONT0AAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB0ZFG+n4m/qHZ2mRRemwBgoQBgogBgogBgogBgogBfpABcpQCA
eCurWmm4d3+1dXV+iqpOsvZXrvJTqO9Mou1JnO1ElexAj+o+iOk6guk6eOc4cOUteuYWqO0B1e8BvNYF
kKkDOkQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB7aFS4m33ZsZjKsHV/nBJm
mgBloABgogBgogBgogBgogBdpwBokwyZXUyzZnm4enytcHJxkr1NtPtUr/BOq+9IpO1Gnu1Cl+w+kuo8
i+k4hek2fug1deY0Z+Mwa+UUqeoBxNsAl64APkkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAB9a1e4mnvOrIjjt5rUsniKmhZtlgBrnQBloABgogBgogBfowBdpQB8eCWpVWS1dn64dXWgbnhg
oNdLtvpTr+9Oq+9IpO1Gnu1Cl+w+kuo8i+k4hek2fug0d+cxcOUxY+QpbeIJrNgAobMBRE8AAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB6aFa7nn/PqobZsYnouJTdsX+ZmSF2kwBymgBsnQBknwBh
oQBdpgBjnAWOZD6wX3O2fX+0bm6LepBRr/BPsvVTr/BOq+9IpO1Gnu1Cl+w+kuo8i+k4hek2fug0d+cx
ceUwaOQvWeAYgtQBobMAPkYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABYSz65mnzOqoTZr4bd
sobjs4nir4asmzOCkQB6lQBzmgBqnQBloABcpwBujRKfWVWzbn24e3yqbG9wkLpLtftSsPFSr/BOq+9I
pO1Gnu1Cl+w+kuo8i+k4hek2fug0d+cxcOUwa+UtXN8jXMwIhagBLjYAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAABOQjW2mHvOpoDZroPesIPer4DbrHzgrIXEnlGTkAeDkQB8lgBymgBrnwBioQB/eCesW2y2
eX+3c3OWdINXqOVNtPlSr/BSr/BOq+9IpO1Gnu1Cl+w+kuo8i+k4hek2fug0d+cxcOUva+UrYN0mSsQR
UIsDFSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACujnHNp3/WrIDbroDcrX3aqnnXp3TZpXXXoGit
kiGNjQCGkgB8lQBxnQBulwaTZ0KzZnq3fH6wamp9hqdMs/lPsvRSr/BSr/BOq+9IpO1Gnu1Cl+w+kuo8
i+k4hek2fug0d+cxcOUvauUrYNwlTMEYOY0IESQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACegGPIn3nS
p3vZq3zZqXrXp3bWo3DVoGnUnmPWm2XMlkyljQ+OjQCFkgB5mQB8iRKiYVy1c364dnagbXVfodhLtfxS
r/BSr/BSr/BOq+9IpO1Gnu1Cl+w+kuo8i+k4hek2fug0d+cxcOUvauUrYN0kTsUdOpsUH0cAAAAAAAAA
AAAAAAAAAAAAAAAAAAB9Zk7Dm3XPo3fVpnnXpnbXpHHVomrVnmTSm2DRmFrQllbSk1bGjj2nixKPjwCC
lQCLfSCsY3C4e4Czb3CAhaNMs/dPs/ZSr+9Sr/BSr/BOq+9IpO1Gnu1Cl+w+kuo8i+k4hek2fug0d+cx
ceUvauUsXeAmTs4gQKkgNm0DBAcAAAAAAAAAAAAAAAAAAAAQDQm7lG7OonbSo3PVpHLWomzVn2XUnGDR
mVzQllfOk1HMkEzKjUjKikfGhzuxiR6YjQaadDSxbn27eHefc35co9tKtvxSr/BSr/BSr/BSr/BOq+9I
pO1Gnu1Cl+w+kuo8i+k4huk2f+g1eecxb+YtX+MqVuAoU9UgRbYiPoYMER0AAAAAAAAAAAAAAAAAAACq
hF/JnG7QoG/VoWvWoGfUnGDTmlzRllfPk1LNkE3LjknJi0PHiD7FhTjFgTTHgSvBfxuwclK3eIW3cXF+
iatMs/hPs/VTsO9TsPBTsPBTsPBPrO9Jpe1Hn+1Dmew/lOs9jek4h+k2fecxbuUsXeMqVeAqV+ApVdsi
SMIlQpgiL0sAAAAAAAAAAAAAAABoUDrDl2rPnGrSnWbTm2LSml3RlljPlFPNkE3KjknIi0XGiUDFhTnE
gjLCgCrDgCHFhB7HiSu/iHjAhYyjhZNdqeVIs/tQqu5Qre9Rru9SrvBTr/BPrO9Jpu1Gn+1Blew8j+o5
g+gzdOUtYuIqV+EqVeAqVuAqV+AqVt4jTMsjQ6UiNWgAAAAAAAAAAAAAAACyhlvKmmPQmmDRmlzQmFjO
lFTNkk/Lj0rJjEbGikDFhzvEhDTDgSvBfyHCfxfDghTHiyHKmlvLnZ7Fm6CRsNJfvf1QqvBFnuxEm+xE
mexDluxDlOxAj+o7h+k3fugzceYvZOMrW+EpVN8pU+AqVuAqV+AqV+AqV+AqVt4mUNEgRK4VLXQAAAAA
AAAAAADOm2PHk1/NllvPlVjPlVXOk0/LkEvJjEbHikLFhzzEhDbDgS7CgCPCfxfCgBPEhBPEhRrHjSq7
kGzMoKjFqbCRw+tww/xcru5Hnus/les9jes5g+o0e+cxc+UuaeQqYOIpV+EpUd8oU98qVuAqV+AqV+Aq
V+AqV+AqV+AqV+AoU9UiR7YXMIAAAAAAAAAAAADOl1zNlljMklTNkVDLj0zKjUbHi0LFhjzEgzfEgi/B
gCXBfhjCgBLEghLFhhjEhhzDhiIAAAAAAADJl6AAAACNx+93xPlptPBNouxCl+s/kOs7h+o2gOgzeOYw
b+UtZuQrXeIqWOAqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+AoVNgjSLsaNYkAAAAAAADLj03Nk1bMklDM
jkvLjEjIikLHiD3EhDfDgS/CfybBfhvCgBPDghLFhxnHiyTIjSvBhSIAAAAAAAAAAAAAAAAAAACDw+97
w/dyufJZqO1Fmes/kOs7h+o2gOgzeOYwb+UtZ+QrXeIqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+Ap
VNkjSr4aNo0AAAAAAADOklDMkU7KjkjIi0XHiD/FhTjEgjHCfyjCfh3CgBXDghLGiBrHiyDIjCPHjje3
gjMAAAAAAAAAAAAAAAAAAAAAAAAAAAB/w/V6vvNpse9PnuxBkes7h+o2gOgzeOYwb+UtZ+QrXeIqV+Aq
V+AqV+AqV+AqV+AqV+AqV+AqV+AqV+ApVNkkSr8aN44AAAAAAADNk1DKkErHiT/FhjvEgzTDgCzCfyHC
gRnEhBfHih7IjSTJjinHjSfHiyMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACDwfN3t/BgqO5K
luw9iOo2gOgzeOYwb+UtZ+QrXeIqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+ApVNkjSr4bOJAAAAAA
AADNlVXLkU3GhzrEhDHFgynFhSHFhx3HiyHJjyjKkS3IjyzJjyrHiiAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAACGwfODvvJxsu9coO5Ejes3gOgzeOYwb+UtZ+QrXeIqV+AqV+AqV+AqV+AqV+Aq
V+AqV+AqV+AqV+ApVNkkSr8cOpUAAAAAAADRoGHRnlzMlEfLjzXLkC3KkS7LkzHLki/KkS/KkCzIjCQA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACIwfOAufFwrO9Xme0/huk1eeYw
b+UtZ+QrXeIqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+ApVdokSr8dPJsAAAAAAADVp2vVpmHSn03P
mj7NmDnOmEDMmEHKkC0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACBuvJ5sfFup/BWlOw+f+cycOUtZ+QrXeIqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+Ap
VdokS8IeP6IAAAAAAADSoV/To1XQnUTOmTvMlTTLlDoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4sPB5rvFuo+5XkOo/eecwaeQrXeIqV+Aq
V+AqV+AqV+AqV+AqV+AqV+AqV+AqV+ApVNkkSsAeQKQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAB5rfB5qu9voO1cjepCducyYuMrWOAqV+AqV+AqV+AqV+AqV+AqV+AqV+AqV+AoU9UkSr8ePZ8AAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB1p+93pe9xnexhjetLdOY3YuItWuAqV+AqV+AqV+Aq
V+AqV+AqV+AqVt4nUdEjSr4YMX0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB0
n+1ymexoi+pWeuZDa+Q0X+EtWeAqV+AqV+AqV+ArWOAqVt4lTs4fRsAJEzUAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABvl+xzlOxujepkhOhTd+ZBaeM2YOIwXOEvW+ExXeEqV+Aw
W9VBas0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABnjOpxkOtx
j+ptjOpkhOhafedQdeZLceVFbOQ1YeI4Zd1XhOMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAABpiOlujOpujepsi+pnh+lfgehRduZAaeMAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///////8AAP///////wAA////////AAD///////8AAP///A///wAA///wD+f/
AAD//+APgf8AAP//wAYA/wAA//+ABAB/AAD//4AAAD8AAP//AAAAHwAA//4AAAAfAAD//gAAAA8AAP/8
AAAADwAA//wAAAAPAAD/+AAAAAcAAP/wAAAABwAA/+AAAAAHAAD/wAAAAAcAAP+AAAAABwAA/wAAAAAH
AAD+AAAAAAcAAPwAAAAABwAA/AAAAAAHAAD4AAAAAAcAAPAAAAAAAwAA4AAAAAADAADgAAAAAAMAAMAA
AAAAAwAAwAAAAAADAACAAAAAAAMAAIAANAAAAwAAAAB8AAADAAAAAP4AAAMAAAAD/wAAAwAAAAf/AAAD
AAAAH/+AAAMAAAD//8AAAwAAA///4AADAAD////wAAMAAP////gAAwAA/////gADAAD/////AAcAAP//
//+ABwAA/////+AfAAD///////8AAP///////wAA////////AAA=
</value>
</data>
</root>

118
rylCoder_16.02.2008_src/helperForms/frmOptions.vb Normal file
View File

@@ -0,0 +1,118 @@
Imports System
Imports Microsoft.Win32
Imports System.Windows.Forms
Imports System.Reflection
Public Class frmOptions
Private Sub frmOptions_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.txtRylFolder.Text = frmNpcEdit.RylGameDir
Me.chkFileTypeMcf.Checked = isAccotiated(".mcf")
Me.chkFileTypeGsf.Checked = isAccotiated(".gsf")
Me.chkFileTypeSkey.Checked = isAccotiated(".skey")
Me.chkFileTypeGcmds.Checked = isAccotiated(".gcmds")
End Sub
Private Function fileTypeOpener(ByVal extension As String) As String
Dim classes As RegistryKey = Registry.ClassesRoot
Dim extK As RegistryKey = classes.OpenSubKey(extension, False)
If Not extK Is Nothing Then
Dim extV As String = extK.GetValue("", "").ToString()
If extV <> "" Then
Dim ext2K As RegistryKey = classes.OpenSubKey(extV & "\\shell\\open\\command", False)
If Not ext2K Is Nothing Then
Return ext2K.GetValue("", "").ToString()
End If
End If
End If
Return ""
End Function
Private Sub setFileTypeOpener(ByVal extension As String, ByVal path As String)
Dim classes As RegistryKey = Registry.ClassesRoot
Dim shellKeyName As String = extension.Substring(1) & "_auto_file"
Dim extK As RegistryKey = classes.CreateSubKey(extension)
extK.SetValue("", shellKeyName)
Dim a1 As RegistryKey = classes.CreateSubKey(shellKeyName)
Dim a2 As RegistryKey = a1.CreateSubKey("shell")
Dim a3 As RegistryKey = a2.CreateSubKey("open")
Dim a4 As RegistryKey = a3.CreateSubKey("command")
a4.SetValue("", """" & path & """ ""%1""")
Dim a5 As RegistryKey = a1.CreateSubKey("DefaultIcon")
a5.SetValue("", """" & path & """, 0")
End Sub
Private Sub deleteFileTypeOpener(ByVal extension As String)
Dim classes As RegistryKey = Registry.ClassesRoot
Dim extK As RegistryKey = classes.OpenSubKey(extension, False)
If Not extK Is Nothing Then
Dim extV As String = extK.GetValue("", "").ToString()
If extV <> "" Then
Try
classes.DeleteSubKeyTree(extV)
Catch ex As ArgumentException
End Try
End If
classes.DeleteSubKeyTree(extension)
End If
End Sub
Private Function isAccotiated(ByVal extension As String) As Boolean
Dim app As String = Assembly.GetEntryAssembly().CodeBase.ToLower().Substring("file:///".Length).Replace("/", "\")
Dim exec As String = fileTypeOpener(extension).Replace("/", "\")
Return exec.ToLower().Contains(app)
End Function
Private Sub btnSetRylFolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetRylFolder.Click
If Not IO.Directory.Exists(Me.txtRylFolder.Text) Then
MsgBox("Directory doesnt exist", MsgBoxStyle.Exclamation, "rylCoder")
Exit Sub
End If
Try
AddMath.setRylFolder(Me.txtRylFolder.Text)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Can't set folder")
Exit Sub
End Try
frmNpcEdit.RylGameDir = AddMath.getRylFolder()
End Sub
Private Sub manageExtensionOpener(ByVal extension As String, ByVal isChecked As Boolean)
Dim app As String = Assembly.GetEntryAssembly().CodeBase.ToLower().Substring("file:///".Length).Replace("/", "\")
Try
If isChecked AndAlso Not isAccotiated(extension) Then
Try
setFileTypeOpener(extension, app)
Catch ex2 As Exception
Try
deleteFileTypeOpener(extension)
setFileTypeOpener(extension, app)
Catch ex3 As Exception
MsgBox(ex3.Message, MsgBoxStyle.Exclamation, "Cant set the extension opener for .mcf")
End Try
End Try
ElseIf Not isChecked AndAlso isAccotiated(extension) Then
deleteFileTypeOpener(extension)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btnSetFileTypes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetFileTypes.Click
manageExtensionOpener(".mcf", Me.chkFileTypeMcf.Checked)
manageExtensionOpener(".gsf", Me.chkFileTypeGsf.Checked)
manageExtensionOpener(".skey", Me.chkFileTypeSkey.Checked)
manageExtensionOpener(".gcmds", Me.chkFileTypeGcmds.Checked)
Me.chkFileTypeMcf.Checked = isAccotiated(".mcf")
Me.chkFileTypeGsf.Checked = isAccotiated(".gsf")
Me.chkFileTypeSkey.Checked = isAccotiated(".skey")
Me.chkFileTypeGcmds.Checked = isAccotiated(".gcmds")
End Sub
Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
dlgBrowse.SelectedPath = txtRylFolder.Text
If dlgBrowse.ShowDialog() = Windows.Forms.DialogResult.OK Then
txtRylFolder.Text = dlgBrowse.SelectedPath
End If
End Sub
End Class

163
rylCoder_16.02.2008_src/helperForms/frmSearchBox.Designer.vb generated Normal file
View File

@@ -0,0 +1,163 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSearchBox
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel
Me.OK_Button = New System.Windows.Forms.Button
Me.Cancel_Button = New System.Windows.Forms.Button
Me.chkMatch = New System.Windows.Forms.CheckBox
Me.Label1 = New System.Windows.Forms.Label
Me.txtSearch = New System.Windows.Forms.TextBox
Me.rdText = New System.Windows.Forms.RadioButton
Me.rdDecimal = New System.Windows.Forms.RadioButton
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.TableLayoutPanel1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.ColumnCount = 1
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 0, 1)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(296, 12)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 2
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 35.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(77, 68)
Me.TableLayoutPanel1.TabIndex = 3
'
'OK_Button
'
Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.OK_Button.Location = New System.Drawing.Point(5, 5)
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(67, 23)
Me.OK_Button.TabIndex = 0
Me.OK_Button.Text = "Find next"
'
'Cancel_Button
'
Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Location = New System.Drawing.Point(5, 39)
Me.Cancel_Button.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
Me.Cancel_Button.TabIndex = 1
Me.Cancel_Button.Text = "Cancel"
'
'chkMatch
'
Me.chkMatch.AutoSize = True
Me.chkMatch.Location = New System.Drawing.Point(12, 84)
Me.chkMatch.Name = "chkMatch"
Me.chkMatch.Size = New System.Drawing.Size(82, 17)
Me.chkMatch.TabIndex = 1
Me.chkMatch.Text = "Match &case"
Me.chkMatch.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(7, 22)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(56, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Fi&nd what:"
'
'txtSearch
'
Me.txtSearch.Location = New System.Drawing.Point(69, 19)
Me.txtSearch.Name = "txtSearch"
Me.txtSearch.Size = New System.Drawing.Size(221, 20)
Me.txtSearch.TabIndex = 0
'
'rdText
'
Me.rdText.AutoSize = True
Me.rdText.Checked = True
Me.rdText.Location = New System.Drawing.Point(6, 19)
Me.rdText.Name = "rdText"
Me.rdText.Size = New System.Drawing.Size(46, 17)
Me.rdText.TabIndex = 0
Me.rdText.TabStop = True
Me.rdText.Text = "Text"
Me.rdText.UseVisualStyleBackColor = True
'
'rdDecimal
'
Me.rdDecimal.AutoSize = True
Me.rdDecimal.Location = New System.Drawing.Point(58, 19)
Me.rdDecimal.Name = "rdDecimal"
Me.rdDecimal.Size = New System.Drawing.Size(63, 17)
Me.rdDecimal.TabIndex = 1
Me.rdDecimal.Text = "Decimal"
Me.rdDecimal.UseVisualStyleBackColor = True
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.rdText)
Me.GroupBox1.Controls.Add(Me.rdDecimal)
Me.GroupBox1.Location = New System.Drawing.Point(164, 53)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(126, 48)
Me.GroupBox1.TabIndex = 2
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Type"
'
'frmSearchBox
'
Me.AcceptButton = Me.OK_Button
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(385, 115)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.txtSearch)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.chkMatch)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmSearchBox"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Search"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents chkMatch As System.Windows.Forms.CheckBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtSearch As System.Windows.Forms.TextBox
Friend WithEvents rdText As System.Windows.Forms.RadioButton
Friend WithEvents rdDecimal As System.Windows.Forms.RadioButton
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
End Class

120
rylCoder_16.02.2008_src/helperForms/frmSearchBox.resx Normal file
View File

@@ -0,0 +1,120 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

99
rylCoder_16.02.2008_src/helperForms/frmSearchBox.vb Normal file
View File

@@ -0,0 +1,99 @@
'################################################
'## ##
'## RYL mcf & gsf file editor ##
'## ##
'## (C) 2006 & 2007 AlphA ##
'## ##
'## This source is for private development. ##
'## You can have this source only with the ##
'## owners permission. ##
'## ##
'################################################
Imports System.Windows.Forms
Public Class frmSearchBox
Private parentNpc As RichTextBox = Nothing
Private closeB As Boolean = False
Private prev_result As Long = -1
Public Sub New(ByRef owner As RichTextBox)
parentNpc = owner
InitializeComponent()
End Sub
Public Sub kill()
closeB = True
Me.Close()
End Sub
Public Event DoSearch(ByVal sender As frmSearchBox, ByVal text As String, ByVal matchCase As Boolean)
Public Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
If Me.txtSearch.Text <> "" Then
Dim txt As String = Me.txtSearch.Text
Dim cas As Boolean = Me.chkMatch.Checked
If Me.rdDecimal.Checked Then
Try
Dim nr As Long = Convert.ToInt64(Me.txtSearch.Text, 10)
txt = Hex(nr).ToUpper
cas = False
Catch ex As Exception
Me.txtSearch.BackColor = Color.Pink
Exit Sub
End Try
End If
RaiseEvent DoSearch(Me, txt, cas)
If Not parentNpc Is Nothing Then
With Me.parentNpc
Dim st As Integer = 0
If .SelectionStart > 0 Then st = .SelectionStart
If .SelectionLength > 0 Then st += .SelectionLength
Dim loc As Long = .Text.IndexOf(txt, st, IIf(cas, StringComparison.Ordinal, StringComparison.OrdinalIgnoreCase))
If loc < 0 AndAlso st > 0 Then loc = .Text.IndexOf(txt, IIf(cas, StringComparison.Ordinal, StringComparison.OrdinalIgnoreCase))
If loc < 0 Then
MsgBox("No results for" & vbNewLine & txt & vbNewLine & "")
Me.Show()
Else
.Focus()
.Select(loc, txt.Length)
.ScrollToCaret()
'Debug.WriteLine(loc & " - " & txt.Length)
Me.txtSearch.Focus()
End If
End With
End If
Else
Me.Show()
End If
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
'Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Hide()
End Sub
Private Sub txtSearch_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSearch.KeyDown
If e.KeyCode = Keys.Return Then
OK_Button_Click(Me, New EventArgs)
ElseIf e.KeyCode = Keys.Escape Then
Me.Close()
End If
End Sub
Private Sub txtSearch_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
If Me.txtSearch.BackColor <> Color.White Then Me.txtSearch.BackColor = Color.White
End Sub
Public Sub F3press()
OK_Button_Click(Me, New EventArgs)
End Sub
Private Sub frmSearchBox_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If Not closeB AndAlso Not e.CloseReason = CloseReason.WindowsShutDown AndAlso Not e.CloseReason = CloseReason.TaskManagerClosing AndAlso Not e.CloseReason = CloseReason.FormOwnerClosing Then e.Cancel = True
Me.Hide()
End Sub
Private Sub frmSearchBox_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged
Me.TopMost = True
Me.txtSearch.Focus()
Me.txtSearch.SelectionStart = 0
Me.txtSearch.SelectionLength = Me.txtSearch.Text.Length
End Sub
End Class

131
rylCoder_16.02.2008_src/helperForms/frmSplash.Designer.vb generated Normal file
View File

@@ -0,0 +1,131 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSplash
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)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents ApplicationTitle As System.Windows.Forms.Label
Friend WithEvents Version As System.Windows.Forms.Label
Friend WithEvents Copyright As System.Windows.Forms.Label
Friend WithEvents MainLayoutPanel As System.Windows.Forms.TableLayoutPanel
Friend WithEvents DetailsLayoutPanel As System.Windows.Forms.TableLayoutPanel
'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
Me.MainLayoutPanel = New System.Windows.Forms.TableLayoutPanel
Me.DetailsLayoutPanel = New System.Windows.Forms.TableLayoutPanel
Me.Version = New System.Windows.Forms.Label
Me.Copyright = New System.Windows.Forms.Label
Me.ApplicationTitle = New System.Windows.Forms.Label
Me.tmrClose = New System.Windows.Forms.Timer(Me.components)
Me.MainLayoutPanel.SuspendLayout()
Me.DetailsLayoutPanel.SuspendLayout()
Me.SuspendLayout()
'
'MainLayoutPanel
'
Me.MainLayoutPanel.BackgroundImage = Global.rylCoder.My.Resources.Resources.splash
Me.MainLayoutPanel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.MainLayoutPanel.ColumnCount = 2
Me.MainLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 325.0!))
Me.MainLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 18.0!))
Me.MainLayoutPanel.Controls.Add(Me.DetailsLayoutPanel, 1, 1)
Me.MainLayoutPanel.Controls.Add(Me.ApplicationTitle, 1, 0)
Me.MainLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill
Me.MainLayoutPanel.Location = New System.Drawing.Point(0, 0)
Me.MainLayoutPanel.Name = "MainLayoutPanel"
Me.MainLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 292.0!))
Me.MainLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 21.0!))
Me.MainLayoutPanel.Size = New System.Drawing.Size(628, 398)
Me.MainLayoutPanel.TabIndex = 0
'
'DetailsLayoutPanel
'
Me.DetailsLayoutPanel.Anchor = System.Windows.Forms.AnchorStyles.None
Me.DetailsLayoutPanel.BackColor = System.Drawing.Color.Transparent
Me.DetailsLayoutPanel.ColumnCount = 1
Me.DetailsLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 247.0!))
Me.DetailsLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 142.0!))
Me.DetailsLayoutPanel.Controls.Add(Me.Version, 0, 0)
Me.DetailsLayoutPanel.Controls.Add(Me.Copyright, 0, 1)
Me.DetailsLayoutPanel.Location = New System.Drawing.Point(353, 305)
Me.DetailsLayoutPanel.Name = "DetailsLayoutPanel"
Me.DetailsLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.0!))
Me.DetailsLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.0!))
Me.DetailsLayoutPanel.Size = New System.Drawing.Size(247, 79)
Me.DetailsLayoutPanel.TabIndex = 1
'
'Version
'
Me.Version.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Version.BackColor = System.Drawing.Color.Transparent
Me.Version.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Version.Location = New System.Drawing.Point(3, 9)
Me.Version.Name = "Version"
Me.Version.Size = New System.Drawing.Size(241, 20)
Me.Version.TabIndex = 1
Me.Version.Text = "Version {0}.{1}"
'
'Copyright
'
Me.Copyright.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Copyright.BackColor = System.Drawing.Color.Transparent
Me.Copyright.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Copyright.Location = New System.Drawing.Point(3, 39)
Me.Copyright.Name = "Copyright"
Me.Copyright.Size = New System.Drawing.Size(241, 40)
Me.Copyright.TabIndex = 2
Me.Copyright.Text = "Copyright"
'
'ApplicationTitle
'
Me.ApplicationTitle.Anchor = System.Windows.Forms.AnchorStyles.Bottom
Me.ApplicationTitle.BackColor = System.Drawing.Color.Transparent
Me.ApplicationTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ApplicationTitle.Location = New System.Drawing.Point(353, 80)
Me.ApplicationTitle.Name = "ApplicationTitle"
Me.ApplicationTitle.Size = New System.Drawing.Size(247, 212)
Me.ApplicationTitle.TabIndex = 0
Me.ApplicationTitle.Text = "ApplicationTitle"
Me.ApplicationTitle.TextAlign = System.Drawing.ContentAlignment.BottomLeft
'
'tmrClose
'
Me.tmrClose.Interval = 5000
'
'frmSplash
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(628, 398)
Me.ControlBox = False
Me.Controls.Add(Me.MainLayoutPanel)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmSplash"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.MainLayoutPanel.ResumeLayout(False)
Me.DetailsLayoutPanel.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents tmrClose As System.Windows.Forms.Timer
End Class

123
rylCoder_16.02.2008_src/helperForms/frmSplash.resx Normal file
View File

@@ -0,0 +1,123 @@
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="tmrClose.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

37
rylCoder_16.02.2008_src/helperForms/frmSplash.vb Normal file
View File

@@ -0,0 +1,37 @@
Public NotInheritable Class frmSplash
'TODO: This form can easily be set as the splash screen for the application by going to the "Application" tab
' of the Project Designer ("Properties" under the "Project" menu).
Private Sub frmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Set up the dialog text at runtime according to the application's assembly information.
'TODO: Customize the application's assembly information in the "Application" pane of the project
' properties dialog (under the "Project" menu).
'Application title
ApplicationTitle.Text = "rylCoder"
'Format the version information using the text set into the Version control at design time as the
' formatting string. This allows for effective localization if desired.
' Build and revision information could be included by using the following code and changing the
' Version control's designtime text to "Version {0}.{1:00}.{2}.{3}" or something similar. See
' String.Format() in Help for more information.
'
' Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision)
Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)
'Copyright info
Copyright.Text = My.Application.Info.Copyright
Me.tmrClose.Start()
End Sub
Private Sub tmrClose_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrClose.Tick
Me.tmrClose.Stop()
Me.Close()
End Sub
End Class

76
rylCoder_16.02.2008_src/helperForms/frmWorking.Designer.vb generated Normal file
View File

@@ -0,0 +1,76 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmWorking
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)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents MainLayoutPanel As System.Windows.Forms.TableLayoutPanel
'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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWorking))
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("Arial", 11.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(468, 20)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(106, 17)
Me.Label1.TabIndex = 1
Me.Label1.Text = "m c f C o d e r"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Font = New System.Drawing.Font("Arial", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(186, Byte))
Me.Label2.Location = New System.Drawing.Point(241, 58)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(179, 16)
Me.Label2.TabIndex = 2
Me.Label2.Text = "w o r k i n g . . ."
'
'frmWorking
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.ClientSize = New System.Drawing.Size(601, 102)
Me.ControlBox = False
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmWorking"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.TopMost = True
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
End Class

1007
rylCoder_16.02.2008_src/helperForms/frmWorking.resx Normal file
View File

File diff suppressed because it is too large Load Diff

15
rylCoder_16.02.2008_src/helperForms/frmWorking.vb Normal file
View File

@@ -0,0 +1,15 @@
'################################################
'## ##
'## RYL mcf & gsf file editor ##
'## ##
'## (C) 2006 & 2007 AlphA ##
'## ##
'## This source is for private development. ##
'## You can have this source only with the ##
'## owners permission. ##
'## ##
'################################################
Public NotInheritable Class frmWorking
End Class