# mod_addedflavour_KSY_Events
if $ARGS[0] = 'KSY-ParkOrgyEv-X1':
*clr & cla
minut += rand(1,3)
modVar_AF_EventLock['KSY-ParkOrgyEv'] = daystart
gs 'stat'
gs 'themes', 'outdoors'
'
'
*nl
'You approach Kseniya who looks up to see you with a smile. "Hi ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '! It''s a surprise to see you out here today."'
*nl
'"It''s a surprise seeing you out here with clothes on!". This ellicits a chuckle from Kseniya who recognises that the only time you ever see her here is in the buff.'
*nl
if exhibitionQW >= 4:
if modVar_AF_EventTriggered['KSY-ParkOrgyEv'] = 0:
'"You know what ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I was just sitting here pepping myself up before meeting some of my friends deeper in the woods and it comes to mind that the occasion is something you too would be interested in. You fancy..." *mmm* "...joining me?"'
*nl
'It does sound wholesome enough, what could be the harm...'
elseif modVar_AF_EventTriggered['KSY-ParkOrgyEv'] > 0:
'"Hey ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '! I''m going to our little event again, do you fancy" *mmm* "coming with me? I''m sure you remember how much fun there is to be had!"'
*nl
'Well, it was a lot of fun...'
end
gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'chkpossible' , 3
if modVar_AF_Inhib['Result'] = 1:
act 'Go with Kseniya' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-X2'
end
else
'"Why haven''t you visited my shop yet! I''m looking forward to showing you my stock, I feel it will really show off your..." *mmm* "...curves."'
end
act 'Say goodbye' : gt $loc, $loc_arg
end
if $ARGS[0] = 'KSY-ParkOrgyEv-X2':
*clr & cla
CLOSE ALL
modVar_AF_EventTriggered['KSY-ParkOrgyEv'] += 1
minut += rand(3,6)
gs 'stat'
gs 'themes', 'outdoors'
''
*nl
'Kseniya has made sure you are wearing as skimpy a clothing as you can before the two of you start walking off into a more hidden area of the park. Sure enough it is not long before more people in a similar state of clothing start appearing alongside you.'
*nl
'You get introduced quickly and shortly thereafter the pair of you are chatting amongst your new friends.'
*nl
'After a short while you come across an open glade and see there is a small bbq and tent already set up; seems like a better place than many to start mingling.'
act 'Mingle and Party' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-1'
end
if $ARGS[0] = 'KSY-ParkOrgyEv-1':
*clr & cla
minut += rand(8,12)
modVar_AF_Rand = rand(1,4)
modVar_AF_Temp = modVar_AF_Rand
gs 'stat'
gs 'themes', 'outdoors'
''
*nl
'You immediately start integrating yourself into the group of people who have appeared in this seemingly random patch of grass. Kseniya seems to know them all well and is making sure they are all comfortable.'
*nl
'As the music plays and alcohol is consumed, everyone is starting to loosen up.'
act 'Party more' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-2'
end
if $ARGS[0] = 'KSY-ParkOrgyEv-2':
*clr & cla
minut += rand(8,12)
:Kevrandloop1
modVar_AF_Rand = rand(1,4)
if modVar_AF_Rand = modVar_AF_Temp:
jump 'Kevrandloop1'
end
gs 'stat'
gs 'themes', 'outdoors'
''
*nl
'The party is going well and everyone is comfortable in each others company. You have danced with girls and guys alike, and people have not been shy about touching you; something you certainly are not complaining about!'
*nl
'The energy we are building here is already getting people a bit frisky. The sight of scantily-clad forms is boiling the desire in their eyes, let alone your own.'
act 'Let loose!' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-3'
end
if $ARGS[0] = 'KSY-ParkOrgyEv-3':
*clr & cla
gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Recv'
minut += rand(5,10)
modVar_AF_Rand = rand(5,8)
modVar_AF_Temp = modVar_AF_Rand
gs 'stat'
gs 'themes', 'outdoors'
''
*nl
'You look at Kseniya and see that she is first to start ramping up the sexuality on display and is freely revealing her most private areas.'
*nl
'Not one to be left behind when showing your body, you start flashing your body as well!'
act 'Keep this going' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-4'
end
if $ARGS[0] = 'KSY-ParkOrgyEv-4':
*clr & cla
gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Recv'
minut += rand(5,10)
:Kevrandloop2
modVar_AF_Rand = rand(5,8)
if modVar_AF_Rand = modVar_AF_Temp:
jump 'Kevrandloop2'
end
gs 'stat'
gs 'themes', 'outdoors'
''
*nl
'People are starting to get pretty excited! The music, the intoxication, the sexuality; all causing a surge of desire and want.'
*nl
'You starting feeling up whoever you happen to be near, be it man or women! Any chance to get your hands on someone elses form is taken with wild abandon.'
act 'Get Naked!' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-5'
end
if $ARGS[0] = 'KSY-ParkOrgyEv-5':
*clr & cla
gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
minut += rand(5,10)
modVar_AF_Rand = rand(9,12)
modVar_AF_Temp = modVar_AF_Rand
gs 'stat'
gs 'themes', 'outdoors'
''
*nl
'No-one can hold on any more and soon people are grabbing the nearest person to them for their own personal use!'
*nl
'Men have grabbed women by the shoulders then driven their cock deep into them; women have ripped the pants off total strangers just to kneel down and take their whole shaft into their eager throats; girls that had never even thought of kissing another girl were making out with them with a wild lust!'
act 'Embrace the orgy' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-6'
end
if $ARGS[0] = 'KSY-ParkOrgyEv-6':
*clr & cla
gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
minut += rand(5,10)
:Kevrandloop3
modVar_AF_Rand = rand(9,12)
if modVar_AF_Rand = modVar_AF_Temp:
jump 'Kevrandloop3'
end
gs 'stat'
gs 'themes', 'outdoors'
''
*nl
'You are already starting to lose count of how many times you have orgasmed but even so there is no sign this fuck fest is letting up!'
*nl
'You are getting the fucking of a lifetime and, by the looks of her, so is Kseniya.'
act 'Go crazy!' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-7'
end
if $ARGS[0] = 'KSY-ParkOrgyEv-7':
*clr & cla
gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_BlowJob_Give'
minut += rand(5,10)
modVar_AF_Rand = rand(13,16)
modVar_AF_Temp = modVar_AF_Rand
gs 'stat'
gs 'themes', 'outdoors'
''
*nl
'There is no inhibition left as more and more people start joining other peoples sex sessions. At times you have two to three cocks being inserted into you while at others you have multiple naked women pleasure you completely.'
*nl
'Any sense of time or awareness of the world has been lost in the haze of sexual lust.'
act 'Keep it going!' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-8'
end
if $ARGS[0] = 'KSY-ParkOrgyEv-8':
*clr & cla
gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_BlowJob_Give'
minut += rand(5,10)
:Kevrandloop4
modVar_AF_Rand = rand(13,16)
if modVar_AF_Rand = modVar_AF_Temp:
jump 'Kevrandloop4'
end
gs 'stat'
gs 'themes', 'outdoors'
''
*nl
'You see Kseniya being fucked hard and make a point of joining in with her.'
*nl
'You make out with her, kiss her naked body, rub her perfect thighs and breasts; all while she is being pistoned into with hard cock!'
act 'Drive this to completion' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-9'
end
if $ARGS[0] = 'KSY-ParkOrgyEv-9':
*clr & cla
gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_AnalSex'
minut += rand(5,10)
$orgasm_or = 'yes'
gs 'arousal', 'vaginal', 10
gs 'arousal', 'end'
gs 'stat'
gs 'themes', 'outdoors'
''
*nl
'With the end being near everyone has moved together into one singular fuck pit. The last of everyones lust being signalled with the crying out of orgasms and the firing off of huge quantities of cum.'
act 'Simmer down' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-10'
end
if $ARGS[0] = 'KSY-ParkOrgyEv-10':
*clr & cla
minut += rand(8,12)
sexpartkno = 1
gs 'npcgeneratec', 0, 'Kseniya''s Friend', rand(16,25)
gs 'boyStat', $npclastgenerated
spafinloc = 4
gs 'Cum_Manage'
sexpartkno = 1
gs 'npcgeneratec', 0, 'Kseniya''s Friend', rand(16,25)
gs 'boyStat', $npclastgenerated
spafinloc = 8
gs 'Cum_Manage'
sexpartkno = 1
gs 'npcgeneratec', 0, 'Kseniya''s Friend', rand(16,25)
gs 'boyStat', $npclastgenerated
spafinloc = 11
gs 'Cum_Manage'
sexpartkno = 1
gs 'npcgeneratec', 0, 'Kseniya''s Friend', rand(16,25)
gs 'boyStat', $npclastgenerated
spafinloc = 12
gs 'Cum_Manage'
sexpartkno = 1
gs 'npcgeneratec', 0, 'Kseniya''s Friend', rand(16,25)
gs 'boyStat', $npclastgenerated
spafinloc = 15
gs 'Cum_Manage'
gs 'stat'
gs 'themes', 'outdoors'
''
*nl
'With everyone calming down we get together to recover and perhaps regain what is left of this ''party''.'
*nl
'You chat with everyone again, some people embarrassingly after only seeing their faces for the first time! Before long you feel it has reached a point where you are ready to leave.'
act 'Find Kseniya' : gt 'mod_addedflavour_KSY_Events' , 'KSY-ParkOrgyEv-11'
end
if $ARGS[0] = 'KSY-ParkOrgyEv-11':
*clr & cla
minut += rand(3,6)
pcs_mood += 30
gs 'stat'
gs 'themes', 'outdoors'
''
*nl
'You find Kseniya already saying her goodbye''s to everyone. Even after all that she seems confident and self-assured, you can only be impressed at her poise. She greets you with a look of someone with an orgasmic hangover.'
*nl
'"That was quite something, wasn''t it ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!"'
*nl
'"You''re telling me! Some warning next time wouldn''t go amiss! Not that I''m complaining, I don''t think I have ever been fucked harder than that. Anyway, shall we go?"'
*nl
'"mmm... yeah! It''s probably the right time to."'
if salfetka <= 3:
salfetka += 5
*nl
'"Oh and I''ll think you''ll need these..." Kseniya then hands you some Wet Wipes, and looking at yourself you agree they''ll be needed!'
end
*nl
'With that the pair of you head back out of the grove back to where you had initially met. Kseniya kisses your cheek after telling you how happy she was for you to be there with her, before walking off to leave you to do the same.'
act 'Regain your composure' : gt $loc, $loc_arg
end
--- mod_addedflavour_KSY_Events ---------------------------------