AddedFlavour/locations/mod_addedflavour_A32_Events.qsrc

# mod_addedflavour_A32_Events
	if $ARGS[0] = 'A32-BathroomSexEv-X1':
		*clr & cla
		minut += rand(1,3)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/gadukino/grandparents/noise_react.jpg"></center>'
		*nl
		'You move over to the window and look outside, hopefully finding the source of the noises you have been hearing...'
		*nl
		if modVar_AF_EventProgress['A32-BathroomSexEv'] > modVar_AF_EventGates['A32-BathroomSexEv-1']:
			'<i>That noise has been occurring a bit too frequently lately...</i>'
		else
			'<i>It seems I am not alone again...</i>'
		end
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'chkpossible' , 1
		if modVar_AF_Inhib['Result'] = 1:
			act 'Put on a show for the would-be voyeur' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-X3'
		else
			act 'Check the window and shoo whatever it is away' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-X2'
		end
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-X2':
		*clr & cla
		pcs_mood -= rand(5,(11 + difficulty))
		modVar_AF_Rand = rand(1,(1 + difficulty))
		gs 'mod_addedflavour_A32_Functions' , 'RemoveProgress' , 'A32-BathroomSexEv' , modVar_AF_Rand , modVar_AF_EventGates['A32-BathroomSexEv-1']
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/gadukino/grandparents/noise_shoo.jpg"></center>'
		*nl
		'You move to the window and knock the frame a few times scaring off anything that would otherwise have been there'
		act 'Move back' : gt 'Gadbana'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-X3':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
		if modVar_AF_EventProgress['A32-BathroomSexEv'] < modVar_AF_EventGates['A32-BathroomSexEv-2']:
			modVar_AF_Temp = 5 - difficulty
			gs 'mod_addedflavour_A32_Functions' , 'AddProgress' , 'A32-BathroomSexEv' , modVar_AF_Temp , modVar_AF_EventGates['A32-BathroomSexEv-2']
		end
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/gadukino/grandparents/noise_show' + iif(modVar_AF_QSPVer = 1,'.gif','.webp') + '"></center>'
		*nl
		if modVar_AF_EventProgress['A32-BathroomSexEv'] = modVar_AF_EventGates['A32-BathroomSexEv-1']:
			'You imagine that the noises could be someone trying to get a look at you while bathing your naked body.  Certainly the thought of water cascading down your firm, young body would be enough to drive anyone to try and peek at you.  Seems only fair that I should put on a bit of a show for our would be voyeur...'
		else
			'You start touching yourself a lot more sexually then you normally would here in order to excite your possible voyeur; rubbing your firm breasts while allowing your other hand to move sensuously across your smooth body.'
		end
		act 'Return to what you were doing' : gt 'Gadbana'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-1':
		*clr & cla
		menu_off = 1
		minut += rand(1,3)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevshow1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With your ''voyeur'' apparantly watching, you suppose there is no harm in some additional skin care and bathing; and so start your routine.'
		*nl
		'You stand there admiring yourself in the mirror.  You take some time to wonder if this voyeur is little more than an invention in place of a squirrel living outside the window or if it is actually someone lusting over the sight of your naked, young body.  No harm in testing the theory and <i>accidentally</i> leaving the door open; might even get to see who it is.'
		act 'Move to the bath' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-2'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-2':
		*clr & cla
		minut += rand(1,3)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevshow2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You float over to the bath making sure to keep the door opening outside of your eyeline.  You''re naked body is now revealed in all its stunning beauty giving everyone, including yourself, a sight to behold.'
		act 'Test the water' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-3'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-3':
		*clr & cla
		minut += rand(1,3)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevshow3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You bend over to present your rear to your unseen audience, appearing to be doing little more than testing the water.'
		act 'Get in' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-4'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-4':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevshow4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Most of you''re body might now be obscured by the bath tub but there is no missing your peachy bum it is now framing.  You think to yourself as to just how much restraint someone would have to have in order to not launch themselves at you in a lust charged haze but still keep to your plan of making this voyeur session easy'
		if modVar_AF_EventProgress['A32-BathroomSexEv'] >= modVar_AF_EventGates['A32-BathroomSexEv-3']:
			act 'Turn to look at the door' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-6'
		end
		if modVar_AF_EventProgress['A32-BathroomSexEv'] < modVar_AF_EventGates['A32-BathroomSexEv-3']:
			modVar_AF_Temp = 5 - difficulty
			gs 'mod_addedflavour_A32_Functions' , 'AddProgress' , 'A32-BathroomSexEv' , modVar_AF_Temp , modVar_AF_EventGates['A32-BathroomSexEv-3']
			act 'Shower provocatively' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-5'
		end
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-5':
		*clr & cla
		pcs_mood += 5
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevshow5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You turn your body to reveal your silky breasts; allowing your hands to glide across them with your fingertips lingering ever so slightly on your erect nipples.  You are already starting to get excited about this so think it is better to stop and shower normally.'
		*nl
		if modVar_AF_EventProgress['A32-BathroomSexEv'] = modVar_AF_EventGates['A32-BathroomSexEv-3']:
			'<i>And it sounds like my pervy watcher is still taking the opportunity to leer over me again as I can hear them walking off.  I might have to catch them in the act next time!</i>'
		else
			'And if your hearing isn''t betraying you you would swear this change in intention is being greeted with the sound of footsteps leaving the scene.'
		end
		act 'Actually wash yourself':
			*clr & cla
			minut += 25
			dynamic $showerdin
			if frost > 0:frost = 0
			gs 'clothing', 'strip'
			if $pantyworntype ! 'none' and $braworntype ! 'none': gs 'underwear', 'remove'
			gs 'stat'
			'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/locations/gadukino/village/mit.jpg"></center>'
			*nl
			'You lather up your washcloth and start scrubbing your body. You rinse off the soap and start to lather your hair with shampoo. After rinsing off the shampoo you feel completely clean.'
			if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
			act 'Finish':gt 'Gadbana'
		end
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-6':
		*clr & cla
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevreveal' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		if modVar_AF_EventProgress['A32-BathroomSexEv'] = modVar_AF_EventGates['A32-BathroomSexEv-3']:
			'You turn to face the open door to finally see who has been watching you all this time, and its not quite who you were expecting (part of you was expecting to see Grigory, or perhaps Mitka.)...'
			act 'See the face of your voyeur' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-7'
		elseif modVar_AF_EventProgress['A32-BathroomSexEv'] > modVar_AF_EventGates['A32-BathroomSexEv-3']:
			'You turn to see your grandfather here once more.  There''s no waiting this time though as he strides straight in to help you dry off.'
			act 'Allow your grandfather to dry you off' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-8'
		end
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-7':
		*clr & cla
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevtalk' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A32'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  I was just going to check on the barn when I saw you getting out of the bath.  Would you like me to help dry you off?"</font>'
		act 'Umm... maybe... I don-' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-8'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-8':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Recv'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevdry1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		if modVar_AF_EventProgress['A32-BathroomSexEv'] = modVar_AF_EventGates['A32-BathroomSexEv-3']:
			'Before you have a chance to object (or perhaps for your grandfather to allow his embarrassment at being caught to settle down) he walks straight in and starts drying you off.  He is showing no restraint with how he dries you but it is hard to know whether he is trying to touch your erogenous zones or it is just his down to earth manner.'
		elseif modVar_AF_EventProgress['A32-BathroomSexEv'] > modVar_AF_EventGates['A32-BathroomSexEv-3']:
			'You stand there and let your grandfather go through his drying routine; I may even be starting to like the rough treatment he shows my body but one can''t argue with how effective it is.'
		end	
		act 'Continue to get dried' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-9'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-9':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Recv'
		gs 'stat'
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'chkpossible' , 2
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevdry2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'His rough treatment, which is doing a good job of getting you dry, is starting to have the side effect of getting a certain part of you wet again..'
		if modVar_AF_EventProgress['A32-BathroomSexEv'] < modVar_AF_EventGates['A32-BathroomSexEv-4']:
			*nl
			'<i>"Is this what I want?  Granted when I started displaying myself to the unknown peeper I had someone else in mind but do I really want my grandfather to take advantage of me? I think I need to stop this...' + iif(modVar_AF_Inhib['Result'] = 1,'or maybe I shouldn''t...','') + '"</i>'
		end	
		if modVar_AF_Inhib['Result'] = 1:
			act 'Present more of my body to his touch' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-11'
		end
		act 'Indicate that you are done' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-10'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-10':
		*clr & cla
		modVar_AF_Temp = 5 - difficulty
		gs 'mod_addedflavour_A32_Functions' , 'AddProgress' , 'A32-BathroomSexEv' , modVar_AF_Temp , modVar_AF_EventGates['A32-BathroomSexEv-4']
		minut += 1
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevend' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A32'']>>">"That''s you dry now; a job well done if I do say so.  I''m more than happy to help again if I am nearby as well"</font>'
		*nl
		'Before you have a chance to respond he is out of the door leaving you slightly flabbergastered about the whole thing, or maybe unfulfilled...'
		act 'Return to what you were doing' : gt 'Gadbana'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-11':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Recv'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevdry3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You subtly stick your posterior out and open your legs slightly hopefully giving off an invitation to your lower regions.  Your grandfather shows no hesistation and dives straight in.'
		*nl
		if modVar_AF_EventProgress['A32-BathroomSexEv'] < modVar_AF_EventGates['A32-BathroomSexEv-4']:
			'It''s hard to know just how much of an erotic scenario it is in his mind as opposed to mind but then he had been perving me a lot so far.  No harm in gettin pleasure from it though, I suppose'
		elseif modVar_AF_EventProgress['A32-BathroomSexEv'] >= modVar_AF_EventGates['A32-BathroomSexEv-4']:
			'A small moan manages to escape your lips.  Was it uncontrolled or did you let your feelings out into the open?  Whatever the case, your pussy certainly isn''t hiding the pleasure you am getting from this treatment'
		end
		if modVar_AF_EventProgress['A32-BathroomSexEv'] = modVar_AF_EventGates['A32-BathroomSexEv-4']:
			*nl
			'<b>Your Grandfather holds you by the shoulders</b>'
			*nl
			'<font color="<<$npc_fontcolor[''A32'']>>">"I can give you what you <a href="exec: gt ''mod_addedflavour_A32_Events'',''A32-BathroomSexEv-12'' ">want</a> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '..."</font>'
		elseif modVar_AF_EventProgress['A32-BathroomSexEv'] > modVar_AF_EventGates['A32-BathroomSexEv-4']:
			*nl
			'<b>Your Grandfather holds you by the shoulders</b>'
			act 'Let him take control' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-12'
		end
		if modVar_AF_EventProgress['A32-BathroomSexEv'] >= modVar_AF_EventGates['A32-BathroomSexEv-4']:
			act 'Just let him dry you' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-10'
		else
			act 'Let your Grandfather finish drying you' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-10'
		end
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-12':
		*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/locations/gadukino/grandparents/gevcuni1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'The slightest look to him was enough to confirm just what you want.  With a haste unlike his age he has you leaning back on the edge of the bath, his head diving straight to your moistened pussy lips.'
		*nl
		if modVar_AF_EventProgress['A32-BathroomSexEv'] = modVar_AF_EventGates['A32-BathroomSexEv-4']:
			'You wonder just how much he has been craving your sweetened mound; he is certainly managing to taste you deeply, your desire catching up with his own'
		elseif modVar_AF_EventProgress['A32-BathroomSexEv'] >= modVar_AF_EventGates['A32-BathroomSexEv-5']:
			'Through the encroaching haze of lust filling your thoughts you wonder as to whether you should take this further before you cum...'
			act 'Tell your grandfather it is his turn' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-15'
		end
		act 'Let your Grandfather power through' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-13'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-13':
		*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/locations/gadukino/grandparents/gevcuni2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Your grandfather inserts his fingers into you speeding you towards a surging orgasm.  Any uncertainty about the situation is evaporating with every pulse your body makes.'
		act 'Let your orgasm take hold' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-14'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-14':
		*clr & cla
		modVar_AF_Temp = 5 - difficulty
		gs 'mod_addedflavour_A32_Functions' , 'AddProgress' , 'A32-BathroomSexEv' , modVar_AF_Temp , modVar_AF_EventGates['A32-BathroomSexEv-5']
		$orgasm_or = 'yes'
		gs 'arousal' , 'cuni' , 8 , 'incest'
		gs 'arousal', 'end'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevfcum' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You. Have. Arrived...  The assault on your pleasured pussy has tipped you over the edge of reason.'
		*nl
		'You lay there still taking it all in.  Through the clearing fog you hear your grandfather tell you that he is looking forward to doing this again.'
		if modVar_AF_EventProgress['A32-BathroomSexEv'] = modVar_AF_EventGates['A32-BathroomSexEv-5']:
			*nl
			'<i>Can you tell yourself now that you want this and more?  I am in control of it, perhaps I have been this entire time.  Maybe I should embrace this for what it is.</i>'
		end
		act 'Try to regain your composure' : gt 'Gadbana'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-15':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_BlowJob_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevbj1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You swap places with your grandfather who, in turn, has remained silent throughout the maneuver.  This might be misconstrued as rejection if it wasn''t for the surprisingly hard cock that has greeted you.'
		*nl
		'Wasting no time you lower down and take the rigid phallus into your soft, young lips.  Surely he never even dreamed that he would get the chance to get sucked off by someone your age again but you show no restraint as you take his cock deeper into your mouth.'
		if modVar_AF_EventProgress['A32-BathroomSexEv'] >= modVar_AF_EventGates['A32-BathroomSexEv-6']:
			*nl
			'I could keep going, after all it wouldn''t take much to get him to cum just by sucking him off, or I could take this to the next step...'
			act 'Bend over and give him the ultimate pleasure' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-19'
		end
		act 'Continue sucking' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-16'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-16':
		*clr & cla
		modVar_AF_Temp = 5 - difficulty
		gs 'mod_addedflavour_A32_Functions' , 'AddProgress' , 'A32-BathroomSexEv' , modVar_AF_Temp , modVar_AF_EventGates['A32-BathroomSexEv-6']
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_BlowJob_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevbj2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You take the hard cock repeatedly into your mouth, sucking on it constantly as the firm shaft disappears towards your throat before quickly re-emerging.  Your own assault on his phallus is already yielding results as you can feel how close he is to blowing his load'
		act 'Take his load' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-17'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-17':
		*clr & cla
		minut += rand(1,3)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevfin1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		iif($modVar_AF_TempStr = 'Fucking','After pulling his cock out of your vagina, y','Y') + 'our Grandfather stands up and gets you in place, ready to rain cum down upon your awesome cleavage.  You look back subserviantly waiting for his release.'
		KILLVAR '$modVar_AF_TempStr'
		act 'Await the inevitable' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-18'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-18':
		*clr & cla
		minut += rand(1,3)
		gs 'boyStat', 'A32'
		sexpartkno = 1
		spafinloc = 15
		gs 'Cum_Manage'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevfin2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Sure enough your pert tits receive the result of your sexual acts.  Maybe there is a pang of regret for doing this but this is too far along to deny that both of you are getting pleasure out of it.'
		*nl
		'<font color="<<$npc_fontcolor[''A32'']>>">"It''s been a long time since I have been able to do this with a beautiful, young woman such as yourself.  We will have to do it again soon but it goes without saying that what happened here, stays here"</font>'
		*nl
		'You don''t have chance to respond as he has left the room before you could but you already know within yourself that this is little more than a fleeting satisfaction.'
		act 'Regain Composure' : gt 'Gadbana'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-19':
		*clr & cla
		modVar_AF_Temp = 5 - difficulty
		gs 'mod_addedflavour_A32_Functions' , 'AddProgress' , 'A32-BathroomSexEv' , modVar_AF_Temp , modVar_AF_EventGates['A32-BathroomSexEv-7']
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		npc_sex['A32'] += 1
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevsex1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You get up and bend over with your vagina presented in all its youthful glory.  Your grandfather doesn''t need any further instruction as he immediately plunges his hard cock deep into your sex.  For his age he manages to pound you quite vigorously and you are already feeling your own orgasm rising'
		act 'Take more hard cock' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-20'
	end
	
	if $ARGS[0] = 'A32-BathroomSexEv-20':
		*clr & cla
		$modVar_AF_TempStr = 'Fucking'
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/gadukino/grandparents/gevsex2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		if pcs_horny >= 100:
			$orgasm_or = 'yes'
			gs 'arousal' , 'vaginal' , 2 , 'incest'
			gs 'arousal', 'end'
			*nl
			'The relentless pounding of hard cock into your youthful folds has pushed you over the edge, culminating in a massive orgasm of your own.  The feeling of your inner walls gripping hard on his thrusting phallus is also pushing you over the edge as well and you can already feel that he is ready to blow his load.'
		else
			'He continues to pound his cock into you, all while gripping hard onto your firm ass causing your breasts to shake with the rhythm.  The taboo nature of the act as well as the feeling of hard cock inside you thrusting your own orgasm along with his'
		end
		act 'Allow him to pull out' : gt 'mod_addedflavour_A32_Events' , 'A32-BathroomSexEv-17'
	end

--- mod_addedflavour_A32_Events ---------------------------------