[added] filming during sex

locations/npcgeneratec.qsrc

@@ -833,26 +833,29 @@ $npc_dna[$npclastgenerated] = func('DNA','create')
 	else
 		!!failsafe
 		npc_sex_stamina[$npclastgenerated] = rand(1,10)
-	end
+	end}
 
 	!! npc_spanker determines whether or not they''re into spanking during sex
-	npc_sex_spanker[$npclastgenerated] = rand(-1,1)
+	if rand(1,3) = 1: npc_sex_spanker[$npclastgenerated] = 1
 	
 	!! npc_childfree determines that they never want to have kids and will react poorly to pregnancy related topics
-	npc_childfree[$npclastgenerated] = rand(-3,1)
+	if rand(1,5) = 1: npc_childfree[$npclastgenerated] = 1
 	
 	!! if npc_pussyeater = 1: they have a fetish for eating pussy
 	!! if npc_pussyeater = -1: they refuse to eat pussy
-	npc_pussyeater[$npclastgenerated] = rand(-1,1)
+	if rand(1,3) = 1: npc_pussyeater[$npclastgenerated] = 1
 	
 	!! if npc_cuddler = 1: the npc likes to cuddle
-	npc_cuddler[$npclastgenerated] = rand(-1,1)
+	if rand(1,3) = 1: npc_cuddler[$npclastgenerated] = 1
 	
 	!! if npc_cum_cannon = 1: the npc ejaculates particularly large loads
-	npc_cum_cannon[$npclastgenerated] = rand(-3,1)
+	if rand(1,5) = 1: npc_cum_cannon[$npclastgenerated] = 1
+	
+	!! if npc_sex_filmer = 1: the npc likes to make sex videos
+	if rand(1,5) = 1: npc_sex_filmer[$npclastgenerated] = 1
 	
 	!! if npc_two_pump = 1: the npc will always cum immediately in the first penetration act of sex
-	npc_two_pump[$npclastgenerated] = rand(-5,1)
+	if rand(1,6) = 1: npc_two_pump[$npclastgenerated] = 1
 	
 !! ------------------------- date preferences ----------------------------------
 	!! favorite kind of date

locations/npcpreservec.qsrc

@@ -152,12 +152,17 @@ if mid($npctemp,1,1) = 'C':
 	npc_dislikes_facials[$npclastsaved]	= npc_dislikes_facials[$npctemp]
 	npc_tit_pref[$npclastsaved]		= npc_tit_pref[$npctemp]
 	npc_bush_pref[$npclastsaved]	= npc_bush_pref[$npctemp]
-	npc_cum_cannon[$npclastsaved]		= npc_cum_cannon[$npctemp]
 	npc_sex_spanker[$npclastsaved] 		= npc_sex_spanker[$npctemp]
 	npc_pussyeater[$npclastsaved]		= npc_pussyeater[$npctemp]
-
+	npc_cum_cannon[$npclastsaved]		= npc_cum_cannon[$npctemp]
+	npc_sex_filmer[$npclastsaved]		= npc_sex_filmer[$npctemp]
+	
+	!! This checks if you have had sex with this person before or not
+	npc_sex[$npclastsaved] = npc_sex[$npctemp]
 
 	$npc_index[$npclastsaved] = $npclastsaved
+	
+	
 
 	! {This checks the miscellanious arrays for the Entry and changes it to the new Array B.}
 	:npctempmloop

locations/sex_ev_events.qsrc

@@ -1,6 +1,241 @@
 # sex_ev_events
 !! for special events
 
+if $ARGS[0] = 'sex_film_code':
+	if sex_ev['phone_film'] = 0 and npc_sex_filmer[$boy] = 1 and rand(1,20) < npc_sexdrive[$boy]: gt 'sex_ev_events', 'sex_film1'
+end
+
+if $ARGS[0] = 'sex_film1':
+	sex_ev['phone_film'] = 1
+	cla & *clr
+	'<center><video autoplay loop src="images/shared/sex/vag/miss/hard5.mp4"></video></center>'
+	'You''re panting in time with <<$npc_firstname[$boy]>>''s thrusts on top of you when you suddenly become aware of a glow coming from above you. <<$npc_firstname[$boy]>> has his phone out. And it''s pointed directly at you.'
+	gs 'sex_ev_events', 'sex_film_protest'
+	gs 'sex_ev_events', 'sex_film_accept'
+end
+
+if $ARGS[0] = 'sex_film_protest':
+	act'Cover your face':
+		cla
+		$sex_video[$boy] = '<center><video autoplay loop src="images/shared/sex/vag/miss/hard3.mp4"></video></center>'
+		act'Shy':
+			cla & *clr
+			'<center><video autoplay loop src="images/shared/sex/vag/miss/hard3.mp4"></video></center>'
+			'"Hngh~! Ungh~! <<$npc_firstname[$boy]>>, nooo~!" you protest weakly. A flush of total embarrassment burns through your cheeks and you hold your hand up in a futile attempt to block the view of your quickly reddening face.'
+			if npc_arrogant[$boy] > 0 or npc_assertive[$boy] > 0 or npc_abusive[$boy] > 0:
+				'"Smile for the camera," <<$npc_firstname[$boy]>> grins, still fucking you as he holds the camera right up to you.'
+			else
+				'"Fuck, you look so hot," <<$npc_firstname[$boy]>> grins, still fucking you as he holds the camera right up to you.'
+			end
+			
+			act'Let him film you (reluctant)':
+				sex_ev['phone_film'] = 2
+				$sex_video_dialogue[$boy] = 'Hngh~! Ungh~! <<$npc_firstname[$boy]>>, nooo~!'
+				cla & *clr
+				'<center><video autoplay loop src="images/shared/sex/vag/miss/hard2.mp4"></video></center>'
+				'With great reluctance, you silence your protests and let <<$npc_firstname[$boy]>> film you getting fucked by him. Though you still can''t stop yourself from shamefully (and ineffectively) trying to cover your face.'
+				*nl
+				'You can''t help but breathe a sigh of relief when he finally puts the phone away. But only after getting a decently long video...'
+				gs 'sex_ev_cum', 'fuck_cum'
+			end
+			
+			act'Keep protesting':
+				$sex_video_dialogue[$boy] = 'Please~! Mmph~! I don''t want to be filmed~!'
+				if npc_caretaker[$boy] > 0:
+					cla & *clr
+					'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/3.jpg"></center>'
+					'"Please~! Mmph~! I don''t want to be filmed~!" you whine as cold panic fills your chest.'
+					'The look on <<$npc_firstname[$boy]>>''s face changes with your continued protests and he blinks, as if only just now aware of what he''s doing.'
+					'"Oh. Er... sorry," he mumbles. You sigh in relief as he pauses fucking you to put away the phone.'
+					'"You''ll delete it later, right?" you ask.'
+					'"I will," he promises with a smile.'
+					!! if npc_abusive[$boy] > 0: he doesn''t delete it
+				else
+					sex_ev['phone_film'] = 2
+					cla & *nl
+					'"Please~! Mmph~! I don''t want to be filmed~!" you whimper again, feeling cold panic fill your chest.'
+					'"Come on, don''t be like that," <<$npc_firstname[$boy]>> says, ignoring your pleas. "This is great. You look so sexy."'
+					*nl
+					'Your weak protests do nothing to sway him and he takes a decently long video of you getting railed before he finally puts the phone away.'
+				end
+				gs 'sex_ev_cum', 'fuck_cum'
+			end
+			
+			gs 'sex_ev_events', 'sex_film_force_stop'
+		end
+		
+		act'Annoyed':
+			cla & *clr
+			'<center><video autoplay loop src="images/shared/sex/vag/miss/hard3.mp4"></video></center>'
+			'"Ungh~! Hmph~! Hey! What do you think you''re doing?" you grunt as he pushes the camera towards your face and you immediately try to cover up with your hand.'
+			'"Don''t worry, you look great," <<$npc_firstname[$boy]>> grins, still fucking you as he films.'
+			act'Let him film you (reluctant)':
+				$sex_video_dialogue[$boy] = 'Ungh~! Hmph~! Hey! What do you think you''re doing?'
+				sex_ev['phone_film'] = 2
+				cla & *clr
+				'<center><video autoplay loop src="images/shared/sex/vag/miss/hard2.mp4"></video></center>'
+				'With great reluctance, you silence your protests and let <<$npc_firstname[$boy]>> film you getting fucked by him. Though you still can''t stop yourself from shamefully (and ineffectively) trying to cover your face.'
+				*nl
+				'You can''t help but breathe a sigh of relief when he finally puts the phone away. But only after getting a decently long video...'
+				gs 'sex_ev_cum', 'fuck_cum'
+			end
+			
+			act'Keep protesting':
+				if npc_caretaker[$boy] > 0:
+					$sex_video_dialogue[$boy] = 'Seriously~! Nngh~! Stop it~!'
+					cla & *clr
+					'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/3.jpg"></center>'
+					'"Seriously~! Nngh~! Stop it~!" you complain loudly, feeling hot with self consciousness and annoyance.'
+					'The look on <<$npc_firstname[$boy]>>''s face changes with your continued protests and he blinks, as if only just now aware of what he''s doing.'
+					'"Oh. Er... sorry," he mumbles. You sigh in relief as he pauses fucking you to put away the phone.'
+					'"Make sure to delete it later," you tell him sternly.'
+					'"I will," he promises with a smile.'
+					!! if npc_abusive[$boy] > 0: he doesn''t delete it
+				else
+					sex_ev['phone_film'] = 2
+					cla & *nl
+					'"Seriously~! Nngh~! Stop it~!" you keep protesting, face hot with self consciousness and annoyance.'
+					if npc_arrogant[$boy] > 0 or npc_assertive[$boy] > 0 or npc_abusive[$boy] > 0:
+						'"You''re so hot when you''re mad," <<$npc_firstname[$boy]>> says, grin growing wider while ignoring your pleas.'
+					else
+						'"Come on, don''t be that way," <<$npc_firstname[$boy]>> says, ignoring your pleas. "This is great. You look so sexy."'
+					end
+					*nl
+					'Your irritation with <<$npc_firstname[$boy]>> do nothing to sway him and he takes a decently long video of you getting railed before he finally puts the phone away.'
+				end
+				gs 'sex_ev_cum', 'fuck_cum'
+			end
+			gs 'sex_ev_events', 'sex_film_force_stop'
+		end
+		
+		act'Angry':
+			cla & *clr
+			'<center><video autoplay loop src="images/shared/sex/vag/miss/hard3.mp4"></video></center>'
+			'"Ungh~! Hmph~! What the fuck!" you scream as you realize what he''s doing and immediately try to cover up with your hand.'
+			'"Don''t worry, you look great," <<$npc_firstname[$boy]>> grins, still fucking you as he films.'
+			act'Let him film you (reluctant)':
+				sex_ev['phone_film'] = 2
+				$sex_video_dialogue[$boy] = 'Ungh~! Hmph~! What the fuck!'
+				cla & *clr
+				'<center><video autoplay loop src="images/shared/sex/vag/miss/hard2.mp4"></video></center>'
+				'You let <<$npc_firstname[$boy]>> film you getting fucked by him, fuming in silence, occasionally turning to cover your face just to spite him.'
+				*nl
+				'You can''t help but breathe a sigh of relief when he finally puts the phone away. But only after getting a decently long video...'
+				gs 'sex_ev_cum', 'fuck_cum'
+			end
+			
+			act'Keep protesting':
+				if npc_caretaker[$boy] > 0:
+					$sex_video_dialogue[$boy] = 'Fuck off~! Put that thing away~!'
+					cla & *clr
+					'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/3.jpg"></center>'
+					'"Fuck off~! Put that thing away~!" you shout, steaming hot with anger.'
+					'The look on <<$npc_firstname[$boy]>>''s face changes with your continued protests and he blinks, as if only just now aware of what he''s doing.'
+					'"Oh. Er... sorry," he mumbles. You sigh in relief as he pauses fucking you to put away the phone.'
+					'"Make sure to delete it later," you tell him sternly.'
+					'"I will," he promises with a smile.'
+					!! if npc_abusive[$boy] > 0: he doesn''t delete it
+				else
+					sex_ev['phone_film'] = 2
+					cla & *nl
+					'"Fuck off~! Put that thing away~!" you shout, steaming hot with anger.'
+					if npc_arrogant[$boy] > 0 or npc_assertive[$boy] > 0 or npc_abusive[$boy] > 0:
+						'"You''re so hot when you''re mad," <<$npc_firstname[$boy]>> says, grin growing wider while ignoring your pleas.'
+					else
+						'"Come on, don''t be that way," <<$npc_firstname[$boy]>> says, ignoring your pleas. "This is great. You look so sexy."'
+					end
+					*nl
+					'He takes a decently long video of you getting railed, screaming in rage the whole time, before he finally puts the phone away.'
+				end
+				gs 'sex_ev_cum', 'fuck_cum'
+			end
+			gs 'sex_ev_events', 'sex_film_force_stop'
+		end
+	end
+end
+
+if $ARGS[0] = 'sex_film_force_stop':
+	gs 'willpower', 'misc', 'force'
+	if will_cost <= pcs_willpwr:
+		act 'Make him put the phone away (<<will_cost>> Willpower)':
+			sex_ev['phone_film'] = -1
+			cla & *clr
+			gs 'willpower', 'pay', 'self'
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss1.jpg"></center>'
+			'"Seriously, knock it off!" you snap, practically slapping the phone out of his hand as you grab it. You stop the recording and immediately hit the gallery button to delete the video. "Asshole..." you mutter as you toss the phone far away from the bed as well, all without removing <<$npc_firstname[$boy]>> from inside you.'
+			act'"Way to kill the mood"':
+				cla & *clr
+				$sex_ev['bed_room']
+				sex_ev['cock_inserted'] = 0
+				'"Way to kill the mood, asshole," you scowl at <<$npc_firstname[$boy]>> as you push him off and out of you. "I''m done here."'
+				gs'sex_ev_after', 'quit2'
+			end
+			
+			act'Keep going':
+				cla & *clr
+				'<center><img <<$set_imgh>> src="images/shared/sex/vag/4.jpg"></center>'
+				'"Finally," you sigh in relief. "Don''t do that again. Now get back to fucking me already."'
+				gs'sex_ev_sex', 'fuck_continue'
+			end
+		end
+	else
+		act 'Make him put the phone away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
+end
+
+if $ARGS[0] = 'sex_film_accept':
+	act'Let him film':
+		sex_ev['phone_film'] = 2
+		$sex_video[$boy] = '<center><video autoplay loop src="images/shared/sex/vag/miss/enjoy1.mp4"></video></center>'
+		!!if pcs_traits['exhibitionism'] > 0:
+		if Exhibitionist_lvl > 0: gs 'arousal', 'vaginal', -5, 'no_orgasm_msg', 'exhibitionism'
+		cla
+		act'Blush':
+			$sex_video_dialogue[$boy] = 'Mmph~! Mmph~! Mmm~! Nnn~!'
+			cla & *clr
+			'<center><video autoplay loop src="images/shared/sex/vag/miss/enjoy1.mp4"></video></center>'
+			'Your cheeks flush with warmth as you realize what <<$npc_firstname[$boy]>>''s doing and turn your face in embarrassment but don''t make any complaints.'
+			'"Mmph~! Mmph~! Mmm~! Nnn~!" Each pump of his cock inside you forces sheepish squeaks from your lips as you get caught between self-consciousness and pleasure. <<$npc_firstname[$boy]>> grins the whole time.'
+			*nl
+			'After a few minutes of filming, he puts his phone away.'
+			gs 'sex_ev_sex', 'fuck_continue'
+		end
+		
+		act'Ignore the camera':
+			$sex_video_dialogue[$boy] = 'Hah~! Haa~! Ah~! Haa~!'
+			cla & *clr
+			'<center><video autoplay loop src="images/shared/sex/vag/miss/enjoy1.mp4"></video></center>'
+			'"Hah~! Haa~! Ah~! Haa~!" You ignore the camera completely, focusing on <<$npc_firstname[$boy]>>''s cock pumping inside you and just try to stay the moment, letting moans escape your lips as they come. If he wants to film it, he can do what he wants.'
+			*nl
+			'After a few minutes of filming, he puts his phone away.'
+			gs 'sex_ev_sex', 'fuck_continue'
+		end
+		
+		act'Put on a show':
+			$sex_video_dialogue[$boy] = 'Aaah~! I''m so wet~! Ungh~! Your cock is so good inside me~!'
+			cla & *clr
+			'<center><video autoplay loop src="images/shared/sex/vag/miss/enjoy1.mp4"></video></center>'
+			'"Aaah~! I''m so wet~! Ungh~! Your cock is so good inside me~!"'
+			if sex_ev['fuck_enjoyment'] = 1:
+				'Unable to resist putting on a show, you turn up the volume on your moaning and dirty talk. You shake your tits and arch your back, putting extra emphasis on your pleasure.'
+			else
+				'Unable to resist putting on a show, you turn on the moaning and the dirty talk. You shake your tits and arch your back with pleasure you aren''t really feeling.'
+			end
+			'For his part, <<$npc_firstname[$boy]>> seems extra excited by this and makes sure to capture every moment of it, sending the lens up and down your body from where he fucks your pussy back up to your flushed face.'
+			*nl
+			'After a few minutes of filming, he puts his phone away.'
+			gs 'sex_ev_sex', 'fuck_continue'
+		end
+		
+		!!{if sex_ev['prostituion_flag'] > 0:
+			act'This costs extra':
+				
+			end
+		end}
+	end
+end
+
 if $ARGS[0] = 'offer_ciga1':
 	*nl
 	'"You want one?" he asks, holding the open packet towards you.'

locations/sex_ev_miss.qsrc

@@ -585,9 +585,9 @@ if $ARGS[0] = 'miss1.2':
 	$sex_ev['position'] = 'miss'
 	$sex_ev['pos_speed'] = 'miss1'
 	sex_ev['speed'] = 1
-	
 	sex_ev['kiss'] = 0
 	gs 'sex_ev_sex', 'fuck_arousal_code'
+	gs 'sex_ev_events', 'sex_film_code'
 	cla & *clr
 	'<center><video autoplay loop src="images/shared/sex/vag/miss/slow2.mp4"></video></center>'
 	if sex_ev['fuck_enjoyment'] = -1:
@@ -840,6 +840,7 @@ if $ARGS[0] = 'miss2.2':
 	sex_ev['speed'] = 2
 	sex_ev['kiss'] = 0
 	gs 'sex_ev_sex', 'fuck_arousal_code'
+	gs 'sex_ev_events', 'sex_film_code'
 	cla & *clr
 	'<center><video autoplay loop src="images/shared/sex/vag/miss/med<<rand(1,3)>>.mp4"></video></center>'
 	if sex_ev['fuck_enjoyment'] = -1:
@@ -1146,7 +1147,7 @@ if $ARGS[0] = 'miss3.2':
 	$sex_ev['pos_speed'] = 'miss3'
 	sex_ev['speed'] = 3
 	sex_ev['kiss'] = 0
-	
+	gs 'sex_ev_events', 'sex_film_code'
 	cla & *clr
 	'<center><video autoplay loop src="images/shared/sex/vag/miss/hard<<rand(1,3)>>.mp4"></video></center>'
 	if sex_ev['fuck_enjoyment'] = -1:

locations/sex_ev_stats.qsrc

@@ -138,6 +138,11 @@ if $ARGS[0] = 'save_stats':
 	end
 	
 	if sex_ev['prostitution_freebie'] = 1: stat['prostitution_freebies'] += 1
+	
+	if sex_ev['phone_film'] = 2 or (sex_ev['phone_film'] = 1 and npc_abusive[$boy] > 0):
+		npc_sex_video_count[$boy] += 1
+		!!npc_sex_video<<npc_sex_video_count[$boy]>> = 1
+	end
 end