[fixed] some hookup stuff

locations/hookup.qsrc

@@ -1614,11 +1614,12 @@ if $ARGS[0] = 'condoms':
 			'"Don''t cum inside me," you say as you scoot further onto the bed. "I''ll get really mad."'
 			gs'hookup','position_choose'
 		end
-		
-		act'Don''t cum inside me (no birth control)':
-			cla & *nl
-			'"Don''t cum inside me," you warn as you scoot further onto the bed. "I''m not on the pill."'
-			gs'hookup','position_choose'
+		if birth_control['think_safe'] = 0:
+			act'Don''t cum inside me (no birth control)':
+				cla & *nl
+				'"Don''t cum inside me," you warn as you scoot further onto the bed. "I''m not on the pill."'
+				gs'hookup','position_choose'
+			end
 		end
 	end
 end

locations/hookup_sex.qsrc

@@ -1175,7 +1175,8 @@ if $ARGS[0] = 'cum_mouth':
 	$hookup['cum_choice'] = 'mouth'
 	gs'cum_call','mouth',$npclastsaved,1
 	!! differing descriptions based on position
-	'<center><video autoplay loop src="images/shared/sex/blowjob/bj47.mp4"></video></center>'
+	!!'<center><video autoplay loop src="images/shared/sex/blowjob/bj47.mp4"></video></center>'
+	'<center><video autoplay loop src="images/shared/sex/cum/mouth/swallow5.mp4"></video></center>'
 	if hookup['mouth_ask'] = 1:
 		'"In my mouth!"'
 	elseif hookup['not_inside'] = 1:
@@ -1184,7 +1185,9 @@ if $ARGS[0] = 'cum_mouth':
 		'"I wanna cum in your mouth!"'
 	end
 	*nl
-	if hookup['condom'] = 1:
+	if hookup['not_inside'] = 1:
+		'<<$npc_firstname[$npclastsaved]>> pulls out of you and grabs your head, pushing it down onto his cock. Moments later, hot, salty liquid spurts into your mouth.'
+	elseif hookup['condom'] = 1:
 		if $hookup['position'] = 'miss':
 			'<<$npc_firstname[$npclastsaved]>> climbs off of you rips the condom off of his cock. You kneel forward, wrapping your lips around his cock and begin sucking him off until you feel hot globs of liquid spurt into your mouth.'
 		elseif $hookup['position'] = 'doggy':
@@ -1194,7 +1197,7 @@ if $ARGS[0] = 'cum_mouth':
 		end
 	else
 		if $hookup['position'] = 'miss':
-			'You push <<$npc_firstname[$npclastsaved]>> off of you on to his back and dive between his legs. Wrapping your lips around his cock, you begin sucking him off until you feel hot globs of liquid spurt into your mouth.'
+			'<<$npc_firstname[$npclastsaved]>> off of you on to his back and dive between his legs. Wrapping your lips around his cock, you begin sucking him off until you feel hot globs of liquid spurt into your mouth.'
 		elseif $hookup['position'] = 'doggy':
 			'You feel <<$npc_firstname[$npclastsaved]>>''s cock pull out of you and you quickly turn around, pushing him onto his back. Wrapping your lips around his girth, you suck him off until you feel hot globs of liquid spurt into your mouth.'
 		elseif $hookup['position'] = 'cowgirl':

locations/hookup_talk.qsrc

@@ -641,6 +641,14 @@ if $ARGS[0] = 'better_without':
 							gs'hookup_talk','<<$hookup[''topic'']>>'
 						end
 					end
+					
+					if mesec > 0:
+						act'I''m on my period':
+							cla & *nl
+							'"I don''t think I can get pregnant while I''m having my period," you say with a smile. "I''m sure I''ll be fine."'
+							gs'hookup_talk','<<$hookup[''topic'']>>'
+						end
+					end
 				else
 					'"Told you we didn''t need one," he laughs.'
 					act'You sure did':
@@ -969,6 +977,7 @@ if $ARGS[0] = 'creampie_surprise_cum_react_options1':
 	if hookup['furious'] ! 2:gs'hookup_talk','furious'
 	gs'hookup_talk','have_to_ask1'
 	gs'hookup_talk','need_morning_after'
+	gs'hookup_talk','period_no_pregnant'
 	gs'hookup_talk','need_smoke'
 end
 
@@ -1063,6 +1072,16 @@ if $ARGS[0] = 'need_morning_after':
 	end
 end
 
+if $ARGS[0] = 'period_no_pregnant':
+	if mesec > 0:
+		act'I''m on my period':
+			cla & *nl
+			'"I don''t think I can get pregnant while I''m having my period," you say with a smile. "So we both got lucky here."'
+			gs'hookup_after','pre'
+		end
+	end
+end
+
 if $ARGS[0] = 'need_smoke':
 	if siga > 0:
 		act'I need a cigarette':

locations/hookup_virgin.qsrc

@@ -332,6 +332,7 @@ if $ARGS[0] = 'bj_instead':
 					
 					act'Give in':
 						cla & *clr
+						hookup['orgasm'] = orgasm
 						if $hookup['position'] = 'miss':
 							'<center><img <<$set_imgh>> src="images/shared/sex/foreplay/miss1.jpg"></center>'
 							'Unable to summon the will to say no, you nod and spread your legs, allowing <<$npc_firstname[$npclastsaved]>> to eagerly push his cock inside you.'
@@ -720,15 +721,14 @@ if $ARGS[0] = 'miss_virg_hard1':
 	end
 	act'Continue':
 		cla & *clr
-		gs'arousal','vaginal',rand(4,8),'rough','no_orgasm_msg'
 		gs'stat'
 		'<center><video autoplay loop src="images/shared/sex/vag/miss/hard2.mp4"></video></center>'
 		'<i>"Ahh! Ahh!! AH! AHH!!"</i>'
-		'You can''t help but scream with every thrust as <<$npc_firstname[$npclastsaved]>> fucks you roughly and with high intensity. It hurts so much. Every time his cock slams back in to you, you feel like you''re going to die. The force of his thrusts bounce your breasts so violently they hurt. It feels like your pussy is being fucked into an open wound and you wonder if you''re going to have internal bruises tomorrow morning.'		
+		'You can''t help but scream with every thrust as <<$npc_firstname[$npclastsaved]>> fucks you roughly and with high intensity. It hurts so much. Every time his cock slams back in to you, you feel like you''re going to die. The force of his thrusts bounce your breasts so violently they hurt. It feels like your pussy is being fucked into an open wound and you wonder if you''re going to have internal bruises tomorrow morning.'
 		act'Endure it':
 			$orgasm_or = 'no'
 			hookup['pain'] = 1
-			gs'arousal','vaginal',rand(4,8),'rough','no_orgasm_msg'
+			gs'arousal','vaginal',rand(8,16),'rough','no_orgasm_msg'
 			$orgasm_or = ''
 			gs'stat'
 			cla & *nl
@@ -741,6 +741,7 @@ if $ARGS[0] = 'miss_virg_hard1':
 			'"Can we-! Slow down-! A little-?" you whimper under <<$npc_firstname[$npclastsaved]>>''s relentless pounding. "This is-! A bit-! Rough-!"'
 			if (rand(1,10) >= 7 or npc_selfish[$npclastsaved] = 1 or npc_abusive = 1) and npc_generous[$npclastsaved] ! 1:
 				$orgasm_or = 'no'
+				gs'arousal','vaginal',rand(8,16),'rough','no_orgasm_msg'
 				hookup['pain'] = 1
 				'"Not a chance, I''m enjoying this." He ignores your pleas, continuing to relentlessly fuck you. The next few minutes pass by in a torturous blur. You have no idea how much time actually passes by, only that every second of it is filled with pain, tears, and prayer that it will end after the next thrust.'
 				gs 'hookup_sex','fuck_cum'
@@ -852,7 +853,6 @@ if $ARGS[0] = 'doggy_virg_hard1':
 	end
 	act'Scream':
 		cla & *clr
-		gs'arousal','vaginal',rand(4,8),'rough','no_orgasm_msg'
 !!		gs 'pain', 2, 'breasts', 'stretch'
 		gs'stat'
 		'<center><video autoplay loop src="images/shared/sex/vag/doggy/laying_down1.mp4"></video></center>'
@@ -861,7 +861,7 @@ if $ARGS[0] = 'doggy_virg_hard1':
 		act'Endure it':
 			$orgasm_or = 'no'
 			hookup['pain'] = 1
-			gs'arousal','vaginal',rand(4,8),'rough','no_orgasm_msg'
+			gs'arousal','vaginal',rand(8,16),'rough','no_orgasm_msg'
 			$orgasm_or = ''
 			gs'stat'
 			cla & *nl
@@ -875,6 +875,7 @@ if $ARGS[0] = 'doggy_virg_hard1':
 			if (rand(1,10) >= 7 or npc_selfish[$npclastsaved] = 1 or npc_abusive = 1) and npc_generous[$npclastsaved] ! 1:
 				hookup['pain'] = 1
 				$orgasm_or = 'no'
+				gs'arousal','vaginal',rand(8,16),'rough','no_orgasm_msg'
 				'"Not a chance, I''m enjoying this." He ignores your pleas, continuing to relentlessly fuck you. The next few minutes pass by in a torturous blur. You have no idea how much time actually passes by, only that every second of it is filled with pain, tears, and prayer that it will end after the next thrust.'
 				gs 'hookup_sex','fuck_cum'
 			else