294 lines
24 KiB
VB.net
294 lines
24 KiB
VB.net
'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 |