# mod_addedflavour_A77_Events
	if $ARGS[0] = 'A77-AptInvEv-X1':
		*clr & cla
		minut += rand(2,4)
		modVar_AF_EventOpen['A77-AptInvEv'] = 1
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'chkpossible' , 1
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/characters/city/timothy/sosed.jpg"></center>'
		'<font color="<<$npc_fontcolor[''A77'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', we''ve been chatting here a number of times so I hope you don''t mind me asking but there is something that has been bugging me; where do I recognise you from?  I swear I have seen you somewhere else that I can''t just put my finger on."</font>'
		*nl
		'You smile at the question and contemplate on just what you will tell him...'
		if hotcat >= 6 and model = 1:
			act 'Tell him you are a Model' : gt 'mod_addedflavour_A77_Events' , 'A77-AptInvEv-ModelOption'
		end
		if modVar_AF_Inhib['Result'] = 1 and film >= 1:
			act 'Tell him you are a Pornstar' : gt 'mod_addedflavour_A77_Events' , 'A77-AptInvEv-PornstarOption'
		end
		act 'Tell him you live alone' : gt 'mod_addedflavour_A77_Events' , 'A77-AptInvEv-AloneOption'
	end
		
	if $ARGS[0] = 'A77-AptInvEv-ModelOption':
		*clr & cla
		modVar_AF_EventProgress['A77-AptInvEv'] = 0
		$modVar_AF_EventOption['A77-AptInvEv'] = 'Model'
		modVar_AF_EventGates['A77-AptInvEv-2'] = 20
		modVar_AF_EventGates['A77-AptInvEv-1'] = (modVar_AF_EventGates['A77-AptInvEv-2'] * 75) / 100
		modVar_AF_EventGates['A77-AptInvEv-3'] = (modVar_AF_EventGates['A77-AptInvEv-2'] * 125) / 100
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/characters/city/timothy/sosed.jpg"></center>'
		'<font color="<<$npc_fontcolor[''A77'']>>">"Wow, I mean... you look stunning so I shouldn''t be surprised but yeah, I must have seen you in a magazine or something..."</font>'
		*nl
		'You have a short conversation after his revelation and go you''re separate ways but perhaps you will try to get to know him a bit more as well.'
		act 'Say goodbye' : gt 'etoexhib', 'pos51'
	end
	
	if $ARGS[0] = 'A77-AptInvEv-PornstarOption':
		*clr & cla
		modVar_AF_EventProgress['A77-AptInvEv'] = 0
		$modVar_AF_EventOption['A77-AptInvEv'] = 'Pornstar'
		modVar_AF_EventGates['A77-AptInvEv-2'] = 16
		modVar_AF_EventGates['A77-AptInvEv-1'] = (modVar_AF_EventGates['A77-AptInvEv-2'] * 75) / 100
		modVar_AF_EventGates['A77-AptInvEv-3'] = (modVar_AF_EventGates['A77-AptInvEv-2'] * 125) / 100
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/characters/city/timothy/sosed.jpg"></center>'
		'Timothy blushes at the discovery; not just that you are a pornstar but also that there is only one source of content that he could recognise you from'
		*nl
		'<font color="<<$npc_fontcolor[''A77'']>>">"Well... maybe a friend of mine showed me your picture... yeah in fact I''m sure of it... anyway, nice weather we''re having?"</font>'
		*nl
		'You then politely decide to not let the awkward moment hang in the air and have a nice conversation before parting ways, all the while thinking to yourself that he was more curious then he was willing to admit.'
		act 'Say goodbye' : gt 'etoexhib', 'pos51'
	end
	
	if $ARGS[0] = 'A77-AptInvEv-AloneOption':
		*clr & cla
		modVar_AF_EventProgress['A77-AptInvEv'] = 0
		$modVar_AF_EventOption['A77-AptInvEv'] = 'Living Alone'
		modVar_AF_EventGates['A77-AptInvEv-2'] = 24
		modVar_AF_EventGates['A77-AptInvEv-1'] = (modVar_AF_EventGates['A77-AptInvEv-2'] * 75) / 100
		modVar_AF_EventGates['A77-AptInvEv-3'] = (modVar_AF_EventGates['A77-AptInvEv-2'] * 125) / 100
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/characters/city/timothy/sosed.jpg"></center>'
		'"I''m not sure who you could be mistaking me for but honestly I just live alone in the apartment"'
		*nl
		'<font color="<<$npc_fontcolor[''A77'']>>">"Maybe you just have a recognisable face, a lot of women with pretty faces get that..."</font>'
		*nl
		'Timothy blushes slightly as he didn''t realise he was giving a compliment until he did so but you manage to laugh it off and diffuse the awkward moment.  After a brief chat you say your goodbyes.'
		act 'Say goodbye' : gt 'etoexhib', 'pos51'
	end
	
	if $ARGS[0] = 'A77-AptInvEv-1':
		*clr & cla
		menu_off = 1
		minut += rand (10,25)
		modVar_AF_Rand = rand(5 - difficulty,4)
		gs 'mod_addedflavour_A77_Functions' , 'AddProgress' , 'A77-AptInvEv' , modVar_AF_Rand , modVar_AF_EventGates['A77-AptInvEv-2']
		gs 'stat'
		if modVar_AF_EventOpen['A77-AptInvEv-InviteFriend'] = 1:
			'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/timothy/tim3talk<<rand(1,6)>>.jpg"></center>'
		else
			'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/timothy/timtalk<<rand(1,8)>>.jpg"></center>'
		end
		*nl
		gs 'mod_addedflavour_A77_Events' , 'A77-AptInvEv-TextOptions'
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'chkpossible' , 2
		if modVar_AF_EventOpen['A77-AptInvEv-InviteFriend'] = 0 and modVar_AF_EventProgress['A77-AptInvEv'] >= modVar_AF_EventGates['A77-AptInvEv-2'] and pcs_vag ! 0 and modVar_AF_Inhib['Result'] = 1:
			act 'Take him to the bedroom' : modVar_AF_Rand = rand(5 - difficulty,4) & gs 'mod_addedflavour_A77_Functions' , 'AddProgress' , 'A77-AptInvEv' , modVar_AF_Rand , modVar_AF_EventGates['A77-AptInvEv-3'] & $modVar_AF_TempStr = 'A77-AptInvSexEv-Grind' & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
		end
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'chkpossible' , 3
		if modVar_AF_EventOpen['A77-AptInvEv-InviteFriend'] = 1 and modVar_AF_EventProgress['A77-AptInvEv'] = modVar_AF_EventGates['A77-AptInvEv-3'] and pcs_vag ! 0 and modVar_AF_Inhib['Result'] = 1:
			act 'Take them both to the bedroom' : gt 'mod_addedflavour_A77_Events' , 'A77-AptInvThreesomeEv-1'
		end
		act 'Say your goodbyes' : gt 'etoexhib', 'pos51'
	end
	
	if $ARGS[0] = 'A77-AptInvEv-TextOptions':
		KILLVAR 'modVar_AF_Rand'
		if modVar_AF_EventOpen['A77-AptInvEv-InviteFriend']= 1 and modVar_AF_EventProgress['A77-AptInvEv'] >= modVar_AF_EventGates['A77-AptInvEv-2']:
			gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'chkpossible' , 3
			if modVar_AF_Inhib['Result'] = 1 and pcs_horny >= 70:
				modVar_AF_Rand = rand(15,16)
			else
				modVar_AF_Rand = rand(11,16)
			end
		elseif modVar_AF_EventOpen['A77-AptInvEv-InviteFriend']= 1:
			modVar_AF_Rand = rand(11,14)
		elseif modVar_AF_EventProgress['A77-AptInvEv'] >= modVar_AF_EventGates['A77-AptInvEv-1']:
			gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'chkpossible' , 2
			if modVar_AF_Inhib['Result'] = 1 and pcs_horny >= 70:
				modVar_AF_Rand = rand(8,10)
			else
				modVar_AF_Rand = rand(1,10)
			end
		else
			modVar_AF_Rand = rand(1,7)
		end
		if modVar_AF_Rand = 1:
			*nl
			'You and Timothy have a nice time together; you have a nice drink and talk about life in general.  It''s nice getting closer to each other.'
		elseif modVar_AF_Rand = 2:
			*nl
			'After a quick drink the two of you have a nice conversation about the state of affairs in the city.  Overall it is very pleasant and Timothy is a joy to spend time with.'
		elseif modVar_AF_Rand = 3:
			*nl
			'You pour each other drinks and make up a small plate of food to nibble on, all the while having a natter with your friend.  He is glad for the company, as are you.'
		elseif modVar_AF_Rand = 4:
			*nl
			'You and Timothy have a pleasant time together.  You talk about events happening locally, the state of each other''s lives and things you would like to do in the future; all while have a nice drink to encourage it.'
		elseif modVar_AF_Rand = 8:
			*nl
			'You and Timothy are having a nice time catching up and drinking, but all the while you notice that he has been subtly touching your leg.  You are not opposed to it, in fact you quite like it, but it does appear to be showing you he is interested in you.'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Living Alone' and modVar_AF_Rand = 5:
			*nl
			'<font color="<<$npc_fontcolor[''A77'']>>">"Have you seen anything good on TV lately?"</font>'
			*nl
			'You begin to rattle off some of the TV Shows you have seen, prompting agreeable responses from Timothy.'
			*nl
			'<font color="<<$npc_fontcolor[''A77'']>>">"I''ve been watching this foreign show lately; the episode I had just watched has a scene where these guys were caught in a situation where they had to run through the night as Batman & Robin, then accidentally saved someone being mugged.  Fucking hilarious."</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Living Alone' and modVar_AF_Rand = 6:
			*nl
			'<font color="<<$npc_fontcolor[''A77'']>>">"It''s quite impressive how you have managed to live on your own here, have you had any problems?"</font>'
			*nl
			if home_owned[2] = 1:
				'You talk about how you get a lot of support from your family (probably best not to mention that you technically still live there) but you''re also very good of sorting things out for yourself.'
			elseif (money + karta <= 1000):
				'You tell him about how the money situation has been quite tight but not in a way that appears desparate.'
			else
				'You describe how you are very good at being self sufficient and living day to day.'
			end
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Living Alone' and modVar_AF_Rand = 7:
			*nl
			'Timothy jumps straight into something that happened during the day but you have already for lost in his speech.  No matter though as you smile and listen to what you can, Timothy seemingly enjoying getting the chance to talk about it.'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Living Alone' and modVar_AF_Rand = 9:
			*nl
			'You are having a pleasant conversation with Timothy but he spends a lot of the chat talking about what it must be like to live alone.  You are not insulted by it and in fact talk about it quite openly but you can''t help but detect a slight sexual undertone to the queries.'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Living Alone' and modVar_AF_Rand = 10:
			*nl
			'Timothy is being very open about his interest in your life and is getting closer to you as the conversation goes on.  It is not long before you are at a point where you are looking into each others eye''s, wondering what will happen next...'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Model' and modVar_AF_Rand = 5:
			*nl
			'<font color="<<$npc_fontcolor[''A77'']>>">"So how is life treating you in the model business?"</font>'
			*nl
			'You then proceed to go on about life at the studio, people you have seen and shoots you have done.  Timothy maintained his interest throughout which was nice to receive as you talked.'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Model' and modVar_AF_Rand = 6:
			*nl
			'Timothy talks enthusiastically about how he spotted one of your photo''s in a magazine the other day.  It is nice to see someone so pleased to see your work!'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Model' and modVar_AF_Rand = 7:
			*nl
			'<font color="<<$npc_fontcolor[''A77'']>>">"I suppose this place is just a stop-gap for when you become an international sensation!"</font>'
			*nl
			'Surprisingly while said slightly in jest you can see some genuine belief that you are going to succeed in the modelling business.  It is nice to see so you explain that even with success you are likely to still be around in some capacity.'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Model' and modVar_AF_Rand = 9:
			*nl
			'<font color="<<$npc_fontcolor[''A77'']>>">"Your feet must be killing you with tall the catwalk walking you''ve been doing... if you like I could give you a massage...?"</font>'
			*nl
			'You laugh off the offer (and ignore the idea that you''re a catwalk model) but it'' interesting to know he is thinking about touching you.'		
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Model' and modVar_AF_Rand = 10:
			*nl
			'<font color="<<$npc_fontcolor[''A77'']>>">"I saw a picture of you in a magazine today!  You were looking amazing; I almost had to stop myself from ma.. buying it right there and then!"</font>'
			*nl
			'You are pleased that he found you so striking buy what was that he was going to say...'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Pornstar' and modVar_AF_Rand = 5:
			*nl
			'<font color="<<$npc_fontcolor[''A77'']>>">"Please believe me when I say I don''t know much about it but how is the, well, how is work treating you?"</font>'
			*nl
			'It is obvious he is a bit sheepish about your porn work but you give him a few details without being embarrassing about it.'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Pornstar' and modVar_AF_Rand = 6:
			*nl
			'Timothy is quite comfortable around you while you talk which is quite nice compared to most people who know my work.'
			*nl
			'Still you do notice some hesitancy around the subject.'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Pornstar' and modVar_AF_Rand = 7:
			*nl
			'<font color="<<$npc_fontcolor[''A77'']>>">"Are you alright, you''re looking a tad shagged out..."</font>'
			*nl
			'You raise an inquisitive eyebrow in response waiting for him to realise his double entendre'
			*nl
			'*gasp* <font color="<<$npc_fontcolor[''A77'']>>">"I meant, as in tired!  I mean, you look good, I just thought you were looking exhausted.  Oh god, help me here!"</font>'
			*nl
			'You finally relent and laugh off his faux pas giving his mind chance to calm down!'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Pornstar' and modVar_AF_Rand = 9:
			*nl
			'<font color="<<$npc_fontcolor[''A77'']>>">"There is something exciting about knowing a Porn Star; there is an exotic allure about you, something almost unachievable."</font>'
			*nl
			'You continue the conversation about your proper life and your porn life which has Timothy enraptured.'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Pornstar' and modVar_AF_Rand = 10:
			'<font color="<<$npc_fontcolor[''A77'']>>">"My friends would be so jealous to find out I know you, don''t worry as I respect you''re privacy but it would be so cool because they would want to meet you so bad!"</font>'
			*nl
			'You don''t show it but you are loving the adoration you are getting, you can''t help but think about giving him a gift only you can give...'
		elseif modVar_AF_Rand = 11:
			*nl
			'Timothy comes into the Apartment with his friend and the pair of them greet you.  The three of you have some food and spend the rest of the time getting acquainted in the living room.'
		elseif modVar_AF_Rand = 12:
			*nl
			'You already have some food prepared when Timothy walks in with his friend so you all tuck in.  After some pleasant conversation amongst the three of you, Timothy announces that he has enjoyed catching up but they need to head off.'
		elseif modVar_AF_Rand = 13:
			*nl
			'The three of you walk in and immediately get settled on the sofa.  The three of you have a pleasant time talking and generally having fun.'
		elseif modVar_AF_Rand = 14:
			*nl
			'Timothy and his Friend walk in and set themselves up on the Video Games Console.  You are happy to leave them be while you prepare some food but join them when you have done so.'
		elseif modVar_AF_Rand = 15:
			*nl
			'The three of you set yourselves up in the Living Room.  All of you are enjoying eachothers company so you decide this is the best time to start teasing them; so while you are all conversing you start making subtle gestures such as pushing your cleavage out and slowly swapping your crossed legs over.  Soon enough you have them completely enraptured with your body prompting a wry smile on your part.'
		elseif modVar_AF_Rand = 16:
			*nl
			'You prepare a light snack to share amongst the three of you which has given them enough time to launch themselves at your Video Games Console.  As punishment you decide to play a game of your own; so while they are playing you start sampling the food you have prepared.  First you take a bite out of one of the rich fruits available, letting your plush lips accentuate the process as the part to let the pliant flesh thrust past them.  Then you take a drink of water; this time letting a few drips <i>accidentally</i> fall down your chest and into your waiting cleavage.  Shortly after you are surprised by the sound of death coming from the TV screen and see that their Characters have died and they are shamelessly distracted...'
		end
	end
	
	if $ARGS[0] = 'A77-AptInvSexEv-Config':
		*clr & cla
		gs 'mod_addedflavour_A77_Events' , $modVar_AF_TempStr
		gs 'stat'
		if $modVar_AF_TempStr = 'A77-AptInvSexEv-Grind':
			act 'Suck his cock' : $modVar_AF_TempStr = 'A77-AptInvSexEv-Blowjob' & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
			act 'Finger yourself' : $modVar_AF_TempStr = 'A77-AptInvSexEv-Fingering' & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
		elseif $modVar_AF_TempStr = 'A77-AptInvSexEv-Blowjob':
			act 'Continue sucking' : $modVar_AF_TempStr = 'A77-AptInvSexEv-Blowjob' & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
			act 'Finger yourself' : $modVar_AF_TempStr = 'A77-AptInvSexEv-Fingering' & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
		elseif $modVar_AF_TempStr = 'A77-AptInvSexEv-Fingering':
			act 'Suck his cock' : $modVar_AF_TempStr = 'A77-AptInvSexEv-Blowjob' & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
		elseif $modVar_AF_TempStr = 'A77-AptInvSexEv-Insert':
			modVar_AF_Rand = rand(1,2)
			if modVar_AF_Rand = 1:
				act 'Fuck him more' : $modVar_AF_TempStr = 'A77-AptInvSexEv-Cowgirl' & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
			elseif modVar_AF_Rand = 2:
				act 'Fuck him more' : $modVar_AF_TempStr = 'A77-AptInvSexEv-ReverseCowgirl' & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
			end
		elseif $modVar_AF_TempStr = 'A77-AptInvSexEv-Cowgirl':
			act 'Suck his cock' : $modVar_AF_TempStr = 'A77-AptInvSexEv-NudeBlowJob' & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
			act 'Fuck him more' : $modVar_AF_TempStr = 'A77-AptInvSexEv-ReverseCowgirl' & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
		elseif $modVar_AF_TempStr = 'A77-AptInvSexEv-ReverseCowgirl':
			act 'Suck his cock' : $modVar_AF_TempStr = 'A77-AptInvSexEv-NudeBlowJob' & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
			act 'Fuck him more' : $modVar_AF_TempStr = 'A77-AptInvSexEv-Cowgirl' & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
		elseif $modVar_AF_TempStr = 'A77-AptInvSexEv-NudeBlowJob':
			modVar_AF_Rand = rand(1,2)
			if modVar_AF_Rand = 1:
				act 'Fuck him more' : $modVar_AF_TempStr = 'A77-AptInvSexEv-Cowgirl' & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
			elseif modVar_AF_Rand = 2:
				act 'Fuck him more' : $modVar_AF_TempStr = 'A77-AptInvSexEv-ReverseCowgirl' & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
			end
		elseif $modVar_AF_TempStr = 'A77-AptInvSexEv-End':
			pcs_mood += 25
			act 'Say Goodbye' : modVar_AF_EventProgress['A77-AptInvSexEv'] = 0 & gt 'etoexhib', 'pos51'
		end
		if modVar_AF_EventProgress['A77-AptInvSexEv'] >= 30 and ($modVar_AF_TempStr = 'A77-AptInvSexEv-Blowjob' or $modVar_AF_TempStr = 'A77-AptInvSexEv-Fingering'):
			$modVar_AF_TempStr = 'A77-AptInvSexEv-Insert' 
			gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
		elseif modVar_AF_EventProgress['A77-AptInvSexEv'] >= 20 and ($modVar_AF_TempStr = 'A77-AptInvSexEv-Blowjob' or $modVar_AF_TempStr = 'A77-AptInvSexEv-Fingering'):
			act 'Fuck him' : $modVar_AF_TempStr = 'A77-AptInvSexEv-Insert' & modVar_AF_EventProgress['A77-AptInvSexEv'] = 30 & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
		end
		if modVar_AF_EventProgress['A77-AptInvSexEv'] >= 100 and ($modVar_AF_TempStr = 'A77-AptInvSexEv-NudeBlowJob' or $modVar_AF_TempStr = 'A77-AptInvSexEv-Cowgirl' or $modVar_AF_TempStr = 'A77-AptInvSexEv-ReverseCowgirl'):
			$modVar_AF_TempStr = 'A77-AptInvSexEv-End' 
			gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
		elseif modVar_AF_EventProgress['A77-AptInvSexEv'] >= 80 and ($modVar_AF_TempStr = 'A77-AptInvSexEv-NudeBlowJob' or $modVar_AF_TempStr = 'A77-AptInvSexEv-Cowgirl' or $modVar_AF_TempStr = 'A77-AptInvSexEv-ReverseCowgirl'):
			act 'Take him to his peak' : $modVar_AF_TempStr = 'A77-AptInvSexEv-End' & modVar_AF_EventProgress['A77-AptInvSexEv'] = 100 & gt 'mod_addedflavour_A77_Events' , 'A77-AptInvSexEv-Config'
		end
		*nl
		if modVar_AF_EventProgress['A77-AptInvSexEv'] >= 100:
			'<center><font color="red">Timothy''s Orgasm - CUMMING!!!</font></center>'
		elseif modVar_AF_EventProgress['A77-AptInvSexEv'] >= 75:
			'<center><font color="red">Timothy''s Orgasm - <<modVar_AF_EventProgress[''A77-AptInvSexEv'']>>%</font></center>'
		elseif modVar_AF_EventProgress['A77-AptInvSexEv'] >= 25:
			'<center><font color="orange">Timothy''s Orgasm - <<modVar_AF_EventProgress[''A77-AptInvSexEv'']>>%</font></center>'
		else
			'<center><font color="green">Timothy''s Orgasm - <<modVar_AF_EventProgress[''A77-AptInvSexEv'']>>%</font></center>'
		end
	end
	
	if $ARGS[0] = 'A77-AptInvSexEv-Blowjob':
		modVar_AF_EventProgress['A77-AptInvSexEv'] += rand(5,10)
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_BlowJob_Give'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/timevbj' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You get down and starting sucking Timothy''s cock.  You can hear him groaning in satisfaction as your soft lips travel down his hardening phallus.'
		*nl
		if $modVar_AF_EventOption['A77-AptInvEv'] = 'Pornstar':
			'<font color="<<$npc_fontcolor[''A77'']>>">"My god ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', you are so good at that, and you wouldn''t believe how much I have wanted you to suck my cock!"</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Model':
			'<font color="<<$npc_fontcolor[''A77'']>>">"Wow, I can''t believe you are really giving me a blowjob; it feels fantastic!"</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Living Alone':
			'<font color="<<$npc_fontcolor[''A77'']>>">"Keep going ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', you suck like a pro!"</font>'
		end
	end
	
	if $ARGS[0] = 'A77-AptInvSexEv-Cowgirl':
		modVar_AF_EventProgress['A77-AptInvSexEv'] += rand(10,20)
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/timevcg' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You are fucking Timothy hard, your firm body and tight pussy giving him untold levels of pleasure.'
		*nl
		if $modVar_AF_EventOption['A77-AptInvEv'] = 'Pornstar':
			'*groans* <font color="<<$npc_fontcolor[''A77'']>>">"You really are as good as you look in your videos"</font> *groans*'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Model':
			'<font color="<<$npc_fontcolor[''A77'']>>">"You look amazing ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  Keep going! Harder!"</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Living Alone':
			'<font color="<<$npc_fontcolor[''A77'']>>">"You really are beautiful ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '; I can''t believe how good this feels..."</font>'
		end
	end
	
	if $ARGS[0] = 'A77-AptInvSexEv-End':
		gs 'boystat' , 'A77'
		sexpartkno = 1
		$orgasm_or = 'yes'
		gs 'arousal', 'vaginal', 8
		gs 'Cum_Manage'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/timevcum' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Timothy''s cock is pulsing and sure enough, as you feel him fill you with ropes of cum, your orgasm hits in full force, filling you with pleasure and satisfaction.'
		*nl
		if $modVar_AF_EventOption['A77-AptInvEv'] = 'Pornstar':
			'<font color="<<$npc_fontcolor[''A77'']>>">"I''m cumming ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '. Take it! Take it all!!...  wow, fucking a pornstar is incredible!"</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Model':
			'<font color="<<$npc_fontcolor[''A77'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I''m cumming! Yes! YES! You''re so beautiful, I can''t believe I get to be with you"</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Living Alone':
			'*groans* <font color="<<$npc_fontcolor[''A77'']>>">"I''m cumming!...  Wow, that was really amazing ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '"</font>'
		end
		*nl
		'After some time for the two of you to get your breath back; you both get your clothes back on and Timothy hugs you goodbye back out in the hallway.'
	end
	
	if $ARGS[0] = 'A77-AptInvSexEv-Fingering':
		modVar_AF_EventProgress['A77-AptInvSexEv'] += rand(2,5)
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Recv'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/timevf' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You kneel down and finger yourself as Timothy masturbates below you.  His cock is solid in anticipation for the pleasure you will be giving him.'
		*nl
		if $modVar_AF_EventOption['A77-AptInvEv'] = 'Pornstar':
			'<font color="<<$npc_fontcolor[''A77'']>>">"I want you so bad ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', ever since I found out about you I have lusted over you."</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Model':
			'<font color="<<$npc_fontcolor[''A77'']>>">"You are so hot ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '; so many people would kill to be where I am right now."</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Living Alone':
			'<font color="<<$npc_fontcolor[''A77'']>>">"I want you ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I can''t believe what fortune bought you to this apartment building but I am thankful for it."</font>'
		end
	end
	
	if $ARGS[0] = 'A77-AptInvSexEv-NudeBlowJob':
		modVar_AF_EventProgress['A77-AptInvSexEv'] += rand(5,10)
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_BlowJob_Give'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/timevnbj' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You are completely naked and sucking hard on his phallus, his groans only driving you forward.'
		*nl
		if $modVar_AF_EventOption['A77-AptInvEv'] = 'Pornstar':
			'<font color="<<$npc_fontcolor[''A77'']>>">"Take that cock ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', you know you want it!"</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Model':
			'<font color="<<$npc_fontcolor[''A77'']>>">"You suck cock so well ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', and you''re body is amazing!"</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Living Alone':
			'<font color="<<$npc_fontcolor[''A77'']>>">"This feels so good ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I am going to fuck you so hard!"</font>'
		end
	end
	
	if $ARGS[0] = 'A77-AptInvSexEv-Grind':
		modVar_AF_EventProgress['A77-AptInvSexEv'] += rand(2,5)
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Give'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/timevr' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You drag Timothy onto the bed and strip him off.  He is laying down in complete infatuation for you; so you reward him by driving your nether region into his already hard penis, teasing it in readiness.'
		*nl
		if $modVar_AF_EventOption['A77-AptInvEv'] = 'Pornstar':
			'<font color="<<$npc_fontcolor[''A77'']>>">"WOW!  I''m going to have sex with a pornstar!  I want you so much, you are so hot!"</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Model':
			'<font color="<<$npc_fontcolor[''A77'']>>">"You look stunning ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  I have wanted you since the first time I saw you in a magazine."</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Living Alone':
			'<font color="<<$npc_fontcolor[''A77'']>>">"Wow ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', you are so bold!"</font>'
		end
	end
	
	if $ARGS[0] = 'A77-AptInvSexEv-ReverseCowgirl':
		modVar_AF_EventProgress['A77-AptInvSexEv'] += rand(10,20)
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/timevrcg' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You turn and face your body away from timothy before taking his cock to the hilt.  You continue to bounce on his rock hard phallus as your firm arse kisses his torso with every drop.'
		*nl
		if $modVar_AF_EventOption['A77-AptInvEv'] = 'Pornstar':
			'<font color="<<$npc_fontcolor[''A77'']>>">"That arse is amazing and it feels fucking amazing at that!"</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Model':
			'<font color="<<$npc_fontcolor[''A77'']>>">"You''re body is a sight to behold ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '.  I can''t believe someone so beautiful is here with me right now."</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Living Alone':
			'<font color="<<$npc_fontcolor[''A77'']>>">"Yes!  Fuck me ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', you''re pussy is so tight!"</font>'
		end
	end
	
	if $ARGS[0] = 'A77-AptInvSexEv-Insert':
		modVar_AF_EventProgress['A77-AptInvSexEv'] += rand(2,10)
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/timevss' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With you''re orgasm starting to rise you feel it is time to mount that cock.  You wheel your leg over his waist and insert his eager phallus into your vagina.'
		*nl
		if $modVar_AF_EventOption['A77-AptInvEv'] = 'Pornstar':
			'<font color="<<$npc_fontcolor[''A77'']>>">"Do it ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '.  I want you so.....Yes!  That feel so good!"</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Model':
			'<font color="<<$npc_fontcolor[''A77'']>>">"You''re so beautiful, I want to fuck y... wow!"</font>'
		elseif $modVar_AF_EventOption['A77-AptInvEv'] = 'Living Alone':
			'<font color="<<$npc_fontcolor[''A77'']>>">"You look so beautiful right now ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I want to make love to you...  wow, you feel amazing!"</font>'
		end
	end
	
	if $ARGS[0] = 'A77-AptInvThreesomeEv-1':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Recv'
		modVar_AF_OrgasmTracking['NPC-1'] = 5
		modVar_AF_OrgasmTracking['NPC-2'] = 12
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/tim3ev1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You move to the bedroom and beckon Timothy and his Friend to follow you.  They know exactly what it is that you want from them and they immediately start going for your body.'
		gs 'mod_addedflavour_A77_Functions' , 'A77-AptInvThreesomeEv-OrgasmTracking'
		act 'Take of all your clothes' : gt 'mod_addedflavour_A77_Events' , 'A77-AptInvThreesomeEv-2'
	end
	
	if $ARGS[0] = 'A77-AptInvThreesomeEv-2':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		modVar_AF_OrgasmTracking['NPC-1'] = 9
		modVar_AF_OrgasmTracking['NPC-2'] = 21
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/tim3ev2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Your body is being eagerly felt up; a pair of hands massaging your ample breasts while another goes for your vagina.  The feeling of having your body being given to two eager men while staying in complete control of them is tantalising, and you know it won''t be long before you have their cocks within you.'
		gs 'mod_addedflavour_A77_Functions' , 'A77-AptInvThreesomeEv-OrgasmTracking'
		act 'Suck some cock' : gt 'mod_addedflavour_A77_Events' , 'A77-AptInvThreesomeEv-3'
	end
	
	if $ARGS[0] = 'A77-AptInvThreesomeEv-3':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_BlowJob_Give'
		modVar_AF_OrgasmTracking['NPC-1'] = 17
		modVar_AF_OrgasmTracking['NPC-2'] = 25
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/tim3ev3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You decide to take Timothy first and so move to the bed.  Timothy moves towards you and points his hardening phallus at your lips.  You then take it within them and start sucking hard on his cock, allowing your tongue to tease its length.'
		gs 'mod_addedflavour_A77_Functions' , 'A77-AptInvThreesomeEv-OrgasmTracking'
		act 'Mount him' : gt 'mod_addedflavour_A77_Events' , 'A77-AptInvThreesomeEv-4'
	end
	
	if $ARGS[0] = 'A77-AptInvThreesomeEv-4':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		modVar_AF_OrgasmTracking['NPC-1'] = 23
		modVar_AF_OrgasmTracking['NPC-2'] = 29
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/tim3ev4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Timothy can only hold on for so long and announces that he needs have you completely.  He grabs you and lays you back on the bed before thrusting his hard cock deep within you.  In moments you are greeted with the feeling of hard shaft being rammed repeatedly in your vagina!'
		gs 'mod_addedflavour_A77_Functions' , 'A77-AptInvThreesomeEv-OrgasmTracking'
		act 'More fucking' : gt 'mod_addedflavour_A77_Events' , 'A77-AptInvThreesomeEv-5'
	end
	
	if $ARGS[0] = 'A77-AptInvThreesomeEv-5':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		modVar_AF_OrgasmTracking['NPC-1'] = 41
		modVar_AF_OrgasmTracking['NPC-2'] = 34
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/tim3ev5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You want more of his cock, as well as regaining back some of your control; and so command him to lay himself down on the bed.  Once in position you straddle him and put his cock back in your pussy.  You then start bouncing on his crotch while he doesn''t hold back in pounding his cock in with every giration.'
		gs 'mod_addedflavour_A77_Functions' , 'A77-AptInvThreesomeEv-OrgasmTracking'
		act 'Bring Timothy''s Friend in' : gt 'mod_addedflavour_A77_Events' , 'A77-AptInvThreesomeEv-6'
	end
	
	if $ARGS[0] = 'A77-AptInvThreesomeEv-6':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		modVar_AF_OrgasmTracking['NPC-1'] = 49
		modVar_AF_OrgasmTracking['NPC-2'] = 52
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/tim3ev6' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Feeling that his Friend is in need of some pleasure you get up and put Timothy''s cock into your mouth, sucking on it hard to maintain the fervor of the moment.  All the while you have your rear swaying with the obvious intent to be mounted which Timothy''s Friend picks up on, in turn shoving his cock into your lubricated folds.'
		gs 'mod_addedflavour_A77_Functions' , 'A77-AptInvThreesomeEv-OrgasmTracking'
		act 'Get spit-roasted' : gt 'mod_addedflavour_A77_Events' , 'A77-AptInvThreesomeEv-7'
	end
	
	if $ARGS[0] = 'A77-AptInvThreesomeEv-7':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		modVar_AF_OrgasmTracking['NPC-1'] = 61
		modVar_AF_OrgasmTracking['NPC-2'] = 78
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/tim3ev7' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Timothy''s Friend has been building up some desire while you and Timothy have been getting it on, which has forced a strong desire to pound you with increasing intensity.  You maintain oral attention on Timothy''s shaft but his friend is definitly trying to sway your focus!'
		gs 'mod_addedflavour_A77_Functions' , 'A77-AptInvThreesomeEv-OrgasmTracking'
		act 'Let him take your ass' : gt 'mod_addedflavour_A77_Events' , 'A77-AptInvThreesomeEv-8'
	end
	
	if $ARGS[0] = 'A77-AptInvThreesomeEv-8':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_AnalSex'
		sexpartkno = 1
		gs 'npcgeneratec', 0, 'Timothy''s Friend', rand(16,19)
		gs 'boyStat', $npclastgenerated
		spafinloc = 3
		gs 'Cum_Manage'
		modVar_AF_OrgasmTracking['NPC-1'] = 75
		modVar_AF_OrgasmTracking['NPC-2'] = 100
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/tim3ev8' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Wanting to try something new, you flip yourself over while masterfully keeping Timothy''s cock in your mouth.  Once in position you tell Timothy''s friend to put it in your ass, which he gleefully agrees to.  He is slowly thrusting into your ass but he only able to handle it for so long and soon enough you have the feeling of him discharging into your bowels.  The feeling of his cum is warm to you but you can only enjoy for so long as you have Timothy''s attention to deal with.'
		gs 'mod_addedflavour_A77_Functions' , 'A77-AptInvThreesomeEv-OrgasmTracking'
		act 'Pleasure Timothy' : gt 'mod_addedflavour_A77_Events' , 'A77-AptInvThreesomeEv-9'
	end
	
	if $ARGS[0] = 'A77-AptInvThreesomeEv-9':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		modVar_AF_OrgasmTracking['NPC-1'] = 95
		modVar_AF_OrgasmTracking['NPC-2'] = 0
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/tim3ev9' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With his friend spent, Timothy moves to have your vagina all to himself.  He grabs you by the torso and thrusts hard into you; the feeling of pleasure causing you to rise to meet it which he greets by grabbing onto you to thrust harder!'
		gs 'mod_addedflavour_A77_Functions' , 'A77-AptInvThreesomeEv-OrgasmTracking'
		act 'Take his cum' : gt 'mod_addedflavour_A77_Events' , 'A77-AptInvThreesomeEv-10'
	end
	
	if $ARGS[0] = 'A77-AptInvThreesomeEv-10':
		gs 'boystat' , 'A77'
		sexpartkno = 1
		$orgasm_or = 'yes'
		gs 'arousal' , 'vaginal' , 5
		gs 'Cum_Manage'
		modVar_AF_OrgasmTracking['NPC-1'] = 100
		modVar_AF_OrgasmTracking['NPC-2'] = 0
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/timothy/tim3ev10' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Timothy is peaking hard and his orgasm hits with substantial force, filling your vagina with ropes of cum.  You are both equally exhausted by the experience but the pair of you recover enough before he and his friend get their clothes back on to leave you in your sexual bliss...'
		gs 'mod_addedflavour_A77_Functions' , 'A77-AptInvThreesomeEv-OrgasmTracking'
		act 'Say Goodbye' : gt 'etoexhib', 'pos51'
	end

--- mod_addedflavour_A77_Events ---------------------------------