# mod_addedflavour_A204_Events
	if $ARGS[0] = 'A204-ShopSexEv-1':
		*clr & cla
		menu_off = 1
		modVar_AF_EventLock['A204-ShopSexEv'] = daystart
		gs 'stat'
		'<center><b><font color="maroon">Patch Work Dolls</font></b></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/characters/city/savva/savva.jpg"></center>'
		*nl
		if modVar_AF_EventTriggered['A204-ShopSexEv'] = 0:
			'You subtly look at Savva and you notice he is looking at you in a way he hasn''t before.  It''s almost as if he is struggling to restrain his attraction to you.'
			*nl
			'It''s a nice feeling, maybe even something worth taking advantage of...'
		else
			'You can see that Savva is looking at you lustfully again.  You know what he wants and you are more than eager to play the role...'
		end
		act 'Do some shopping' : gt 'mod_addedflavour_A204_Events' , 'A204-ShopSexEv-2'
		if modVar_AF_EventTriggered['A204-ShopSexEv'] = 0:
			act 'Just ignore him' : gt $loc, $loc_arg
		end
	end
	
	if $ARGS[0] = 'A204-ShopSexEv-2':
		*clr & cla
		modVar_AF_EventTriggered['A204-ShopSexEv'] += 1
		minut += rand(1,3)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/savva/PatchworkEv1.jpg"></center>'
		*nl
		'You walk around the shop without any clear purpose; the subtle purpose being to rile your watcher up.  You start simply:  a pull of your clothing to emphasize your form, nibbling the end of your finger, running your fingers through your hair to <i>unintentionally</i> raise your shirt...'
		act 'Perhaps a little more shopping' : gt 'mod_addedflavour_A204_Events' , 'A204-ShopSexEv-3'
	end
	
	if $ARGS[0] = 'A204-ShopSexEv-3':
		*clr & cla
		minut += rand(1,3)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/savva/PatchworkEv2.jpg"></center>'
		*nl
		'You carry on with your playful games, pretending that an item is particularly interesting in order to bend over and focus the attention on your rear.'
		*nl
		'With your form in full view you take the opportunity to throw a glance at Savva who you see is completely entranced by your act!'
		act 'Maybe even some Serious Shopping' : gt 'mod_addedflavour_A204_Events' , 'A204-ShopSexEv-4'
	end
	
	if $ARGS[0] = 'A204-ShopSexEv-4':
		*clr & cla
		minut += rand(1,3)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/savva/PatchworkEv3.jpg"></center>'
		*nl
		'The moment has lost the need to be subtle so you decide to start being a lot more forward with your display.  The first thing you do is loosen your clothing so that when you kneel down to get a closer look at an item on the lower shelf then, oh no... it appears that your ass has started to peek out from behind them...'
		*nl
		'Another quick look at Savva and you can see that he is lost to your provocations but still showing restraint enough to not charge over the counter...'
		act 'Drop any subtlety' : gt 'mod_addedflavour_A204_Events' , 'A204-ShopSexEv-5'
	end
	
	if $ARGS[0] = 'A204-ShopSexEv-5':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/savva/PatchworkEv4.jpg"></center>'
		*nl
		'You stand up and pretend that you have only just noticed that your arse is showing but instead of dealing with it you reveal all of it!  You then look over and look directly at Savva, all the while smiling to make clear that this is no accident.'
		act 'Address the situation' : gt 'mod_addedflavour_A204_Events' , 'A204-ShopSexEv-6'
	end
	
	if $ARGS[0] = 'A204-ShopSexEv-6':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_ShowBody'
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/savva/PatchworkEv5' + iif(modVar_AF_QSPVer = 1,'.gif','.webp') + '"></center>'
		*nl
		'"Oh no; its a good thing that I am in a Clothes store as it appears that what I am wearing is far too loose.  Just what am I to do about it, Savva..."'
		*nl
		'While you might be feigning concern your body certainly isn''t showing any of it; much rather you are putting more emphasis onto your perfectly formed behind.'
		*nl
		'<font color="<<$npc_fontcolor[''A204'']>>">"Why do you come over to the counter and we can do something about your Wardrobe Malfunction."</font>'
		act 'Move over to the counter' : gt 'mod_addedflavour_A204_Events' , 'A204-ShopSexEv-7'
	end	
	
	if $ARGS[0] = 'A204-ShopSexEv-7':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_TitPlay_Recv'
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/savva/PatchworkEv6' + iif(modVar_AF_QSPVer = 1,'.gif','.webp') + '"></center>'
		*nl
		'You immediately move over to the counter and pull up your shirt to reveal your supple breasts, Savva showing no hesistation in sampling the bounty you have offered.'
		*nl
		'<font color="<<$npc_fontcolor[''A204'']>>">"You know ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I have closed the shop, we can have this moment to ourselves..."</font>'
		*nl
		'You take the hint entirely and move around the counter to bring your body in contact with his, finishing it off with a darting looking down his body.'
		act 'Fall to your knees' : gt 'mod_addedflavour_A204_Events' , 'A204-ShopSexEv-8'
	end
	
	if $ARGS[0] = 'A204-ShopSexEv-8':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_HandJob_Give'
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/savva/PatchworkEv7' + iif(modVar_AF_QSPVer = 1,'.gif','.webp') + '"></center>'
		*nl
		'In one motion you are on your knees with Savva''s trousers unbuckled.  The sight you are greeted with is confirmation at just what your body has been doing to him; a very hard cock waiting for your attention.'
		*nl
		'"Well, well; just what are we to do with this..."'
		*nl
		'You start stroking its lengthy but you show special care to the head, making sure to only tease it with your breath, never giving it your lips that it is swelling in anticipation of.'
		*nl
		'<font color="<<$npc_fontcolor[''A204'']>>">"' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!!  I can''t hold on with this teasing any longer, I need to have you!!"</font>'
		act 'Let Savva take control' : gt 'mod_addedflavour_A204_Events' , 'A204-ShopSexEv-9'
	end
	
	if $ARGS[0] = 'A204-ShopSexEv-9':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/savva/PatchworkEv8' + iif(modVar_AF_QSPVer = 1,'.gif','.webp') + '"></center>'
		*nl
		'Savva has his clothes off in record time and is helping yours off before you are even finished.  In equally quick time he has you over the counter and positioned to take his hard phallus.'
		*nl
		'You give him the slightest of gaze''s to confirm that this is what you want and it is enough for him to start ramming his cock into you as hard as he can.  The feel of it as it pumps into you with his hands holding your sides is sensational!'
		act 'Take his load' : gt 'mod_addedflavour_A204_Events' , 'A204-ShopSexEv-10'
	end
	
	if $ARGS[0] = 'A204-ShopSexEv-10':
		*clr & cla
		gs 'boystat' , 'A204'
		sexpartkno = 1
		$orgasm_or = 'yes'
		gs 'arousal' , 'vaginal' , 6
		gs 'Cum_Manage'
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/savva/PatchworkEv9' + iif(modVar_AF_QSPVer = 1,'.gif','.webp') + '"></center>'
		*nl
		'Savva grabs hold of your tits as he shouts that he is ready to blow.  You take a moment to brace yourself as soon enough you feel the warmth of ropes of cum filling you up.  The feeling alone is enough to surge your own orgasm to boiling point and you soon join him in screaming your lust out!'
		*nl
		'<font color="<<$npc_fontcolor[''A204'']>>">"Bloody Hell ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', that was amazing... you were amazing... I''m going to need some time to get my composure back!"</font>'
		*nl
		'You too take a few moments to get back control of yourself but the pair of you manage to get clothed and back to normal; seemingly successful that your act was not seen by anyone passing the store...'
		act 'Back to normal' : gt $loc, $loc_arg
	end

--- mod_addedflavour_A204_Events ---------------------------------