AddedFlavour/locations/mod_addedflavour_A702_Events.qsrc

# mod_addedflavour_A702_Events
	if $ARGS[0] = 'A702-SexTouchEv-1':
		*clr & cla
		if modVar_AF_SexProg['A700'] > modVar_AF_SexProg['TouchGate'] and modVar_AF_SexProg['A701'] > modVar_AF_SexProg['TouchGate']:
			$SFLA_PlayerSex_ThirdPartyName = '<<$npc_firstname[''A700'']>> & <<$npc_firstname[''A701'']>>'
		elseif modVar_AF_SexProg['A700'] > modVar_AF_SexProg['TouchGate']:
			$SFLA_PlayerSex_ThirdPartyName = $npc_firstname['A700']
		elseif modVar_AF_SexProg['A701'] > modVar_AF_SexProg['TouchGate']:
			$SFLA_PlayerSex_ThirdPartyName = $npc_firstname['A701']
		end
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  Just the person I''ve been wanting to see..."</font>'
		*nl
		'"What is it Jan?'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"It''s nothing, just come in and sit down."</font>'
		*nl
		'You do so but you can''t shake your feeling of apprehension about it...'
		act 'Sit down' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-2'
	end
	
	if $ARGS[0] = 'A702-SexTouchEv-2':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"That''s it, just pop your pert little bottom down here, next to me."</font>'
		*nl
		'You sit there slightly nervous; you have no reason not to trust Janina but she definitely has you at a disadvantage.'
		act 'React to Jan' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-3'
	end
	
	if $ARGS[0] = 'A702-SexTouchEv-3':
		*clr & cla
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"So ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', we''ve been getting to know eachother quite well recently, in fact you''ve been getting to know everyone recently..."</font>'
		*nl
		'"Yes... Everyone has been very kind in ingratiating into their home... I''m happy I''ve got to know all of you..."'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Indeed, but then you have got to know certain people more than others.  There is how much you have got to know me; then there is how much you have got to know <<$SFLA_PlayerSex_ThirdPartyName>> isn''t there..."</font>'
		act '"Sorry..."' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-4'
	end
	
	if $ARGS[0] = 'A702-SexTouchEv-4':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"I should hope so, in fact I think it is time you found out just what it is like to get to know me..."</font>'
		*nl
		'You are not quite sure what is happening but you are you can''t escape your submission to her.'
		act 'What does she have in mind...' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-5'
	end
	
	if $ARGS[0] = 'A702-SexTouchEv-5':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'She puts her hand on your exposed leg, rubbing gently so as to stake her claim.'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Lets talk about what I want and how that also happens to be what you want."</font>'
		*nl
		'Her touches continue; and while she has you under her control you can''t help but agree with her.  If it is your body she wants then you want her to have it, completely...'
		act 'Be compliant' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-6'
	end
	
	if $ARGS[0] = 'A702-SexTouchEv-6':
		*clr & cla
		minut += rand(1,3)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-6' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Stay there, I''ll just go make sure we have our privacy."</font>'
		*nl
		'She gets up to close the door.  All the while you watch her intently; you''re not even worried anymore, just tense in anticipation of her desires.'
		act 'Let her have you' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-7'
	end
	
	if $ARGS[0] = 'A702-SexTouchEv-7':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_TitPlay_Recv'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-7' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Now, back to the subject of what we want..."</font>'
		*nl
		'Without hesistation she moves on top of you, lifting your shirt to reveal your pert breasts, nipples of which already saluting her attention.  She rewards them for their gesture, kissing them with subtle praise.' 
		act 'Give more' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-8'
	end
	
	if $ARGS[0] = 'A702-SexTouchEv-8':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_TitPlay_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-8' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Mmmm... There''s something of mine that you could use some attention as well ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '.."</font>'
		*nl
		'You pick up on her instruction and move your hands to her breasts; stroking them, holding them, taking them for all their worth.  It is now that you pick up on just how fired up Janina is, maybe it is more than just a game to her...'
		act 'Offer yourself' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-9'
	end
	
	if $ARGS[0] = 'A702-SexTouchEv-9':
		*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/Janina/Sex/A702qw1-9' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Well done there ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I think someone has earned themselves a little reward!"</font>'
		*nl
		'On uttering those words she moves down to your pussy, pulling back the measily fabric that defended it.  Licking her fingertips with her brand she places them upon your vagina before letting them gently take more of you.  You lay back letting your arousal dictate your responses.'
		act 'Be fingered' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-10'
	end
	
	if $ARGS[0] = 'A702-SexTouchEv-10':
		*clr & cla
		$orgasm_or = 'yes'
		gs 'arousal' , 'vaginal_finger' , rand(5,8)
		gs 'arousal', 'end'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-10' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You sit back and let Jan have her way with you; her fingers going deeper as they explore your body.  It is already too much as the situation has combined with the vaginal excitement to fire you quickly to your orgasm.'
		*nl
		'"Oh Jan!! I''m cumming!  Do what you want with me just take me there with you!"'
		*nl
		'You cum violently in her grasp making her very happy with herself.'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Now you''ve had your reward I think it is time I had mine!"</font>'
		act 'Do what she tells you' : gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-11'
	end
	
	if $ARGS[0] = 'A702-SexTouchEv-11':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Give'
		gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Gain' , 702 , rand(5,10)
		modVar_AF_SexProg['A702'] += 1
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw1-11' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You get yourself into position to finger Janina''s pussy, doing so with vigor in order to satisfy your eagerness to please.  You suspected she was far more turned on then se was letting on and she confirms it by rising to the boil very quickly.'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Yes ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', keep going, that''s it... I am going to cum!"</font>'
		*nl
		'And with that she does so, cumming as violently as you did but still managing the aura of control over you.'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Well, well, ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '; will have to do that again some time won''t we?"</font>'
		*nl
		'You don''t even pretend to hide your agreement and leave her to her satisfaction...'
		act 'Leave her be' : gt 'mod_addedflavour_SFLA_Bedr3' , 'start'
	end
	
	if $ARGS[0] = 'A702-SexKissEv-X1':
		*clr & cla
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
		*nl
		'"Jan, I have really enjoyed how our relationship has developed, especially recently, but I''m also worried, worried that maybe you are not serious about your relationship with me..."'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', you have nothing to worry about; come on, let''s go to your room and chat about it."</font>'
		*nl
		'Taking your hand, she guides you to your room for a private talk.'
		act 'Be taken to your room' : gt 'mod_addedflavour_A702_Events' , 'A702-SexKissEv-1'
	end
	
	if $ARGS[0] = 'A702-SexKissEv-1':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw2-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Come on ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', speak to me."</font>'
		*nl
		'"Well, it''s just that I want to know, are you interested in us getting closer or is it just a game; or worse, jealousy..."'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '..."</font>'
		act 'Listen to her' : gt 'mod_addedflavour_A702_Events' , 'A702-SexKissEv-2'
	end
	
	if $ARGS[0] = 'A702-SexKissEv-2':
		*clr & cla
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw2-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"... you don''t need to worry.  Nothing about what we have been doing has been a game to me.  Maybe I came on a bit strong before but that''s just who I am.  But people are able to be more than ourselves and I certainly want to be more with you..."</font>'
		*nl
		'"Really?"'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Really, ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '..."</font>'
		act 'She leans towards you' : gt 'mod_addedflavour_A702_Events' , 'A702-SexKissEv-3'
	end
	
	if $ARGS[0] = 'A702-SexKissEv-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/Janina/Sex/A702qw2-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'While you are being taken in by the clarity of the moment, Janina kisses you.  It is genuine and feels just as you wanted it to, so you greet it with kissing of your own.'
		act 'Get handsy' : gt 'mod_addedflavour_A702_Events' , 'A702-SexKissEv-4'
	end
	
	if $ARGS[0] = 'A702-SexKissEv-4':
		*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/Janina/Sex/A702qw2-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'The eroticism of the moment is overtaking you prompting your hands to go hunting for pleasure of their own, finding it in Janina''s perfect form.  She in turn lets her hands go hunting, being rewarded with the sensory joy of your smooth skin.'
		act 'Kiss more' : gt 'mod_addedflavour_A702_Events' , 'A702-SexKissEv-5'
	end
	
	if $ARGS[0] = 'A702-SexKissEv-5':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Gain' , 702 , rand(10,20)
		modVar_AF_SexProg['A702'] += 1
		modVar_AF_Rand = rand(5,10)
		gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 702 , 'mod_addedflavour_SFLA_Bedr4' , 'Resting' , modVar_AF_Rand
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw2-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"I hope that satisfies any fears you might have had ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '."</font>'
		*nl
		'"Definitely, and I want to satisfy them more soon..."'
		*nl
		'She smiles at your suggestion filling you with confidence to proceed with your relationship, for now though you''ll let her rest.'
		act 'Return with your satisfaction' : gt 'mod_addedflavour_SFLA_Bedr4' , 'start'
	end
	
	if $ARGS[0] = 'A702-SexOralEv-X1':
		*clr & cla
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
		*nl
		'You idle around listlessly, looking bored and bereft of interest...'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"You look a bit bored ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '.  I know!  How about some Poker; you up for that?"</font>'
		*nl
		'"Yeah!  That sounds like a brillo idea!"'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Fantastic, Strip Poker it is, follow me."</font>'
		act 'Wait... what?' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-1'
	end
	
	if $ARGS[0] = 'A702-SexOralEv-1':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Before you even have a chance to question what you have just agreed to Janina has you in her bedroom, cards in hand!'
		*nl
		'You must not be fully up to speed with things as you have run out of faux money in double quick time!'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Right, come on ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '; get them clothes off, you need to get your money back!"</font>'
		*nl
		'"Wait a minute, what.... Ok..."'
		act 'Take off your clothes' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-2'
	end
	
	if $ARGS[0] = 'A702-SexOralEv-2':
		*clr & cla
		minut += rand(5,9)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You start taking your clothes off until you are in just your underwear.'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Come on ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', some people have money to win..."</font>'
		*nl
		'You meet her playful gaze as you get yourself back into the game.'
		act 'Play a good hand' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-3'
	end
	
	if $ARGS[0] = 'A702-SexOralEv-3':
		*clr & cla
		minut += rand(4,7)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You manage to outplay her in the hand; masterfully playing out a rouse that got her to bet her entire pot.'
		*nl
		'"Ha!  Look whose winning now!  And what was that about clothes if you want all this lovely money back?"'
		*nl
		'Jan was not quite expecting to lose but knows the rules she made, and so takes off her clothes down to her underwear as well.'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Right, new game, how about Draughts?"</font>'
		*nl
		'"Ummm... yeah OK, I suppose I''m up for that..."'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Strip Draughts it is!  I''ll get the board."</font>'
		act 'Fall for it again...' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-4'
	end
	
	if $ARGS[0] = 'A702-SexOralEv-4':
		*clr & cla
		minut += rand(3,9)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Soon enough the board is ready and there is two very attractive girls playing Draughts on it.  It doesn''t take long before she has managed to win this game, your mind still a bit confused at the sudden change after all.'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Well, well, well; get that underwear off lady, you know the rules!"</font>'
		*nl
		'You can''t help but feel like you have not had the upper hand since you got in the room, but acquiesce and start taking your clothes off.'
		act 'Take off your underwear' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-5'
	end
	
	if $ARGS[0] = 'A702-SexOralEv-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/Janina/Sex/A702qw3-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You soon have your underwear off, all while under Janina''s watchful eyes.  You are naked but something tells this is not the end of it...'
		act 'Play the next game' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-6'
	end
	
	if $ARGS[0] = 'A702-SexOralEv-6':
		*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/Janina/Sex/A702qw3-6' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Boom!  A win of your own.  You look to Jan waiting for her to follow suit and get those clothes off!'
		*nl
		'She does so and by the time you have removed the board you are back as two naked young women, alone on a bed...'
		act 'Sit alongside Jan' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-7'
	end
	
	if $ARGS[0] = 'A702-SexOralEv-7':
		*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/Janina/Sex/A702qw3-7' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Well ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I think you''ll agree I won that, I think its time for my prize..."</font>'
		*nl
		'"Wait a second...  Did I lose that.  Wait, what did I lose...  Wait, what did you win?"'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"My point exactly ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', and I believe there is some nipples here just waiting patiently for some attention..."</font>'
		*nl
		'She leans back, her fingers gently orbiting her areola, a clear signal of what you need to do...'
		act 'Reward those breasts' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-8'
	end
	
	if $ARGS[0] = 'A702-SexOralEv-8':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_TitPlay_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-8' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You bring yourself to her and immediately start licking her breasts, your tongue guiding your lips to their destination.  Janina meanwhile takes it all in, a mixture of smug success and satisfaction.'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Mmmm... I''m loving every moment of this but there is something else I want that tongue to be doing."</font>'
		*nl
		'You look up into her eyes which meet yours, holding your gaze while her hands push you down her body.'
		act 'Taste her vagina' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-9'
	end
	
	if $ARGS[0] = 'A702-SexOralEv-9':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Cuni_Give'
		gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Loss' , 702 , rand(30,50)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-9' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You have been mentally preparing to take your relationship to the next level so show no hesitation in taking the plunge.  After a brief moment to take in the sights you move in and start licking lustily at her mound.  You show no restraint in allowing your tongue to go whereever it can reach, lapping at whatever it finds.'
		*nl
		'It is not long before you feel her start to tense before her inevitable orgasm lands!'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Wow, that was quite something ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', it''s great when a plan comes together... talking about cumming together, I think it is someone elses turn..."</font>'
		*nl
		'You take a moment to understand what she is driving at but you get there eventually.'
		act 'Let her lay you down' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-10'
	end
	
	if $ARGS[0] = 'A702-SexOralEv-10':
		*clr & cla
		$orgasm_or = 'yes'
		gs 'arousal' , 'cuni' , rand(5,8)
		gs 'arousal', 'end'
		modVar_AF_SexProg['A702'] += 1
		modVar_AF_Rand = rand(5,10)
		gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 702 , 'mod_addedflavour_SFLA_Bedr3' , 'Resting' , modVar_AF_Rand
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw3-10' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Janina has you swapped over in double quick time and before you are even in place she has her lips pressed against your vagina.  The feeling is immense as normally forthright Jan is suprisingly gentle with you, teasing and pleasuring in equal measure.  Still, it does not manage to slow down your arousal; you can already feel your orgasm bursting its banks!'
		*nl
		'And it arrives with no warning, the sudden surge enough to take Janina of guard.'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Bloody hell ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', there''s no half measures when it comes to you is there!  I''m already looking forward to the next time we can do this!"</font>'
		act 'Regain your composure' : gt 'mod_addedflavour_SFLA_Bedr3' , 'start'
	end
	
	if $ARGS[0] = 'A702-SexVaginalEv-X1':
		*clr & cla
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>">"Hey ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', are you OK?  You are giving me a weird look..."</font>'
		*nl
		'"Oh Jan, I''m more than OK; in fact i''m hornier than I have ever been and I''m looking at you..."'
		*nl
		'<font color="<<$npc_fontcolor[''A700'']>>">"What? Really?  Hey, wait, I''m supposed to be in co-"</font>'
		*nl
		'"Never mind that, get those clothes off, I want you more than ever!"'
		act 'Tear off Janina''s clothes' : gt 'mod_addedflavour_A702_Events' , 'A702-SexVaginalEv-1'
	end
	
	if $ARGS[0] = 'A702-SexVaginalEv-1':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_TitPlay_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702QW4-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You have Janina''s clothes off even before she has a chance to question this sudden role reversal, and while she is admiring her own breasts you go in for more.'
		act 'Remove her bra' : gt 'mod_addedflavour_A702_Events' , 'A702-SexVaginalEv-2'
	end
	
	if $ARGS[0] = 'A702-SexVaginalEv-2':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_TitPlay_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702QW4-2' + 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''ve never seen this side of you... I am yours, do with me what you will..."</font>'
		*nl
		'And you certainly intend to, starting by pleasuring her perfect breasts.'
		act 'Flip her over' : gt 'mod_addedflavour_A702_Events' , 'A702-SexVaginalEv-3'
	end
	
	if $ARGS[0] = 'A702-SexVaginalEv-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/Janina/Sex/A702QW4-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You grab her shoulders and move her so she is laying under you.  With you both be completely naked now you move in and press your body into hers, kissing her ferociously, licking her breasts, feeling her body...'
		act 'Get some Pussy Action' : gt 'mod_addedflavour_A702_Events' , 'A702-SexVaginalEv-4'
	end
	
	if $ARGS[0] = 'A702-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/Janina/Sex/A702QW4-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With her still completely under your spell you rear up, interlocking your legs with hers.  Then just as she is comprehending the situation your start grinding your pussy into hers; the feeling of lips gliding across lips causing your arousal to surge.'
		act 'Take it further' : gt 'mod_addedflavour_A702_Events' , 'A702-SexVaginalEv-5'
	end
	
	if $ARGS[0] = 'A702-SexVaginalEv-5':
		*clr & cla
		$orgasm_or = 'yes'
		gs 'arousal' , 'trib' , rand(5,8)
		gs 'arousal', 'end'
		gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Loss' , 702 , rand(30,50)
		modVar_AF_SexProg['A702'] += 1
		modVar_AF_Rand = rand(15,20)
		gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 702 , 'mod_addedflavour_SFLA_Sitr' , 'Sleeping' , modVar_AF_Rand
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702qw4-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You grind your body harder against hers, forcing your respective orgasms to the fore.  You are almost out of control; grabbing her feet and using it as a toy to excite your nipples even more.  Janina is equally lost to it; herself on the precifice of a monumental orgasm.'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"OH MY GOD!! ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!!  I''m cumming!!!  I AM CUMMING!!!!"</font>'
		*nl
		'"ME TOO!!!  I am cumming hard!  Oh my god!!  MY GOD!!!"'
		*nl
		'The resulting explosion of vaginal excitement culminates in a high magnitude co-operative orgasm leaving you both breathless on the sofa.  You only just manage to stay conscious but Janina is gone, passed out in what is effectively a cum-coma.  Once you have regained your composure you start to get everything back to normal.  You decide to let Jan sleep; you do hope she will be alright!'
		act 'Return to normal somehow!' : gt 'mod_addedflavour_SFLA_Sitr' , 'start'
	end
	
	if $ARGS[0] = 'A702-ShowerEv-1':
		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/Janina/Sex/A702ShowerEv1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Jan confidently walks into the Shower with you; pulling your arm around her as she does so.'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"I hope you have saved some of those suds for me ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!"</font>'
		*nl
		'You pick up on the instruction and immediately start ringing a sponge to allow a shower of bath foam to flow down her back and over her perfectly formed ass.'
		act 'Apply more suds' : gt 'mod_addedflavour_A702_Events' , 'A702-ShowerEv-2'
	end
	
	if $ARGS[0] = 'A702-ShowerEv-2':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Give'
		gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 702 , 'mod_addedflavour_SFLA_BaRm' , 'Bathing' , rand(5,15)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Janina/Sex/A702ShowerEv2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You can hear Janina purring in satisfaction as you take your hands and rub in the rich bath foam into her body, taking special care to massage her firm arse cheeks.'
		*nl
		'<font color="<<$npc_fontcolor[''A702'']>>">"Oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', your are a expert this, I''ll have to share more of my showers with you in future!"</font>'
		*nl
		'You smile at your success and maintain the pleasant feeling as the two of you finish up.'
		act 'Finish up' : gt $loc, $loc_arg
	end

--- mod_addedflavour_A702_Events ---------------------------------