AddedFlavour/locations/mod_addedflavour_A700_Events.qsrc

# mod_addedflavour_A700_Events
	if $ARGS[0] = 'A700-SexTouchEv-X1':
		*clr & cla
		SFLA_PlayerSex_ThirdPartyID = modArr_AF_SFLA_SharedActPeopleArray[1]
		$SFLA_PlayerSex_ThirdPartyName = $npc_firstname['A<<SFLA_PlayerSex_ThirdPartyID>>']
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
		*nl
		'"Hey <<$npc_nickname[''A700'']>>, how is your University Course going?"'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>">"Very well in fact!  Now that you mention it, there is something you can do for me.  I need to design some clothing and you are the perfect size for what I have in mind; you interested in letting me take some measurements?"</font>'
		*nl
		'"Of course!  That sounds like a lot of fun, lets go into your room to do it.  You don''t mind do you <<$SFLA_PlayerSex_ThirdPartyName>>?"'
		*nl
		'<font color="<<$npc_fontcolor[''A<<SFLA_PlayerSex_ThirdPartyID>>'']>>">"It''s no problem at all!  You two have fun!"</font>'
		*nl
		'You and Kazumi hurry into her room'
		act 'Move to Kazumi''s Room' : gt 'mod_addedflavour_A700_Events' , 'A700-SexTouchEv-1'
	end
	
	if $ARGS[0] = 'A700-SexTouchEv-1':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/A700qw1-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'The pair of you set yourselves up in her room and she immediately starts measuring you up.  She seems genuinely interested in being accurate but you can''t help but notice the feeling of having her touch your body, even if it is innocuous.'
		act 'Stand still' : gt 'mod_addedflavour_A700_Events' , 'A700-SexTouchEv-2'
	end
	
	if $ARGS[0] = 'A700-SexTouchEv-2':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/A700qw1-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You remain where you are and let Kazumi do her thing, but still, you pick up on the way she lingers on parts of you body, the way her eyes almost seem to glide along your skin, exciting the nerve endings with her gaze...'
		act 'Focus...' : gt 'mod_addedflavour_A700_Events' , 'A700-SexTouchEv-3'
	end
	
	if $ARGS[0] = 'A700-SexTouchEv-3':
		*clr & cla
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/A700qw1-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You lean back as you notice she is going to measure your bust; a subtle grin crossing your face as you know she is going to get close your ample bosom.'
		act 'Raise your arms' : gt 'mod_addedflavour_A700_Events' , 'A700-SexTouchEv-4'
	end
	
	if $ARGS[0] = 'A700-SexTouchEv-4':
		*clr & cla
		minut += 1
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/A700qw1-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With your arms raised you arch your back slightly to heave your breasts into greater clarity.  You pick up on the success of your action as Kaz stares longer than she needs down your cleavage.  Maybe you could push this forward...'
		act 'Pose' : gt 'mod_addedflavour_A700_Events' , 'A700-SexTouchEv-5'
	end
	
	if $ARGS[0] = 'A700-SexTouchEv-5':
		*clr & cla
		minut += 1
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/A700qw1-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You flash idle glances at her reflection to get her to look at you then smile and look away, giving her the chance to look at your breasts without worrying about whether you can see.  It is working well as she just can''t seem to take her focus away from them!'
		act 'Let her continue' : gt 'mod_addedflavour_A700_Events' , 'A700-SexTouchEv-6'
	end
	
	if $ARGS[0] = 'A700-SexTouchEv-6':
		*clr & cla
		minut += rand(1,3)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/A700qw1-6' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'She successfully manages to break away from your bust but your body is still very much in her focus.  She drops down to measure your waist but this only brings her gaze to your ass, something you don''t hesistate to show off in all its glory.  You only manage the most subtle of glances but you can tell she is enraptured.'
		act 'Let her finish' : gt 'mod_addedflavour_A700_Events' , 'A700-SexTouchEv-7'
	end
	
	if $ARGS[0] = 'A700-SexTouchEv-7':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/A700qw1-7' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'She finally manages to get some control and stands back up.'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I need to take some close measurements of your inner leg, so I can get you to model a body hugging dress, could you perhaps... remove your dress?..."</font>'
		*nl
		'You grin overtly; what she very much wants but hesitates, you would gladly give her eagerly.'
		*nl
		'"No problem at all Kaz, I''m all yours..."'
		*nl
		'She can barely hold onto yourself as those words left your lips, so there is no harm in making this process more than little sultry...'
		act 'Remove your clothes' : gt 'mod_addedflavour_A700_Events' , 'A700-SexTouchEv-8'
	end
	
	if $ARGS[0] = 'A700-SexTouchEv-8':
		*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/Kazumi/Sex/A700qw1-8' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You start with your upper body, all the while pretending to be focused on your reflection when you are actually focused on her.  The straps release easily and you smoothyl raise your arms above your head, taking the rest of the garment with them.'
		act 'Continue undressing' : gt 'mod_addedflavour_A700_Events' , 'A700-SexTouchEv-9'
	end
	
	if $ARGS[0] = 'A700-SexTouchEv-9':
		*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/Kazumi/Sex/A700qw1-9' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Your breasts are completely exposed now.  You successfully manage to hide just how much you want to throw yourself at her behind a guise or an allure charm; Kazumi is not so successful, her lust is clear for all to see.  Riding on this you lower the rest of your dress leaving you wearing your sole remaining attire: a very shear pair of panties.'
		act 'Turn around' : gt 'mod_addedflavour_A700_Events' , 'A700-SexTouchEv-10'
	end
	
	if $ARGS[0] = 'A700-SexTouchEv-10':
		*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/Kazumi/Sex/A700qw1-10' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You turn and face Kazumi, offering your body for all of her desires.  Her stoicism is the only barrier stopping her lust form taking over, allowing her to drop down, tape measure in hand.  She puts the tape measure to your body, an errant finger breaking rank to gently brush your panties before retreating.  She may be holding on but soon you won''t be able to...'
		act 'Push her on her desires' : gt 'mod_addedflavour_A700_Events' , 'A700-SexTouchEv-11'
	end
	
	if $ARGS[0] = 'A700-SexTouchEv-11':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
		gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Gain' , 700 , rand(10,20)
		modVar_AF_SexProg['A700'] += 1
		SFLA_PlayerSex_NPCID = arrpos('charsche_charlist',700)
		if charsche_character_CurActPriority[SFLA_PlayerSex_NPCID] = 2:
			modVar_AF_Rand = rand(5,10)
			gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 700 , 'mod_addedflavour_SFLA_Sitr' , 'Resting' , modVar_AF_Rand
		end
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/A700qw1-11' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'"Kazumi, I know this is more to you than just measuring me, and I know that I am willing to give you what you desire, if only you would reach out and take it for yourself..."'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>">"Oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I want you, I really do...  But not here, <<$SFLA_PlayerSex_ThirdPartyName>> knows we''re here and I don''t want to worry her.  Later, when we get the chance..."</font>'
		*nl
		'"Don''t worry Kaz, I am all yours whenever you want it, and I won''t be holding back."'
		*nl
		'You give her a parting gift as you pose before getting your clothes back on so that that memory holds in her mind.  You are already looking forward to what the two of you will be getting up to!'
		act 'Leave her bedroom' : gt 'mod_addedflavour_SFLA_Sitr' , 'start'
	end
	
	if $ARGS[0] = 'A700-SexKissEv-X1':
		*clr & cla
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!!  I finished the dress I was working on for you, you fancy trying it on?!"</font>'
		*nl
		'"That sounds like a fantastic idea!"'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>">"Brilliant!!  ' + iif($loc = 'mod_addedflavour_SFLA_Bedr1','Come with me to the Mirror!','Follow me!') + '"</font>'
		act 'Follow Kazumi' : gt 'mod_addedflavour_A700_Events' , 'A700-SexKissEv-1'
	end
	
	if $ARGS[0] = 'A700-SexKissEv-1':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/A700qw2-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'The pair of you rush into her room where she hands you the dress she wants you to wear.  You don''t hesitate to quickly get out of your clothes and into the dress.  It certainly is body hugging; your curves are well displayed for all to see, especially Kaz...'
		act 'Pose in the mirror' : gt 'mod_addedflavour_A700_Events' , 'A700-SexKissEv-2'
	end
	
	if $ARGS[0] = 'A700-SexKissEv-2':
		*clr & cla
		minut += rand(3,6)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/A700qw2-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You pose with the dress, waving your body so the vertical stripes flow down the body.  Kazumi is very pleased that you like it but it isn''t long before gratification turns to lust in her mind...'
		act 'Thank her for it' : gt 'mod_addedflavour_A700_Events' , 'A700-SexKissEv-3'
	end
	
	if $ARGS[0] = 'A700-SexKissEv-3':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/A700qw2-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'"Kazumi, you have done fantastic work, if only there was a way I could thank you for it..."'
		*nl
		'You start moving towards Kazumi, your intentions very clear.'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>">"... I just have to measure you again, it needs to be perf-"</font>'
		*nl
		'"Don''t worry about that Kazumi, everything here is already perfect."'
		act 'Kiss her' : gt 'mod_addedflavour_A700_Events' , 'A700-SexKissEv-4'
	end
	
	if $ARGS[0] = 'A700-SexKissEv-4':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Gain' , 700 , rand(5,10)
		modVar_AF_SexProg['A700'] += 1
		SFLA_PlayerSex_NPCID = arrpos('charsche_charlist',700)
		if charsche_character_CurActPriority[SFLA_PlayerSex_NPCID] = 2:
			modVar_AF_Rand = rand(2,5)
			gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 700 , 'mod_addedflavour_SFLA_Bedr1' , 'Resting' , modVar_AF_Rand
		end
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/A700qw2-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You grab the measuring tape and use it to pull Kaz towards you, then before there is any chance of rejection, plant your lips on hers.  The kiss is deep, driven by a long lasting desire that has been building since you got to know Kazumi.'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>">"Mmmmmm... ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I have wanted this..."</font>'
		*nl
		'"And there is lots more of it to come."'
		*nl
		'You leave her to recover but you know this is the start of something brighter.'
		act 'Return to the Living Room' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'A700-SexOralEv-1':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/A700qw3-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You walk into Kazumi''s room to find her idly sitting there admiring herself in some nice looking lingerie.  Rather enjoying the scene; you decide to head over to her and see if there is anything you can do to join in with the appreciation...'
		act 'Join in' : gt 'mod_addedflavour_A700_Events' , 'A700-SexOralEv-2'
	end
	
	if $ARGS[0] = 'A700-SexOralEv-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/Kazumi/Sex/A700qw3-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'After opening your shirt and letting it hang off your alabaster frame you stand over Kazumi, herself in awe of you already.  You bend down and give her a gentle kiss, confirming that this will be more than just a social visit.'
		act 'Kiss her more' : gt 'mod_addedflavour_A700_Events' , 'A700-SexOralEv-3'
	end
	
	if $ARGS[0] = 'A700-SexOralEv-3':
		*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/Kazumi/Sex/Sexual-19' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'She joins your kiss with eagerness; her hands following suit, rubbing your body as your hands rub hers.  You can tell she is primed and you have just the thing in mind to sate it.'
		act 'Glide down' : gt 'mod_addedflavour_A700_Events' , 'A700-SexOralEv-4'
	end
	
	if $ARGS[0] = 'A700-SexOralEv-4':
		*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/Kazumi/Sex/A700qw3-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You glide your body down hers before you find yourself on all fours with just her vagina filling your view.  After taking a moment to appreciation the situation you are in, you let your fingers and lips dance around their goal, teasing at what is to come.  Kazumi''s body is yours and she is letting you have it!'
		act 'Take it!' : gt 'mod_addedflavour_A700_Events' , 'A700-SexOralEv-5'
	end
	
	if $ARGS[0] = 'A700-SexOralEv-5':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Cuni_Give'
		gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Loss' , 700 , rand(20,40)
		modVar_AF_SexProg['A700'] += 1
		SFLA_PlayerSex_NPCID = arrpos('charsche_charlist',700)
		if charsche_character_CurActPriority[SFLA_PlayerSex_NPCID] = 2:
			modVar_AF_Rand = rand(10,15)
			gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 700 , 'mod_addedflavour_SFLA_Bedr1' , 'Resting' , modVar_AF_Rand
		end
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/Sexual-17' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'After letting the teasing alone almost do all your work for you, you plunge yourself into her waiting pussy.  You work your tongue over her lips, letting just the tip caress her clit, bringing her quickly to orgasm!'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '! My god, this is too much!  I am going to cum!"</font>'
		*nl
		'You keep it going an soon enough you are greeted with an explosion of arousal, a mark of your oral success!'
		*nl
		'"I hope you enjoyed that Kaz, because we are going to be doing lots more of it!"'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>">"Mmmmm... looking forward to it already..."</font>'
		act 'Get Dressed' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'A700-SexVaginalEv-X1':
		*clr & cla
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
		*nl
		'"Kazumi, I am so horny for you right now, I need you in the bedroom!"'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>">"Mmmm... ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '... whatevery you say"</font>'
		*nl
		'You grab her hand and guide her quickly to your bedroom.'
		act 'Start the fun' : gt 'mod_addedflavour_A700_Events' , 'A700-SexVaginalEv-1'
	end
	
	if $ARGS[0] = 'A700-SexVaginalEv-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/Kazumi/Sex/A700qw4-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Before she has even adjusted to the sudden change of environment you have her top off and your lips to her navel.  She is completely under your control and loving every second of it.'
		act 'Time for the rest' : gt 'mod_addedflavour_A700_Events' , 'A700-SexVaginalEv-2'
	end
	
	if $ARGS[0] = 'A700-SexVaginalEv-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/Kazumi/Sex/A700qw4-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You grab what remains of her attire and pull it to the floor, revealing Kazumi''s perfectly svelt body.  Your lust is bursting at the sight of it so you allow your hands to take everything they find!'
		act 'Guide her to the chair' : gt 'mod_addedflavour_A700_Events' , 'A700-SexVaginalEv-3'
	end
	
	if $ARGS[0] = 'A700-SexVaginalEv-3':
		*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/Kazumi/Sex/A700qw4-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You move her to the chair and present your vagina for her attention.  She dives in with lust fuelled glee, her fingers negiotiating every crevice of your nether regions.  You are enjoying the moment but you have something much more hardcore in mind and it is time to claim it!'
		act 'Push her back!' : gt 'mod_addedflavour_A700_Events' , 'A700-SexVaginalEv-4'
	end
	
	if $ARGS[0] = 'A700-SexVaginalEv-4':
		*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/Kazumi/Sex/A700qw4-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You remove your panties and push Kazumi back into the chair.  With her eys locked into yours you move forward and plant your vagina onto her quivering pussy.  With the connection made you grind hard into her, the pleasure rising instantly as your sensitive folds power into hers.'
		act 'Keep pushing!' : gt 'mod_addedflavour_A700_Events' , 'A700-SexVaginalEv-5'
	end
	
	if $ARGS[0] = 'A700-SexVaginalEv-5':
		*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/Kazumi/Sex/A700qw4-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You lean in get close to Kaz, your breasts bouncing into hers with every thrust of your hips.  The feeling is intoxicating and Kaz is lost to the arousal it is generating.  Your only thought is to go harder though and there is so much more of you to give!'
		act 'Keep going!' : gt 'mod_addedflavour_A700_Events' , 'A700-SexVaginalEv-6'
	end
	
	if $ARGS[0] = 'A700-SexVaginalEv-6':
		*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/Kazumi/Sex/A700qw4-6' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Kazumi''s body is limp beneath you having been completely lost to her pleasure; your arse cheeks gripping her leg hard allowing you to grind your mound lustilly into hers.  You can already feel your orgasm storming towards its peak and you tell Kazumi is equally ready to blow, telling you it is time to drive this fuck session home!'
		act 'Bring on the Orgasm' : gt 'mod_addedflavour_A700_Events' , 'A700-SexVaginalEv-7'
	end
	
	if $ARGS[0] = 'A700-SexVaginalEv-7':
		*clr & cla
		$orgasm_or = 'yes'
		gs 'arousal' , 'trib' , rand(5,8)
		gs 'arousal', 'end'
		gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Loss' , 700 , rand(30,50)
		modVar_AF_SexProg['A700'] += 1
		SFLA_PlayerSex_NPCID = arrpos('charsche_charlist',700)
		if charsche_character_CurActPriority[SFLA_PlayerSex_NPCID] = 2:
			modVar_AF_Rand = rand(20,30)
			gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 700 , '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/Kazumi/Sex/A700qw4-7' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>">"Oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '! I''m going to cum, I''m going to cum, keep going!!"</font>'
		*nl
		'"Me too!  I''m almost there!!!"'
		*nl
		'You pick up the pace further before giving some final heavy thrusts to tip both of you over the edge into an explosive orgasm.  The force of it is almost enough to knock you unconscious but you hang on by the lightest of threads, Kazumi was not so strong willed and has indeed passed out from the earth shattering orgasm of her own.  You laugh to yourself during your own come down; before leaving her to recover.'
		act 'Leave her to recover' : gt 'mod_addedflavour_SFLA_Bedr4' , 'start'
	end
	
	if $ARGS[0] = 'A700-ShowerEv-1':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/A700ShowerEv1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Kazumi walks into the shower after quickly stripping off her clothes.'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>">"I hope you don''t mind me joining you"</font>'
		*nl
		'"Of course not Kaz; I''d welcome any chance to see you, especially to see you naked!"'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>">"Likewise ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', likewise..."</font>'
		*nl
		'Kazumi continues to shower with you but isn''t embarrased enough to stop her washing you'
		act 'Continue your joyful shower' : gt 'mod_addedflavour_A700_Events' , 'A700-ShowerEv-2'
	end
	
	if $ARGS[0] = 'A700-ShowerEv-2':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Recv'
		gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 700 , 'mod_addedflavour_SFLA_BaRm' , 'Bathing' , rand(5,15)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Kazumi/Sex/A700ShowerEv2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Kazumi continues to wash you, paying special attention to your lower body and breasts...'
		*nl
		'"Mmmm... Kaz.  Continue like this and I''ll need you here with every shower I take..."'
		*nl
		'Kazumi smiles at her own satisfaction and soon enough the pair of your are out of the shower and drying your perfect bodies off.'
		act 'Finish up' : gt $loc, $loc_arg
	end

--- mod_addedflavour_A700_Events ---------------------------------