This commit is contained in:
Lynne Megido 2019-04-21 03:36:10 +10:00
commit e3bb94c752
Signed by: lynnesbian
GPG Key ID: FB7B970303ACE499
85 changed files with 77394 additions and 0 deletions

BIN
.vs/Violet/v14/.suo Normal file

Binary file not shown.

22
Violet.sln Normal file
View File

@ -0,0 +1,22 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 14
VisualStudioVersion = 14.0.25420.1
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Violet", "Violet\Violet.vbproj", "{DB06D3A7-5995-45B9-91FC-E954E5B53930}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{DB06D3A7-5995-45B9-91FC-E954E5B53930}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{DB06D3A7-5995-45B9-91FC-E954E5B53930}.Debug|Any CPU.Build.0 = Debug|Any CPU
{DB06D3A7-5995-45B9-91FC-E954E5B53930}.Release|Any CPU.ActiveCfg = Release|Any CPU
{DB06D3A7-5995-45B9-91FC-E954E5B53930}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

6
Violet/App.config Normal file
View File

@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
</startup>
</configuration>

2538
Violet/CharacterSettings.Designer.vb generated Normal file

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,252 @@
<?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>
<metadata name="ToolTipSlut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="BodyShapeSelector.ToolTip" xml:space="preserve">
<value>Skinny: &gt;60 to 70kg, almost no curves.
Slender: &gt;60 to 70kg, some curves.
Medium: 65 to 80kg, sort of curvy.
Curvy: 75 to 85kg, rather curvy.
Voluptuous: 75 to 85kg, very curvy. Plus size.
Pudgy: &lt;85kg, very curvy.</value>
</data>
<data name="StrengthSlider.ToolTip" xml:space="preserve">
<value>Lowest: Almost physically incapable of resistance. Cannot open jars. Good for those into noncon.
Low: Can barely resist. Struggles to open jars.
Medium: Can resist, but can be overpowered. Can open jars.
Highest: Cannot be physically forced into anything. Easily opens jars.
Each tier can overpower the lower tiers.</value>
</data>
<data name="RaceSelector.ToolTip" xml:space="preserve">
<value>Trolls get hornier and are stronger than humans. They tend to have
larger penises than humans. They have two horns atop their head,
which are highly sensitive to massages. They cannot be impregnated.
Humans have irises.</value>
</data>
<data name="VaginaDepthNumber.ToolTip" xml:space="preserve">
<value>3-4: Can only take microdicks.
5: Easily bottomed out.
6: Can take the average cock.
7: Average.
8: Can take massive cocks.
9-10: Can take enormous cocks.
Note that the deepest human vagina
cannot fully take the longest troll penis.</value>
</data>
<data name="VaginaWetnessSlider.ToolTip" xml:space="preserve">
<value>Lowest: Just enough to be fuckable.
Low: May leave a small wet patch on panties.
Medium: Enough to noticeably dampen panties and inner thighs.
High: Juices will soak panties and completely coat inner thighs.
Highest: As well as the above, juices will trickle down legs, even through panties.</value>
</data>
<data name="PenisLengthNumber.ToolTip" xml:space="preserve">
<value>3: All but the kindest of girls will laugh at you. You cannot satisfy by fucking alone.
4. Same as above, although you might be able to satisfy.
5: Some girls may giggle at how small you are.
6: Average (Human).
7: Average (Troll).
8: Massive.
9-10. Enormous. Most girls will have trouble taking you, although almost everyone will want to.</value>
</data>
<data name="PenisCumAmountSlider.ToolTip" xml:space="preserve">
<value>Lowest: A small spurt on climax.
Low: A small spurt on climax. Some precum.
Medium: A large spurt on climax. Average precum.
High: Large spurt on climax. Large amounts of precum. Cum constantly trickles when erect.
Highest: Huge spurt on climax. Large amounts of precum. Cum constantly trickles when erect.</value>
</data>
<data name="ReceivingNonconSlider.ToolTip" xml:space="preserve">
<value>Lowest: Not into noncon at all.
Low: Gets a thrill out of being kissed (by an attractive girl) when not expecting it.
Medium: Would not react negatively to being fondled by someone she'd be attracted to.
High: Would not react negatively to being fondled.
Highest: Strong rape fantasy.</value>
</data>
<data name="ReceivingNonconCheckbox.ToolTip" xml:space="preserve">
<value>Lowest: Not into noncon at all.
Low: Gets a thrill out of being kissed when not expecting it.
Medium: Would not react negatively to being fondled by someone she'd be attracted to.
High: Would not react negatively to being fondled.
Highest: Strong rape fantasy.</value>
</data>
<data name="TrackBar14.ToolTip" xml:space="preserve">
<value>Lowest: Not into noncon at all.
Low: Gets a thrill out of being kissing girls when they're not expecting it.
Medium: Would enjoy fondling a girl she knew found her hot.
High: Would enjoy fondling any girl.
Highest: Strong rape fantasy.
</value>
</data>
<data name="GivingNonconCheckbox.ToolTip" xml:space="preserve">
<value>Lowest: Not into noncon at all.
Low: Gets a thrill out of being kissing girls when they're not expecting it.
Medium: Would enjoy fondling a girl she knew found her hot.
High: Would enjoy fondling any girl.
Highest: Strong rape fantasy.
</value>
</data>
<data name="MoanEasinessSlider.ToolTip" xml:space="preserve">
<value>Lowest: You moan when being fucked hard, or fucking hard.
Low: You moan when being fucked, or fucking.
Medium: You moan when being fingered or having your nipples played with.
High: You moan when being kissed.
Highest: You moan softly when horny.
All tiers include previous tiers.</value>
</data>
<data name="HorninessFrequencySlider.ToolTip" xml:space="preserve">
<value>Lowest: It's difficult to turn you on.
Low: You get turned on an average amount.
Medium: You're hornier than the average girl.
High: You are turned on by most sexual things, provided you're into them.
Highest: You are turned on by seeing attractive girls, even in a non-sexual situation.</value>
</data>
<data name="HorninessRechargeSlider.ToolTip" xml:space="preserve">
<value>Lowest: Will remain satisfied after a single orgasm for a full day.
Low: Ready for more after 3 hours.
Medium: Ready for more after 1 hour.
High: Ready for more after 20 minutes.
Highest: Ready again immediately when afterglow ends.</value>
</data>
<data name="TrackBar26.ToolTip" xml:space="preserve">
<value>Lowest: Doesn't really talk about her sex life.
Low: Occasionally brings up sexual subjects.
Medium: Enjoys talking about sex.
High: Loves talking about sex.
Highest: Frequently tells her partner that she loves fucking/being fucked. Brings up sex a lot.
Note that even the highest level does not mean that this character only talks about sex.</value>
</data>
<data name="TsundereSlider.ToolTip" xml:space="preserve">
<value>Lowest: None.
Low: Blushes deeply when caught staring.
Medium: Pretends she wasn't staring.
High: "I'm not staring at you! I'm n-not attracted to you at all!"
Higher: "I-it's not like I like you or anything, i-idiot!"
Highest: "I-it's not like I like you or anything, b-baka!"</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>35</value>
</metadata>
</root>

View File

@ -0,0 +1,69 @@
Public Class CharacterSettings
Private Sub CharacterSettings_Load(sender As Object, e As EventArgs) Handles MyBase.Load
GenitalTypeSelector.SelectedIndex = 0 ' __________ ___________
BodyShapeSelector.SelectedIndex = 0 ' \ / | \ / | ^ | \
BottomPrimaryColourSelector.SelectedIndex = 0 ' \ / | \ / | / \ | \
BottomSecondaryColourSelector.SelectedIndex = 0 '\ / | \ / | / \ | \
EyeColourSelector.SelectedIndex = 0 ' \ / | \ / | / \ | \
GodTierAspectSelector.SelectedIndex = 0 ' \ ^ / |----- \ ^ / | /-------\ | \
GodTierClassSelector.SelectedIndex = 0 ' \ / \ / | \ / \ / | / \ | /
HairColourSelector.SelectedIndex = 0 ' \ / \ / | \ / \ / | / \ | /
HairstyleSelector.SelectedIndex = 0 ' \ / \ / | \ / \ / | / \ | /
RaceSelector.SelectedIndex = 0 ' \ / \ / | \ / \ / | / \ | /
HornStyleSelector.SelectedIndex = 0 ' V V |__________ V V |__________ / \ |__________/
End Sub
Dim CupSizes() As String = {"Flat", "A", "B", "C", "D", "DD", "E", "F", "G", "H"}
Dim GenitalUsePreferencesStrings() As String = {"Strongly prefers vagina", "Prefers vagina", "Slightly prefers vagina", "Prefers both equally", "Slightly prefers penis", "Prefers penis", "Strongly prefers penis"}
Private Sub CupSizeSlider_Scroll(sender As Object, e As EventArgs) Handles CupSizeSlider.Scroll
CupSizeDescriptor.Text = CupSizes(CupSizeSlider.Value)
End Sub
Private Sub RaceSelector_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RaceSelector.SelectedIndexChanged
Dim IsHuman As Boolean = RaceSelector.SelectedItem.ToString = "Human"
If IsHuman Then
ToolTipSlut.SetToolTip(SkinColourSlider, "Values correspond to 1-6 on the Fitzpatrick scale.")
SkinColourSlider.Maximum = 6
Else
ToolTipSlut.SetToolTip(SkinColourSlider, "Lowest: Light grey." & vbNewLine & "Highest: Dark grey.")
SkinColourSlider.Maximum = 2
End If
HornStyleSelector.Enabled = Not IsHuman
End Sub
Private Sub GenitalUsePreferenceSlider_Scroll(sender As Object, e As EventArgs) Handles GenitalUsePreferenceSlider.Scroll
GenitalUsePreferenceInfo.Text = GenitalUsePreferencesStrings(GenitalUsePreferenceSlider.Value)
End Sub
Private Sub GenitalsTab_Click(sender As Object, e As EventArgs) Handles GenitalsTab.Click, GenitalsTab.Enter
If RaceSelector.SelectedItem = "Troll" Then
VaginaDepthNumber.Minimum = 4
VaginaDepthNumber.Maximum = 17
PenisLengthNumber.Minimum = 4
PenisLengthNumber.Maximum = 16 'wew
Else
VaginaDepthNumber.Minimum = 3
VaginaDepthNumber.Maximum = 13
PenisLengthNumber.Minimum = 3
PenisLengthNumber.Maximum = 12
End If
End Sub
Private Sub GenitalTypeDropdown_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GenitalTypeSelector.SelectedIndexChanged
VaginaOptionsHolder.Enabled = True
PenisOptionsHolder.Enabled = True
GenitalUsePreferenceSlider.Enabled = False
GenitalUsePreferenceInfo.Visible = False
If GenitalTypeSelector.SelectedItem = "Penis" Then
VaginaOptionsHolder.Enabled = False
ElseIf GenitalTypeSelector.SelectedItem = "Vagina" Then
PenisOptionsHolder.Enabled = False
Else
GenitalUsePreferenceSlider.Enabled = True
GenitalUsePreferenceInfo.Visible = True
End If
End Sub
End Class

233
Violet/Elaborate - Degradation.Designer.vb generated Normal file
View File

@ -0,0 +1,233 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Elaborate___Degradation
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.NameBox = New System.Windows.Forms.ListBox()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.AddNameButton = New System.Windows.Forms.Button()
Me.RemoveNameButton = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.ListBox2 = New System.Windows.Forms.ListBox()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.SuspendLayout()
'
'NameBox
'
Me.NameBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.NameBox.FormattingEnabled = True
Me.NameBox.ItemHeight = 16
Me.NameBox.Items.AddRange(New Object() {"Slut", "Hoe"})
Me.NameBox.Location = New System.Drawing.Point(6, 6)
Me.NameBox.Name = "NameBox"
Me.NameBox.Size = New System.Drawing.Size(151, 148)
Me.NameBox.TabIndex = 1
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Location = New System.Drawing.Point(1, 0)
Me.TabControl1.Multiline = True
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(261, 193)
Me.TabControl1.TabIndex = 2
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.RemoveNameButton)
Me.TabPage1.Controls.Add(Me.AddNameButton)
Me.TabPage1.Controls.Add(Me.NameBox)
Me.TabPage1.Location = New System.Drawing.Point(4, 25)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(253, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Names"
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.Button1)
Me.TabPage2.Controls.Add(Me.Button2)
Me.TabPage2.Controls.Add(Me.ListBox1)
Me.TabPage2.Location = New System.Drawing.Point(4, 25)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(253, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Adjectives"
'
'AddNameButton
'
Me.AddNameButton.Location = New System.Drawing.Point(171, 6)
Me.AddNameButton.Name = "AddNameButton"
Me.AddNameButton.Size = New System.Drawing.Size(75, 23)
Me.AddNameButton.TabIndex = 2
Me.AddNameButton.Text = "Add"
Me.AddNameButton.UseVisualStyleBackColor = True
'
'RemoveNameButton
'
Me.RemoveNameButton.Location = New System.Drawing.Point(171, 35)
Me.RemoveNameButton.Name = "RemoveNameButton"
Me.RemoveNameButton.Size = New System.Drawing.Size(75, 23)
Me.RemoveNameButton.TabIndex = 2
Me.RemoveNameButton.Text = "Remove"
Me.RemoveNameButton.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(11, 199)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 23)
Me.Button3.TabIndex = 2
Me.Button3.Text = "Cancel"
Me.Button3.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(176, 199)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 23)
Me.Button4.TabIndex = 2
Me.Button4.Text = "OK"
Me.Button4.UseVisualStyleBackColor = True
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.Button5)
Me.TabPage3.Controls.Add(Me.Button6)
Me.TabPage3.Controls.Add(Me.ListBox2)
Me.TabPage3.Location = New System.Drawing.Point(4, 25)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(253, 164)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Insult topics"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(171, 37)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 5
Me.Button1.Text = "Remove"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(171, 8)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 4
Me.Button2.Text = "Add"
Me.Button2.UseVisualStyleBackColor = True
'
'ListBox1
'
Me.ListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.ItemHeight = 16
Me.ListBox1.Items.AddRange(New Object() {"Slut", "Hoe"})
Me.ListBox1.Location = New System.Drawing.Point(6, 8)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(151, 148)
Me.ListBox1.TabIndex = 3
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(171, 37)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(75, 23)
Me.Button5.TabIndex = 5
Me.Button5.Text = "Remove"
Me.Button5.UseVisualStyleBackColor = True
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(171, 8)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(75, 23)
Me.Button6.TabIndex = 4
Me.Button6.Text = "Add"
Me.Button6.UseVisualStyleBackColor = True
'
'ListBox2
'
Me.ListBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ListBox2.FormattingEnabled = True
Me.ListBox2.ItemHeight = 16
Me.ListBox2.Items.AddRange(New Object() {"Slut", "Hoe"})
Me.ListBox2.Location = New System.Drawing.Point(6, 8)
Me.ListBox2.Name = "ListBox2"
Me.ListBox2.Size = New System.Drawing.Size(151, 148)
Me.ListBox2.TabIndex = 3
'
'Elaborate___Degradation
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(263, 227)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "Elaborate___Degradation"
Me.Text = "Degradation Settings"
Me.TopMost = True
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.TabPage3.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents NameBox As ListBox
Friend WithEvents TabControl1 As TabControl
Friend WithEvents TabPage1 As TabPage
Friend WithEvents RemoveNameButton As Button
Friend WithEvents AddNameButton As Button
Friend WithEvents TabPage2 As TabPage
Friend WithEvents Button3 As Button
Friend WithEvents Button4 As Button
Friend WithEvents TabPage3 As TabPage
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents ListBox1 As ListBox
Friend WithEvents Button5 As Button
Friend WithEvents Button6 As Button
Friend WithEvents ListBox2 As ListBox
End Class

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=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>
</root>

View File

@ -0,0 +1,3 @@
Public Class Elaborate___Degradation
End Class

486
Violet/Engine.Designer.vb generated Normal file
View File

@ -0,0 +1,486 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Engine
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(Engine))
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.SubLocationLabel = New System.Windows.Forms.Label()
Me.LocationLabel = New System.Windows.Forms.Label()
Me.Button9 = New System.Windows.Forms.Button()
Me.Button7 = New System.Windows.Forms.Button()
Me.Button8 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.PlayerMoodLevel = New System.Windows.Forms.ProgressBar()
Me.PlayerEnergyLevel = New System.Windows.Forms.ProgressBar()
Me.PlayerHungerLevel = New System.Windows.Forms.ProgressBar()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.TrackBar1 = New System.Windows.Forms.TrackBar()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.PlayerHorninessLevel = New System.Windows.Forms.Label()
Me.PlayerHorninessEffects = New System.Windows.Forms.ListBox()
Me.TimeLabel = New System.Windows.Forms.Label()
Me.ActionButton1 = New System.Windows.Forms.Button()
Me.ActionButton2 = New System.Windows.Forms.Button()
Me.ActionButton3 = New System.Windows.Forms.Button()
Me.ActionButton4 = New System.Windows.Forms.Button()
Me.ActionButton5 = New System.Windows.Forms.Button()
Me.StoryBoxContainer = New System.Windows.Forms.Panel()
Me.StoryBox = New System.Windows.Forms.RichTextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.PartnerBox = New System.Windows.Forms.GroupBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label6 = New System.Windows.Forms.Label()
Me.PartnerHorninessEffects = New System.Windows.Forms.ListBox()
Me.ToolTipSlut = New System.Windows.Forms.ToolTip(Me.components)
Me.AnimateHorninessIncreaseTimer = New System.Windows.Forms.Timer(Me.components)
Me.MoreButton = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
Me.StoryBoxContainer.SuspendLayout()
Me.PartnerBox.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.SubLocationLabel)
Me.GroupBox1.Controls.Add(Me.LocationLabel)
Me.GroupBox1.Controls.Add(Me.Button9)
Me.GroupBox1.Controls.Add(Me.Button7)
Me.GroupBox1.Controls.Add(Me.Button8)
Me.GroupBox1.Controls.Add(Me.Button6)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.PlayerMoodLevel)
Me.GroupBox1.Controls.Add(Me.PlayerEnergyLevel)
Me.GroupBox1.Controls.Add(Me.PlayerHungerLevel)
Me.GroupBox1.Controls.Add(Me.GroupBox2)
Me.GroupBox1.Location = New System.Drawing.Point(12, 13)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(194, 448)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Lynne"
'
'SubLocationLabel
'
Me.SubLocationLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SubLocationLabel.Location = New System.Drawing.Point(2, 45)
Me.SubLocationLabel.Name = "SubLocationLabel"
Me.SubLocationLabel.Size = New System.Drawing.Size(190, 18)
Me.SubLocationLabel.TabIndex = 2
Me.SubLocationLabel.Text = "Standing about"
Me.SubLocationLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'LocationLabel
'
Me.LocationLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LocationLabel.Location = New System.Drawing.Point(2, 18)
Me.LocationLabel.Name = "LocationLabel"
Me.LocationLabel.Size = New System.Drawing.Size(190, 27)
Me.LocationLabel.TabIndex = 2
Me.LocationLabel.Text = "Aradia's Bedroom"
Me.LocationLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Button9
'
Me.Button9.Location = New System.Drawing.Point(97, 414)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(88, 28)
Me.Button9.TabIndex = 5
Me.Button9.Text = "System"
Me.Button9.UseVisualStyleBackColor = True
'
'Button7
'
Me.Button7.Location = New System.Drawing.Point(8, 414)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(88, 28)
Me.Button7.TabIndex = 5
Me.Button7.Text = "Inventory"
Me.Button7.UseVisualStyleBackColor = True
'
'Button8
'
Me.Button8.Location = New System.Drawing.Point(8, 383)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(88, 28)
Me.Button8.TabIndex = 5
Me.Button8.Text = "Your status"
Me.Button8.UseVisualStyleBackColor = True
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(98, 383)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(88, 28)
Me.Button6.TabIndex = 5
Me.Button6.Text = "Her status"
Me.Button6.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(10, 333)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(43, 17)
Me.Label3.TabIndex = 4
Me.Label3.Text = "Mood"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(10, 305)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(55, 17)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Fatigue"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(10, 277)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(55, 17)
Me.Label1.TabIndex = 4
Me.Label1.Text = "Hunger"
'
'PlayerMoodLevel
'
Me.PlayerMoodLevel.Location = New System.Drawing.Point(71, 330)
Me.PlayerMoodLevel.Name = "PlayerMoodLevel"
Me.PlayerMoodLevel.Size = New System.Drawing.Size(110, 23)
Me.PlayerMoodLevel.TabIndex = 0
'
'PlayerEnergyLevel
'
Me.PlayerEnergyLevel.Location = New System.Drawing.Point(71, 302)
Me.PlayerEnergyLevel.Name = "PlayerEnergyLevel"
Me.PlayerEnergyLevel.Size = New System.Drawing.Size(110, 23)
Me.PlayerEnergyLevel.TabIndex = 0
'
'PlayerHungerLevel
'
Me.PlayerHungerLevel.Location = New System.Drawing.Point(71, 274)
Me.PlayerHungerLevel.Name = "PlayerHungerLevel"
Me.PlayerHungerLevel.Size = New System.Drawing.Size(110, 23)
Me.PlayerHungerLevel.TabIndex = 0
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.TrackBar1)
Me.GroupBox2.Controls.Add(Me.Panel2)
Me.GroupBox2.Controls.Add(Me.PlayerHorninessEffects)
Me.GroupBox2.Location = New System.Drawing.Point(6, 66)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(181, 202)
Me.GroupBox2.TabIndex = 3
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Horniness"
'
'TrackBar1
'
Me.TrackBar1.AutoSize = False
Me.TrackBar1.Location = New System.Drawing.Point(78, 0)
Me.TrackBar1.Maximum = 1000
Me.TrackBar1.Name = "TrackBar1"
Me.TrackBar1.Size = New System.Drawing.Size(104, 20)
Me.TrackBar1.TabIndex = 5
Me.TrackBar1.TickStyle = System.Windows.Forms.TickStyle.None
Me.TrackBar1.Value = 500
'
'Panel2
'
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel2.Controls.Add(Me.PlayerHorninessLevel)
Me.Panel2.Location = New System.Drawing.Point(7, 22)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(171, 24)
Me.Panel2.TabIndex = 2
'
'PlayerHorninessLevel
'
Me.PlayerHorninessLevel.BackColor = System.Drawing.Color.FromArgb(CType(CType(6, Byte), Integer), CType(CType(176, Byte), Integer), CType(CType(37, Byte), Integer))
Me.PlayerHorninessLevel.Location = New System.Drawing.Point(-1, 0)
Me.PlayerHorninessLevel.Name = "PlayerHorninessLevel"
Me.PlayerHorninessLevel.Size = New System.Drawing.Size(0, 24)
Me.PlayerHorninessLevel.TabIndex = 0
'
'PlayerHorninessEffects
'
Me.PlayerHorninessEffects.FormattingEnabled = True
Me.PlayerHorninessEffects.ItemHeight = 16
Me.PlayerHorninessEffects.Items.AddRange(New Object() {"Staring", "Thinking affected", "Hard nipples", "Wet", "Moaning softly", "Leaking juices", "Enlarged clit", "Breathing heavily", "Desparate", "Motor control impacted", "Can't think", "Can no longer resist"})
Me.PlayerHorninessEffects.Location = New System.Drawing.Point(7, 52)
Me.PlayerHorninessEffects.Name = "PlayerHorninessEffects"
Me.PlayerHorninessEffects.Size = New System.Drawing.Size(171, 148)
Me.PlayerHorninessEffects.TabIndex = 1
'
'TimeLabel
'
Me.TimeLabel.AutoSize = True
Me.TimeLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TimeLabel.Location = New System.Drawing.Point(54, 18)
Me.TimeLabel.Name = "TimeLabel"
Me.TimeLabel.Size = New System.Drawing.Size(87, 32)
Me.TimeLabel.TabIndex = 2
Me.TimeLabel.Text = "09:00"
'
'ActionButton1
'
Me.ActionButton1.AutoEllipsis = True
Me.ActionButton1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ActionButton1.Location = New System.Drawing.Point(213, 419)
Me.ActionButton1.Name = "ActionButton1"
Me.ActionButton1.Size = New System.Drawing.Size(95, 42)
Me.ActionButton1.TabIndex = 3
Me.ActionButton1.Text = "Tease her a little"
Me.ActionButton1.UseVisualStyleBackColor = True
'
'ActionButton2
'
Me.ActionButton2.AutoEllipsis = True
Me.ActionButton2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ActionButton2.Location = New System.Drawing.Point(312, 419)
Me.ActionButton2.Name = "ActionButton2"
Me.ActionButton2.Size = New System.Drawing.Size(95, 42)
Me.ActionButton2.TabIndex = 3
Me.ActionButton2.Text = "Beg for her cock"
Me.ActionButton2.UseVisualStyleBackColor = True
'
'ActionButton3
'
Me.ActionButton3.AutoEllipsis = True
Me.ActionButton3.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ActionButton3.Location = New System.Drawing.Point(411, 419)
Me.ActionButton3.Name = "ActionButton3"
Me.ActionButton3.Size = New System.Drawing.Size(95, 42)
Me.ActionButton3.TabIndex = 3
Me.ActionButton3.Text = "Pleasure yourself"
Me.ActionButton3.UseVisualStyleBackColor = True
'
'ActionButton4
'
Me.ActionButton4.AutoEllipsis = True
Me.ActionButton4.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ActionButton4.Location = New System.Drawing.Point(510, 419)
Me.ActionButton4.Name = "ActionButton4"
Me.ActionButton4.Size = New System.Drawing.Size(95, 42)
Me.ActionButton4.TabIndex = 3
Me.ActionButton4.Text = "Push her away"
Me.ActionButton4.UseVisualStyleBackColor = True
'
'ActionButton5
'
Me.ActionButton5.AutoEllipsis = True
Me.ActionButton5.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ActionButton5.Location = New System.Drawing.Point(609, 419)
Me.ActionButton5.Name = "ActionButton5"
Me.ActionButton5.Size = New System.Drawing.Size(95, 42)
Me.ActionButton5.TabIndex = 3
Me.ActionButton5.UseVisualStyleBackColor = True
Me.ActionButton5.Visible = False
'
'StoryBoxContainer
'
Me.StoryBoxContainer.BackColor = System.Drawing.Color.Black
Me.StoryBoxContainer.Controls.Add(Me.StoryBox)
Me.StoryBoxContainer.Location = New System.Drawing.Point(212, 13)
Me.StoryBoxContainer.Name = "StoryBoxContainer"
Me.StoryBoxContainer.Size = New System.Drawing.Size(594, 401)
Me.StoryBoxContainer.TabIndex = 4
'
'StoryBox
'
Me.StoryBox.BackColor = System.Drawing.Color.White
Me.StoryBox.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.StoryBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.StoryBox.Location = New System.Drawing.Point(1, 1)
Me.StoryBox.Name = "StoryBox"
Me.StoryBox.ReadOnly = True
Me.StoryBox.Size = New System.Drawing.Size(592, 399)
Me.StoryBox.TabIndex = 3
Me.StoryBox.Text = resources.GetString("StoryBox.Text")
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(-10, -7)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 4
Me.Button1.Text = "+100"
Me.Button1.UseVisualStyleBackColor = True
'
'PartnerBox
'
Me.PartnerBox.Controls.Add(Me.Label5)
Me.PartnerBox.Controls.Add(Me.TimeLabel)
Me.PartnerBox.Controls.Add(Me.GroupBox4)
Me.PartnerBox.Location = New System.Drawing.Point(812, 12)
Me.PartnerBox.Name = "PartnerBox"
Me.PartnerBox.Size = New System.Drawing.Size(194, 449)
Me.PartnerBox.TabIndex = 1
Me.PartnerBox.TabStop = False
Me.PartnerBox.Text = "Aradia"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(58, 277)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(78, 20)
Me.Label5.TabIndex = 4
Me.Label5.Text = "Girlfriend"
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.Panel3)
Me.GroupBox4.Controls.Add(Me.PartnerHorninessEffects)
Me.GroupBox4.Location = New System.Drawing.Point(6, 66)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(181, 202)
Me.GroupBox4.TabIndex = 3
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Horniness (Estimate)"
'
'Panel3
'
Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel3.Controls.Add(Me.Label6)
Me.Panel3.Location = New System.Drawing.Point(7, 22)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(171, 24)
Me.Panel3.TabIndex = 2
'
'Label6
'
Me.Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(6, Byte), Integer), CType(CType(176, Byte), Integer), CType(CType(37, Byte), Integer))
Me.Label6.Location = New System.Drawing.Point(-1, 0)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(1, 24)
Me.Label6.TabIndex = 0
'
'PartnerHorninessEffects
'
Me.PartnerHorninessEffects.FormattingEnabled = True
Me.PartnerHorninessEffects.ItemHeight = 16
Me.PartnerHorninessEffects.Location = New System.Drawing.Point(7, 52)
Me.PartnerHorninessEffects.Name = "PartnerHorninessEffects"
Me.PartnerHorninessEffects.Size = New System.Drawing.Size(171, 148)
Me.PartnerHorninessEffects.TabIndex = 1
'
'ToolTipSlut
'
'
'AnimateHorninessIncreaseTimer
'
'
'MoreButton
'
Me.MoreButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MoreButton.Location = New System.Drawing.Point(710, 419)
Me.MoreButton.Name = "MoreButton"
Me.MoreButton.Size = New System.Drawing.Size(95, 42)
Me.MoreButton.TabIndex = 3
Me.MoreButton.Text = "More..."
Me.MoreButton.UseVisualStyleBackColor = True
'
'Engine
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1011, 473)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.StoryBoxContainer)
Me.Controls.Add(Me.MoreButton)
Me.Controls.Add(Me.ActionButton5)
Me.Controls.Add(Me.ActionButton4)
Me.Controls.Add(Me.ActionButton3)
Me.Controls.Add(Me.ActionButton2)
Me.Controls.Add(Me.ActionButton1)
Me.Controls.Add(Me.PartnerBox)
Me.Controls.Add(Me.GroupBox1)
Me.Name = "Engine"
Me.Text = "Violet"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
Me.StoryBoxContainer.ResumeLayout(False)
Me.PartnerBox.ResumeLayout(False)
Me.PartnerBox.PerformLayout()
Me.GroupBox4.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents PlayerHorninessEffects As ListBox
Friend WithEvents TimeLabel As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents PlayerMoodLevel As ProgressBar
Friend WithEvents PlayerEnergyLevel As ProgressBar
Friend WithEvents PlayerHungerLevel As ProgressBar
Friend WithEvents ActionButton1 As Button
Friend WithEvents ActionButton2 As Button
Friend WithEvents ActionButton3 As Button
Friend WithEvents ActionButton4 As Button
Friend WithEvents ActionButton5 As Button
Friend WithEvents Button9 As Button
Friend WithEvents Button7 As Button
Friend WithEvents Button8 As Button
Friend WithEvents Button6 As Button
Friend WithEvents StoryBoxContainer As Panel
Friend WithEvents StoryBox As RichTextBox
Friend WithEvents SubLocationLabel As Label
Friend WithEvents LocationLabel As Label
Friend WithEvents PartnerBox As GroupBox
Friend WithEvents Label5 As Label
Friend WithEvents GroupBox4 As GroupBox
Friend WithEvents PartnerHorninessEffects As ListBox
Friend WithEvents Panel2 As Panel
Friend WithEvents PlayerHorninessLevel As Label
Friend WithEvents Panel3 As Panel
Friend WithEvents Label6 As Label
Friend WithEvents TrackBar1 As TrackBar
Friend WithEvents Button1 As Button
Friend WithEvents ToolTipSlut As ToolTip
Friend WithEvents AnimateHorninessIncreaseTimer As Timer
Friend WithEvents MoreButton As Button
End Class

133
Violet/Engine.resx Normal file
View File

@ -0,0 +1,133 @@
<?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="StoryBox.Text" xml:space="preserve">
<value>Your juices are now trickling down your inner thighs. Your panties are wet enough to stick to your plump lips.
Aradia presses your back against the wall and continues to make out with you. She easily forces her tongue into your mouth and runs her tongue along yours. You moan softly, feeling your clit grow slightly. Wanting more, Aradia presses her body against yours, lifting her leg slightly. Her erect cock is tightly pressed against your inner thigh, pulsing with pure desperation.
Gandalf goes East.</value>
</data>
<metadata name="ToolTipSlut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="AnimateHorninessIncreaseTimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>150, 17</value>
</metadata>
</root>

294
Violet/Engine.vb Normal file
View File

@ -0,0 +1,294 @@
'BEGIN LICENCE "Lynnecence V1"
'1. pls no bully
'2. don't pass this software off as your own (covered by clause 1)
' a. also, don't sell this software (also covered by clause 1)
'3. if you decide to modify this for others to use, note the following:
' a. you must change the name and the icon (idk why you'd even want to keep the icon)
' b. you must express that the initial version is called violet and is made by lynnear software, and provide a link to the original
' c. feel free to include the original credits, you don't have to though
' d. use whatever licence you want for your version
' e. i'd appreciate being notified of the modified version's existence, but it's not necessary to do so. if you do want to, email me at thecoolone3@hotmail.com
'4. if you modify it for personal use, then go ahead and do whatever you want, but you still can't sell it
'5. feel free to rehost this, but provide a link to the original location
'6. if something is technically allowed by the licence, but it is against the spirit of the licence, don't do it (also covered by clause 1)
'7. you can't hold me liable if there's damages or whatever (unless you are pet)
'if you feel that this licence is too stupid/vague/memeish, use MPL 2.0 instead since that's pretty much what i was going for (sans the whole "YOU MUST INHERIT THIS LICENCE" rubbish)
'END LICENCE
'it is HIGHLY RECOMMENDED that you enable word wrap!
Imports System.Text.RegularExpressions
Public Class Engine
Shared You, Her As Character
Dim WidthToSet As Integer
Dim HorninessEffects As Dictionary(Of Integer, String) = New Dictionary(Of Integer, String)
Dim Butotns(5) As Button
Dim CurrentEvent As String
Dim VagooSynonyms() As String = {"vagoo", "vagoo", "snatch", "twat", "cunt", "pussy", "pussy"}
Dim CutesyVagooSynonyms() As String = {"vagoo", "pussy"}
Dim BenisSynonyms() As String = {"cock", "cock", "cock", "cock", "dick", "dick"}
Dim HugeSynonyms() As String = {"massive", "enormous", "huge", "gigantic"}
Dim TinySynonyms() As String = {"tiny", "small", "minuscule"}
Dim CuteSynonyms() As String = {"cute", "adorable", "sweet", "pretty"}
Dim SexySynonyms() As String = {"sexy", "hot", "attractive"}
Dim RestOfFormWidth, RestOfFormHeight As Integer
Dim MoreActions As ListBox
Private Sub Engine_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Randomize()
'Dim ass As Integer
'For i = 1 To 1000
' If RAO({True, False}) Then
' ass += 1
' End If
'Next
'MsgBox(ass)
MinimumSize = Size
LoadDefaultCharacters()
You = Lynne 'temp
Her = Aradia 'also temp
Her.Status.CurrentGenitalia = "penis" 'teeemp
'You = Aradia
'Her = Lynne
'You.Status.CurrentGenitalia = "penis"
You.Status.WearingBra = True
You.Status.WearingPanties = True
'SetMoreItems()
If (Not You.Genitals.HasBoth) Then
If You.Genitals.HasVagina Then You.Status.CurrentGenitalia = "vagina" Else You.Status.CurrentGenitalia = "penis"
End If
AddAllHorninessEffectsToDictionary()
'If You.Genitals.Vagina.Wetness > 2 Then MsgBox("Sloot alert!")
'MsgBox(HorninessEffects(600))
ChangeHorniness(True, 0)
For i = 0 To 4
Butotns(i) = Controls("ActionButton" & i + 1)
Next
Redraw()
CurrentEvent = "StoryBeginning"
SetStoryBoxText("<this should not appear ever>You've just gotten out of bed. Last night, [P] gave you the most amazing sex you've had in a long time. Just thinking about it gets you a little " & RAO({"turned on", "horny", "flustered"}) & ".[NL]Noticing that you've left the bed, [P] rolls over and greets you with a sleepy [Q]Good morning, [PN]![Q].[NL]You can't help but smile at how cute she looks with bed head. Her " & If(Her.Basics.Hair.Wavy, "wavy ", RandomArrayObject({"beautiful ", "lovely "})) & Her.Basics.Hair.Colour & " hair is a total mess." & If(Her.Status.CurrentGenitalia = "penis" And Her.Genitals.Penis.Length > 4, "[HS][NL][NL]You notice " & If(Her.Genitals.Penis.Length > 7, RAO({"a large", "an obvious", "an alluringly large"}), RAO({"a small", "a slight", "a subtle"})) & RAO({" bump", " tent-shaped bump"}) & " in the bedsheets." & If(You.Sexuality.Horniness.Frequency >= 3, " [HM]You bite your bottom lip and feel a slight warmth between your legs as " & RAO({"you visualise your girlfriend's ", "your mind treats you to an assortment of images of [P]'s", "you feel a modest yearning for [P]'s"}) & " " & If(Her.Genitals.Penis.Length > 7, RAO(HugeSynonyms) & " ", "") & RAO(BenisSynonyms) & ". [P] giggles when she catches you staring" & If(You.Personality.Tsundere >= 2, ", causing you to blush and look away quickly.", "."), If(Her.Genitals.Penis.Length > 7, "You find yourself ever so slightly turned on by this. Her cock is just so big...", "It's a sight you've grown accustomed to after spending so much time with her.")), "<text to display if partner has a vagoo>") & "[NL][NL]You are currently wearing a bra and a pair of panties. You have a pretty bad case of bed head." & If(You.Genitals.Vagina.Wetness > 3 And You.Sexuality.Horniness.Frequency > 3 And You.Status.CurrentGenitalia = "vagoo", "[NL]You notice that your " & RAO(CutesyVagooSynonyms) & " is a little wet. You must have had a very good dream.", ""), 0, {"Arouse yourself", "Cuddle with [P]<bed>", "Make breakfast", If(Her.Status.CurrentGenitalia = "penis" And Her.Genitals.Penis.Length > 4, "Get [P] off<reword this>", "")}, 250)
If Her.Status.CurrentGenitalia = "penis" Then Her.Status.Horniness = 200
'TEST AREA
'SetStoryBoxText("PASTE_TEXT_TO_TEST!", 10, {"Arouse yourself"}, 500, False, 500, False)
'MsgBox(BothInto("anus", False))
End Sub
Public Function GetPartnerHorninessEffect(Effect As String)
For i = 0 To PartnerHorninessEffects.Items.Count - 1
If PartnerHorninessEffects.Items(i).ToString = Effect Then Return True
Next
Return False
End Function
Public Sub SetPartnerHorninessEffect(Effect As String)
End Sub
Public Sub SetOptions(Options() As String)
For i = 0 To 4
Butotns(i).Visible = False
Next
For i = 0 To Options.Count - 1
Butotns(i).Visible = True
Butotns(i).Text = Regex.Replace(Options(i).Replace("[P]", Her.FirstName).Replace("[Y]", You.FirstName), "<[\w\s,.!\?'=:;"" \\|/\-0-9]*>", "")
Butotns(i).Tag = Options(i).ToLower
If Butotns(i).Text = "" Then Butotns(i).Visible = False
'ToolTipSlut.SetToolTip(Butotns(i), Butotns(i).Text)
Next
End Sub
Public Sub Redraw() Handles Me.Resize, Me.ResizeBegin, Me.ResizeEnd
If RestOfFormHeight = 0 Then
RestOfFormHeight = Height - StoryBox.Height
RestOfFormWidth = Width - StoryBox.Width
Else
StoryBox.Height = Height - RestOfFormHeight
StoryBox.Width = Width - RestOfFormWidth
StoryBoxContainer.Width = StoryBox.Width + 2
StoryBoxContainer.Height = StoryBox.Height + 2
PartnerBox.Left = Width - PartnerBox.Width - 27
For i = 0 To 4
Butotns(i).Top = Height - Butotns(i).Height * 2 - 17
Next
MoreButton.Top = Butotns(0).Top
End If
End Sub
Public Sub SetStoryBoxText(Text As String, MinutesTaken As Integer, ButtonActions() As String, HorninessChange As Integer, Optional HorninessIncrease As Boolean = True, Optional PartnerHorninessChange As Integer = 0, Optional PartnerHorninessIncrease As Boolean = True) 'my snicere aplogies
'SHORTCUT SYNTAX:
'[P] = Her.Name
'[Y] = You.Name
'[p] = First letter of Her.Name. Good for stuff like "A... Aradia..."
'[y] = First letter of You.Name
'[Q] = "
'[NL] = vbNewLine
'[HS],[HM],[HL],[HXL],[HXXL] = Increase (or decrease) You.Status.Horniness by 10, 20, 40, 75, and 100, respectively
'[PHS],[PHM],[PHL],[PHXL],[PHXXL] = Same as above, but for Her.Status.Horniness
SetOptions(ButtonActions)
HorninessChange += 10 * (Text.Split({"[HS]"}, 0).Length - 1) + 20 * (Text.Split({"[HM]"}, 0).Length - 1) + 40 * (Text.Split({"[HL]"}, 0).Length - 1) + 75 * (Text.Split({"[HXL]"}, 0).Length - 1) + 150 * (Text.Split({"[HXXL]"}, 0).Length - 1)
PartnerHorninessChange += 10 * (Text.Split({"[PHS]"}, 0).Length - 1) + 20 * (Text.Split({"[PHM]"}, 0).Length - 1) + 40 * (Text.Split({"[PHL]"}, 0).Length - 1) + 75 * (Text.Split({"[PHXL]"}, 0).Length - 1) + 150 * (Text.Split({"[PHXXL]"}, 0).Length - 1)
ChangeHorniness(True, HorninessChange, HorninessIncrease)
StoryBox.Text = Regex.Replace(Text.Replace("[P]", Her.FirstName).Replace("[Y]", You.FirstName).Replace("[PN]", RAO(You.Personality.PetNames)).Replace("[p]", Her.FirstName.Substring(0, 1)).Replace("[y]", You.FirstName.Substring(0, 1)).Replace("[NL]", vbNewLine).Replace("[Q]", """").BatchRemove({"[HS]", "[HM]", "[HL]", "[HXL]", "[HXXL]", "[PHS]", "[PHM]", "[PHL]", "[PHXL]", "[PHXXL]"}), "<[\w\s,.!\?'=:;"" \\|/\-0-9]*>", "")
'Replace("[HS]", "").Replace("[HM]", "").Replace("[HL]", "").Replace("[HXL]", "").Replace("[HXXL]", "").Replace("[PN]", RandomArrayObject(You.Personality.PetNames))
End Sub
Private Sub ActionButton(sender As Object, e As EventArgs) Handles ActionButton1.Click, ActionButton2.Click, ActionButton3.Click, ActionButton4.Click, ActionButton5.Click
Dim StoryOptions(), StoryButtons() As String
Dim StoryLength, StoryPlayerHorninessChange, StoryHerHorninessChange As Integer
Dim StoryPlayerHorninessIncrease As Boolean = True
Dim StoryHerHorninessIncrease As Boolean = True
Select Case sender.Tag
Case "arouse yourself"
'MsgBox(You.Status.Horniness)
Select Case You.Status.Horniness
Case 0 To 200
'shouldn't be available this early
Case 201 To 500
Dim PartnerLine As String = "[NL][NL][P], who has been watching you do this with interest, says [Q][Y], that's my job![Q]. She giggles and continues, [Q]" & If(BothInto("Degradation", True), "God, you're such a " & RAO(You.Sexuality.Kinks.Receiving.Degradation.EnjoyedNames) & ". ", "") & "Wow, you're really " & If(You.Genitals.Vagina.Wetness >= 3 And You.Status.CurrentGenitalia = "vagina", "wet", "turned on") & "... I'm actually pretty horny too, [PN]...[Q]"
Dim OptionA As String = "<THIS OPTION SHOULD ONLY BE LOADED FOR THOSE WITH VAGOOS>You gently run a finger over your plump pussy lips, which sends an anticipatory shiver down your spine. You move your finger closer to your clit and press on it gently, sending a wave of pleasure through your body. With your other hand, you " & If(You.Status.WearingBra, "slide your bra up a little and ", "") & "start twisting one of your stiff nipples" & If(You.Sexuality.Moaning.Easiness > 2, ", causing you to let out an involuntary moan, which you quickly stifle", "") & ". You feel your knees weakening and " & If(LocationLabel.Text.ToLower.Contains("bedroom"), "decide to sit on the bed", If(LocationLabel.Text.ToLower.Contains("living room"), If(SubLocationLabel.Text.ToLower.Contains("couch"), "are thankful you're already seated", "decide to sit on the couch"), If(SubLocationLabel.Text.ToLower.Contains("sitting"), "decide to sit on the floor", "are thankful that you're already seated"))) & " so that you can really get going. You " & If(You.Status.WearingBottom And Not You.Outfits.Outfit1.Bottom.IsSkirt, " unzip your fly to ", "") & If(You.Status.WearingPanties, "slide your panties aside and ", "") & "insert two fingers, moaning softly as they press against your " & If(You.Genitals.Vagina.Wetness > 1, "wet ", "") & "pussy. You feel your juices trickling down your inner thighs as you fingerbang yourself, thrusting your hips into your own hand " & If(Not Her.Genitals.HasVagina, "as if your fingers were your girlfriend's cock", "") & ". Your breathing becomes heavy as you continue grinding against your hand. " & PartnerLine & "[NL][NL]Blushing, you gently slide your fingers out from your vagoo" & If(You.Genitals.Vagina.Wetness = 5, ", creating a thin trail of fluid from your fingertips to your warm slit, which snaps as you pull your fingers further away.", ".") & If(You.Status.WearingBra, " You pull your bra back down, covering your nipples. ", "") & If(You.Status.WearingPanties, "You pull your panties back across, allowing them to hug your lips tightly.", "")
If You.Status.CurrentGenitalia = "penis" Then OptionA = "<UNFINISHED>Unfinished"
Dim OptionB As String = "<co-written with pet>You slowly snake your hand up your curves before bringing your right hand up to your left " & If(IsFlat(You), "breast", "nipple") & ". You press your index finger against your nipple and softly gasp at how effective a simple press was at turning you on" & If(You.Status.WearingBra, ", even through your bra.<true story>", ".") & " You press down harder, feeling your bud slowly grow more stiff. No longer satisfied with presses, you run your finger over your nipple in a circular motion, pressing harder, moving faster, " & If(You.Sexuality.Moaning.Easiness > 2, "making you moan softly", "growing ever more turned on") & ". You become aware of just how stiff your nipples are and immediately feel " & If(You.Status.CurrentGenitalia = "vagina", "a warm feeling in your twat", "your cock pulsing") & ". Gently, you pinch " & If(You.Status.WearingBra, "the fabric directly over ", "") & "your firm bud. You feel your knees wobble a little, accompanied by " & If(You.Status.CurrentGenitalia = "vagina" And You.Genitals.Vagina.Wetness > 2, "your wetness spreading outward, warming your core and your inner thighs", "even stronger feelings of lust") & ". You sit down to avoid any mishaps before bringing both of your hands up to your chest. Your nipples are plainly visible through your bra as you pinch them both, first softly, then tighter and tighter, quickly giving in to the pleasure. " & If(You.Genitals.Vagina.Wetness > 3 And You.Status.CurrentGenitalia = "vagina", "Your pussy is now leaking, spreading that deliciously familiar wet feeling further down the insides of your thighs. ", If(You.Status.CurrentGenitalia = "penis", "Your " & SizeCock(You.Genitals.Penis.Length) & " starts pulsing and stiffening. " & If(You.Status.WearingPanties, If(You.Status.WearingBottom, If(You.Outfits.Outfit1.Bottom.IsSkirt, "You pull your skirt down and ", "you slide your pants down your smooth legs and "), "you ") & "pull your cock out of your panties and begin slowly masturbating. You feel yourself getting hornier as your " & If(You.Genitals.Penis.Veiny, "veiny ", "") & "cock throbs in your hand, causing you to masturbate faster and faster. You close your eyes and start twisting your right nipple with your free hand, continuing to get yourself off with your right hand.", ""), "<vagoo that doesn't get super wet>")) & If(You.Status.CurrentGenitalia = "Vagoo", "You move your hands " & If(You.Status.WearingBra, "under your bra", "onto your nipples") & "and pinch both of your buds tightly, causing you to moan eagerly. You allow your eyes to close and you start twisting your nipples, moaning sharply at the amazing feeling it produces.", "") & PartnerLine & " You blush and try to control yourself, putting your hands by your side."
StoryOptions = {OptionA, OptionB}
SubLocationLabel.Text = If(LocationLabel.Text.ToLower.Contains("bedroom"), "Sitting on the bed", If(LocationLabel.Text.ToLower.Contains("living room"), If(SubLocationLabel.Text.ToLower.Contains("couch"), "Sitting on the couch", SubLocationLabel.Text), If(SubLocationLabel.Text.ToLower.Contains("sitting"), "Sitting on the floor", SubLocationLabel.Text)))
SetStoryBoxText("You decide that you want to turn yourself on a little more, to make spending time with [P] even more interesting.[NL]" & RAO(StoryOptions), 3, {"Undress", "Make out With [P]"}, 300)
Case 501 To 800
Dim OptionA As String = "You decide that your wet pussy/erect cock deserves a little more attention."
End Select
Case "snuggle with [p]<bed>"
'FUTURE STUFF
Case "have [p] eat you out"
Select Case You.Status.CurrentGenitalia
Case "vagina"
SetStoryBoxText("<excerpt from insecurity's square one><UNFINISHED>[P] drops her own bra, along with her skirt and panties. You gasp when you see how enormous her cock is, causing you to become even more turned on. By this point, the regular moans in your fast, heavy breathing are quite obviously ones of desperation. [P] pushes you onto your back and stands on her hands and knees above you. She spreads her legs wider, lowering her body onto yours, and kisses you when she is close enough. You are lying with your hands above your head. Seeing the obvious opportunity, [P] pins your hands down (making sure not to use too much weight) and begins making out with you. You would've gasped, had you had the ability. You feel your wetness dripping from your warm snatch as [P] forces her tongue into your mouth. You press your thighs together tightly, hoping to at least somewhat satisfy your engorged clitoris, but find that it only makes you hornier. [P] sucks on your tongue and moans with passion. After nearly twenty seconds, the two of you slowly separate. Upon seeing [P]'s giant cock throbbing with pleasure, you feel yourself become even hornier.
[P] runs her hand along your cheek, then over your curves, and stops at your hips. She then moves back so that she's sitting on your thighs. while still maintaining eye contact with you, she slowly runs her finger toward your pussy. As [P] draws nearer and nearer, your breathing grows even heavier, and your constant, lustful moans let [P] know that what she's doing is working. [P] runs her finger along your plump, wet lips, turning you on further. You gasp with ecstasy as [P]'s finger arrives at your stiff clitoris. [P] gently presses your love button, causing you to let out a rather loud moan (which you quickly stifle). [P] giggles and presses it again, this time for longer, and harder. You throw your head back and moan with desperation. [P] slides two fingers into your cunt, making sure that they press against your swollen clitoris. She pulls them back out, showing you that they're coated in a thin layer of your hot juices. You blush deeply upon being shown how wet you are. After fingerbanging you for about thirty seconds, [P] decides that you deserve (and need) more.
[P] kisses you and runs her tongue over your boobs and tummy, stopping above your warm, aching slit. You gasp when you realise what is about to happen, before spreading yourself with your fingers. [P] runs her tongue over your pudgy lips a few times, adding to the wetness that coats them. After teasing you like this a few more times, [P] slowly, gently presses her tongue against your love button, catching you by surprise. You involuntarily buck your hips a little and let out a loud, high-pitched moan. [P] giggles, satisfied with the effect she's managed to have, before running her tongue up along the length of your snatch. She grabs your hips with both hands and pulls herself into your twat, running her tongue over and around your clit. Giving in to your urges, you put your hands on the back of [P]'s head and grind your pussy into her face. Your moaning grows louder and less spaced out as you draw near to orgasm. [P] runs her tongue up along your slit a few more times, pushing you over the edge. Your whole body twitches and you fall backwards onto the bed, panting. Your face is flushed bright red.
[P] giggles and lays next to you on the bed, holding your hand tightly.", 10, {"???"}, 400, False, 400, False)
End Select
Case Else
MsgBox("No response written for """ & sender.Tag & """!")
End Select
'SetStoryBoxText(Intro & RAO(StoryOptions), StoryLength, StoryButtons, StoryPlayerHorninessChange, StoryPlayerHorninessIncrease, StoryHerHorninessChange, StoryHerHorninessIncrease)
End Sub
Public Function SizeCock(Length As Integer)
Select Case Length
Case 3 - 4
Return RAO(TinySynonyms) & " cock"
Case 5 - 7
Return "cock"
Case Else
Return RAO(HugeSynonyms) & " cock"
End Select
End Function
Public Function IsFlat(Target As Character)
Return Target.Basics.Boobs.CupSize = 0
End Function
Public Function BothInto(Kink As String, PartnerGives As Boolean)
Try
If PartnerGives Then
Return CallByName(You.Sexuality.Kinks.Receiving, "Into" & Kink, CallType.Get) = CallByName(Her.Sexuality.Kinks.Giving, "Into" & Kink, CallType.Get)
Else
Return CallByName(You.Sexuality.Kinks.Giving, "Into" & Kink, CallType.Get) = CallByName(Her.Sexuality.Kinks.Receiving, "Into" & Kink, CallType.Get)
End If
Catch ex As MissingMemberException
MsgBox("Invalid kink!")
End Try
Return True
End Function
Public Sub IncrementTime(MinutesToIncrementBy)
End Sub
Public Sub ChangeHorniness(ApplyToYou As Boolean, AmountToChangeBy As Integer, Optional Add As Boolean = True)
If AmountToChangeBy > 50 Then
AmountToChangeBy = AmountToChangeBy + (Rnd() * 10 + 5) - (Rnd() * 10 + 5)
End If
Dim CurrentHorniness As Integer = YouOrHer(ApplyToYou).Status.Horniness
Dim HStrength As Integer = YouOrHer(ApplyToYou).Sexuality.Horniness.Strength
Dim HFrequency As Integer = YouOrHer(ApplyToYou).Sexuality.Horniness.Frequency
If Add Then CurrentHorniness += AmountToChangeBy + Math.Ceiling((AmountToChangeBy / 10) * 1 + ((HStrength / 10) + (HFrequency / 10)) / 2) Else CurrentHorniness -= AmountToChangeBy
'If AmountToChangeBy > 50 Then MsgBox("Added " & AmountToChangeBy + Math.Ceiling((AmountToChangeBy / 10) * 1 + ((HStrength / 10) + (HFrequency / 10)) / 2))
SetHorniness(ApplyToYou, CurrentHorniness)
WidthToSet = (CDbl(You.Status.Horniness) / 1000.0) * 171
If ApplyToYou Then 'partner's effect box works differently: at certain horniness levels, they may start leaking cum, moaning, etc. when this happens, it is then added to the box
PlayerHorninessEffects.Items.Clear()
For i = 1 To YouOrHer(ApplyToYou).Status.Horniness
AnimateHorninessIncreaseTimer.Start()
If HorninessEffects.ContainsKey(i) Then
'MsgBox(You.Name & " Is horny enough To experience " & HorninessEffects(i).RemoveFirst(4) & "!")
If HorninessEffects(i).ToString.StartsWith("COCK") Then If You.Status.CurrentGenitalia = "penis" Then PlayerHorninessEffects.Items.Add(HorninessEffects(i).RemoveFirst(4))
If HorninessEffects(i).ToString.StartsWith("VGOO") Then If You.Status.CurrentGenitalia = "vagina" Then PlayerHorninessEffects.Items.Add(HorninessEffects(i).RemoveFirst(4))
If HorninessEffects(i).ToString.StartsWith("BOTH") Then PlayerHorninessEffects.Items.Add(HorninessEffects(i).RemoveFirst(4))
End If
Next
PlayerHorninessEffects.TopIndex = PlayerHorninessEffects.Items.Count - 1
End If
End Sub
Public Sub SetHorniness(ApplyToYou, Horniness)
If ApplyToYou Then You.Status.Horniness = Horniness Else Her.Status.Horniness = Horniness
End Sub
Public Function YouOrHer(ReturnYou As Boolean)
If ReturnYou Then Return You
Return Her
End Function
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button1.Click
ChangeHorniness(True, sender.Text.ToString.Replace("+", ""))
End Sub
Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
SetHorniness(True, TrackBar1.Value)
ChangeHorniness(True, 0)
End Sub
Private Sub ToolTipSlut_Popup(sender As Object, e As PopupEventArgs) Handles ToolTipSlut.Popup
End Sub
Private Sub MoreButton_Click(sender As Object, e As EventArgs) Handles MoreButton.Click
Dim Options() As String = {"Kiss " & Her.FirstName, "Cuddle " & Her.FirstName}
If You.Status.Horniness > 400 And Her.Status.Horniness > 400 Then
End If
End Sub
Private Sub AnimateHorninessIncreaseTimer_Tick(sender As Object, e As EventArgs) Handles AnimateHorninessIncreaseTimer.Tick
If WidthToSet > PlayerHorninessLevel.Width Then
PlayerHorninessLevel.Width += 1
ElseIf WidthToSet < PlayerHorninessLevel.Width Then
PlayerHorninessLevel.Width -= 1
ElseIf WidthToSet = PlayerHorninessLevel.Width Then
AnimateHorninessIncreaseTimer.Stop()
End If
End Sub
Public Sub AddAllHorninessEffectsToDictionary()
HorninessEffects.Add(100, "BOTHStaring")
HorninessEffects.Add(200, "BOTHThinking affected")
HorninessEffects.Add(250, "BOTHHard nipples")
HorninessEffects.Add(400, "COCKErect")
HorninessEffects.Add(450, "VGOOWet")
HorninessEffects.Add(500, "BOTHBreathing heavily")
HorninessEffects.Add(550, "COCKPulsing")
HorninessEffects.Add(600, "COCKLeaking cum")
HorninessEffects.Add(625, "VGOOLeaking juices")
HorninessEffects.Add(650, "BOTHMoaning softly")
HorninessEffects.Add(700, "VGOOEnlarged clitoris")
HorninessEffects.Add(750, "BOTHDesparate")
HorninessEffects.Add(800, "BOTHMotor control impacted")
HorninessEffects.Add(900, "BOTHCan't think")
HorninessEffects.Add(950, "BOTHCan no longer resist")
End Sub
End Class

475
Violet/Extensions.vb Normal file
View File

@ -0,0 +1,475 @@
Imports System.Runtime.CompilerServices
Public Module Extensions
Public ControlColour As Color = Color.FromArgb(255, 240, 240, 240)
Public Lynne, Aradia, Petra As Character
'************************
'*****CHARACTER INFO*****
'************************
Public Sub LoadDefaultCharacters() 'anything omitted is false by default
With Lynne
.FirstName = "Lynne"
.LastName = "Megido"
With .Basics
.Height = 167
.Weight = 72
.Race = "human"
.EyeColour = "dark brown"
.BodyShape = 3 'curvy
.Strength = 1
.SkinColour = 1
.Boobs.CupSize = 3 'C cups, because a girl can dream ;u;
.Boobs.AreolaSize = 2
.Boobs.NippleSize = 2
.ButtSize = 5
.Hair.Length = "long (mid-back)"
.Hair.Colour = "brown"
.Hair.Wavy = True
End With
With .Genitals
.HasVagina = True
With .Vagina
.ClitSize = 4
.Depth = 8
.Tightness = 3
.Wetness = 5
.HymenIntact = True
.LeaksCum = True
End With
End With
With .Sexuality
.Horniness.Frequency = 4
.Horniness.Strength = 4
.Horniness.RechargeTime = 2
.Moaning.Easiness = 5
.Moaning.Volume = 4
.SD.IsSub = True
.Position.DoesntMind = True
.PreferredGenitalia = 5 'bias towards cocks <3
With .Kinks
.EnjoysBeingShorter = True
.EnjoysBeingWeaker = True
With .Receiving
.IntoDegradation = True
.IntoExhibitionism = True
.IntoCommanding = True
.IntoOwnership = True
.IntoPudge = True
With .Degradation
.EnjoyedNames = {"slut", "cockslut", "cumslut", "whore", "bitch in heat"}
.EnjoyedInsultTopics = {"weakness", "wetness"}
.EnjoyedInsultingAdjectives = {"easy", "horny"}
End With
With .Exhibitionism
.Kiss = True
.MakeOut = True
.DressRevealingly = True
.BeNaked = True
.PerformOral = True
.HaveCumAndOrJuicesVisible = True
.Fuck = True
End With
With .Commanding
.Fuck = True
.MakeOut = True
.Masturbate = True
.PerformOral = True
.SpreadSelf = True
.Undress = True
End With
.Noncon = 3
End With
With .Giving
.IntoDegradation = True
.IntoExhibitionism = True
With .Degradation
.EnjoyedNames = {"slut"}
End With
With .Exhibitionism
.Kiss = True
.MakeOut = True
.DressRevealingly = True
.BeNaked = True
.PerformOral = True
.HaveCumAndOrJuicesVisible = True
.Fuck = True
End With
.Noncon = 2
End With
End With
End With
With .Personality
.Humour = 5
.Intelligence = 3
.SelfEsteem = 1
.Sensitivity = 5
.Sluttiness = 5
.Tsundere = 2
.Ambition = 2
With .Interests
.Computers = True
.BeingAHousewife = True
.Gaming = True
.Porn = True
End With
With .Disinterests
.History = True
.Geography = True
.Religion = True
End With
.FavouriteCompliments = {"so cute", "so adorable", "adorable", "amazing"}
.Compliments = {"great with computers", "hilarious", "wonderful"}
.PetNames = {"cutie", "cream puff", "sweetie", "honey bunch"}
End With
With .Outfits
With .Outfit1
With .Top
.ShortSleeves = True
.PrimaryColour = "white"
.SecondaryColour = "black"
.Pattern = "stripy (horizontal)"
End With
With .Bottom
.IsSkirt = True
.Length = 0
.Pattern = "none"
.PrimaryColour = "black"
.SecondaryColour = "black"
End With
End With
End With
End With
With Aradia
.FirstName = "Aradia"
.LastName = "Megido"
With .Basics
.Height = 172
.Weight = 89
.EyeColour = "dark brown"
.Hair.Colour = "black"
.Hair.Length = "long (lower back)"
.Hair.Wavy = True
.BodyShape = 5 'pudgy
.Boobs.AreolaSize = 2
.Boobs.CupSize = 7
.Boobs.NippleSize = 2
.ButtSize = 4
.Race = "troll"
.SkinColour = 1
.Strength = 3
End With
With .Genitals
.HasBoth = True
.PreferenceLevel = 5 'prefers using her cock more than her vagoo
With .Penis
.CumAmount = 5
.Length = 9
.LargeWhenFlaccid = True
.Girth = 3
.Veiny = True
End With
With .Vagina
.ClitSize = 5
.Depth = 10
.HymenIntact = True
.LeaksCum = True
.Tightness = 2
.Wetness = 5
End With
End With
With .Sexuality
With .Horniness 'MAXIMUM OVERDRIVE
.Frequency = 5
.Strength = 5
.RechargeTime = 1
End With
.Moaning.Easiness = 3
.Moaning.Volume = 3
.Position.DoesntMind = True
.SD.IsDom = True
.PreferredGenitalia = 2
With .Kinks
.EnjoysBeingTaller = True
.EnjoysBeingStronger = True
With .Giving
.IntoDegradation = True
.IntoExhibitionism = True
.IntoCommanding = True
.IntoOwnership = True
.IntoPudge = True
With .Commanding
.MakeOut = True
.Fuck = True
.Masturbate = True
.PerformOral = True
.SpreadSelf = True
.Undress = True
End With
With .Exhibitionism
.Kiss = True
.MakeOut = True
.DressRevealingly = True
.BeNaked = True
.PerformOral = True
.HaveCumAndOrJuicesVisible = True
.Fuck = True
End With
.Noncon = 2
End With
With .Receiving
.IntoExhibitionism = True
.IntoPudge = True
With .Exhibitionism
.Kiss = True
.MakeOut = True
.DressRevealingly = True
.BeNaked = True
.PerformOral = True
.HaveCumAndOrJuicesVisible = True
.Fuck = True
End With
.Commanding.MakeOut = True
End With
End With
End With
With .Personality
.Humour = 4
.Intelligence = 4
.SelfEsteem = 4
.Sensitivity = 4
.Sluttiness = 5
.Tsundere = 1
.Ambition = 3
With .Interests
.Geography = True
.History = True
.Gaming = True
.Porn = True
End With
With .Disinterests
.Politics = True
.Religion = True
End With
.FavouriteCompliments = {"so cute", "so adorable", "so cool", "adorable", "amazing", "so hot", "wonderfully pudgy", "curvy as fuck"}
.Compliments = {"so cool with your time powers", "really hot", "wonderful", "inspiring"}
.PetNames = {"sweet pea", "cream puff", "mistress", "honey bunch"}
End With
With .Outfits
With .Outfit1
With .Top
.Pattern = "Aries symbol"
.PrimaryColour = "black"
.SecondaryColour = "dark red"
End With
With .Bottom
.IsSkirt = True
.Length = 1
.Pattern = "none"
.PrimaryColour = "black"
.SecondaryColour = "black"
End With
End With
End With
End With
End Sub
Public Structure GodTierInfo
Dim IsGodTier As Boolean
Dim GodClass, Aspect As String
End Structure
Public Structure Hairstyle
Dim Colour, Length As String
Dim Wavy As Boolean
End Structure
Public Structure Breasts 'what am i doing with my life
Dim CupSize, NippleSize, AreolaSize As Integer
End Structure
Public Structure CharacterBasics
Dim Height, Weight, Strength, SkinColour, ButtSize, BodyShape As Integer
Dim Race, EyeColour As String
Dim GodTier As GodTierInfo
Dim Hair As Hairstyle
Dim Boobs As Breasts 'fucking hell
End Structure
Public Structure PenisInfo '8======D
Dim Length, Girth, CumAmount As Integer
Dim LargeWhenFlaccid, Permaflaccid, Veiny, Sterile As Boolean
End Structure
Public Structure VaginaInfo '{'}
Dim Depth As Double
Dim Tightness, Wetness, ClitSize As Integer
Dim Fertile, LeaksCum, HymenIntact As Boolean
End Structure
Public Structure CharacterGenitals
Dim Penis As PenisInfo
Dim Vagina As VaginaInfo
Dim HasPenis, HasVagina, HasBoth As Boolean
Dim PreferenceLevel As Integer
'0: Strongly vagoo. 6: Strongly benis.
End Structure
Public Structure SubDomInfo
Dim IsDom, IsSub, IsSwitch As Boolean
End Structure
Public Structure TopBottomInfo
Dim IsTop, DoesntMind, IsBottom As Boolean
End Structure
Public Structure HorninessInfo
Dim Frequency, Strength, RechargeTime As Integer
End Structure
Public Structure MoanInfo
Dim Easiness, Volume As Integer
End Structure
Public Structure DegradationInfo
Dim EnjoyedNames() As String 'likes calling her partner a _______.e.g. slut, whore, hoe
Dim EnjoyedInsultingAdjectives() As String 'likes calling her partner a ________ person. e.g. easy, worthless, desparate
Dim EnjoyedInsultTopics() As String 'enjoys insulting her partner's ________. e.g. small cock, wetness, weight
'format like this: {"small cock", "wetness", "short", "tall"}
'meaning: this character enjoys being made fun of for her small cock and her wet her pussy gets, along with how short OR tall she is compared to her partner.
End Structure
Public Structure ExhibitionismInfo
Dim Kiss, MakeOut, DressRevealingly, PerformOral, HaveCumAndOrJuicesVisible, BeNaked, Fuck
End Structure
Public Structure CommandingInfo
Dim MakeOut, Undress, PerformOral, Masturbate, SpreadSelf, Fuck As Boolean
End Structure
Public Structure KinkInfo
Dim Degradation As DegradationInfo
Dim Exhibitionism As ExhibitionismInfo
Dim Commanding As CommandingInfo
Dim Noncon As Integer '1: not into noncon, 2: would enjoy unexpected kisses from attractive girls, 3. would enjoy being groped/fondled by someone attractive, 4. would enjoy getting groped, 5. has rape fantasy
Dim IntoDegradation, IntoExhibitionism, IntoCommanding, IntoOwnership, IntoPudge As Boolean
End Structure
Public Structure CharacterKinkInfo
Dim Giving, Receiving As KinkInfo
Dim EnjoysBeingShorter, EnjoysBeingTaller, EnjoysBeingStronger, EnjoysBeingWeaker As Boolean
End Structure
Public Structure CharacterSexuality
Dim SD As SubDomInfo
Dim Position As TopBottomInfo
Dim Kinks As CharacterKinkInfo
Dim Moaning As MoanInfo
Dim Horniness As HorninessInfo
Dim PreferredGenitalia As Integer '0:100% vagoo, 6: 100% benis
End Structure
Public Structure InterestsInfo
Dim Computers, Gaming, Cooking, BeingAHousewife, Politics, Science, Healthcare, Porn, Art, Music, Geography, History, WorldNews, Religion As Boolean
End Structure
Public Structure CharacterPersonality
Dim Intelligence, Humour, SelfEsteem, Sensitivity, Tsundere, Sluttiness, Ambition As Integer
Dim Goals As String() 'TODO
Dim FavouriteCompliments As String()
Dim Compliments As String()
Dim PetNames As String()
Dim Interests, Disinterests As InterestsInfo
End Structure
Public Structure OutfitTop
Dim ShortSleeves As Boolean
Dim PrimaryColour, SecondaryColour, Pattern As String
End Structure
Public Structure OutfitBottom
Dim IsSkirt As Boolean
Dim Length As Integer '0:Mini, 1:Short, 2:Long
Dim PrimaryColour, SecondaryColour, Pattern As String
End Structure
Public Structure CharacterOutfit
Dim Top As OutfitTop
Dim Bottom As OutfitBottom
End Structure
Public Structure CharacterOutfits
Dim Outfit1, Outfit2, Outfit3 As CharacterOutfit
End Structure
Public Structure CharacterStatus
Dim Horniness, Hunger, Fatigue, Mood As Integer
Dim Location, CurrentGenitalia As String
Dim WearingBra, WearingPanties, WearingTop, WearingBottom As Boolean
End Structure
Public Structure Character
Dim FirstName, LastName As String
Dim Basics As CharacterBasics
Dim Genitals As CharacterGenitals
Dim Sexuality As CharacterSexuality
Dim Personality As CharacterPersonality
Dim Outfits As CharacterOutfits
Dim Status As CharacterStatus
End Structure
'*******************
'***REUSABLE CODE***
'*******************
Public Function GetPath(file As String)
Dim FileArray As String() = file.Split("\")
Dim ReturnMe As String = ""
For i = 0 To FileArray.Length - 2
ReturnMe &= FileArray(i) & "\"
Next
Return ReturnMe
End Function
Public Function RandomArrayObject(Array)
If IsNothing(Array) Then Return "===ERROR: Passed array is empty!==="
Return Array(Rnd() * (Array.Length - 1))
End Function
Public Function RAO(Array)
Return RandomArrayObject(Array)
End Function
Public Function ProgramIcon()
Return Icon.ExtractAssociatedIcon(Application.ExecutablePath)
End Function
<Extension()>
Public Function RemoveLast(ByVal StringToModify As String, AmountToRemove As Integer)
Return StringToModify.Remove(StringToModify.Length - AmountToRemove)
End Function
<Extension()>
Public Function RemoveFirst(ByVal StringToModify As String, AmountToRemove As Integer)
Return StrReverse(StrReverse(StringToModify).Remove(StringToModify.Length - AmountToRemove))
End Function
Public Function rgbColour(r As Integer, g As Integer, b As Integer)
Return Color.FromArgb(255, r, g, b)
End Function
<Extension()>
Function BatchRemove(ByRef StringToClean As String, TextToStrip As String())
Dim ReturnText As String = StringToClean
For i = 0 To TextToStrip.Count - 1
ReturnText = ReturnText.Replace(TextToStrip(i), "")
Next
Return ReturnText
End Function
'******************
'***END REUSABLE***
'******************
End Module

View File

@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Violet.Engine
End Sub
End Class
End Namespace

View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Engine</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

View File

@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.
' Review the values of the assembly attributes
<Assembly: AssemblyTitle("Violet")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Hewlett-Packard")>
<Assembly: AssemblyProduct("Violet")>
<Assembly: AssemblyCopyright("Copyright © Hewlett-Packard 2016")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'The following GUID is for the ID of the typelib if this project is exposed to COM
<Assembly: Guid("2a58ce95-7de0-4e27-b3a6-c36dbc5aefce")>
' Version information for an assembly consists of the following four values:
'
' Major Version
' Minor Version
' Build Number
' Revision
'
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

103
Violet/My Project/Resources.Designer.vb generated Normal file
View File

@ -0,0 +1,103 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Violet.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property cancel() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("cancel", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property confirm() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("confirm", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property load() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("load", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property save() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("save", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

View File

@ -0,0 +1,133 @@
<?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>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\bin\Debug\dep\img\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="confirm" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\bin\Debug\dep\img\confirm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="load" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\bin\Debug\dep\img\load.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\bin\Debug\dep\img\save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

73
Violet/My Project/Settings.Designer.vb generated Normal file
View File

@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.Violet.My.MySettings
Get
Return Global.Violet.My.MySettings.Default
End Get
End Property
End Module
End Namespace

View File

@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

186
Violet/Violet.vbproj Normal file
View File

@ -0,0 +1,186 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="14.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{DB06D3A7-5995-45B9-91FC-E954E5B53930}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>Violet.My.MyApplication</StartupObject>
<RootNamespace>Violet</RootNamespace>
<AssemblyName>Violet</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>Violet.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Violet.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="Newtonsoft.Json, Version=4.5.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\packages\Newtonsoft.Json.4.5.6\lib\net40\Newtonsoft.Json.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Net.Http, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Net.Http.2.0.20710.0\lib\net40\System.Net.Http.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="System.Net.Http.Formatting, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNet.WebApi.Client.4.0.30506.0\lib\net40\System.Net.Http.Formatting.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="System.Net.Http.WebRequest, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Net.Http.2.0.20710.0\lib\net40\System.Net.Http.WebRequest.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="CharacterSettings.Designer.vb">
<DependentUpon>CharacterSettings.vb</DependentUpon>
</Compile>
<Compile Include="CharacterSettings.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Elaborate - Degradation.Designer.vb">
<DependentUpon>Elaborate - Degradation.vb</DependentUpon>
</Compile>
<Compile Include="Elaborate - Degradation.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Engine.Designer.vb">
<DependentUpon>Engine.vb</DependentUpon>
</Compile>
<Compile Include="Engine.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Extensions.vb" />
<Compile Include="Welcome.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Welcome.Designer.vb">
<DependentUpon>Welcome.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="CharacterSettings.resx">
<DependentUpon>CharacterSettings.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Elaborate - Degradation.resx">
<DependentUpon>Elaborate - Degradation.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Engine.resx">
<DependentUpon>Engine.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Welcome.resx">
<DependentUpon>Welcome.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
<None Include="packages.config" />
</ItemGroup>
<ItemGroup>
<None Include="bin\Debug\dep\img\cancel.png" />
</ItemGroup>
<ItemGroup>
<None Include="bin\Debug\dep\img\confirm.png" />
</ItemGroup>
<ItemGroup>
<None Include="bin\Debug\dep\img\load.png" />
</ItemGroup>
<ItemGroup>
<None Include="bin\Debug\dep\img\save.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

78
Violet/Welcome.Designer.vb generated Normal file
View File

@ -0,0 +1,78 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Welcome
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.Label1 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Segoe UI Light", 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(148, 36)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(177, 81)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Violet"
'
'Button1
'
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.Location = New System.Drawing.Point(150, 154)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(172, 33)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Create a story"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.Location = New System.Drawing.Point(150, 227)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(172, 33)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Use a preset"
Me.Button2.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(473, 297)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Welcome to Violet"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
End Class

120
Violet/Welcome.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=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>
</root>

5
Violet/Welcome.vb Normal file
View File

@ -0,0 +1,5 @@
Public Class Welcome
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
End Sub
End Class

File diff suppressed because it is too large Load Diff

Binary file not shown.

View File

@ -0,0 +1,43 @@
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<!DOCTYPE dotfuscator SYSTEM "http://www.preemptive.com/dotfuscator/dtd/dotfuscator_v2.3.dtd">
<dotfuscator version="2.3">
<input>
<asmlist>
<inputassembly refid="bd4a3d85-72e2-4221-86d2-b727bc09c0a5">
<option>honoroas</option>
<option>stripoa</option>
<option>library</option>
<option>transformxaml</option>
<file dir="C:\Users\theco\Documents\Visual Studio 2015\Projects\Violet\Violet\bin\Debug" name="Violet.exe" />
</inputassembly>
</asmlist>
</input>
<output>
<file dir="${configdir}\Dotfuscated" />
</output>
<renaming>
<option>xmlserialization</option>
<mapping>
<mapoutput overwrite="false">
<file dir="${configdir}\Dotfuscated" name="Map.xml" />
</mapoutput>
</mapping>
<referencerulelist>
<referencerule rulekey="{6655B10A-FD58-462d-8D4F-5B1316DFF0FF}" />
<referencerule rulekey="{7D9C8B02-2383-420f-8740-A9760394C2C1}" />
<referencerule rulekey="{229FD6F8-5BCC-427b-8F72-A7A413ECDF1A}" />
<referencerule rulekey="{2B7E7C8C-A39A-4db8-9DFC-6AFD38509061}" />
<referencerule rulekey="{494EA3BA-B947-44B5-BEE8-A11CC85AAF9B}" />
<referencerule rulekey="{89769974-93E9-4e71-8D92-BE70E855ACFC}" />
<referencerule rulekey="{4D81E604-A545-4631-8B6D-C3735F793F80}" />
</referencerulelist>
</renaming>
<sos mergeruntime="true">
<option>version:v4</option>
<option>sendanalytics</option>
<option>dontsendtamper</option>
</sos>
<smartobfuscation>
<smartobfuscationreport verbosity="all" overwrite="false" />
</smartobfuscation>
</dotfuscator>

Binary file not shown.

File diff suppressed because it is too large Load Diff

Binary file not shown.

File diff suppressed because it is too large Load Diff

Binary file not shown.

View File

@ -0,0 +1,63 @@
<?xml version="1.0" encoding="utf-8"?>
<doc>
<assembly>
<name>System.Net.Http.WebRequest</name>
</assembly>
<members>
<member name="T:System.Net.Http.RtcRequestFactory">
<summary>Represents the class that is used to create special <see cref="T:System.Net.Http.HttpRequestMessage" /> for use with the Real-Time-Communications (RTC) background notification infrastructure.</summary>
</member>
<member name="M:System.Net.Http.RtcRequestFactory.Create(System.Net.Http.HttpMethod,System.Uri)">
<summary>Creates a special <see cref="T:System.Net.Http.HttpRequestMessage" /> for use with the Real-Time-Communications (RTC) background notification infrastructure.</summary>
<returns>Returns <see cref="T:System.Net.Http.HttpRequestMessage" />.An HTTP request message for use with the RTC background notification infrastructure.</returns>
<param name="method">The HTTP method.</param>
<param name="uri">The Uri the request is sent to.</param>
</member>
<member name="T:System.Net.Http.WebRequestHandler">
<summary>Provides desktop-specific features not available to Windows Store apps or other environments. </summary>
</member>
<member name="M:System.Net.Http.WebRequestHandler.#ctor">
<summary>Initializes a new instance of the <see cref="T:System.Net.Http.WebRequestHandler" /> class.</summary>
</member>
<member name="P:System.Net.Http.WebRequestHandler.AllowPipelining">
<summary> Gets or sets a value that indicates whether to pipeline the request to the Internet resource.</summary>
<returns>Returns <see cref="T:System.Boolean" />.true if the request should be pipelined; otherwise, false. The default is true. </returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.AuthenticationLevel">
<summary>Gets or sets a value indicating the level of authentication and impersonation used for this request.</summary>
<returns>Returns <see cref="T:System.Net.Security.AuthenticationLevel" />.A bitwise combination of the <see cref="T:System.Net.Security.AuthenticationLevel" /> values. The default value is <see cref="F:System.Net.Security.AuthenticationLevel.MutualAuthRequested" />.</returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.CachePolicy">
<summary>Gets or sets the cache policy for this request.</summary>
<returns>Returns <see cref="T:System.Net.Cache.RequestCachePolicy" />.A <see cref="T:System.Net.Cache.RequestCachePolicy" /> object that defines a cache policy. The default is <see cref="P:System.Net.WebRequest.DefaultCachePolicy" />.</returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.ClientCertificates">
<summary>Gets or sets the collection of security certificates that are associated with this request.</summary>
<returns>Returns <see cref="T:System.Security.Cryptography.X509Certificates.X509CertificateCollection" />.The collection of security certificates associated with this request.</returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.ContinueTimeout">
<summary>Gets or sets the amount of time, in milliseconds, the application will wait for 100-continue from the server before uploading data.</summary>
<returns>Returns <see cref="T:System.TimeSpan" />.The amount of time, in milliseconds, the application will wait for 100-continue from the server before uploading data. The default value is 350 milliseconds.</returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.ImpersonationLevel">
<summary>Gets or sets the impersonation level for the current request.</summary>
<returns>Returns <see cref="T:System.Security.Principal.TokenImpersonationLevel" />.The impersonation level for the request. The default is <see cref="F:System.Security.Principal.TokenImpersonationLevel.Delegation" />.</returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.MaxResponseHeadersLength">
<summary>Gets or sets the maximum allowed length of the response headers.</summary>
<returns>Returns <see cref="T:System.Int32" />.The length, in kilobytes (1024 bytes), of the response headers.</returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.ReadWriteTimeout">
<summary>Gets or sets a time-out in milliseconds when writing a request to or reading a response from a server.</summary>
<returns>Returns <see cref="T:System.Int32" />.The number of milliseconds before the writing or reading times out. The default value is 300,000 milliseconds (5 minutes). </returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.ServerCertificateValidationCallback">
<summary>Gets or sets a callback method to validate the server certificate.</summary>
<returns>Returns <see cref="T:System.Net.Security.RemoteCertificateValidationCallback" />.A callback method to validate the server certificate.</returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.UnsafeAuthenticatedConnectionSharing">
<summary>Gets or sets a value that indicates whether to allow high-speed NTLM-authenticated connection sharing.</summary>
<returns>Returns <see cref="T:System.Boolean" />.true to keep the authenticated connection open; otherwise, false.</returns>
</member>
</members>
</doc>

Binary file not shown.

File diff suppressed because it is too large Load Diff

BIN
Violet/bin/Debug/Violet.exe Normal file

Binary file not shown.

View File

@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
</startup>
</configuration>

BIN
Violet/bin/Debug/Violet.pdb Normal file

Binary file not shown.

Binary file not shown.

View File

@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
</startup>
</configuration>

View File

@ -0,0 +1,11 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>

View File

@ -0,0 +1,46 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
Violet
</name>
</assembly>
<members>
<member name="T:Violet.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
<member name="P:Violet.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member>
<member name="P:Violet.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member>
<member name="P:Violet.My.Resources.Resources.cancel">
<summary>
Looks up a localized resource of type System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Violet.My.Resources.Resources.confirm">
<summary>
Looks up a localized resource of type System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Violet.My.Resources.Resources.load">
<summary>
Looks up a localized resource of type System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Violet.My.Resources.Resources.save">
<summary>
Looks up a localized resource of type System.Drawing.Bitmap.
</summary>
</member>
</members>
</doc>

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.0 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.3 KiB

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
Violet/obj/Debug/Violet.exe Normal file

Binary file not shown.

BIN
Violet/obj/Debug/Violet.pdb Normal file

Binary file not shown.

View File

@ -0,0 +1,22 @@
c:\users\theco\documents\visual studio 2015\Projects\Violet\Violet\bin\Debug\Violet.exe.config
c:\users\theco\documents\visual studio 2015\Projects\Violet\Violet\bin\Debug\Violet.exe
c:\users\theco\documents\visual studio 2015\Projects\Violet\Violet\bin\Debug\Violet.pdb
c:\users\theco\documents\visual studio 2015\Projects\Violet\Violet\bin\Debug\Violet.xml
c:\users\theco\documents\visual studio 2015\Projects\Violet\Violet\obj\Debug\Violet.CharacterSettings.resources
c:\users\theco\documents\visual studio 2015\Projects\Violet\Violet\obj\Debug\Violet.Resources.resources
c:\users\theco\documents\visual studio 2015\Projects\Violet\Violet\obj\Debug\Violet.vbproj.GenerateResource.Cache
c:\users\theco\documents\visual studio 2015\Projects\Violet\Violet\obj\Debug\Violet.exe
c:\users\theco\documents\visual studio 2015\Projects\Violet\Violet\obj\Debug\Violet.xml
c:\users\theco\documents\visual studio 2015\Projects\Violet\Violet\obj\Debug\Violet.pdb
c:\users\theco\documents\visual studio 2015\Projects\Violet\Violet\obj\Debug\Violet.Welcome.resources
c:\users\theco\documents\visual studio 2015\Projects\Violet\Violet\obj\Debug\Violet.Engine.resources
C:\Users\theco\Documents\Visual Studio 2015\Projects\Violet\Violet\obj\Debug\Violet.Elaborate___Degradation.resources
C:\Users\theco\Documents\Visual Studio 2015\Projects\Violet\Violet\obj\Debug\Violet.vbprojResolveAssemblyReference.cache
C:\Users\theco\Documents\Visual Studio 2015\Projects\Violet\Violet\bin\Debug\Newtonsoft.Json.dll
C:\Users\theco\Documents\Visual Studio 2015\Projects\Violet\Violet\bin\Debug\System.Net.Http.dll
C:\Users\theco\Documents\Visual Studio 2015\Projects\Violet\Violet\bin\Debug\System.Net.Http.Formatting.dll
C:\Users\theco\Documents\Visual Studio 2015\Projects\Violet\Violet\bin\Debug\System.Net.Http.WebRequest.dll
C:\Users\theco\Documents\Visual Studio 2015\Projects\Violet\Violet\bin\Debug\Newtonsoft.Json.xml
C:\Users\theco\Documents\Visual Studio 2015\Projects\Violet\Violet\bin\Debug\System.Net.Http.xml
C:\Users\theco\Documents\Visual Studio 2015\Projects\Violet\Violet\bin\Debug\System.Net.Http.Formatting.xml
C:\Users\theco\Documents\Visual Studio 2015\Projects\Violet\Violet\bin\Debug\System.Net.Http.WebRequest.xml

Binary file not shown.

View File

@ -0,0 +1,46 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
Violet
</name>
</assembly>
<members>
<member name="T:Violet.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
<member name="P:Violet.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member>
<member name="P:Violet.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member>
<member name="P:Violet.My.Resources.Resources.cancel">
<summary>
Looks up a localized resource of type System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Violet.My.Resources.Resources.confirm">
<summary>
Looks up a localized resource of type System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Violet.My.Resources.Resources.load">
<summary>
Looks up a localized resource of type System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Violet.My.Resources.Resources.save">
<summary>
Looks up a localized resource of type System.Drawing.Bitmap.
</summary>
</member>
</members>
</doc>

6
Violet/packages.config Normal file
View File

@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="Microsoft.AspNet.WebApi.Client" version="4.0.30506.0" targetFramework="net40" />
<package id="Microsoft.Net.Http" version="2.0.20710.0" targetFramework="net40" />
<package id="Newtonsoft.Json" version="4.5.6" targetFramework="net40" />
</packages>

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,63 @@
<?xml version="1.0" encoding="utf-8"?>
<doc>
<assembly>
<name>System.Net.Http.WebRequest</name>
</assembly>
<members>
<member name="T:System.Net.Http.RtcRequestFactory">
<summary>Represents the class that is used to create special <see cref="T:System.Net.Http.HttpRequestMessage" /> for use with the Real-Time-Communications (RTC) background notification infrastructure.</summary>
</member>
<member name="M:System.Net.Http.RtcRequestFactory.Create(System.Net.Http.HttpMethod,System.Uri)">
<summary>Creates a special <see cref="T:System.Net.Http.HttpRequestMessage" /> for use with the Real-Time-Communications (RTC) background notification infrastructure.</summary>
<returns>Returns <see cref="T:System.Net.Http.HttpRequestMessage" />.An HTTP request message for use with the RTC background notification infrastructure.</returns>
<param name="method">The HTTP method.</param>
<param name="uri">The Uri the request is sent to.</param>
</member>
<member name="T:System.Net.Http.WebRequestHandler">
<summary>Provides desktop-specific features not available to Windows Store apps or other environments. </summary>
</member>
<member name="M:System.Net.Http.WebRequestHandler.#ctor">
<summary>Initializes a new instance of the <see cref="T:System.Net.Http.WebRequestHandler" /> class.</summary>
</member>
<member name="P:System.Net.Http.WebRequestHandler.AllowPipelining">
<summary> Gets or sets a value that indicates whether to pipeline the request to the Internet resource.</summary>
<returns>Returns <see cref="T:System.Boolean" />.true if the request should be pipelined; otherwise, false. The default is true. </returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.AuthenticationLevel">
<summary>Gets or sets a value indicating the level of authentication and impersonation used for this request.</summary>
<returns>Returns <see cref="T:System.Net.Security.AuthenticationLevel" />.A bitwise combination of the <see cref="T:System.Net.Security.AuthenticationLevel" /> values. The default value is <see cref="F:System.Net.Security.AuthenticationLevel.MutualAuthRequested" />.</returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.CachePolicy">
<summary>Gets or sets the cache policy for this request.</summary>
<returns>Returns <see cref="T:System.Net.Cache.RequestCachePolicy" />.A <see cref="T:System.Net.Cache.RequestCachePolicy" /> object that defines a cache policy. The default is <see cref="P:System.Net.WebRequest.DefaultCachePolicy" />.</returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.ClientCertificates">
<summary>Gets or sets the collection of security certificates that are associated with this request.</summary>
<returns>Returns <see cref="T:System.Security.Cryptography.X509Certificates.X509CertificateCollection" />.The collection of security certificates associated with this request.</returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.ContinueTimeout">
<summary>Gets or sets the amount of time, in milliseconds, the application will wait for 100-continue from the server before uploading data.</summary>
<returns>Returns <see cref="T:System.TimeSpan" />.The amount of time, in milliseconds, the application will wait for 100-continue from the server before uploading data. The default value is 350 milliseconds.</returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.ImpersonationLevel">
<summary>Gets or sets the impersonation level for the current request.</summary>
<returns>Returns <see cref="T:System.Security.Principal.TokenImpersonationLevel" />.The impersonation level for the request. The default is <see cref="F:System.Security.Principal.TokenImpersonationLevel.Delegation" />.</returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.MaxResponseHeadersLength">
<summary>Gets or sets the maximum allowed length of the response headers.</summary>
<returns>Returns <see cref="T:System.Int32" />.The length, in kilobytes (1024 bytes), of the response headers.</returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.ReadWriteTimeout">
<summary>Gets or sets a time-out in milliseconds when writing a request to or reading a response from a server.</summary>
<returns>Returns <see cref="T:System.Int32" />.The number of milliseconds before the writing or reading times out. The default value is 300,000 milliseconds (5 minutes). </returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.ServerCertificateValidationCallback">
<summary>Gets or sets a callback method to validate the server certificate.</summary>
<returns>Returns <see cref="T:System.Net.Security.RemoteCertificateValidationCallback" />.A callback method to validate the server certificate.</returns>
</member>
<member name="P:System.Net.Http.WebRequestHandler.UnsafeAuthenticatedConnectionSharing">
<summary>Gets or sets a value that indicates whether to allow high-speed NTLM-authenticated connection sharing.</summary>
<returns>Returns <see cref="T:System.Boolean" />.true to keep the authenticated connection open; otherwise, false.</returns>
</member>
</members>
</doc>

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1 @@


Binary file not shown.

Binary file not shown.

File diff suppressed because it is too large Load Diff

Binary file not shown.

File diff suppressed because it is too large Load Diff

Binary file not shown.

File diff suppressed because it is too large Load Diff

Binary file not shown.

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

Binary file not shown.

File diff suppressed because it is too large Load Diff

Binary file not shown.

File diff suppressed because it is too large Load Diff