AddedFlavour/locations/mod_addedflavour_KSY_Events.qsrc

# 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'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/oldtown/Kseniya/meet.jpg"></center>'
		*nl
		'You approach Kseniya who looks up to see you with a smile.  <font color="<<$npc_fontcolor[''KSY'']>>">"Hi ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  It''s a surprise to see you out here today."</font>'
		*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:
				'<font color="<<$npc_fontcolor[''KSY'']>>">"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..."</font> *mmm* <font color="<<$npc_fontcolor[''KSY'']>>">"...joining me?"</font>'
				*nl
				'<i>It does sound wholesome enough, what could be the harm...</i>'
			elseif modVar_AF_EventTriggered['KSY-ParkOrgyEv'] > 0:
				'<font color="<<$npc_fontcolor[''KSY'']>>">"Hey ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  I''m going to our little event again, do you fancy"</font> *mmm* <font color="<<$npc_fontcolor[''KSY'']>>">"coming with me?  I''m sure you remember how much fun there is to be had!"</font>'
				*nl
				'<i>Well, it was a lot of fun...</i>'
			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
			'<font color="<<$npc_fontcolor[''KSY'']>>">"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..."</font> *mmm* <font color="<<$npc_fontcolor[''KSY'']>>">"...curves."</font>'
		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'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgyStart' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*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'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*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'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*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'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*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'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*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'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*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'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*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'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*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'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgy<<modVar_AF_Rand>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*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'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgyEnd1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*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'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/oldtown/Kseniya/KseniyaOrgyEnd2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With everyone calming down we get together to recover and perhaps regain what is left of this ''<i>party</i>''.'
		*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'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/oldtown/Kseniya/leave.jpg"></center>'
		*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
		'<font color="<<$npc_fontcolor[''KSY'']>>">"That was quite something, wasn''t it ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!"</font>'
		*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
		'<font color="<<$npc_fontcolor[''KSY'']>>">"mmm... yeah!  It''s probably the right time to."</font>'
		if salfetka <= 3:
			salfetka += 5
			*nl
			'<font color="<<$npc_fontcolor[''KSY'']>>">"Oh and I''ll think you''ll need these..."</font>  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 ---------------------------------