# mod_addedflavour_A704_Events
if $ARGS[0] = 'A704_WorkEv_1':
*clr & cla
'
'
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'
'<<$npc_firstname[''A704'']>> <<$npc_lastname[''A704'']>>'
''
*nl
'"Hey there ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', how are you?"'
*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'
'<<$npc_firstname[''A704'']>> <<$npc_lastname[''A704'']>>'
''
*nl
'You do your best to present yourself in a sexy manner; thrusting your ample cleavage into the forefront.'
*nl
'"Hello Valeri!"'
*nl
'"Hello there ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', what are you up to?"'
*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
'"... Get in."'
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'
''
*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'
''
*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'
''
*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 ---------------------------------