AddedFlavour/locations/mod_addedflavour_A701_Events.qsrc

# mod_addedflavour_A701_Events
	if $ARGS[0] = 'A701-SexTouchEv-X1':
		*clr & cla
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
		*nl
		'"Hey <<$npc_nickname[''A701'']>>, how would you fancy getting a massage?  I''m in the mood to be generous!"'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Well, I''m sort of surprised, but then I do like a nice massage...  Lead on!"</font>'
		act 'Lead her to your room' : gt 'mod_addedflavour_A701_Events' , 'A701-SexTouchEv-1'
	end
	
	if $ARGS[0] = 'A701-SexTouchEv-1':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw1-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You drag <<$npc_firstname[''A701'']>> into your room.  She is immediately acquiescent to your drive and soon has her clothes off and herself layed down on the bed.  You proceed to start massaging her back, allowing your hands to follow the contours of her body as they flow down her form.'
		act 'Keep Massaging' : gt 'mod_addedflavour_A701_Events' , 'A701-SexTouchEv-2'
	end
	
	if $ARGS[0] = 'A701-SexTouchEv-2':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw1-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Feeling how her body is so accepting of your touch you get some more oil to drip onto her perfect frame.  She reacts with a tingling excitement as you rub it deeper into her skin.'
		act 'Keep Going' : gt 'mod_addedflavour_A701_Events' , 'A701-SexTouchEv-3'
	end
	
	if $ARGS[0] = 'A701-SexTouchEv-3':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw1-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You keep your hands flowing over her, keeping a tactile attention to her posterier.  Though she is still yet to say a word you can already see the pleasure in her responses.'
		*nl
		'<i>Perhaps I should take this a step further... allow my hands to go where they haven''t been before...</i>'
		act 'Start massaging her nethers' : gt 'mod_addedflavour_A701_Events' , 'A701-SexTouchEv-4'
	end
	
	if $ARGS[0] = 'A701-SexTouchEv-4':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw1-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You move your oil drenched hands to focus on her sublime ass; then seeing how she has showed no resistence you give her vagina a cheeky tickle...'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!!  I wasn''t quite ready for that.  This has felt very nice and all but I''m not sure about....</font>'
		act 'Push on regardless' : gt 'mod_addedflavour_A701_Events' , 'A701-SexTouchEv-5'
	end
	
	if $ARGS[0] = 'A701-SexTouchEv-5':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw1-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '...  I shouldn''t have doubted you...."</font>'
		*nl
		'In response to your targeted attention she raises her leg to give you greater access to her welcome pussy.  You don''t deny yourself the luxury and get both hands swirling around it, allowing your fingertips to gently tease her before retreating.'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Keep going ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!"</font>'
		act 'You heard the woman...' : gt 'mod_addedflavour_A701_Events' , 'A701-SexTouchEv-6'
	end
	
	if $ARGS[0] = 'A701-SexTouchEv-6':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw1-6' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You focus your hands deeper onto her, stroking all the way around her, not allowing any restraint.  You have her completely under your control now; whatever will you do with this power...'
		act 'Slip a finger in' : gt 'mod_addedflavour_A701_Events' , 'A701-SexTouchEv-7'
	end
	
	if $ARGS[0] = 'A701-SexTouchEv-7':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw1-7' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I''m yours..."</font>'
		*nl
		'You smile at her submission, and you are certainly not done using it.'
		act 'Another finger perhaps' : gt 'mod_addedflavour_A701_Events' , 'A701-SexTouchEv-8'
	end
	
	if $ARGS[0] = 'A701-SexTouchEv-8':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw1-8' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Putting a second finger in and increasing your pace is accelerating her arousal, something she is more than happy for you to do.  You are not quite ready for her to peak yet though so stop what you are doing.'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Why did you stop...."</font>'
		*nl
		'You reply only with a wry grin before flipping her onto her back.'
		act 'What to do with these...' : gt 'mod_addedflavour_A701_Events' , 'A701-SexTouchEv-9'
	end
	
	if $ARGS[0] = 'A701-SexTouchEv-9':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw1-9' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With <<$npc_nickname[''A701'']>> fully entranced by you you rub some massage oil on your breasts.  Then before she is able to assess the situation you drop down and drive your heaving bosom into her waiting vagina.  The weight of your ample tits pleasure over the entirity of her pussy while your nipple provides a gentle kiss on her sensitive areas.'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', part of me wants to laugh but this feels amazing!"</font>'
		*nl
		'You grin with the success of your endeavour, but it is time to bring this to a close.'
		act 'Peak her' : gt 'mod_addedflavour_A701_Events' , 'A701-SexTouchEv-10'
	end
	
	if $ARGS[0] = 'A701-SexTouchEv-10':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw1-10' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With one hand on rubbing her firm breasts, the other is pleasuring her vagina.  You feel how it she is mere moments from her orgasm and so drive it forward to its climax.'
		act 'Bring her to climax' : gt 'mod_addedflavour_A701_Events' , 'A701-SexTouchEv-11'
	end
	
	if $ARGS[0] = 'A701-SexTouchEv-11':
		*clr & cla
		modVar_AF_SexProg['A701'] += 1
		SFLA_PlayerSex_NPCID = arrpos('charsche_charlist',701)
		if charsche_character_CurActPriority[SFLA_PlayerSex_NPCID] = 2:
			modVar_AF_Rand = rand(5,15)
			gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 701 , 'mod_addedflavour_SFLA_Bedr4' , 'Sleeping' , modVar_AF_Rand
		end
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw1-11' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Your two-pronged assault on her sexual areas drives her hard into a screaming orgasm.  If there was anyone else in the house they would surely hear that one!'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '... that... was... amazing... we will be doing more of that I feel!"</font>'
		*nl
		'You give her a cheeky slap on the ass before leaving her be.'
		act 'Return to the real world' : gt 'mod_addedflavour_SFLA_Bedr4' , 'start'
	end
	
	if $ARGS[0] = 'A701-SexKissEv-X1':
		*clr & cla
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Here ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', could you come with me for a moment?  I have some clothes I would like you to try on!"</font>'
		*nl
		'"Of course, I''d be more than happy to!"'
		*nl
		'Mere seconds later and she is dragging you into her room.'
		act 'Be lead' : gt 'mod_addedflavour_A701_Events' , 'A701-SexKissEv-1'
	end
	
	if $ARGS[0] = 'A701-SexKissEv-1':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw2-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'It isn''t long before you are both in her room and you are trying on some clothes she has laid out.  You are trying on the admittedly nice feeling lingerie while Elizabeth is idly on her phone.  Her distraction is allowing you to be a lot more unrestrained in testing the movement of the fabric on your body...'
		act 'Keep going' : gt 'mod_addedflavour_A701_Events' , 'A701-SexKissEv-2'
	end
	
	if $ARGS[0] = 'A701-SexKissEv-2':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw2-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You willfully allow your breasts to go on display while putting on a bra, safe in your own world.  On that note you notice Elizabeth is being uncharacteristically quiet but think nothing of it...'
		act 'More clothes perhaps' : gt 'mod_addedflavour_A701_Events' , 'A701-SexKissEv-3'
	end
	
	if $ARGS[0] = 'A701-SexKissEv-3':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw2-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You are nearing the end of the clothing you have agreed to test out and start to wonder what you will say about them.  You are distracted however when during one of your idle turns you notice Elizabeth is looking at you in quite a sultry manner.  You flash her a smile and carry one though.'
		act 'Keep Massaging' : gt 'mod_addedflavour_A701_Events' , 'A701-SexKissEv-4'
	end
	
	if $ARGS[0] = 'A701-SexKissEv-4':
		*clr & cla
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw2-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', let''s take some pictures of you!  I think the moment needs some."</font>'
		*nl
		'"Of course, loving the idea!"'
		act 'Be photographed' : gt 'mod_addedflavour_A701_Events' , 'A701-SexKissEv-5'
	end
	
	if $ARGS[0] = 'A701-SexKissEv-5':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw2-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You stand there and try to put on your best looks while Elizabeth takes a volumous amount of pictures.  So much in fact that you start to wonder when the ultimate goal of all this was in the first place...'
		act 'Hold on...' : gt 'mod_addedflavour_A701_Events' , 'A701-SexKissEv-6'
	end
	
	if $ARGS[0] = 'A701-SexKissEv-6':
		*clr & cla
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw2-6' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', there only so long a woman can hold back you know..."</font>'
		act 'What?...' : gt 'mod_addedflavour_A701_Events' , 'A701-SexKissEv-7'
	end
	
	if $ARGS[0] = 'A701-SexKissEv-7':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/Sexual-28' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Without a chance for you to reject her, not that you would anyway, Elizabeth has you pinned against the wall, kissing you in a manner as if any restraint she once had was lost.  You have secretly been longing for the time she would open up to you like this but never imagine it would be her that would make the first move'
		act 'Keep Kissing her' : gt 'mod_addedflavour_A701_Events' , 'A701-SexKissEv-8'
	end
	
	if $ARGS[0] = 'A701-SexKissEv-8':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Gain' , 701 , rand(10,(10 * difficulty))
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		modVar_AF_SexProg['A701'] += 1
		SFLA_PlayerSex_NPCID = arrpos('charsche_charlist',701)
		if charsche_character_CurActPriority[SFLA_PlayerSex_NPCID] = 2:
			modVar_AF_Rand = rand(5,10)
			gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 701 , 'mod_addedflavour_SFLA_Bedr2' , 'Resting' , modVar_AF_Rand
		end
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/Sexual-30' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You are making out for, well it could be hours or seconds; the sense of time has been lost to the moment.  But that moment needs to end and she backs away from you.'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I hope I wasn''t wrong in assuming that is what you wanted?"</font>'
		*nl
		'"By no means Lizzie, you are what I have always wanted..."'
		*nl
		'You are responded with a gratifiably subtle smile as she leaves you to your day.'
		act 'Go about your day' : gt 'mod_addedflavour_SFLA_Bedr2' , 'start'
	end
	
	if $ARGS[0] = 'A701-SexOralEv-X1':
		*clr & cla
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
		*nl
		'"<<$npc_firstname[''A701'']>>, care to join me in the Bedroom, I promise it will be fun..."'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Well well, such a tantalising offer, how can I refuse?"</font>'
		*nl
		'You take her hand and guide her to the bedroom.  Once inside you turn and look into her eyes, your expression only hinting at what is to come...'
		act 'Throw yourself at her' : gt 'mod_addedflavour_A701_Events' , 'A701-SexOralEv-1'
	end
	
	if $ARGS[0] = 'A701-SexOralEv-1':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw3-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You and Elizabeth start making out with wild abandon, tearing clothes off as soon as a hand dares to touch them.  Firm breasts heave into each other while lips, perhaps envious, urge to do the same.'
		*nl
		'"Lizzie, I think its time I thanked you for all the attention you''ve been giving me, I hope your ready."'
		*nl
		'With only the slightest nod being enough to confirm her acceptance you move her down to the bed, all the while removing what is left of her clothing.'
		act 'Dive in' : gt 'mod_addedflavour_A701_Events' , 'A701-SexOralEv-2'
	end
	
	if $ARGS[0] = 'A701-SexOralEv-2':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Cuni_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw3-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You lower your head and start licking her pussy.  The wetness you are greeted with confirming just how much she has been looking forward to this development in your relationship.'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Oh... oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '... OH! ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '...  Do you know how much I have be...... OH! ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!!"</font>'
		act 'Push her over the edge' : gt 'mod_addedflavour_A701_Events' , 'A701-SexOralEv-3'
	end
	
	if $ARGS[0] = 'A701-SexOralEv-3':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Cuni_Give'
		gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Loss' , 701 , rand(30,50)
		modVar_AF_SexProg['A701'] += 1
		SFLA_PlayerSex_NPCID = arrpos('charsche_charlist',701)
		if charsche_character_CurActPriority[SFLA_PlayerSex_NPCID] = 2:
			modVar_AF_Rand = rand(10,20)
			gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 701 , 'mod_addedflavour_SFLA_Bedr4' , 'Sleeping' , modVar_AF_Rand
		end
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw3-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You continue your oral assualt of her nether regions and soon enough she her orgasm is approaching with vocal announcement!'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!!!  My god... that was amazing.  In the future I will be repaying the favour but I''m going to need a moment to get my breath back!"</font>'
		*nl
		'You smile as she is already passing out in blissful satisfaction.  You look forward to opening her to more sexual gratification but for now you think you''ll let her sleep.'
		act 'Go about your day' : gt 'mod_addedflavour_SFLA_Bedr4' , 'start'
	end
	
	if $ARGS[0] = 'A701-SexVaginalEv-1':
		*clr & cla
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw4-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You settle in to just generally do bugger all, and its just so fucking boring...'
		act 'Relax' : gt 'mod_addedflavour_A701_Events' , 'A701-SexVaginalEv-2'
	end
	
	if $ARGS[0] = 'A701-SexVaginalEv-2':
		*clr & cla
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw4-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<i>Oh my fucking god, I am so bored...</i>'
		act 'RELAX' : gt 'mod_addedflavour_A701_Events' , 'A701-SexVaginalEv-3'
	end
	
	if $ARGS[0] = 'A701-SexVaginalEv-3':
		*clr & cla
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw4-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<i>A person can only stay here so long doing nothing before they go cra... hey, someones outside!</i>'
		act 'Go to the door' : gt 'mod_addedflavour_A701_Events' , 'A701-SexVaginalEv-4'
	end
	
	if $ARGS[0] = 'A701-SexVaginalEv-4':
		*clr & cla
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw4-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You rush to the front door and see that it is Elizabeth.'
		*nl
		'"Hey, Elizabeth, I am so glad to see you!"'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  I''m so happy to see you too; I''ve needed to see a happy face after the day I''ve had."</font>'
		act 'Kiss her' : gt 'mod_addedflavour_A701_Events' , 'A701-SexVaginalEv-5'
	end
	
	if $ARGS[0] = 'A701-SexVaginalEv-5':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw4-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You immediately grab her and kiss her like you have never kissed before.  She is overcome with feeling and becomes completely immersed in your puppetry of her.'
		act 'Continue inside' : gt 'mod_addedflavour_A701_Events' , 'A701-SexVaginalEv-6'
	end
	
	if $ARGS[0] = 'A701-SexVaginalEv-6':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw4-6' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You lead her further into the house; guiding her slowly towards your bedroom.  Nothing however is able to stop the lip lock you have with established with her though!'
		act 'Keep moving' : gt 'mod_addedflavour_A701_Events' , 'A701-SexVaginalEv-7'
	end
	
	if $ARGS[0] = 'A701-SexVaginalEv-7':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw4-7' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You continue to make progress towards the bedroom, all while remaining enraptured with each other.  Soon enough you make it in there though, but still it has only just begun.'
		act 'Get on the bed' : gt 'mod_addedflavour_A701_Events' , 'A701-SexVaginalEv-8'
	end
	
	if $ARGS[0] = 'A701-SexVaginalEv-8':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw4-8' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You manoeuvre her onto the bed, the freedom of access to her body allowing your hands to roam more succinctly over her.'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"I don''t know what you have in mind ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ' but I''m looking forward to it!"</font>'
		*nl
		'You grin so as only to hint at what is to come...'
		act 'More Loving' : gt 'mod_addedflavour_A701_Events' , 'A701-SexVaginalEv-9'
	end
	
	if $ARGS[0] = 'A701-SexVaginalEv-9':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/Sexual-12' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With clothes now disappearing at rapid pace, you close in, assuring that she is fully aroused and that her body is your plaything.'
		act 'Present yourself' : gt 'mod_addedflavour_A701_Events' , 'A701-SexVaginalEv-10'
	end
	
	if $ARGS[0] = 'A701-SexVaginalEv-10':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Oral_Recv'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/Sexual-11' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With her restraint now a distant memory you bend over and present your eager pussy for her approval.  She accepts it wholeheartedly and dives in tongue first.  You enjoy the lubrication her mouth is providing but it is time to move onto the grand plan.  When ready you tell her to lay down and raise a leg; and with her in the perfect position you move towards her.'
		act 'Cheek to Cheek' : gt 'mod_addedflavour_A701_Events' , 'A701-SexVaginalEv-11'
	end
	
	if $ARGS[0] = 'A701-SexVaginalEv-11':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Recv'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701qw4-9' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You push your vagina into hers and immediately start rubbing your arse back along her folds.  The feeling of your pussy contacting with hers is electric, the stimulation alone enough to control the rhythms of your movement.  Elizabeth too is taken in by the action, herself overawed by the sensation of it all.'
		act 'Keep going' : gt 'mod_addedflavour_A701_Events' , 'A701-SexVaginalEv-12'
	end
	
	if $ARGS[0] = 'A701-SexVaginalEv-12':
		*clr & cla
		$orgasm_or = 'yes'
		gs 'arousal' , 'trib' , rand(5,8)
		gs 'arousal', 'end'
		gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Loss' , 701 , rand(30,50)
		modVar_AF_SexProg['A701'] += 1
		SFLA_PlayerSex_NPCID = arrpos('charsche_charlist',701)
		if charsche_character_CurActPriority[SFLA_PlayerSex_NPCID] = 2:
			modVar_AF_Rand = rand(15,20)
			gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 701 , 'mod_addedflavour_SFLA_Bedr4' , 'Sleeping' , modVar_AF_Rand
		end
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/Sexual-7' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You roll her over without separating, itself a feat of mechanics, and continue your tribbing session.'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  I''m almost there, almost ready to cum like I never have!"</font>'
		*nl
		'"Me too Elizabeth, just a few... more... moments..."'
		*nl
		'And with that your both explosively orgasm, the explosion soaking everything at the epicentre.  Afterwards you both just lay there, comatose from your exertions.  You look at each other briefly; a telling sign in her eyes of just how much she enjoyed the experience before she can stay conscious no longer.'
		act 'Win the fight against passing out' : gt 'mod_addedflavour_SFLA_Bedr4' , 'start'
	end
	
	if $ARGS[0] = 'A701-ShowerEv-1':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701ShowerEv1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Elizabeth confidently moves into the Bathroom, removes her clothes, then joins you in the Shower.  Within moment she is connected with your body; hands eagerly finding your form while your lips find hers.'
		*nl
		'<font color="<<$npc_fontcolor[''A701'']>>">"Mmmm... ' + iif(rand(1,2)=1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '...  I think you have earned yourself a reward..."</font>'
		act 'Get your reward' : gt 'mod_addedflavour_A701_Events' , 'A701-ShowerEv-2'
	end
	
	if $ARGS[0] = 'A701-ShowerEv-2':
		$orgasm_or = 'yes'
		gs 'arousal', 'cuni', 8, 'lesbian'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701ShowerEv2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Elizabeth moves down your body allowing her lips to follow the contours of your body as they flow down the rivlets of water falling down your form.  Soon enough she has reached her destination and shows no restraint in diving into your quivering vagina.  The effect of having your body so fired up; with each nerve ending being triggered by the feeling of water flowing across them being heavily complimented by the intense feeling of her tongue on your clit, has surged your orgasm to the fore faster than you would have ever expected it.'
		*nl
		'And while Liz is still tasting the fruits of her endevours, your orgasm lands in full force requiring every ounce of restraint to stop you from screaming at the top of your lungs.'
		act 'Thank Elizabeth' : gt 'mod_addedflavour_A701_Events' , 'A701-ShowerEv-3'
	end
	
	if $ARGS[0] = 'A701-ShowerEv-3':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 701 , 'mod_addedflavour_SFLA_BaRm' , 'Bathing' , rand(5,15)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Elizabeth/Sex/A701ShowerEv3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Once you have regained enough focus to get back control of yourself you guide Elizabeth back up and bring her in close to give her a kiss that displays something closer to love than lust, which Elizabeth gratefully receives.'
		*nl
		'"Oh Liz, I''m already looking forward to the next time I get a reward if it is going to be anything like that!"'
		*nl
		'Elizabeth smiles in response before the two of you settle in to get back to normal.'
		act 'Get back to normal' : gt $loc, $loc_arg
	end

--- mod_addedflavour_A701_Events ---------------------------------