AddedFlavour/locations/mod_addedflavour_A704_Events.qsrc

# mod_addedflavour_A704_Events
	if $ARGS[0] = 'A704_WorkEv_1':
		*clr & cla
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/pavlovsk/resident/valeri/DeliveryJob(<<rand(1,4)>>).jpg"></center>'
		minut += rand(1,4)
		gs 'stat'
		*nl
		'You see Valeri here delivery packages to one of the nearby buildings.'
		if npc_rel['A704'] >= 50:
			act 'Seduce him' : gt 'mod_addedflavour_A704_Events' , 'A704_WorkEv_3'
		end
		act 'Say Hello' : gt 'mod_addedflavour_A704_Events' , 'A704_WorkEv_2'
		act 'Leave' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'A704_WorkEv_2':
		*clr & cla
		minut += rand(5,10)
		npc_rel['A704'] += rand(1,4)
		modVar_AF_EventLock['A704-WorkEv-Interact'] = daystart
		gs 'stat'
		'<center><b><font color="<<$npc_fontcolor[''A704'']>>"><<$npc_firstname[''A704'']>> <<$npc_lastname[''A704'']>></font></b></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/pavlovsk/resident/valeri/ValeriIntro.jpg"></center>'
		*nl
		'<font color="<<$npc_fontcolor[''A704'']>>">"Hey there ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', how are you?"</font>'
		*nl
		'You and Valeri continue having a quick but interesting conversation before he gets back to work.'
		act 'Leave' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'A704_WorkEv_3':
		*clr & cla
		minut += rand(2,5)
		modVar_AF_EventLock['A704-WorkEv-Interact'] = daystart
		gs 'stat'
		'<center><b><font color="<<$npc_fontcolor[''A704'']>>"><<$npc_firstname[''A704'']>> <<$npc_lastname[''A704'']>></font></b></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/characters/pavlovsk/resident/valeri/ValeriIntro.jpg"></center>'
		*nl
		'You do your best to present yourself in a sexy manner; thrusting your ample cleavage into the forefront.'
		*nl
		'"Hello Valeri!"'
		*nl
		'<font color="<<$npc_fontcolor[''A704'']>>">"Hello there ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', what are you up to?"</font>'
		*nl
		'"Well I was just strolling along here, idly wondering what I could be doing; if there was only someone who could help, fill, my time..."'
		*nl
		'<font color="<<$npc_fontcolor[''A704'']>>">"...  Get in."</font>'
		act 'Get in the Van' : gt 'mod_addedflavour_A704_Events' , 'A704-WorkSexEv-1'
	end
	
	if $ARGS[0] = 'A704-WorkSexEv-1':
		*clr & cla
		CLOSE ALL
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Valeri/ValeriJobSex1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Valeri grabs you and pulls you into the back seats of his Delivery Van.  As soon as you have your legs straddling his, he has his lips on yours.'
		*nl
		'You can feel as his hands glide over your posterier, eager to touch more of your body.'
		act 'Give him your body' : gt 'mod_addedflavour_A704_Events' , 'A704-WorkSexEv-2'
	end
	
	if $ARGS[0] = 'A704-WorkSexEv-2':
		*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/Valeri/ValeriJobSex2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'After removing your panties he maneuvers you into position to insert his penis deep into you.  He has clearly been craving your body and is taking the opportunity to have it with eager abandon.'
		act 'Get a pounding' : gt 'mod_addedflavour_A704_Events' , 'A704-WorkSexEv-3'
	end
	
	if $ARGS[0] = 'A704-WorkSexEv-3':
		*clr & cla
		gs 'boyStat', 'A704'
		sexpartkno = 1
		$orgasm_or = 'yes'
		gs 'arousal', 'vaginal', 10
		gs 'Cum_Manage'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/characters/pavlovsk/resident/Valeri/ValeriJobSex3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You are both overcome by the eroticism of the moment and soon enough you are bouncing on his cock hard as it pounds into you.'
		*nl
		'With the relentless assault you are giving his senses he can only last so long and within minutes you feel the result of your pleasures exploding deep within you.'
		*nl
		'Giving yourselves a few moments to calm down you realise that you could have easily have gotten caught so quickly get out to get back to normal!'
		act 'Get out of here' : gt $loc, $loc_arg
	end

--- mod_addedflavour_A704_Events ---------------------------------