AddedFlavour/locations/mod_addedflavour_A28_Events.qsrc

# mod_addedflavour_A28_Events
	if $ARGS[0] = 'A28-DeliveryJobEv-X1':
		*clr & cla
		'<center><b><font color="<<$npc_fontcolor[''A28'']>>">Your stepfather, Vladimir Mikhailovich Scriabin</font></b></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
		modVar_AF_DeliveryJob['State'] = 1
		*nl
		'<font color="<<$npc_fontcolor[''A28'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  Before I forget; I''ve been chatting to the Administrator at the Depot and he said that as long as I am willing to vouch for you then he is happy for you to do some Courier Work for them.  Just pop into the depot and talk to him to sort it all out."</font>'
		*nl
		'"That''s brilliant; I can always use a way of making some money, I''ll go meet him the next time I get the chance.  Thanks ever so much Daddy!"'
		*nl
		'You follow it up by hugging him tightly, paying no attention to just how much your cleavage is pressed up against him.'
		*nl
		'<font color="<<$npc_fontcolor[''A28'']>>">"It''s no problem at all, I''m just glad to be able to do something nice for you."</font>'
		act 'Release him' : gt 'father'
	end
	
	if $ARGS[0] = 'A28-WorkEv-X2':
		*clr & cla
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/pavlovsk/resident/valeri/ValeriIntro.jpg"></center>'
		modVar_AF_DeliveryJob['KnowValeri'] = 1
		minut += rand(2,5)
		gs 'stat'
		*nl
		'<font color="<<$npc_fontcolor[''A28'']>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  Come over here and let me introduce you to a friend of mine who you''ll be seeing more of now that you work here:  <<$npc_firstname[''A704'']>> <<$npc_lastname[''A704'']>>."</font>'
		*nl
		'You walk up to him and exchange greetings.  You find him to be an amicable man in his late twenties.'
		*nl
		'<font color="<<$npc_fontcolor[''A28'']>>">"You look after her <<$npc_firstname[''A704'']>>, I''ve got a lot of faith in her unlike that ungrateful son of mine!"</font>'
		*nl
		'You leave them to return to their duties'
		act 'Leave them' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'A28-WorkEv-1':
		*clr & cla
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/pavlovsk/resident/vladimir/DeliveryJob(<<rand(1,4)>>).jpg"></center>'
		minut += rand(1,4)
		gs 'stat'
		*nl
		'You see your Stepfather here delivery packages to one of the nearby buildings.'
		if npc_sex['A28'] ! 0:
			act 'Seduce him' : gt 'mod_addedflavour_A28_Events' , 'A28-WorkEv-3'
		end
		act 'Say Hello' : gt 'mod_addedflavour_A28_Events' , 'A28-WorkEv-2'
		act 'Leave' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'A28-WorkEv-2':
		*clr & cla
		minut += rand(5,10)
		npc_rel['A28'] += rand(5 - difficulty,4)
		modVar_AF_EventLock['A28-WorkEv-Interact'] = daystart
		gs 'stat'
		'<center><b><font color="<<$npc_fontcolor[''A28'']>>">Your stepfather, Vladimir Mikhailovich Scriabin</font></b></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A28'']>>">"Hi there ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', fancy seeing you here."</font>'
		*nl
		'You and your Stepfather continue having a quick but fruitful conversation before he gets back to work.'
		act 'Leave' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'A28-WorkEv-3':
		*clr & cla
		minut += rand(2,5)
		modVar_AF_EventLock['A28-WorkEv-Interact'] = daystart
		gs 'stat'
		'<center><b><font color="<<$npc_fontcolor[''A28'']>>">Your stepfather, Vladimir Mikhailovich Scriabin</font></b></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
		*nl
		'You do your best to present yourself in your most seductive manner; pushing out your cleavage, twisting your body, running your fingers through your hair...'
		*nl
		'"Hi there Daddy, how are you finding things?"'
		*nl
		'<font color="<<$npc_fontcolor[''A28'']>>">"Hello there ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', wow, aren''t you looking nice today; do you need anything?"</font>'
		*nl
		'"Well yes... there is one, big, thing I need right now..."'
		*nl
		'<font color="<<$npc_fontcolor[''A28'']>>">"Well, well, well; lets do something about that then...  Get in and we will go somewhere private."</font>'
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'chkpossible' , 3
		if modVar_AF_Inhib['Result'] = 1 and npc_rel['A704'] >= 40 and (arrpos('$modArr_AF_A28_ThreesomePlaces',$charsche_character_CurActLoc[arrpos('charsche_charlist',28)]) > 0 or arrpos('$modArr_AF_A28_ThreesomePlaces',$charsche_character_CurActLoc[arrpos('charsche_charlist',704)]) > 0):
			act 'Get in the Van' : gt 'mod_addedflavour_A28_Events' , 'A28-WorkThreesomeEv-1'
		else
			act 'Get in the Van' : gt 'mod_addedflavour_A28_Events' , 'A28-WorkSexEv-1'
		end
	end
	
	if $ARGS[0] = 'A28-WorkSexEv-1':
		*clr & cla
		CLOSE ALL
		npc_sex['A28'] += 1
		minut += rand(4,8)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/FatherJobSex1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You get in the Gazelle shortly followed by your Stepfather.  He is soon taking you to a nice secluded location nearby.'
		*nl
		'Once you are feeling safe in a hidden away location you turn to look him in the eyes, both of you knowing what you will be doing next.'
		act 'Blow him' : gt 'mod_addedflavour_A28_Events' , 'A28-WorkSexEv-2'
	end
	
	if $ARGS[0] = 'A28-WorkSexEv-2':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_BlowJob_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/FatherJobSex2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You immediately get down and pull his hardening cock out of his trousers.  Within moments you have your lips pressed around it, sucking eagerly along his shaft.'
		*nl
		'You can feel just how much he is enjoying the feeling of your supple mouth but there is one thing you both want and he is eager to provide it...'
		act 'Get Naked' : gt 'mod_addedflavour_A28_Events' , 'A28-WorkSexEv-3'
	end
	
	if $ARGS[0] = 'A28-WorkSexEv-3':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/FatherJobSex3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'The pair of you tear each others clothes off and in seconds he has the seats fully reclined and is fucking you hard on top of them.'
		*nl
		'He is fucking you with a longing desire; as much as you wanted this to happen you can tell that he had been thinking as much about it!'
		act 'Get a pounding' : gt 'mod_addedflavour_A28_Events' , 'A28-WorkSexEv-4'
	end
	
	if $ARGS[0] = 'A28-WorkSexEv-4':
		*clr & cla
		gs 'boyStat', 'A28'
		sexpartkno = 1
		$orgasm_or = 'yes'
		gs 'arousal', 'vaginal', 10, 'incest'
		gs 'Cum_Manage'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/FatherJobSex4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Soon enough he has pulled you onto the back seats and is holding you hard while he pounds his phallus into you.  With your arousal already rising swiftly you feel his orgasm land as he fills you full of cum.'
		*nl
		'With your womb now plastered with copius amounts of seed he lays back exhausted and once you both have had enough time to recover he drops you back off where you were.'
		act 'Go Back' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'A28-WorkThreesomeEv-1':
		*clr & cla
		CLOSE ALL
		npc_rel['A704'] += 5 * difficulty
		npc_sex['A28'] += 1
		npc_sex['A704'] += 1
		modVar_AF_EventLock['A704-WorkEv-SeenWorking'] = hour
		modVar_AF_EventLock['A704-WorkEv-Interact'] = daystart
		if $charsche_character_CurActLoc[arrpos('charsche_charlist',28)] = 'dachi' or $charsche_character_CurActLoc[arrpos('charsche_charlist',28)] = 'gadukino':
			$loc = $charsche_character_CurActLoc[arrpos('charsche_charlist',28)]
			if $loc = 'OutofTown' : $loc = 'road' & nroad = 20
			'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/FatherJobSex1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
			*nl
			'You get in the Gazelle shortly followed by your Stepfather.  He is soon taking you to a nice secluded location nearby, but when you get there he says we are going to be waiting for a bit...'
			*nl
			'After some time passed you see that Valeri is pulling up in his Van next to you.  You then look over to your Stepfather to be greeted by a big grin on his face.'
		else
			$loc = $charsche_character_CurActLoc[arrpos('charsche_charlist',704)]
			if $loc = 'OutofTown' : $loc = 'road' & nroad = 20
			'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/FatherJobSex1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
			*nl
			'You get in the Gazelle shortly followed by your Stepfather.  But rather than take you to somewhere nearby he appears to have something else in mind and is taking you out of town.'
			*nl
			'Soon enough you have arrived on the outskirts of a village to see Valeri already parked up and waiting for you.'
		end
		*nl
		'<font color="<<$npc_fontcolor[''A28'']>>">"I''m sure you''ve twigged it already but I had something special in mind today."</font>'
		*nl
		'Well, you certainly aren''t going to complain...'
		!Moved to the end of Event as it was breaking the Loc change
		minut += rand(15,35)
		gs 'stat'
		act 'Get things started' : gt 'mod_addedflavour_A28_Events' , 'A28-WorkThreesomeEv-2'
	end
	
	if $ARGS[0] = 'A28-WorkThreesomeEv-2':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_BlowJob_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/FatherJob3some1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'After a brief introduction the pair of them have their half-mast cocks out which you eagerly get your lips around.  You suck both of them with equal glee; their cocks hardening as you continue your oral assault.'
		*nl
		'It isn''t long before your Stepfather is ready to take it to the next level.'
		act 'Take some cock' : gt 'mod_addedflavour_A28_Events' , 'A28-WorkThreesomeEv-3'
	end
	
	if $ARGS[0] = 'A28-WorkThreesomeEv-3':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/FatherJob3some2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'While keeping Valeri''s cock in your mouth, your Stepfather has positioned you so that he can start fucking you from behind.  You keep on sucking Valeri''s cock all while your Stepfather''s is pleasuring you, reaching your deepest places in the process.'
		act 'Get hard pounding' : gt 'mod_addedflavour_A28_Events' , 'A28-WorkThreesomeEv-4'
	end
	
	if $ARGS[0] = 'A28-WorkThreesomeEv-4':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/FatherJob3some3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Your stepfather is pounding you harder and harder, giving no care to the world around him.  You can tell he has no interest in relinquishing your pussy to anyone else; he has claimed it for his own.'
		act 'Change position' : gt 'mod_addedflavour_A28_Events' , 'A28-WorkThreesomeEv-5'
	end
	
	if $ARGS[0] = 'A28-WorkThreesomeEv-5':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/FatherJob3some4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You change position to be laying down on the bonnet of the van, only having to wait mere seconds before your stepfather''s cock is back inside of you, and a further set of mere seconds after that you have Valeri''s cock back in your mouth.'
		*nl
		'You can tell that both of them are ready to blow soon so get down to take their loads on your face.'
		act 'Get showered' : gt 'mod_addedflavour_A28_Events' , 'A28-WorkThreesomeEv-6'
	end
	
	if $ARGS[0] = 'A28-WorkThreesomeEv-6':
		*clr & cla
		gs 'boyStat', 'A28'
		spafinloc = 11
		gs 'Cum_Manage'
		gs 'boyStat', 'A704'
		spafinloc = 11
		gs 'Cum_Manage'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/FatherJob3some5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You get to your knee''s and as the wind is blowing into your face it is joined with the feeling of cum raining down upon you as both of your partners blow their load above you.'
		*nl
		'With both of them now spent you all get your bearings back to normal and soon they have dropped you off at the village centre; their thinking that they don''t want to arouse any suspicion by bringing you back to town.'
		act 'Get dropped off' : gt $loc
	end
	
	if $ARGS[0] = 'A28-FootballEv-X1':
		*clr & cla
		'<center><b><font color="<<$npc_fontcolor[''A28'']>>">Your stepfather, Vladimir Mikhailovich Scriabin</font></b></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
		$modVar_AF_FBall_TravelMessage = 'Leave with your Stepfather between 1pm and 2pm.'
		*nl
		'You put on your most persuasive body posture and approach your Stepfather.'
		*nl
		'"Daddy, is there any chance you could give me a lift to my Away Match today?"'
		*nl
		'<font color="<<$npc_fontcolor[''A28'']>>">"Of course ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I''d be happy to.  Come find me around 1-ish and we''ll head out."</font>'
		*nl
		'"Thanks Daddy!  It''s going to be fun!"'
		*nl
		'<font color="<<$npc_fontcolor[''A28'']>>">"Ha!  I''m sure it will.  I''ll even stay and watch the game so I can give you a lift back."</font>'
		*nl
		'You go in and hug him as a show of appreciation; <i>no lengthy Train Travel for me</i>'
		act 'Release him' : gt 'father'
	end
	
	if $ARGS[0] = 'A28-FootballEv-X1':
		*clr & cla
		'<center><b><font color="<<$npc_fontcolor[''A28'']>>">Your stepfather, Vladimir Mikhailovich Scriabin</font></b></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
		$modVar_AF_FBall_TravelMessage = 'Leave with your Stepfather between 1pm and 2pm.'
		*nl
		'You put on your most persuasive body posture and approach your Stepfather.'
		*nl
		'"Daddy, is there any chance you could give me a lift to my Away Match today?"'
		*nl
		'<font color="<<$npc_fontcolor[''A28'']>>">"Of course ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I''d be happy to.  Come find me around 1-ish and we''ll head out."</font>'
		*nl
		'"Thanks Daddy!  It''s going to be fun!"'
		*nl
		'<font color="<<$npc_fontcolor[''A28'']>>">"Ha!  I''m sure it will.  I''ll even stay back and watch the game so I can give you a lift back."</font>'
		*nl
		'You go in and hug him as a show of appreciation; <i>no lengthy Train Travel for me</i>'
		act 'Release him' : gt 'father'
	end
	
	if $ARGS[0] = 'A28-FootballEv-1':
		*clr & cla
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/shared/Football/StepfatherTravel' + iif(modVar_AF_QSPVer = 1,'.gif','.webp') + '"></center>'
		*nl
		'Your Stepfather drives you to a Motel that you passed on the way to the Match.  It isn''t long before money has changed hands and he has secured a room for a couple of hours; almost as if he is particularly eager for something...'
		*nl
		'You walk straight in together and within moments your Stepfather has guided you to the Bed and, not wanting to waste any time yourself, you lay down upon it.'
		act 'Occupy your lips' : gt 'mod_addedflavour_A28_Events' , 'A28-FootballEv-2'
	end
	
	if $ARGS[0] = 'A28-FootballEv-2':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Blowjob_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/A28-FootballEv-1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Your Stepfather is already naked before you even have the chance to plan out what you will do; and with your Football Uniform still on he guides you towards his hardening phallus.'
		*nl
		'<font color="<<$npc_fontcolor[''A28'']>>">"That''s it ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', you know what to do... my god do you look good in your uniform."</font>'
		*nl
		'He barely has any control over himself, allowing his hands to reach out for your perfectly formed buns.'
		act 'Roll over' : gt 'mod_addedflavour_A28_Events' , 'A28-FootballEv-3'
	end
	
	if $ARGS[0] = 'A28-FootballEv-3':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Handjob_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/A28-FootballEv-2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You roll over in the hope of slowing him down a bit so you can enjoy yourself but it only spurs him on to pull your shirt up and reveal your pert young breasts.  If you don''t accellerate the process he is going to finish off before you get even close!'
		act 'Occupy your lips' : gt 'mod_addedflavour_A28_Events' , 'A28-FootballEv-4'
	end
	
	if $ARGS[0] = 'A28-FootballEv-4':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/A28-FootballEv-3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You release your grasp of him and start turning around to move to the main event; something which your Stepfather picks up on immediately and gets his rock hard dick in you as fast as he can.  It is now you realise that seeing fit, athletic girls for over an hour might have had an affect on him...'
		*nl
		'In face it is certain as he starts to thrust his cock into you even harder.  You try to slow him down but you know deep down that he is only going to get faster...'
		act 'Get a pounding!' : gt 'mod_addedflavour_A28_Events' , 'A28-FootballEv-5'
	end
	
	if $ARGS[0] = 'A28-FootballEv-5':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/A28-FootballEv-4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Sure enough he speeds up his thorough pounding of your private area.  It works though as it forces itself through your restraint and you too are surging towards an explosive orgasm...'
		act 'Get it Harder Still!' : gt 'mod_addedflavour_A28_Events' , 'A28-FootballEv-6'
	end
	
	if $ARGS[0] = 'A28-FootballEv-6':
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
		$orgasm_or = 'yes'
		gs 'arousal' , 'vaginal' , 3 , 'incest'
		gs 'arousal', 'end'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/A28-FootballEv-5' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A28'']>>">"<<$pcs_nickname>>!!!  I am going to cum!!  My god I have needed to fuck you so hard!"</font>'
		*nl
		'His increasing power has had the effect of bringing your orgasm to the fore ahead of his and before he can finish you feel it land hard causing you to scream out!  The feeling is just what he needed however to tip the balance and you can feel that you are about to receive a substantial load.'
		act 'Take his Cum' : gt 'mod_addedflavour_A28_Events' , 'A28-FootballEv-7'
	end
	
	if $ARGS[0] = 'A28-FootballEv-7':
		*clr & cla
		gs 'boyStat', 'A28'
		sexpartkno = 1
		$orgasm_or = 'yes'
		gs 'arousal', 'vaginal', 5, 'incest'
		gs 'Cum_Manage'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Vladimir/A28-FootballEv-6' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'And as you are coming down of your own you feel his orgasm plaster your vaginal walls with cum, seemingly endlessly.'
		*nl
		'<font color="<<$npc_fontcolor[''A28'']>>">"Oh my god ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', you have no idea how much I have needed to do that.."</font>'
		*nl
		'It takes the both of you some time to get back your composure but after a short rest you are heading back home again, although carrying a lot more than when you left...'
		act 'Go Home' : minut += rand(10,20) & gt 'korrPar'
	end

--- mod_addedflavour_A28_Events ---------------------------------