AddedFlavour/locations/mod_addedflavour_A4_Events.qsrc

# mod_addedflavour_A4_Events
	if $ARGS[0] = 'A4-MeetEvaEv-X1':
		if modVar_AF_EventTriggered['A4-MeetEva'] > 0 : minut += rand(3,8)
		minut += rand(1,3)
		modVar_AF_EventLock['A4-MeetEva'] = daystart
		modVar_AF_EventTriggered['A4-MeetEva'] += 1
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Eva/WatchingFootball<<rand(1,3)>>.jpg"></center>'
		*nl
		if modVar_AF_EventTriggered['A4-MeetEva'] = 1:
			'You are just finishing up your practice routine when you notice a young women waiting in the otherwise empty stands.  You think nothing more of it but it is unusual to have someone watching a Practice Session.'
			act 'Carry on' : gt $loc, $loc_arg
		elseif modVar_AF_EventTriggered['A4-MeetEva'] = 2:
			'There she is again...  You decide to go over and say hello; she is bound to have noticed you looking at her.'
			*nl
			'"Hi there.  Hope you didn''t see me staring but I figured I would come over and say hello; my name''s <<$pcs_firstname>>."'
			*nl
			'<font color="Maroon">"Well hello there <<$pcs_firstname>>.  My name is Eva, and I didn''t see you staring at all, in fact I''m not really concentrating on anything.  I''m just waiting for a friend of mine to turn up and this seemed as good a place as any."</font>'
			*nl
			'"It is; we don''t get many people here but your welcome to watch, in fact you are welcome to join in as well!"'
			*nl
			'Eva chuckles at the suggestion...'
			*nl
			'<font color="Maroon">"... that''s okay, i''m more than happy to wait for my elusive friend to turn up.  But aren''t you the perky one, I would be more than happy to talk to you again!"</font>'
			*nl
			'"Who wouldn''t!  Anyway I need to get back now but I''ll look out for you again.  Bye!"'
			*nl
			'Eva gives you a lazy wave with her fingertips as you run back to the field.'
			act 'Get back to it' : gt $loc, $loc_arg
		elseif modVar_AF_EventOpen['A4-KnowIgor'] = 0 and ((Storyline = 1 and igor_nomore = 1) or Storyline ! 1):
			'You rush over and have a nice chat with Eva:  You being upbeat and interested, her being laid-back but attentive...'
			modVar_AF_Rand = rand(modVar_AF_EventTriggered['A4-MeetEva'],(4 + difficulty))
			if modVar_AF_Rand >= (4 + difficulty):
				*nl
				'<font color="Maroon">"Oh look!  She finally decided to make an appearance!"</font>'
				*nl
				'Eva turns away from you and towards the blonde stranger walking nervously towards you' + iif(Storyline = 1,', a suspiciously familiar blonde women at that...','.')
				*nl
				'<font color="Maroon">"Hello there, I swear I always seem to have to wait for you!  But your in luck as you get to meet my new friend here.  Her name is <<$pcs_firstname>>, and <<$pcs_firstname>> meet..."</font>'
				act 'Meet Eva''s Friend' : gt 'mod_addedflavour_A4_Events' , 'A4-MeetIgora-1'
			else
				act 'Get back to it' : gt $loc, $loc_arg
			end
		elseif modVar_AF_EventTriggered['A4-EvaSex'] = 0:
			'You rush over and have a nice chat with Eva:  You being upbeat and interested, her being laid-back but attentive...'
			modVar_AF_Rand = rand(modVar_AF_EventTriggered['A4-MeetEva'],(6 + difficulty))
			if modVar_AF_Rand >= (6 + difficulty):
				*nl
				'<font color="Maroon">"Don''t rush off just yet <<$pcs_firstname>>.  I have been watching you since you and me have gotten to know each other and I think you have improved immensely, but you are looking a little tired, how about coming back to mine after your Training Session and we can have a drink to wind down?"</font>'
				*nl
				'"You know what Eva, I could really use some TLC.  We can leave now if you like as I am basically finished up here."'
				*nl
				'<font color="Maroon">"Brilliant.  Let''s get going."</font>'
				act 'Leave with Eva' : gt 'mod_addedflavour_A4_Events' , 'A4-EvaSex-1'
			else
				act 'Get back to it' : gt $loc, $loc_arg
			end
		else
			'You rush over and have a nice chat with Eva:  You being upbeat and interested, her being laid-back but attentive...'
			if modVar_AF_EventTriggered['A4-EvaSex'] >= 1:
				*nl
				'<font color="Maroon">"You look basically done here; do you fancy some of that Tender Loving Care you seemed to enjoy last time?"</font>'
				act 'Leave with Eva' : gt 'mod_addedflavour_A4_Events' , 'A4-EvaSex-1'
			end
			act 'Get back to it' : gt $loc, $loc_arg
		end
	end
	
	if $ARGS[0] = 'A4-EvaSex-1':
		modVar_AF_EventTriggered['A4-EvaSex'] += 1
		minut += rand(10,20)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Eva/A4-EvaSex1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You and Eva leave the University Grounds together and end up back at her Dorm Room.  When you arrive, Eva throws herself down on her bed which you take as meaning you should to, and so you sit gingerly down from her.'
		*nl
		'<font color="Maroon">"<<$pcs_firstname>>, you look haggered there dear.  Shift yourself up here and let me pamper you a little."</font>'
		*nl
		'Feeling comforted on her relaxed nature you pull yourself up the bed and let her put you where she needs you.'
		act 'Be pampered' : gt 'mod_addedflavour_A4_Events' , 'A4-EvaSex-2'
	end
	
	if $ARGS[0] = 'A4-EvaSex-2':
		minut += rand(3,8)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Eva/A4-EvaSex2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You settle down in her arms as she brushes your hair while letting you get the days troubles off your chest...'
		*nl
		'<font color="Maroon">"Come on, relax a little.  Let me help you calm down and feel nothing but contentment."</font>'
		*nl
		'You lay back and let her cradle you in her lap.'
		act 'Sit back and Relax' : gt 'mod_addedflavour_A4_Events' , 'A4-EvaSex-3'
	end
	
	if $ARGS[0] = 'A4-EvaSex-3':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Recv'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Eva/A4-EvaSex3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Eva has you completely relaxed so much that you are practically melting over her.  She accentuates the experience further by massaging your body along your arms and torso.'
		*nl
		'"Oh Eva, you know just how to make a girl feel comfortable."'
		*nl
		'<font color="Maroon">"And there is much more I can do for you <<$pcs_firstname>>"</font>'
		*nl
		'You look at her and meet her eyes in anticipation.'
		act 'Respond to her suggestion' : gt 'mod_addedflavour_A4_Events' , 'A4-EvaSex-4'
	end
	
	if $ARGS[0] = 'A4-EvaSex-4':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Eva/A4-EvaSex4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With you completely under her spell she leans forward to kiss you; which you let her without a moments hesistation.'
		*nl
		'The Kiss is passionate but careful not to push you too fast; she is either a master seducer or it comes naturally to her but it feels like she has every moment of your knowing her planned out for this moment.'
		act 'Keep kissing her' : gt 'mod_addedflavour_A4_Events' , 'A4-EvaSex-5'
	end
	
	if $ARGS[0] = 'A4-EvaSex-5':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Eva/A4-EvaSex5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'While keeping to make your lips her domain she lets her hands roam your form until finding the bottom of your Football Shirt, then pulling it to reveal your breasts for her to play with.'
		*nl
		'You have lost any sense of control and are hers to do whatever she wishes.  She may even know this as she smiles before moving along side you.'
		act 'Let her have you' : gt 'mod_addedflavour_A4_Events' , 'A4-EvaSex-6'
	end
	
	if $ARGS[0] = 'A4-EvaSex-6':
		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/Eva/A4-EvaSex6' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'She immediately kisses your breasts letting her lips gently caress your nipples, with her tongue flickering across them merely teasing at what is to come.  This is only a distraction however as her hands move unhindered across your body, claiming your moistening pussy as their kingdom.'
		*nl
		'Being putty in her hands you don''t even notice just how much clothes are being removed before you are both naked in each others arms...'
		act 'Submit completely' : gt 'mod_addedflavour_A4_Events' , 'A4-EvaSex-7'
	end
	
	if $ARGS[0] = 'A4-EvaSex-7':
		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/Eva/A4-EvaSex7' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With you laid back in complete submission she lowers herself on top of you, once again feeling the silk of her lips on yours.  It is then you feel the glorious sensation of her driving her vagina into yours; nerve-endings dancing before coming together into an ecstatic surge.'
		*nl
		'You can already feel your orgasm bursted to blow out of you but what conscious mind you have knows that your want her to cum in tune with yours; so in a genuine moment of surprise for her you flip her over and drop down to her sex.'
		act 'Pleasure her directly' : gt 'mod_addedflavour_A4_Events' , 'A4-EvaSex-8'
	end
	
	if $ARGS[0] = 'A4-EvaSex-8':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Cuni_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Eva/A4-EvaSex8' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With what semblance of control you have, you let your tongue explore her welcoming folds.  While this may not have been in her own script she accepts your attention with eager drive.'
		*nl
		'Before long you feel how her feeling has caught up with your own so move your body back to hers to drive this to its glorious conclusion.'
		act 'Join in Orgasmic Bliss' : gt 'mod_addedflavour_A4_Events' , 'A4-EvaSex-9'
	end
	
	if $ARGS[0] = 'A4-EvaSex-9':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Recv'
		$orgasm_or = 'yes'
		gs 'arousal' , 'cuni' , rand(5,8) , 'lesbian'
		gs 'arousal' , 'end'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Eva/A4-EvaSex9' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'While holding each other tightly you kiss her with an equal desire, all while thrusting your vagina into hers.  Every instance of nerve kissing nerve fires a pulse of sensation up your entire body before firing itself out in a scream.  The only so long a person can stand such sensation and soon the pair of you give a final harmonic scream as your orgasm lands with equal power.'
		act 'Crash in each others arms' : gt 'mod_addedflavour_A4_Events' , 'A4-EvaSex-10'
	end
	
	if $ARGS[0] = 'A4-EvaSex-10':
		minut += rand(2,4)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Eva/A4-EvaSex10' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With bodies turned to mush with their explosive convulsion you lay there in complete satisfaction.  You don''t know as to how long you were there but eventually you part from Eva, letting her recover as you go on to do the same.'
		act 'Rejoin the real world' : minut += rand(20,60) & gt 'city_island'
	end
	
	if $ARGS[0] = 'A4-MeetIgora-1':
		modVar_AF_EventOpen['A4-KnowIgor'] = 1
		modVar_AF_EventLock['A4-PreConfidentEv'] = daystart
		gs 'mod_addedflavour_A4_Functions' , 'config'
		minut += rand(2,4)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Igor/Interaction 16.jpg"></center>'
		*nl
		if Storyline = 1:
			'<i>hang on.... Igora.... THAT''S IGOR!!</i>'
			*nl
			'"... hello there Igora, I don''t believe I''ve met someone called Igora before"'
			*nl
			'Igora, while already nervous had only just realised it was you in that moment!'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"...<<$pcs_nickname>>!!!  I mean... <<$pcs_firstname>>, how nice to see you."</font>'
			*nl
			'To anyone else, the subtext that you two already know each other would be obvious but Eva either doesn''t pick up on it or chose not to show that she does.'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"Well Eva, we better be going but <<$pcs_firstname>>, if you want to meet up I have a room in the University Dorms."</font>'
			*nl
			'"Maybe I will, ta-ta you two!"'
			*nl
			'You smile as when they turn to leave, Igora shoots you a glance suggesting that yes you really should come find her.'
		else
			'"Hello there Igora, how nice it is to meet you!  I''ve been wondering just who Eva has been talking about."'
			*nl
			'She looks nervous at the suggestion that you have been discussing her but then she looked nervous anyway.'
			*nl
			'"You certainly look like you could be a lot of fun but I don''t want to disturb your time with Eva; perhaps we could meet up another time, do you have a room in the University Dorms?"'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"...yes, I have a room there you can find me... but anyway, shall we go Eva?"</font>'
			*nl
			'With that Eva gets up and leaves with Igora and you head back to your Football Training.'
		end
		act 'Return' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'A4-DormEv-X1':
		*clr & cla
		if $charsche_character_CurActLoc[arrpos('charsche_charlist',4)] = 'dorm' and $charsche_character_CurActDesc[arrpos('charsche_charlist',4)] ! 'Sleeping':
			modVar_AF_Rand = rand(1,8)
			if modVar_AF_Rand = 1:
				gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 4 , 'dorm' , 'Eating' , $charsche_character_CurActTime[arrpos('charsche_charlist',4)]
			elseif modVar_AF_Rand = 2:
				gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 4 , 'dorm' , 'Studying' , $charsche_character_CurActTime[arrpos('charsche_charlist',4)]
			elseif modVar_AF_Rand = 3:
				gs 'mod_addedflavour_charsche' , 'acttools' , 'forceact' , 4 , 'dorm' , 'Sex' , rand(5,20)
				gt 'mod_addedflavour_A4_Events' , 'A4-BlowjobEv-1'
			end
			gt 'mod_addedflavour_SFLA_NPCInteract' , 'start' , 4
		else
			minut += rand(1,3)
			gs 'stat'
			'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/locations/city/island/university/dorm/obkorr.jpg"></center>'
			*nl
			'You go and knock on her door in the dorms but there is no answer.  I guess that means she is either sleeping or is not here.'
			act 'Return' : gt $loc, $loc_arg
		end
	end
	
	if $ARGS[0] = 'A4-BlowjobEv-1':
		CLOSE ALL
		
		gs 'mod_addedflavour_Functions' , 'sexsoundgen' , 'BJ1' , 'BJ2' , 'BJ3'
		modVar_AF_LocBlock['A4-Dorm'] = 1
		minut += rand(3,8)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Igor/BJGuest<<rand(1,2)>>' + iif(modVar_AF_QSPVer = 1,'.gif','.webp') + '"></center>'
		*nl
		'You go to Igora''s room and find the door is shut but unlocked, and furthermore you can hear a noise on the other side.  You go to open it and find Igora getting <i>acquainted</i> with someone on the other side!'
		*nl
		'She is clearly both making an effort to please him but also not to go any further than oral, so while being submissive she appears to have everything under control.  Probably best just to leave her to it and come back later...'
		act 'Leave' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'A4-PreConfidentEv-1':
		minut += rand(10,25)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Igor/PreConf<<rand(1,3)>>.jpg"></center>'
		*nl
		if Storyline = 1:
			'<font color="<<$npc_fontcolor[''A4'']>>">"Come on in ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I''ve been meaning to talk to you."</font>'
			*nl
			'"I bet you have, I''ve got to say it''s a bit of a surprise seeing you here like this.  Does anyone else know that you ar-..."'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"No!... No-one else apart from you knows about my beginnings, and I''d like to keep it that way.  Once I realised this was an opportunity to be known only as a girl from the start I lept at the chance.  Perhaps a bit to hastily now that I think about it, but as I experienced with you sometimes you just have to charge into it."</font>'
			*nl
			'"Well it''s gotten you this far!  So what happened to Diana?"'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"I did want to keep the name but it was easier to register with the University using Igora.  Let alone if any mail gets back home as my Parents don''t know either."</font>'
			*nl
			'"Fair enough"'
			*nl
			'You and Igora spend the rest of the time catching up before you leave saying that you will try to come back round again another day.'
		else
			'<font color="<<$npc_fontcolor[''A4'']>>">"<<$pcs_firstname>>!!!  You look amazing darling, why don''t you come in and take a seat."</font>'
			*nl
			'"Aren''t we chipper today!  You were so nervous before..."'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"Yes, I apologise, its not always easy to meet new people but Eva has spoke very fondly of you so I know I am in good hands."</font>'
			*nl
			'You raise an eyebrow at the wording which sounds like you are here to massage her which she picks up on and quickly changes the subject.  Once you both get comfortable though you have a natter like you have known each other for years.  You soon have to leave but promise to visit again.'
		end
		act 'Leave' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'A4-PreConfidentEv-2':
		minut += rand(10,25)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Igor/PreConf<<rand(1,3)>>.jpg"></center>'
		*nl
		if Storyline = 1:
			'"So Igora, how are you finding it in the city?"'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"Difficult.  I am worried that at any point someone could realise my secret, then I don''t know what I would do..."</font>'
			*nl
			'"Well you convinced Eva, so that is something."'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"Eva... she was the first friend I made here.  She is the one person I am not worried about."</font>'
			*nl
			'"You know, if I can help in anyway I would, you know you can trust me."'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"Thank you so much ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '; I don''t know yet as I am still figuring myself out."</font>'
			*nl
			'You spend the rest of your time talking about life on campus before leaving until another day.'
		else
			'<font color="<<$npc_fontcolor[''A4'']>>">"<<$pcs_firstname>>!  It''s the highlight of my day, seeing you."</font>'
			*nl
			'"It''s nice to see you too!  So how is life keeping you?"'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"Well, you try to keep happy with it but I have been struggling to get used wearing pantie--!  Pantaloons!  I am trialing with the Theatre Club and they want use to wear these oversize pantaloons.... and its uncomfortable.... wearing pantaloons..."</font>'
			*nl
			'"Well, I can imagine..."'
			*nl
			'You wonder what was up with that weird outburst but then she has always layed it on a little thick; especially this room, I don''t think I have seen a more girly room...'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"Anyway, enough of all that, tell me more about your day."</font>'
			*nl
			'After the initial oddness you and Igora have a full and vibrant conversation.  By the end when you are readying to leave you realise that you and her are getting very close even after such a short time.  Maybe in another life you could have been close schoolfriends but even so you feel like you have known each other for years.'
		end
		act 'Leave' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'A4-PreConfidentEv-3':
		minut += rand(10,25)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Igor/PreConf<<rand(1,3)>>.jpg"></center>'
		*nl
		if Storyline = 1:
			'"So how''s life treating you then Igora?  Getting used to your new life here?"'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"<<$pcs_nickname>>, I really want to but it is too draining.  The anxiety, the worry; I literally just go to lessons and lock myself away here.  I takes all my confidence just to see Eva and that''s very rarely.  I am thinking I should give up and go home..."</font>'
			*nl
			'"You can''t do that Igora!  Could you really go back when you have spent so much time as your new self.  Tell you what, you just need help from someone who has been through all this before."'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"But ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', its risky having more people know, I don-"</font>'
			*nl
			'"Don''t worry Igora, she will be a paragon of discretion, trust me.  There will be no-one more suited to help you in all of Saint Petersburg."'
			*nl
			if LCEugenefirst = 1 : '<i>and I know just where to find her...</i>'
			if LCEugenefirst = 0 : '<i>easier said then done, if anyone else in this City is going through the same thing they are probably just as cautious...</i>'
			*nl
			'You have a short chat before heading off where hopefully your next meeting will be with a friend.'
		else
			'<font color="<<$npc_fontcolor[''A4'']>>">"I am glad you are here <<$pcs_firstname>>, I need to talk to you."</font>'
			*nl
			'"Of course Igora, you can tell me anything."'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"Thank you <<$pcs_firstname>>... well I want to tell you something but it is very difficult to speak about but I have come to trust you very deeply and I need help."</font>'
			*nl
			'"It does sounds serious, but whatever it is I will be there for you."'
			*nl
			'Igora lets out a breath as she attempts to build up her courage.'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"You see <<$pcs_firstname>> I.... you see... you see me as Igora, right?  And I present myself as Igora to the world... right?  Well I, as Igora, have a secret... and that secret is that I... was not...  I was not born as Igora.  I was born as the opposite of Igora... if you get my meaning..."</font>'
			*nl
			'"So you mean, that you are.. or rather, you are not... or I suppose it is that you are now...  well!  I did have an inkling but still I wouldn''t have guessed that you were-"'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"Yes!  I am.  We don''t need to talk about the specifics, just knowing you understand is enough."</font>'
			*nl
			'"And I do; and don''t worry, I see you as who you are to me.  So what it is you need?"'
			*nl
			'<font color="<<$npc_fontcolor[''A4'']>>">"You see, I am having trouble adapting to life in the city with my situation as it is.  Whereas you are quite familiar with life here and seem to know a lot of people.  To the point, what I was wondering is if you know of anyone else in the same boat as me?  Who is used to it and can help me?"</font>'
			*nl
			if LCEugenefirst = 1 : '"I know just the person and the next time we meet I will have her here with me!"'
			if LCEugenefirst = 0 : '"I''m sorry Igora but you are the only person I know going through this.  But I will see who I can find and have them here by the next time we meet!"'
			*nl
			'You hug with her being very happy with your approval before leaving.'
		end
		act 'Leave' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'A4-PreConfidentEv-4':
		CLOSE ALL
		modVar_AF_EventProgress['A4-PreConfidentEv'] += 1
		modVar_AF_EventLock['A4-PreConfidentEv'] = daystart
		minut += rand(2,4)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/locations/city/industrial/bbq/lakebarmensha.jpg"></center>'
		*nl
		if modVar_AF_EventProgress['A4-PreConfidentEv'] = 4:
			'"Eugene, I feel that we have gotten to know each other quite well now"'
			*nl
			'<font color="Maroon">"Certainly <<$pcs_firstname>>; you know things about me that very few have the pleasure of knowing..."</font>'
			*nl
			'"Well, it is that very topic which I want to talk about.  You see I have another friend---"'
			*nl
			'<font color="Maroon">"Another friend... well damn how well I get by knowing that you know someone else..."</font>'
			*nl
			'"That wasn''t the thing!!  As I was saying, I have another friend who is, shall we say, in a similar position to you."</font>'
			*nl
			'<font color="Maroon">"... working at a Barbeque Joint?"</font>'
			*nl
			'"No!  Blimey, you don''t make this easy do you..."'
			*nl
			'<font color="Maroon">"Ha!  Intentionally <<$pcs_firstname>>, and I know what you are driving at so carry on, although I am surprised to hear that there is someone else in the city in the same boat."</font>'
			*nl
			'"Exactly.  And she is needing some help adjusting to it, and as you seem to be so settled we were wondering if you would be willing to talk to her about it, so she can be as settled as you are."'
			*nl
			'<font color="Maroon">"An interesting proposal, but of course we can go right now.  We should go together so it looks like friends turning up as I am guessing discretion is important here."</font>'
		else
			'"Eugune, would you be available to visit Igora again?"'
			*nl
			'<font color="Maroon">"Why of course, let''s head over there now."</font>'
		end
		act 'Head to Igora''s Dorm Room' : gt 'mod_addedflavour_A4_Events' , 'A4-PreConfidentEv-5'
	end
	
	if $ARGS[0] = 'A4-PreConfidentEv-5':
		minut += rand(10,25)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Igor/PreConf<<rand(1,3)>>.jpg"></center>'
		*nl
		'You make your way over to the University Dorms and head into Igora''s room.'
		if modVar_AF_EventProgress['A4-PreConfidentEv'] = 4:
			*nl
			'"Hello Igora, I would like to introduce you to Eugene.  She is just the person you need to speak to."'
			*nl
			'<font color="Maroon">"Hi there Igora, I must say you are looking good.  Anyway, let''s start by talking about ourselves."</font>'
		end
		*nl
		'Igora and Eugene settle into a heartfelt conversation.  You are feel a bit of a third wheel but Igora does look over to you for guidance occasionally.  Eventually you feel the call of nature and head to the lavatory.'
		act 'Go to the Loo' : gt 'mod_addedflavour_A4_Events' , 'A4-PreConfidentEv-6'
	end
	
	if $ARGS[0] = 'A4-PreConfidentEv-6':
		minut += rand(5,10)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Igor/Waiting.jpg"></center>'
		*nl
		'You make use of the facilities but also try to listen into their conversation, curious at how they are getting on...'
		*nl
		if modVar_AF_EventProgress['A4-PreConfidentEv'] = 4:
			'<font color="Maroon">"One thing that I think will help you immensely is getting some breasts.  You don''t strictly need them but if you want a visible distraction then nothing works better than an impressive set of knockers!  Would that be of interest to you?</font>'
			*nl
			'<font color="Maroon">"Fantastic, I know just the person who has done work for me before and we can even go now."</font>'
		elseif modVar_AF_EventProgress['A4-PreConfidentEv'] = 5:
			'<font color="Maroon">"A big thing about your confidence will be Body Positivity, so let''s explore that with each other."</font>'
			act 'Peek' : gt 'mod_addedflavour_A4_Events' , 'A4-PreConfidentEv-8'
		elseif modVar_AF_EventProgress['A4-PreConfidentEv'] = 6:
			'<font color="Maroon">"Establishing your sexual identity will go a long way to establishing what you present before you think about what you are presenting..."</font>'
			*nl
			'You can''t quite make out what the rest of the conversation was but it has suddenly gone very quiet, more than enough reason to take a look.'
			act 'Peek' : gt 'mod_addedflavour_A4_Events' , 'A4-PreConfidentEv-9'
		elseif modVar_AF_EventProgress['A4-PreConfidentEv'] = 7:
			'<font color="Maroon">"Igora; you are a sexy, vibrant woman.  You are more than ready to greet the world as your true self.  So how about we christen the moment with some serious fun?"</font>'
			*nl
			'<font color="Maroon">"Oh and <<$pcs_firstname>>, I know you can hear us in there so you are more than welcome to watch!"</font>'
			act 'Watch from the Door' : gt 'mod_addedflavour_A4_Events' , 'A4-PreConfidentEv-10'
			act 'Let them finish' : gt 'mod_addedflavour_A4_Events' , 'A4-PreConfidentEv-7'
		end
		if modVar_AF_EventProgress['A4-PreConfidentEv'] <= 6:
			act 'Go back in' : gt 'mod_addedflavour_A4_Events' , 'A4-PreConfidentEv-7'
		end
	end
	
	if $ARGS[0] = 'A4-PreConfidentEv-7':
		minut += rand(2,5)
		gs 'stat'
		if modVar_AF_EventProgress['A4-PreConfidentEv'] = 7:
			'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Igor/Interaction 36.jpg"></center>'
		else
			'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Igor/PreConf<<rand(1,3)>>.jpg"></center>'
		end
		*nl
		if modVar_AF_EventProgress['A4-PreConfidentEv'] = 4:
			'You walk back in and are greeted by the pair of them preparing to leave.'
			*nl
			'<font color="Maroon">"Sorry to love you and leave you <<$pcs_firstname>> but we have an appointment to get to, hope its OK?"</font>'
			*nl
			'"Of course, I''ll head off too"'
		elseif modVar_AF_EventProgress['A4-PreConfidentEv'] <= 6:
			'<font color="Maroon">"Me and Igora are pretty much finished up for the day <<$pcs_firstname>> but come find me when you are ready for another session."</font>'
			*nl
			'With that you and Eugene say your goodbyes to Igora and go your separate ways.'
		elseif modVar_AF_EventProgress['A4-PreConfidentEv'] = 7:
			gs 'mod_addedflavour_A4_Functions' , 'AddToCity'
			'<font color="Maroon">"Igora, you no longer need any help from me.  I see a confidence in yourself that will shine to anyone who casts their eyes on you and so set you free to experience it.  You are welcome to see me again but you are now your own woman."</font>'
			*nl
			'You all spend a few moments talking about the experience but when you go to leave you see a certainty in Igora that means you should be seeing her around the city much more!'
		end
		act 'Leave' : gt 'city_island'
	end
	
	if $ARGS[0] = 'A4-PreConfidentEv-8':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Voyeur'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Igor/Sex/A4-EugeneSex-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You peek in and see Igora and Eugene more or less naked and very openly exploring each others bodies.  It is clear that Eugene is running the show but Igora is certainly starting to open up to the experience.'
		*nl
		'They finish up quickly however and you walk back in without it being clear that you saw anything.'
		act 'Go back in' : gt 'mod_addedflavour_A4_Events' , 'A4-PreConfidentEv-7'	
	end
	
	if $ARGS[0] = 'A4-PreConfidentEv-9':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Voyeur'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Igor/Sex/A4-EugeneSex-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You peek in get to see Igora getting very familiar with Eugene, especially Eugene''s cock!'
		*nl
		'They finish up before Eugene has cum allowing you to go back in feigning ignorance but you wonder just how you are going to give the impression you are oblivious to this...'
		act 'Go back in' : gt 'mod_addedflavour_A4_Events' , 'A4-PreConfidentEv-7'	
	end
	
	if $ARGS[0] = 'A4-PreConfidentEv-10':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Voyeur'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Igor/Sex/A4-EugeneSex-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You walk in and find they were already quite a way into the event.  Eugene has Igora laid back as she thrusts her cock into Igora''s ass.'
		*nl
		'Igora is showing no reticence to the position and Eugene is eager to keep the love-making session going'
		act 'Eugene thrusts harder' : gt 'mod_addedflavour_A4_Events' , 'A4-PreConfidentEv-11'
	end
	
	if $ARGS[0] = 'A4-PreConfidentEv-11':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Voyeur'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Igor/Sex/A4-EugeneSex-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Eugene bends Igora over and plants her cock straight into her arse.  She thrusts with reckless abandon, clearly enjoying the moment with Igora enjoying it almost as much!'
		*nl
		'It isn''t long before her ardor for the act surges her to her peak.'
		act 'Eugene gets Igora on her back' : gt 'mod_addedflavour_A4_Events' , 'A4-PreConfidentEv-12'
	end
	
	if $ARGS[0] = 'A4-PreConfidentEv-12':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Voyeur'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Igor/Sex/A4-EugeneSex-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Eugene blasts an explosive orgasm into Igora open maw.  Eugene may have been running the show but Igora was lust-driven in her supplicance.'
		*nl
		'<font color="Maroon">"Quite a show there wasn''t it <<$pcs_firstname>>."</font>'
		act 'Go back in' : gt 'mod_addedflavour_A4_Events' , 'A4-PreConfidentEv-7'	
	end
	
	if $ARGS[0] = 'A4-DaySex-1':
		modVar_AF_EventLock['A4-DormSexEv'] = daystart
		modVar_AF_EventTriggered['A4-DaySex'] += 1
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
		*nl
		if Storyline = 1 : '"Here Igora, there''s a certain something I have the pleasure of enjoying in Pavlovsk that I haven''t so much in Saint Petersburg, especially in your new guise."'
		if Storyline ! 1 : '"Here Igora, there is a certain something that Eugene got to enjoy that I am interested in having the pleasure of."'
		*nl
		'<font color="<<$npc_fontcolor[''A4'']>>">"Would you now!  I must say I have been more than interested in doing so."</font>'
		*nl
		'You approach Igora until your bodies are connected in an embrace.'
		act 'Start touching her body' : gt 'mod_addedflavour_A4_Events' , 'A4-DaySex-2'
	end
	
	if $ARGS[0] = 'A4-DaySex-2':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Recv'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Igor/Sex/A4-FemSex-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You move your hands to her breasts and let them dance around the fabric blocking you form your goal, before removing it to reveal them in all their glory.'
		*nl
		'You then allow your hands to explore their new form, gently teasing them to Igora''s delight.  She in turn rewards you by feeling your own ample bosom.'
		act 'Get Naked' : gt 'mod_addedflavour_A4_Events' , 'A4-DaySex-3'
	end
	
	if $ARGS[0] = 'A4-DaySex-3':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_HandJob_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Igor/Sex/A4-FemSex-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'After freeing up more of each other''s bodies you reach to grasp her excited member.  Seeing as it is already hard to your visage it doesn''t take much to get Igora riled up, who in turn brings her hand to your pussy.'
		*nl
		'"You seem ready for the Main Event, how about it Igora?"'
		*nl
		'She smiles in acquiescence of your suggestion.'
		act 'Mount Igora' : gt 'mod_addedflavour_A4_Events' , 'A4-DaySex-4'
	end
	
	if $ARGS[0] = 'A4-DaySex-4':
		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/Igor/Sex/A4-FemSex-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'With Igor still looking at you with eager supplicance you bring your leg over and greet her penis with your vagina.  Wasting no time you drop down and allow it to enter you; Igora gripping you in line with the sensation.'
		act 'Have Sex' : gt 'mod_addedflavour_A4_Events' , 'A4-DaySex-5'
	end
	
	if $ARGS[0] = 'A4-DaySex-5':
		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/Igor/Sex/A4-FemSex-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You bounce on Igora''s shaft, experiencing the expression of her feelings for you' + iif(Storyline = 1,' that haven''t diminished since her previous life in Pavlovsk','.')
		*nl
		'You cannot deny your own excitement either but as much as you are enjoying it, you have a plan in mind.'
		*nl
		'"Lay back Igora, I have just the toy for us to use!"'
		act 'Fetch a Strap-On' : gt 'mod_addedflavour_A4_Events' , 'A4-DaySex-6'
	end
	
	if $ARGS[0] = 'A4-DaySex-6':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Igor/Sex/A4-FemSex-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Fetching your Strap-on, you mount it to yourself and position the dildo at Igora''s anus.'
		*nl
		'"I''ve been looking forward to this Igora!"'
		*nl
		'With Igora''s face indicating how lost she is to you you thrust the hardened shaft deep into her, causing her to sharply moan in reaction to it.  Once you see that she is fully in the moment you start thrusting repeatedly into her; her cock almost bursting at the sensation.'
		*nl
		'After some time the feeling is too much for her and she shoots a load over her stomach prompting a wry smile of satisfaction at your achievement.'
		*nl
		'"That was good fun Igora; I''m already looking forward to the opportunity to do that again!"'
		*nl
		'Igora just lays there in orgasmic bliss so you take the chance to get dressed and leave after giving her a quick kiss on the forehead.'
		act 'Leave her be' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'A4-Threesome-1':
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/locations/city/industrial/bbq/lakebarmensha.jpg"></center>'
		*nl
		'"Say Eugene, do you fancy going to visit Igora again?"'
		*nl
		'<font color="Maroon">"Sure, I have some free time now, let''s go.  Besides, I''m sure you are eager to join us this time!"</font>'
		act 'Go find Igora' : gt 'mod_addedflavour_A4_Events' , 'A4-Threesome-2'
		act '"Actually, I just remembered this thing..."' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'A4-Threesome-2':
		modVar_AF_EventLock['A4-DormSexEv'] = daystart
		modVar_AF_EventTriggered['A4-Threesome'] += 1
		minut += rand(12,16)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/city/Igor/Interaction 33.jpg"></center>'
		*nl
		'You arrive at Igora''s room and find her there waiting for you.'
		*nl
		'<font color="Maroon">"Say Igora, I was just thinking, don''t you think it is someone else turn given just how much they peeked at our fun before?"</font>'
		*nl
		'<font color="<<$npc_fontcolor[''A4'']>>">"Yes Eugene, I very much think it is..."</font>'
		*nl
		'"..wait, what?"'
		*nl
		'<font color="Maroon">"Bend over, <<$pcs_firstname>>"</font>'
		act 'Do as you are told' : gt 'mod_addedflavour_A4_Events' , 'A4-Threesome-3'
	end
	
	if $ARGS[0] = 'A4-Threesome-3':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Recv'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Igor/Sex/A4-3SomeSex-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You bend over in response to Eugene''s instruction from which Igora does the same alongside you.  Initially she rewards Igora''s co-operation but eventually Eugene starts pleasuring the rears of both of you simultaneously.'
		*nl
		'<font color="Maroon">"I hope your ass is ready <<$pcs_firstname>>, because you are getting all of this."</font>'
		act 'Let her take you' : gt 'mod_addedflavour_A4_Events' , 'A4-Threesome-4'
	end
	
	if $ARGS[0] = 'A4-Threesome-4':
		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/Igor/Sex/A4-3SomeSex-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Eugene adopts a satisfied grin as she plough''s her cock into your ass.  She has clearly been looking forward to this and has claimed you for her own.'
		*nl
		'You try in vain to show some attention to Igora next to you but Eugene remains focused on fucking your ass, but you do manage to attract Igora to bring her member to your mouth.'
		act 'Suck off Igora' : gt 'mod_addedflavour_A4_Events' , 'A4-Threesome-5'
	end
	
	if $ARGS[0] = 'A4-Threesome-5':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Recv'
		sexpartkno = 1
		gs 'boyStat', 'A4'
		spafinloc = 12
		gs 'Cum_Manage'
		sexpartkno = 1
		gs 'boyStat', 'A89'
		spafinloc = 3
		gs 'Cum_Manage'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/city/Igor/Sex/A4-3SomeSex-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Eugene keeps fucking you hard but she does so as suck Igora''s hardened shaft.  Your involuntary spit roasts is driving all involved to a explosive orgasm and soon you feel the results of what your body has provided.'
		*nl
		'You first feel Igora blasting a load into your mouth but before you have a chance to react it is joined by Eugene cummning hard into your ass.  The feeling leaves you spent as they move to get dressed again.'
		*nl
		'<font color="Maroon">"Well, I think we all got something out of that hey <<$pcs_firstname>>!  Come on then, let''s give Igora her privacy!"</font>'
		*nl
		'You try your hardest to recover before leaving with Eugene.'
		act 'Return to the World' : gt 'city_island'
	end

--- mod_addedflavour_A4_Events ---------------------------------