Merge remote-tracking branch 'Hornguy6/master'

locations/sex_ev_after.qsrc

@@ -840,6 +840,7 @@ if $ARGS[0] = 'finish_sex':
 	sex_ev['finish_time'] = totminut
 	if sex_ev['fucked_out'] > 0:
 		'He just lays there, panting and wheezing in exhaustion.'
+		gs'sex_ev_after', 'after_sex1'
 	elseif sex_ev['orgasm_count'] = 0 and sex_ev['fake_orgasm_count'] = 0 and sex_ev['fuck'] = 0 and npc_selfish[$boy] = 0 and (npc_caretaker[$boy] = 1 or rand(0,1) = 1):
 		gs'sex_ev_after', 'no_cum_end'
 !!	elseif sex_ev['force_harden'] = 2:
@@ -1555,7 +1556,7 @@ if $ARGS[0] = 'boy_bathroom':
 			act'Take a shower':gs'sex_ev_shower', 'after_alone'
 		end
 	else
-		if sex_ev['morning_shower'] = 0 or $stat_cum_msg ! '':
+		if sex_ev['morning_shower'] = 0 or $stat_cum_msg ! '' or pcs_sweat > 0:
 			act'Take a shower':gs'sex_ev_morning', 'shower'
 		end
 	end
@@ -1885,6 +1886,7 @@ if $ARGS[0] = 'plan_b2':
 			cla & *nl
 			'<<$npc_firstname[$boy]>> watches you pop the pill out of its packaging.'
 			if LudaQW['free_condoms'] = 1 and LudaQW['luda_ma_pill'] = 0:
+				sex_ev['aunt_pill'] = 1
 				'"My aunt gave me this morning after pill for emergencies," you explain and pop it in your mouth before forcing it down with a dry swallow.'
 			else
 				'"Morning after pill," you explain and pop it in your mouth before forcing it down with a dry swallow.'
@@ -1897,6 +1899,7 @@ if $ARGS[0] = 'plan_b2':
 			cla & *nl
 			'<<$npc_firstname[$boy]>> watches you pop the pill out of its packaging and you can''t help but blush beneath his gaze.'
 			if LudaQW['free_condoms'] = 1 and LudaQW['luda_ma_pill'] = 0:
+				sex_ev['aunt_pill'] = 1
 				'"My aunt gave me this for emergencies," you say shyly, blush intensifying as you put it in your mouth and force it down with a dry swallow.'
 			else
 				'"The instructions say to take it as soon as possible for best effect," you smile shyly, blush intensifying as you put it in your mouth and force it down with a dry swallow.'
@@ -1928,6 +1931,7 @@ if $ARGS[0] = 'plan_b3':
 		cla & *nl
 		'<<$npc_firstname[$boy]>> watches you pop the pill out of its packaging and into your mouth.'
 		'"There," you say, forcing it down with a dry swallow. "Problem solved."'
+		sex_ev['ma_pill'] = 2
 		gs 'medical_din', 'morning_after_pill_function'
 		gs'sex_ev_after', 'after_sex2'
 	end
@@ -1936,6 +1940,7 @@ if $ARGS[0] = 'plan_b3':
 		cla & *nl
 		'<<$npc_firstname[$boy]>> watches you pop the pill out of its packaging and you can''t help but blush beneath his gaze.'
 		'"Problem solved," you say, feeling your cheeks redden even further as you force it down with a dry swallow.'
+		sex_ev['ma_pill'] = 2
 		gs 'medical_din', 'morning_after_pill_function'
 		gs'sex_ev_after', 'after_sex2'
 	end
@@ -1943,11 +1948,12 @@ if $ARGS[0] = 'plan_b3':
 	act'Take it sexily':
 		cla & *nl
 		'As <<$npc_firstname[$boy]>> watches you pull the pill from its packaging, you stick out your tongue at him, popping the pill onto it and swallowing with a wide grin.'
-		if $sex_ev['last_cum'] = 'swallow':
+		if $sex_ev['last_cum'] = 'swallow' and totminut < sex_ev['finish_time'] + 5:
 			'"Chaser," you wink.'
 		else
 			'"There," you smirk. "Problem solved."'
 		end
+		sex_ev['ma_pill'] = 2
 		gs 'medical_din', 'morning_after_pill_function'
 		gs'sex_ev_after', 'after_sex2'
 	end

locations/sex_ev_boy_pillow_talk.qsrc

@@ -9,16 +9,16 @@ if $ARGS[0] = 'boy_talk':
 !!		:boy_talk_loop
 		if sex_ev['good_for_you'] = 0 and rand(1,sex_ev['boy_topics']) = 1:
 			cla
-			act'<<$npc_firstname[$boy]>> has something to say':gs 'sex_ev_favorite_part', 'boy_good_for_you'
+			gs 'sex_ev_favorite_part', 'boy_good_for_you'
 		elseif sex_ev['boy_pube_talk'] = 0 and rand(1,sex_ev['boy_topics']) = 1:
 			cla
-			act'<<$npc_firstname[$boy]>> has something to say':gs'sex_ev_boy_pillow_talk', 'boy_pube_talk_start'
-		elseif sex_ev['no_kids'] = 1 and npc_know_no_kids[$boy] = 1 and sex_ev['no_kids_talk'] = 0 and rand(1,sex_ev['boy_topics']) = 1:
+			gs'sex_ev_boy_pillow_talk', 'boy_pube_talk_start'
+		elseif sex_ev['no_kids'] = 1 and npc_know_no_kids[$boy] = 0 and sex_ev['no_kids_talk'] = 0 and rand(1,sex_ev['boy_topics']) = 1:
 			cla
-			act'<<$npc_firstname[$boy]>> has something to say':gs'sex_ev_boy_pillow_talk', 'boy_no_kids'
+			gs'sex_ev_boy_pillow_talk', 'boy_no_kids'
 		elseif sex_ev['boy_shower'] = 0 and $sex_ev['loc'] ! 'house_party' and rand(1,sex_ev['boy_topics']) = 1:
 			cla
-			act'<<$npc_firstname[$boy]>> has something to say':gs'sex_ev_boy_pillow_talk', 'boy_take_shower'
+			gs'sex_ev_boy_pillow_talk', 'boy_take_shower'
 		
 !!		elseif sex_ev['no_swallow_talk'] = 0 and sex_ev['cum_mouth'] > 0 and sex_ev['swallow_count'] = 0 and rand(1,2) = 1:
 !!			act'<<$npc_firstname[$boy]>> has something to say':gs'sex_ev_boy_pillow_talk', 'dont_swallow_talk'
@@ -28,14 +28,14 @@ if $ARGS[0] = 'boy_talk':
 
 		elseif sex_ev['broken_condom'] >= 1 and sex_ev['broken_condom_talk'] = 0 and rand(1,2) = 1:
 			cla
-			act'<<$npc_firstname[$boy]>> has something to say':gs'sex_ev_boy_pillow_talk', 'boy_broken_condom'
+			gs'sex_ev_boy_pillow_talk', 'boy_broken_condom'
 !!		elseif sex_ev['creampie_okay'] = 0:
 		
 !!		elseif sex_ev['boy_no_kids'] = 0 and sex_ev['no_kids_talk'] ! 1:
 			
 		elseif sex_ev['no_condom'] = 0 and sex_ev['fuck_count'] > 0 and npc_no_condoms[$boy] > 0 and sex_ev['wish_no_condoms_talk'] = 0:
 			cla
-			act'<<$npc_firstname[$boy]>> has something to say':gs'sex_ev_boy_pillow_talk', 'boy_hates_condoms'
+			gs'sex_ev_boy_pillow_talk', 'boy_hates_condoms'
 		
 		else
 !!			cla & gs'sex_ev_pillow_talk', 'topic_route'

locations/sex_ev_cum.qsrc

@@ -1532,7 +1532,7 @@ if $ARGS[0] = 'cum_tits3':
 	$sex_ev['last_cum'] = 'tits'
 	gs 'cum_call', 'breasts', $boy, 1
 	gs 'cum_call', 'stomach', $boy, 1
-	'<center><video autoplay loop src="images/shared/sex/cum/chest/tits3.mp4"></video></center>'
+	'<center><video autoplay loop src="images/shared/sex/cum/chest/tits4.mp4"></video></center>'
 	
 	if sex_ev['he_ask'] > 0:
 		if sex_ev['condom'] = 1:
@@ -2620,7 +2620,7 @@ if $ARGS[0] = 'what_now':
 		act'Let''s stop':
 			cla & *nl
 			'"Probably best if we stop here," you say.'
-			if npc_selfish[$boy] = 1 and sex_ev['cum_count'] < npc_sexdrive[$boy] + sex_ev['extra_cum']:
+			if npc_selfish[$boy] = 1 and sex_ev['cum_count'] < npc_sexdrive[$boy]/3:
 				'<<$npc_firstname[$boy]>> sighs in disappointment.'
 			else
 				'<<$npc_firstname[$boy]>> nods in somber agreement.'

locations/sex_ev_dress_talking.qsrc

@@ -505,7 +505,7 @@ if $ARGS[0] = 'pc_sex_ev_invite':
 					else
 						'"Twice in one day might be a little bit too much for me," <<$npc_firstname[$boy]>> smiles back ruefully.'
 						gs'sex_ev_leave', 'dress_loop_code'
-						'"Damn," you sigh disappointedly, continuing <<$sex_ev[''dress_describe'']>>'
+						'"Damn," you sigh in disappointment as you continue <<$sex_ev[''dress_describe'']>>'
 						gs'sex_ev_dress_talking', 'pc_sex_ev_invite_denied'
 					end
 				else
@@ -515,7 +515,7 @@ if $ARGS[0] = 'pc_sex_ev_invite':
 					else
 						'"Think I might be a little too tapped out from work," <<$npc_firstname[$boy]>> grunts.'
 						gs'sex_ev_leave', 'dress_loop_code'
-						'"Damn," you sigh disappointedly, continuing <<$sex_ev[''dress_describe'']>>'
+						'"Damn," you sigh in disappointment as you continue <<$sex_ev[''dress_describe'']>>'
 						gs'sex_ev_dress_talking', 'pc_sex_ev_invite_denied'
 					end
 				end

locations/sex_ev_favorite_part.qsrc

@@ -1721,8 +1721,8 @@ end
 if $ARGS[0] = 'pc_cuni_fav1':
 	if sex_ev['cuni_count'] > 0:
 		act'He''d good at giving head':
-			cla & *clr
-			'<center><video autoplay loop src="images/shared/sex/after/pillow_talk2.mp4"></video></center>'
+			cla & *nl
+			if $sex_ev['boy_favorite'] = 'pussyeating':
 				'"That was my favorite part too," you grin. "When you ate me out. You''re just so good at it!"'
 			else
 				'"I liked it when you ate me out ' + iif($sex_ev['boy_favorite'] = 'pussyeating', 'too', '') + '," you grin. "A tongue playing with the little man in the boat drives me crazy. I love it."'
@@ -1731,8 +1731,7 @@ if $ARGS[0] = 'pc_cuni_fav1':
 		end
 		if sex_ev['facesit_count'] > 0:
 			act'Enjoyed sitting on his face':
-				cla & *clr
-				'<center><video autoplay loop src="images/shared/sex/after/pillow_talk2.mp4"></video></center>'
+				cla & *nl
 				if $sex_ev['boy_favorite'] = 'pussyeating':
 					'"That was my favorite part too," you grin. "But specifically when I sat on your face. I bet you were practically drowning in my girl cum."'
 				else
@@ -1743,8 +1742,7 @@ if $ARGS[0] = 'pc_cuni_fav1':
 		end
 		if sex_ev['creampie_eat'] > 0:
 			act'It was hot when he ate the creampie out of you':
-				cla & *clr
-				'<center><video autoplay loop src="images/shared/sex/after/pillow_talk2.mp4"></video></center>'
+				cla & *nl
 				if $sex_ev['boy_favorite'] = 'pussyeating':
 					'"When you ate the creampie out of my pussy," you grin, shuddering at the memory. "I know you love eating pussy, but holy fuck, that was so hot."'
 				else
@@ -1774,13 +1772,13 @@ if $ARGS[0] = 'pc_creampie_fav1':
 				if cum_loc['vagina'] > 0:
 					'"I liked it when you came inside too," you smile warmly at <<$npc_firstname[$boy]>> rubbing your wet thighs together where his cum continues to leak from your pussy. "The way your cock <i>throbbed</i> inside me, I could feel your cum filling me up. It felt so good."'
 				else
-					'"I liked it when you came inside too," you smile warmly at <<$npc_firstname[$boy]>> rubbing your wet thighs together where his cum was leaking from your snatch just minutes ago. "The way your cock <i>throbbed</i> inside me, I could feel your cum filling me up. It felt so good"'
+					'"I liked it when you came inside too," you smile warmly at <<$npc_firstname[$boy]>> rubbing your wet thighs together where his cum was leaking from your snatch just minutes ago. "The way your cock <i>throbbed</i> inside me, I could feel your cum filling me up. It felt so good."'
 				end
 			else
 				if cum_loc['vagina'] > 0:
-					'"I liked it when you came inside me," you smile warmly at <<$npc_firstname[$boy]>> rubbing your wet thighs together where his cum continues to leak from your pussy. "The way your cock <i>throbbed</i> inside me, I could feel your cum filling me up. It felt so good"'
+					'"I liked it when you came inside me," you smile warmly at <<$npc_firstname[$boy]>> rubbing your wet thighs together where his cum continues to leak from your pussy. "The way your cock <i>throbbed</i> inside me, I could feel your cum filling me up. It felt so good."'
 				else
-					'"I liked it when you came inside me," you smile warmly at <<$npc_firstname[$boy]>> rubbing your wet thighs together where his cum was leaking from your snatch just minutes ago. "The way your cock <i>throbbed</i> inside me, I could feel your cum filling me up. It felt so good"'
+					'"I liked it when you came inside me," you smile warmly at <<$npc_firstname[$boy]>> rubbing your wet thighs together where his cum was leaking from your snatch just minutes ago. "The way your cock <i>throbbed</i> inside me, I could feel your cum filling me up. It felt so good."'
 				end
 			end
 			if sex_ev['accidental_creampie_convo'] = 0 and npc_know_bc[$boy] < 1 and (npc_know_not_bc[$boy] = 1 or sex_ev['risky_creampie'] > 0 or npc_childfree[$boy] > 0) and sex_ev['safe_day'] ! 1 and sex_ev['probably_safe_day'] ! 1:

locations/sex_ev_foreplay.qsrc

@@ -1790,6 +1790,7 @@ end
 if $ARGS[0] = 'makeout_dom3':
 	gs'arousal', 'kiss',rand(2,7), 'no_orgasm_msg', $sex_ev['prostitution_flag']
 	gs'arousal', 'hj',-rand(2,4), 'no_orgasm_msg', $sex_ev['prostitution_flag']
+	sex_ev['hj_count'] += 1
 	gs'stat'
 	if rand(0,1) = 1:
 		'<center><video autoplay loop src="images/shared/sex/foreplay/makeout2.mp4"></video></center>'
@@ -1810,6 +1811,7 @@ if $ARGS[0] = 'handjob_dom1':
 		gs'arousal', 'hj',rand(1,4), 'no_orgasm_msg', $sex_ev['prostitution_flag']
 		gs'stat'
 		$sex_ev['position'] = 'handjob'
+		sex_ev['hj_count'] += 1
 		cla & *clr
 		'<center><video autoplay loop src="images/shared/sex/handjob/hj2.mp4"></video></center>'
 		if sex_ev['foreplay_change'] >= 1:

locations/sex_ev_pillow_talk.qsrc

@@ -8,7 +8,7 @@ if $ARGS[0] = 'start':
 	if sex_ev['virgin'] = 1 and sex_ev['virgin_talk'] = 0 and sex_ev['fuck_count'] > 0:
 		gs'sex_ev_virgin', 'first_time_talk'
 	else
-		gs'sex_ev_pillow_talk', 'topic_route'
+		gs'sex_ev_pillow_talk', 'topics'
 	end
 	gs'sex_ev_after', 'sore_pussy_msg'
 end
@@ -25,10 +25,12 @@ if $ARGS[0] = 'stop_talk':
 end
 
 if $ARGS[0] = 'topic_route':
-	if sex_ev['sex_over'] = 1:
-		gs'sex_ev_pillow_talk', 'topics'
-	else
-		gs'sex_ev_sex', 'break_time'
+	act'Keep talking':
+		if sex_ev['sex_over'] = 1:
+			gs'sex_ev_pillow_talk', 'topics'
+		else
+			gs'sex_ev_sex', 'break_time'
+		end
 	end
 end
 
@@ -47,6 +49,7 @@ if $ARGS[0] = 'pillow_picture1':
 end
 
 if $ARGS[0] = 'topics':
+	cla
 	gs'sex_ev_pillow_talk', 'stop_talk'
 	if sex_ev['unique_npc'] = 1:
 		gs 'sex_ev_pillow_talk_<<$boy>>', 'topic_menu'
@@ -1161,10 +1164,10 @@ if $ARGS[0] = 'love_going_bareback':
 			'"Yeah?" he grins back.'
 			act'Feels good':
 				cla & *nl
-				'"It just feels good," you say with deep satisfaction. "Condoms are all latexy. Bareback is better."'
+				'"It feels good so good to do it raw," you say with deep satisfaction. "Condoms get in the way. Bareback is better."'
 				if npc_no_condoms[$boy] > 0:
 					if npc_know_bc[$boy] = 1:
-						'"Birth control is awesome..." <<$npc_firstname[$boy]>> grins lewdly.'
+						'"Birth control is awesome..." <<$npc_firstname[$boy]>> grins.'
 					else
 						'"You got that right," <<$npc_firstname[$boy]>> says.'
 					end
@@ -1178,9 +1181,9 @@ if $ARGS[0] = 'love_going_bareback':
 			
 			act'Feels natural':
 				cla & *nl
-				'"It feels... natural," you say with deep satisfaction. "Your cock in my pussy and nothing in-between. Using condoms feels so artificial. Bareback feels <i>right</i>."'
+				'"Condoms feel... <i>latexy</i>," you say, scrunching your nose in disgust. "Artificial. It''s better when it''s just your cock in my pussy and nothing in-between. It feels <i>right</i>."'
 				if npc_no_condoms[$boy] > 0:
-					'"That''s why I never use them," <<$npc_firstname[$boy]>> says smugly. "They''re bad for the environment."'
+					'"That''s why I never use condoms," <<$npc_firstname[$boy]>> says smugly. "They''re bad for the environment."'
 				else
 					if npc_humor[$boy] = 1:
 						'"Well they <i>are</i> technically artificial," he chuckles to himself. "I don''t think latex is a commonly occurring material in the wild."'
@@ -1487,9 +1490,9 @@ if $ARGS[0] = 'on_birth_control':
 			cla & *nl
 			if npc_know_not_bc[$boy] = 1:
 				if tabletkishot > 0:
-					'"I forgot, I haven''t told you yet," you say. "I''m on the shot now. I''ll be fine."'
+					'"Oops, I forgot I haven''t told you yet," you say. "I''m on the shot now. I''ll be fine."'
 				elseif birth_control['think_safe'] = 1:
-					'"I forgot, I haven''t told you yet," you say. "I''m on the pill now. I''ll be fine."'
+					'"Oops, I forgot I haven''t told you yet," you say. "I''m on the pill now. I''ll be fine."'
 				end
 			else
 				if tabletkishot > 0:

locations/sex_ev_reactions.qsrc

@@ -786,7 +786,7 @@ if $ARGS[0] = 'facial_happy_reacts':
 			sex_ev['react'] = 1
 			$sex_ev['facial_pic']
 			'"So, how do I look?" you ask, with a cum glazed smile.'
-			if npc_abusive[$boy] > 0 and rand(0,1) = 1:
+			if npc_rough[$boy] > 0 and rand(0,1) = 1:
 				'"Like a walking cumdumpster," <<$npc_firstname[$boy]>> snickers.'
 				act'Offended':
 					cla & *clr

locations/sex_ev_sex.qsrc

@@ -7,7 +7,7 @@ if $ARGS[0] = 'inserted_img':
 		elseif $sex_ev['position'] = 'doggy':
 			'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/2.jpg"></center>'
 		elseif $sex_ev['position'] = 'cowgirl':
-			'<center><img <<$set_imgh>> src="images/shared/sex/vag/cowgirl/1.jpg"></center>'
+			'<center><img <<$set_imgh>> src="images/shared/sex/vag/cowgirl/3.jpg"></center>'
 		end
 	else
 		$sex_ev['bed_room']

locations/sex_ev_shower.qsrc

@@ -116,7 +116,7 @@ if $ARGS[0] = 'after_alone':
 	dynamic $showerdin
 	sex_ev['start_shower'] = 1
 	gs 'stat'
-	'You slip into the bathroom and turn on the faucet. Hot water comes pouring out and you gratefully step under, rinsing the post-sex sweat from your body.'
+	'You slip into the bathroom and turn on the faucet. Hot water comes pouring out and you gratefully step under, rinsing the post-sex feeling from your body.'
 	act'Finish':
 		cla & *clr
 		$sex_ev['bath_room']

locations/sex_ev_stats.qsrc

@@ -61,6 +61,12 @@ if $ARGS[0] = 'save_stats':
 	!! number of times you have initiated or responded to a booty call
 	npc_bootycalls[$boy] += 1
 	
+	!! number of times you have had jerked off an npc
+	if sex_ev['hj_count'] > 0: npc_hj_count[$boy] += 1
+	
+	!! number of times you have had blown an npc
+	if sex_ev['bj_count'] > 0: npc_bj_count[$boy] += 1
+	
 	!! number of times you have had sex with an npc
 	if sex_ev['fuck'] > 0 or sex_ev['fuck_count'] > 0: npc_fuck_times[$boy] += 1
 	

locations/sex_ev_talk.qsrc

@@ -253,17 +253,17 @@ if $ARGS[0] = 'childfree_accidental_creampie1':
 				if $sex_ev['convo'] = 'used_all_condoms':
 					'"It''s a safe day," you nod. "I should be okay. This time anyways," you smile teasingly.'
 				else
-					'"It''s a safe day, so I should be okay," you smile teasingly.'
+					'"It''s a safe day, so I should be okay," you smile.'
 				end
 				gs'sex_ev_pillow_talk', 'topic_route'
 			end
 		elseif stat['probably_safe_day'] = 1:
-			act'I think so':
+			act'I should be okay':
 				cla & *nl
 				if $sex_ev['convo'] = 'used_all_condoms':
 					'"I think so," you say. "It <i>should</i> be a safe day for me as long as I''m keeping track of my cycle correctly..."'
 				else
-					'"I think so," you say. "It <i>should</i> be a safe day for me as long as I''m keeping track of my cycle correctly..."'
+					'"It <i>should</i> be a safe day for me as long as I''m keeping track of my cycle correctly..."'
 				end
 				gs'sex_ev_pillow_talk', 'topic_route'
 			end
@@ -280,7 +280,7 @@ if $ARGS[0] = 'childfree_accidental_creampie1':
 			
 			act'Need plan B':
 				cla & *nl
-				'"Not really," you grimace. "I''m definitely going to need some plan B tomorrow."'
+				'"I''ll get some plan B tomorrow," you say.'
 				if npc_childfree[$boy] = 1 or npc_caretaker[$boy] = 1:
 					gs'sex_ev_talk', 'morning_after_money'
 				else
@@ -290,7 +290,7 @@ if $ARGS[0] = 'childfree_accidental_creampie1':
 			
 			act'Need plan B (safety)':
 				cla & *nl
-				'"I''ll get some plan B tomorrow just to be safe," you say.'
+				'"I should be okay but I''ll get some plan B tomorrow just to be safe," you say.'
 				if npc_childfree[$boy] = 1 or npc_caretaker[$boy] = 1:
 					gs'sex_ev_talk', 'morning_after_money'
 				else
@@ -419,39 +419,41 @@ if $ARGS[0] = 'morning_after_money':
 end
 
 if $ARGS[0] = 'pc_have_morning_after':
-	if mc_inventory['morning_after_pill'] = 0:
-		act'I''ll buy a morning after pill':
-			sex_ev['plan_b_buy'] = 1
-			cla & *nl
-			if sex_ev['sleepover'] = 0:
-				sex_ev['ma_pill_tomorrow'] = 1
-				if npc_pay_for_ma_pill[$boy] = 1:
-					'"I''ll get a morning after pill ' + iif(sex_ev['sleepover'] = 0, 'tomorrow', 'later') + '," you murmur. "You''re paying for it, right?"'
-					'"Yeah," he replies. "I''ll give you the money when we''re done."'
-				else
-					'"It''s okay," you murmur reassuringly. "I''ll get a morning after pill ' + iif(sex_ev['sleepover'] = 0, 'tomorrow. No big deal."', 'later today. No big deal."')
-				end
-			else
-				if npc_pay_for_ma_pill[$boy] = 1:
-					'"I''ll get a morning after pill ' + iif(sex_ev['sleepover'] = 0, 'tomorrow', 'later') + '," you murmur. "You''re paying for it, right?"'
-					'"Yeah," he replies. "I''ll give you the money when we''re done."'
+	if birth_control['think_safe'] = 0:
+		if mc_inventory['morning_after_pill'] = 0:
+			act'I''ll buy a morning after pill':
+				sex_ev['plan_b_buy'] = 1
+				cla & *nl
+				if sex_ev['sleepover'] = 0:
+					sex_ev['ma_pill_tomorrow'] = 1
+					if npc_pay_for_ma_pill[$boy] = 1:
+						'"I''ll get a morning after pill ' + iif(sex_ev['sleepover'] = 0, 'tomorrow', 'later') + '," you murmur. "You''re paying for it, right?"'
+						'"Yeah," he replies. "I''ll give you the money when we''re done."'
+					else
+						'"It''s okay," you murmur reassuringly. "I''ll get a morning after pill ' + iif(sex_ev['sleepover'] = 0, 'tomorrow. No big deal."', 'later today. No big deal."')
+					end
 				else
-					'"It''s okay," you murmur reassuringly. "I''ll get a morning after pill ' + iif(sex_ev['sleepover'] = 0, 'tomorrow', 'later') + '. No big deal."'
+					if npc_pay_for_ma_pill[$boy] = 1:
+						'"I''ll get a morning after pill ' + iif(sex_ev['sleepover'] = 0, 'tomorrow', 'later') + '," you murmur. "You''re paying for it, right?"'
+						'"Yeah," he replies. "I''ll give you the money when we''re done."'
+					else
+						'"It''s okay," you murmur reassuringly. "I''ll get a morning after pill ' + iif(sex_ev['sleepover'] = 0, 'tomorrow', 'later') + '. No big deal."'
+					end
 				end
+				'He nods, seeming to relax a bit.'
+				gs'sex_ev_pillow_talk', 'topic_route'
 			end
-			'He nods, seeming to relax a bit.'
-			gs'sex_ev_pillow_talk', 'topic_route'
-		end
-	else
-		act'I''ve got a morning after pill':
-			sex_ev['ma_pill'] = 1
-			cla & *nl
-			'"It''s okay," you smile reassuringly. "I have a morning after pill. It''s no big deal."'
-			act'Continue':cla & gs'sex_ev_pillow_talk', 'topic_route'
-			act'Take it now':
+		else
+			act'I''ve got a morning after pill':
+				sex_ev['ma_pill'] = 1
 				cla & *nl
-				'"In fact..." you say, reaching down for your purse.'
-				gs'sex_ev_after', 'plan_b2'
+				'"It''s okay," you smile reassuringly. "I have a morning after pill. It''s no big deal."'
+				act'Continue':cla & gs'sex_ev_pillow_talk', 'topic_route'
+				act'Take it now':
+					cla & *nl
+					'"In fact..." you say, reaching down for your purse.'
+					gs'sex_ev_after', 'plan_b2'
+				end
 			end
 		end
 	end
@@ -1124,7 +1126,7 @@ if $ARGS[0] = 'bareback_pill_expense':
 	act'Too expensive':
 		cla & *clr
 		'<center><img <<$set_imgh>> src="images/shared/sex/after/pillow_talk3.jpg"></center>'
-		'"That pill costs money you know," you say irritatedly. "I''m not willing to pay for that every time you forget to pull out."'
+		'"That pill costs money you know," you say irritably. "I''m not willing to pay for that every time you forget to pull out."'
 		if npc_finance[$boy] >= 1 and ((npc_selfish[$boy] < 1 and rand(1,3) = 3) or (npc_finance[$boy] = 2 and npc_no_condoms[$boy] > 0 and npc_selfish[$boy] = 1)):
 			'"How about I pay for it then?" <<$npc_firstname[$boy]>> asks. "Any time you need a morning after pill because of me, I''ll give you money to pay for it."'
 			'He grabs his wallet and pulls out a wad of notes.'