[changed] many things about the sex_ev files

[fixed] booty_call texts firing?

locations/booty_call.qsrc

@@ -94,9 +94,13 @@ if $ARGS[0] = 'home_links':
 	*nl
 	:loopBC_homes
 	if (npc_residence[$Fuckbuddy[i]] = 1 and $loc = 'pav_residential') or (npc_residence[$Fuckbuddy[i]] = 3 and $loc = 'city_residential')or (npc_residence[$Fuckbuddy[i]] = 4 and $loc = 'city_center'):
-		dynamic(' ''<a href="exec: minut += 2 & gt ''''sex_ev_start'''',''''fb_npc_home_start'''',''''<<$Fuckbuddy[i]>>'''' "><<$npc_firstname[$Fuckbuddy[i]]>>''''s</a> apartment is nearby.'' ')
+	
+!!		dynamic(' ''<a href="exec: minut += 2 & gt ''''sex_ev_start'''',''''fb_npc_home_start'''',''''<<$Fuckbuddy[i]>>'''' "><<$npc_firstname[$Fuckbuddy[i]]>>''''s</a> apartment is nearby.'' ')
+		dynamic(' ''<a href="exec: minut += 2 & gt ''''sex_ev_start'''',''''initiate_pre'''',''''<<$Fuckbuddy[i]>>'''' "><<$npc_firstname[$Fuckbuddy[i]]>>''''s</a> apartment is nearby.'' ')
 		!! ''''
 	end
+	
+
 	i +=1
 	if i < arrsize('$Fuckbuddy') : jump 'loopBC_homes'
 end

locations/sex_ev_after.qsrc

@@ -56,48 +56,62 @@ if $ARGS[0] = 'stop_here':
 			cla & *clr
 			'<center><video autoplay loop src="images/shared/sex/blowjob/play1.mp4"></video></center>'
 			'"There, happy now?" you ask, playing with his cock.'
-		elseif sex_ev['keep_going_continue'] > 0:
-			cla & *clr
-			$sex_ev['bed_room']
-			'"Is that good enough for you now?" you ask.'
-		elseif sex_ev['first_break'] = 1:
-			cla & *nl
-			'"Actually," you say. "I think I might be happy just to finish here. How about you?"'
 		else
-			cla & *clr
-			$sex_ev['bed_room']
-			'"I think I''m good here," you say. "How about you?"'
-		end
-		if totminut > sex_ev['start_time'] + 60 and sex_ev['cum_count'] > 0:
-			gs'sex_ev_after', 'finish_sex'
-		elseif sex_ev['cum_count'] < npc_sexdrive[$boy] - rand(1,3) and sex_ev['blowjob_continue_ask'] ! 1:
-			if sex_ev['npc_late_work'] = 1:
-				gs'sex_ev_after', 'finish_sex'
-			elseif sex_ev['keep_going_continue'] > 0 and npc_caretaker[$boy] = 1:
-				gs'sex_ev_after', 'finish_sex'
-			elseif sex_ev['keep_going_continue'] > 0:
-				'"Just a couple more times?" <<$npc_firstname[$boy]>> begs. "I still want to get off a few more times with you."'
-				gs'sex_ev_after', 'stop_here_options'
-			elseif npc_abusive[$boy] = 1 or npc_selfish[$boy] = 1 or (npc_caretaker[$boy] ! 1 and rand(1,3)):
-				'"You''re done already?" <<$npc_firstname[$boy]>> complains. "I still want to get off a few more times with you."'
-				gs'sex_ev_after', 'stop_here_options'
-			elseif npc_caretaker[$boy] = 1:
-				'"I was actually hoping to go a few more times," <<$npc_firstname[$boy]>> says a bit wistfully. "But if you want to stop, that''s all right."'
-				gs'sex_ev_after', 'stop_here_options'
-			elseif npc_caretaker[$boy] = 1:
+			cla
+			act'':
+				if sex_ev['consecutive_orgasm'] = 1:
+				
+				elseif sex_ev['consecutive_orgasm'] > 1:
 				
-				gs'sex_ev_after', 'stop_here_options'
+				else
 				
+				end
+			end
+			if sex_ev['keep_going_continue'] > 0:
+				cla & *clr
+				$sex_ev['bed_room']
+				'"Is that good enough for you now?" you ask.'
+			elseif sex_ev['first_break'] = 1:
+				cla & *nl
+				'"Actually," you say. "I think I might be happy just to finish here. How about you?"'
+			else
+				cla & *clr
+				$sex_ev['bed_room']
+				'"I think I''m good here," you say. "How about you?"'
 			end
-			
-		else
-			gs'sex_ev_after', 'finish_sex'
 		end
+		gs'sex_ev_after', 'stop_here2'
+!!		gs'sex_ev_after', 'after_sex2'
 	end
 end
 
 if $ARGS[0] = 'stop_here2':
 
+	if totminut > sex_ev['start_time'] + 60 and sex_ev['cum_count'] > 0:
+		gs'sex_ev_after', 'finish_sex'
+	elseif sex_ev['cum_count'] < npc_sexdrive[$boy] - rand(1,3) and sex_ev['blowjob_continue_ask'] ! 1:
+		if sex_ev['npc_late_work'] = 1:
+			gs'sex_ev_after', 'finish_sex'
+		elseif sex_ev['keep_going_continue'] > 0 and npc_caretaker[$boy] = 1:
+			gs'sex_ev_after', 'finish_sex'
+		elseif sex_ev['keep_going_continue'] > 0:
+			'"Just a couple more times?" <<$npc_firstname[$boy]>> begs. "I still want to get off a few more times with you."'
+			gs'sex_ev_after', 'stop_here_options'
+		elseif npc_abusive[$boy] = 1 or npc_selfish[$boy] = 1 or (npc_caretaker[$boy] ! 1 and rand(1,3)):
+			'"You''re done already?" <<$npc_firstname[$boy]>> complains. "I still want to get off a few more times with you."'
+			gs'sex_ev_after', 'stop_here_options'
+		elseif npc_caretaker[$boy] = 1:
+			'"I was actually hoping to go a few more times," <<$npc_firstname[$boy]>> says a bit wistfully. "But if you want to stop, that''s all right."'
+			gs'sex_ev_after', 'stop_here_options'
+		elseif npc_caretaker[$boy] = 1:
+			
+			gs'sex_ev_after', 'stop_here_options'
+			
+		end
+		
+	else
+		gs'sex_ev_after', 'finish_sex'
+	end
 end
 
 if $ARGS[0] = 'stop_here_options':

locations/sex_ev_condoms.qsrc

@@ -298,6 +298,40 @@ if $ARGS[0] = 'pc_skip_the_condom':
 	end
 end
 
+if $ARGS[0] = 'will_morning_after_pill':
+	if morning_after_pill > 0:
+		act'Have a morning after pill':
+			cla & *clr
+			$sex_ev['bed_room']
+			sex_ev['skip_condom'] = 1
+			sex_ev['no_condom'] = 1
+			sex_ev['must_fuck'] = 1
+			sex_ev['plan_b'] = 1
+			'"I have a morning after pill," you say. '
+		end
+		
+		act'Have a morning after pill':
+			cla & *clr
+			$sex_ev['bed_room']
+			sex_ev['skip_condom'] = 1
+			sex_ev['no_condom'] = 1
+			sex_ev['must_fuck'] = 1
+			sex_ev['plan_b'] = 1
+			'"I have a morning after pill," you say. '
+		end
+	else
+		act'Buy a morning after pill tomorrow':
+			cla & *clr
+			$sex_ev['bed_room']
+			sex_ev['skip_condom'] = 1
+			sex_ev['no_condom'] = 1
+			sex_ev['must_fuck'] = 1
+			sex_ev['pill_tomorrow'] = 1
+			'"I''ll buy a pill tomorrow," you say. '
+		end
+	end
+end
+
 if $ARGS[0] = 'npc_condom_use_stats':
 	sex_ev['condoms_used'] += 1
 	sex_ev['must_fuck'] = 1

locations/sex_ev_cum.qsrc

@@ -2,7 +2,7 @@
 
 if $ARGS[0] = 'girl_cum':
 	if sex_ev['girl_orgasm'] = 1 and sex_ev['boy_cum'] < 1:
-		sex_ev['girl_orgasm'] = 0
+	!!	sex_ev['girl_orgasm'] = 0
 		if sex_ev['speed'] = 3: sex_ev['rough_cum'] += 1
 		sex_ev['consecutive_orgasm'] += 1
 	!!	pcs_horny -= 30
@@ -49,8 +49,6 @@ if $ARGS[0] = 'girl_cum':
 			gs 'sex_ev_cum', 'fuck_cum'
 		end
 	end
-		
-	end
 end
 
 if $ARGS[0] = 'miss_cum':
@@ -1440,7 +1438,7 @@ if $ARGS[0] = 'cum_inside':
 			sex_ev['came_together'] = 2
 			sex_ev['orgasm_count'] += 1
 			sex_ev['simultaneous_orgasm_count'] += 1
-			'<<$npc_firstname[$boy]>> drives himself inside you with a grunt and you feel cum spurting out inside you. The sensation pushes you over the edge, gasping as waves of orgasm wash through you. The two of come together, each of your orgasms fueling the other''s until eventually they''ve run their course, and both of you are breathing hard.'
+			'<<$npc_firstname[$boy]>> drives himself inside you with a grunt and you feel cum spurting out inside you. The sensation pushes you over the edge, gasping as waves of orgasm wash through you. The two of come together, each of your orgasms fuelling the other''s until eventually they''ve run their course, and both of you are breathing hard.'
 			gs 'sex_ev_cum', 'cum_inside_pull_away'
 			gs'sex_ev_reactions', 'react_menu'
 		else
@@ -1461,7 +1459,7 @@ if $ARGS[0] = 'cum_inside':
 				sex_ev['came_together'] = 2
 				sex_ev['orgasm_count'] += 1
 				sex_ev['simultaneous_orgasm_count'] += 1
-				'You gasp, the sensation triggering your own climax, and get sent over the edge yourself. The two of come together, each of your orgasms fueling the other''s until eventually they''ve run their course and both of you lay there panting.'
+				'You gasp, the sensation triggering your own climax, and get sent over the edge yourself. The two of come together, each of your orgasms fuelling the other''s until eventually they''ve run their course and both of you lay there panting.'
 				act'Continue':cla & gs'sex_ev_sex', 'sex_end'
 				gs 'sex_ev_cum', 'cum_inside_pull_away'
 				gs'sex_ev_reactions', 'react_menu'
@@ -1484,7 +1482,7 @@ if $ARGS[0] = 'cum_inside':
 			sex_ev['orgasm_count'] += 1
 			sex_ev['came_together'] = 2
 			'<center><video autoplay loop src="images/shared/sex/vag/doggy/orgasm2.mp4"></video></center>'
-			'<<$npc_firstname[$boy]>> grunts and you feel him come, cock pulsing inside you. The sensation pushes you over the edge, and you groan, tensing as waves of orgasm wash through you. The two of come together, both of your orgasms fueling the other''s until eventually they both end.'
+			'<<$npc_firstname[$boy]>> grunts and you feel him come, cock pulsing inside you. The sensation pushes you over the edge, and you groan, tensing as waves of orgasm wash through you. The two of come together, both of your orgasms fuelling the other''s until eventually they both end.'
 			gs 'sex_ev_cum', 'cum_inside_pull_away'
 			gs'sex_ev_reactions', 'react_menu'
 		else
@@ -1513,7 +1511,7 @@ if $ARGS[0] = 'cum_inside':
 				sex_ev['came_together'] = 2
 				sex_ev['orgasm_count'] += 1
 				sex_ev['simultaneous_orgasm_count'] += 1
-				'You gasp, the sensation triggering your own climax, and get sent over the edge yourself. The two of come together, each of your orgasms fueling the other''s until eventually they''ve run their course and both of you collapse.'
+				'You gasp, the sensation triggering your own climax, and get sent over the edge yourself. The two of come together, each of your orgasms fuelling the other''s until eventually they''ve run their course and both of you collapse.'
 				gs 'sex_ev_cum', 'cum_inside_pull_away'
 				gs'sex_ev_reactions', 'react_menu'
 			end
@@ -1527,7 +1525,7 @@ if $ARGS[0] = 'cum_inside':
 				gs'stat'
 				sex_ev['orgasm_count'] += 1
 				sex_ev['came_together'] = 2
-				'You drop your hips, impaling yourself on <<$npc_firstname[$boy]>>''s cock. He thrusts his hips upward, driving himself deep inside you and you feel cum spurt out inside you. The sensation pushes you over the edge, causing your pussy to clamp down onto his cock even more and your body to spasm uncontrollably. The two of come together, holding each other tight, both of your orgasms fueling the other''s. After some time, your orgasm fades, leaving both of you panting.'
+				'You drop your hips, impaling yourself on <<$npc_firstname[$boy]>>''s cock. He thrusts his hips upward, driving himself deep inside you and you feel cum spurt out inside you. The sensation pushes you over the edge, causing your pussy to clamp down onto his cock even more and your body to spasm uncontrollably. The two of come together, holding each other tight, both of your orgasms fuelling the other''s. After some time, your orgasm fades, leaving both of you panting.'
 				gs 'sex_ev_cum', 'cum_inside_pull_away'
 				gs'sex_ev_reactions', 'react_menu'
 			else
@@ -1549,7 +1547,7 @@ if $ARGS[0] = 'cum_inside':
 				sex_ev['came_together'] = 2
 				sex_ev['orgasm_count'] += 1
 				sex_ev['simultaneous_orgasm_count'] += 1
-				'You gasp, the sensation triggering your own climax, and get sent over the edge yourself. The two of come together, each of your orgasms fueling the other''s until eventually they''ve run their course and both of you collapse.'
+				'You gasp, the sensation triggering your own climax, and get sent over the edge yourself. The two of come together, each of your orgasms fuelling the other''s until eventually they''ve run their course and both of you collapse.'
 				gs 'sex_ev_cum', 'cum_inside_pull_away'
 				gs'sex_ev_reactions', 'react_menu'
 			end
@@ -1560,7 +1558,7 @@ if $ARGS[0] = 'cum_inside':
 				gs'stat'
 				sex_ev['orgasm_count'] += 1
 				sex_ev['came_together'] = 2
-				'<<$npc_firstname[$boy]>> grabs you and pulls you down onto his cock, thrusting his hips upward at the same time, driving himself deep inside you and you feel cum spurt out inside you. The sensation pushes you over the edge, causing your pussy to clamp down onto his cock even more and your body to spasm uncontrollably. The two of come together, holding each other tight, both of your orgasms fueling the other''s. After some time, your orgasm fades, leaving both of you panting.'
+				'<<$npc_firstname[$boy]>> grabs you and pulls you down onto his cock, thrusting his hips upward at the same time, driving himself deep inside you and you feel cum spurt out inside you. The sensation pushes you over the edge, causing your pussy to clamp down onto his cock even more and your body to spasm uncontrollably. The two of come together, holding each other tight, both of your orgasms fuelling the other''s. After some time, your orgasm fades, leaving both of you panting.'
 				gs 'sex_ev_cum', 'cum_inside_pull_away'
 				gs'sex_ev_reactions', 'react_menu'
 			else
@@ -1588,7 +1586,7 @@ if $ARGS[0] = 'cum_inside':
 					sex_ev['came_together'] = 2
 					sex_ev['orgasm_count'] += 1
 					sex_ev['simultaneous_orgasm_count'] += 1
-					'You gasp, the sensation triggering your own climax, and get sent over the edge yourself. The two of come together, each of your orgasms fueling the other''s until eventually they''ve run their course and both of you collapse.'
+					'You gasp, the sensation triggering your own climax, and get sent over the edge yourself. The two of come together, each of your orgasms fuelling the other''s until eventually they''ve run their course and both of you collapse.'
 					gs 'sex_ev_cum', 'cum_inside_pull_away'
 					gs'sex_ev_reactions', 'react_menu'
 				end
@@ -1729,7 +1727,7 @@ if $ARGS[0] = 'cum_force':
 			sex_ev['orgasm_count'] += 1
 			sex_ev['simultaneous_orgasm_count'] += 1
 			'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/cumvaginal.mp4"></video></center>'
-			'With a devilish grin, you suddenly speed up your movements, riding <<$npc_firstname[$boy]>> as hard as you can. Seconds later, you feel him come inside the condom, pulsing within you, and it sends you over the edge. The two of come together, holding each other tight, both of your orgasms fueling the other''s. After some time, your orgasm fades, leaving both of you panting.'
+			'With a devilish grin, you suddenly speed up your movements, riding <<$npc_firstname[$boy]>> as hard as you can. Seconds later, you feel him come inside the condom, pulsing within you, and it sends you over the edge. The two of come together, holding each other tight, both of your orgasms fuelling the other''s. After some time, your orgasm fades, leaving both of you panting.'
 		else
 			'<center><video autoplay loop src="images/shared/sex/vag/cowgirl/condom1.mp4"></video></center>'
 			'With a devilish grin, you suddenly speed up your movements and seconds later, you feel <<$npc_firstname[$boy]>> come inside the condom, pulsing within you. You don''t even slow down for a second, continuing to ride him as hard as you can until you''re sure he''s completely finished with his orgasm. Only then do you slow down and come to a halt on top of him.'

locations/sex_ev_doggy.qsrc

@@ -124,7 +124,8 @@ if $ARGS[0] = 'doggy_girl_orgasm_continue':
 			'You''ve barely finished quivering when he pulls you off of him and rolls you onto your knees, pulling your hips back towards him. With one swift movement, he thrusts his cock into your still-quivering pussy. His actions earn him an involuntary gasp from your lips.'
 		end
 		'"I''m not finished yet," he growls from behind you.'
-		act'Get fucked':gs'sex_ev_doggy', 'doggy_goto'
+!!		act'Get fucked':gs'sex_ev_doggy', 'doggy_goto'
+		gs'sex_ev_sex', 'fuck_continue'
 	end
 end
 

locations/sex_ev_hookup_leave.qsrc

@@ -7,7 +7,9 @@ if $ARGS[0] = 'gotta_go':
 	else
 		$sex_ev['fun'] = 'fun'
 	end
-	if sex_ev['continuation'] = 0:sex_ev['continuation'] = rand(-1,1)
+	
+	
+	if rand(1,20) < sex_ev['cum_count'] + sex_ev['extra_cum']: sex_ev['continuation'] = 1
 	if sex_ev['leaving'] = 0:
 		act'I should go':
 			sex_ev['leaving'] = 1

locations/sex_ev_leave.qsrc

@@ -37,6 +37,11 @@ if $ARGS[0] = 'exit':
 		end
 	elseif $sex_ev['loc'] = 'hotel':
 		gs 'sex_ev_leave', 'ending'
+		if $region = 'pav':
+			gt 'pav_hotel'
+		elseif $region = 'city':
+			gt 'city_center'
+		end
 		gt $sex_ev_exit['exit_file'], $sex_ev_exit['exit_arg']
 	elseif $sex_ev['loc'] = 'pc_home':
 		gs 'sex_ev_leave', 'ending'
@@ -151,6 +156,10 @@ end
 
 if $ARGS[0] = 'leaving_end':
 	cla & *nl
+	if $npc_rel_type[$boy] = 'sugar_daddy':
+		'Just before you go, <<$npc_firstname[$boy]>> hands you an envelope with 2000<b>₽‎</b> in it.'
+		*nl
+	end
 	'"<<$sex_ev[''leave_dialogue'']>>," you say<<$sex_ev[''leave_action'']>>.'
 	act'Leave':gt'sex_ev_leave', 'exit'
 end
@@ -1077,11 +1086,11 @@ if $ARGS[0] = 'something_to_do':
 		gs'sex_ev_leave', 'dress_start_desc'
 		'"You heading out?" <<$npc_firstname[$boy]>> asks.'
 		if sex_ev['sleepover'] < 1:
-			'"Yeah," you say, <<$sex_ev[''dress_describe'']>>. "Have a few things I need to get done.' + iif($sex_ev['loc'] = 'pc_home', 'Sorry to kick you out so quickly."','"')
+			'"Yeah," you say, <<$sex_ev[''dress_describe'']>>. "Have a few things I need to get done.' + iif($sex_ev['loc'] = 'pc_home', ' Sorry to kick you out so quickly."','"')
 			gs 'sex_ev_leave', 'dressing2'
 			gs 'sex_ev_leave', 'panty_gift'
 		else
-			'"Yeah," you say, <<$sex_ev[''dress_describe'']>>. "Have a few things I need to get done.'  + iif($sex_ev['loc'] = 'pc_home','Sorry to kick you out so quickly."','Thanks for letting me spend the night."')
+			'"Yeah," you say, <<$sex_ev[''dress_describe'']>>. "Have a few things I need to get done.'  + iif($sex_ev['loc'] = 'pc_home',' Sorry to kick you out so quickly."',' Thanks for letting me spend the night."')
 			
 			if rand(1,3) = 3 and (npc_day_off[$boy] = week or (npc_day_off[$boy] = week + 1) or (week = 7 and npc_day_off[$boy] = 1)):
 				gs'sex_ev_morning', 'sex_ev_invite_later'
@@ -1754,7 +1763,8 @@ if $ARGS[0] = 'leak_all_day':
 				cla & *clr
 				$sex_ev['cum_leak_talk'] = 'embarrassed'
 				gs'sex_ev_leave', 'dress_loop'
-				if kanikuli = 0 and week < 6:
+				if kanikuli = 0 and mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and (week < 5 or week = 7):
+					!! if schoolday
 					if $sex_ev['dress_describe'] = 'pulling your panties up':
 						'"I can''t believe I have to go to class full of your cum," you say, blushing furiously as you pull your panties up over your dripping snatch. The aforementioned cum immediately seeps into the fabric, creating an uncomfortable damp spot. "I''m going to be sitting in it all day!"'
 					elseif $pantyworntype = 'none':
@@ -1771,6 +1781,7 @@ if $ARGS[0] = 'leak_all_day':
 						'"I can''t believe I have to go to class full of your cum," you say, blushing furiously as you''re <<$sex_ev[''dress_describe'']>>. The aforementioned cum has already seeped into your panties, creating an uncomfortable damp spot between your thighs. "I''m going to be leaking all day! It''s gonna stain my skirt!"'
 					end
 				else
+					!! if not schoolday
 					if $sex_ev['dress_describe'] = 'pulling your panties up':
 						'"I''m so full of your cum, I''m going to have to sit in it all," you say, blushing furiously as you pull your panties up over your dripping snatch. The aforementioned cum immediately seeps into the fabric, creating an uncomfortable damp spot. "It''s gonna stain my panties!"'
 					elseif $pantyworntype = 'none':
@@ -1794,57 +1805,110 @@ if $ARGS[0] = 'leak_all_day':
 				cla & *clr
 				$sex_ev['cum_leak_talk'] = 'annoyed'
 				gs'sex_ev_leave', 'dress_loop'
-				if kanikuli = 0 and week < 6:
+				if kanikuli = 0 and mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and (week < 5 or week = 7):
+					!! if schoolday
 					if $sex_ev['dress_describe'] = 'pulling your panties up':
-						'"I can''t believe I have to go to class full of your cum," you say, blushing furiously as you pull your panties up over your dripping snatch. The aforementioned cum immediately seeps into the fabric, creating an uncomfortable damp spot. "I''m going to be sitting in it all day!"'
+						'"I can''t believe I have to go to class like this," you scowl, pulling your panties up over your hips and immediately feel a glob of <<$npc_firstname[$boy]>>''s cum seep out to form an uncomfortable damp spot on the fabric. "I''m going to be sitting in this all day!"'
 					elseif $pantyworntype = 'none':
 						if $sex_ev['dress_describe'] = 'slipping your skirt up your legs':
-							'"I can''t believe I have to go to class full of your cum," you say, blushing furiously as you slip your skirt up over your hips, feeling the aforementioned cum trickle down your thighs. "I''m going to be leaking all day! It''s gonna stain my skirt!"'
+							'"I can''t believe I have to go to class like this," you scowl as you slip your skirt up over your hips and feel <<$npc_firstname[$boy]>>''s cum trickle out of your pussy and down your thighs. "If my classmates see this, it''s your fault."'
 						elseif $sex_ev['dress_describe'] = 'tugging your pants over your hips':
-							'"I can''t believe I have to go to class full of your cum," you say, blushing furiously as you pull your pants up over your dripping snatch. The aforementioned cum immediately seeps into the fabric, creating an uncomfortable damp spot between your thighs. "I''m going to be leaking all day! It''s gonna stain my skirt!"'
+							'"I can''t believe I have to go to class like this," you scowl, pulling your pants up over your dripping snatch and immediately feel an uncomfortable damp spot form on the fabric. "Ugh! This is going to be leaking out of me all day!"'
 						elseif CloSkirtShortness > 0:
-							'"I can''t believe I have to go to class full of your cum," you say, blushing furiously as you''re <<$sex_ev[''dress_describe'']>>, suddenly feeling some trickle down your thighs beneath your skirt. "I''m going to be leaking all day! It''s gonna stain my skirt!"'
+							'"I can''t believe I have to go to class like this," you scowl as you''re <<$sex_ev[''dress_describe'']>>, suddenly feeling some trickle down your thighs beneath your skirt. "I''m going to be leaking all day! It''s gonna stain my skirt!"'
 						else
-							'"I can''t believe I have to go to class full of your cum," you say, blushing furiously as you''re <<$sex_ev[''dress_describe'']>>. The aforementioned cum has already seeped into the fabric of your pants, creating an uncomfortable damp spot between your thighs. "I''m going to be leaking all day! It''s gonna stain my skirt!"'
+							'"I can''t believe I have to go to class like this," you scowl as you''re <<$sex_ev[''dress_describe'']>>. The aforementioned cum has already seeped into the fabric of your pants, creating an uncomfortable damp spot between your thighs. "I''m going to be leaking all day! <i>And</i> my pants are gonna stain!"'
 						end
 					else
-						'"I can''t believe I have to go to class full of your cum," you say, blushing furiously as you''re <<$sex_ev[''dress_describe'']>>. The aforementioned cum has already seeped into your panties, creating an uncomfortable damp spot between your thighs. "I''m going to be leaking all day! It''s gonna stain my skirt!"'
+						'"I can''t believe I have to go to class like this," you scowl as you''re <<$sex_ev[''dress_describe'']>>. <<$npc_firstname[$boy]>>''s cum has already seeped into your panties, creating an uncomfortable damp spot between your thighs. "I''m going to be sitting in cum soaked panties all day because of you."'
 					end
 				else
+					!! if not schoolday
 					if $sex_ev['dress_describe'] = 'pulling your panties up':
-						'"I''m so full of your cum, I''m going to have to sit in it all," you say, blushing furiously as you pull your panties up over your dripping snatch. The aforementioned cum immediately seeps into the fabric, creating an uncomfortable damp spot. "It''s gonna stain my panties!"'
+						'"I can''t believe how much cum you pumped into me," you scowl, pulling your panties up over your dripping snatch. The aforementioned cum immediately seeps into the fabric, creating an uncomfortable damp spot. "I''m going to be leaking <i>all day!</i> My panties are gonna stain!"'
 					elseif $pantyworntype = 'none':
 						if $sex_ev['dress_describe'] = 'slipping your skirt up your legs':
-							'"I''m so full of your cum, I''m going to be leaking all day," you say, blushing furiously as you slip your skirt up over your hips, feeling the aforementioned cum trickle down your thighs. "It''s gonna stain my skirt!"'
+							'"I can''t believe how much cum you pumped into me," you scowl as you slip your skirt up over your hips, feeling the aforementioned cum trickle down your thighs. "It''s gonna be running down my legs all day!"'
 						elseif $sex_ev['dress_describe'] = 'tugging your pants over your hips':
-							'"I''m so full of your cum, I''m going to have to sit in it all," you say, blushing furiously as you pull your pants up over your dripping snatch. The aforementioned cum immediately seeps into the fabric, creating an uncomfortable damp spot between your thighs.'
+							'"I can''t believe how much cum you pumped into me," you scowl, pulling your pants up over your dripping snatch. The aforementioned cum immediately seeps into the fabric, creating an uncomfortable damp spot between your thighs. "I''m going to be leaking <i>all day!</i> This is gonna stain!"'
 						elseif CloSkirtShortness > 0:
-							'"I''m so full of your cum, I''m going to be leaking all day," you say, blushing furiously as you''re <<$sex_ev[''dress_describe'']>>, suddenly feeling some trickle down your thighs beneath your skirt. "It''s gonna stain my skirt!"'
+							'"I can''t believe how much cum you pumped into me," you scowl as you''re <<$sex_ev[''dress_describe'']>>, suddenly feeling some trickle down your thighs beneath your skirt. "It''s gonna be running down my legs all day!"'
 						else
-							'"I''m so full of your cum, I''m going to be sitting in it all day," you say, blushing furiously as you''re <<$sex_ev[''dress_describe'']>>. The aforementioned cum has already seeped into the fabric of your pants, creating an uncomfortable damp spot between your thighs.'
+							'"I can''t believe how much cum you pumped into me," you scowl as you''re <<$sex_ev[''dress_describe'']>>. The aforementioned cum has already seeped into the fabric of your pants, creating an uncomfortable damp spot between your thighs. "I''m going to be leaking <i>all day!</i> This is gonna stain!"'
 						end
 					else
-						'"I''m so full of your cum, I''m going to be sitting in it all day," you say, blushing furiously as you''re <<$sex_ev[''dress_describe'']>>. The aforementioned cum has already seeped into your panties, creating an uncomfortable damp spot between your thighs. "It''s gonna stain my panties!"'
+						'"I can''t believe how much cum you pumped into me," you scowl as you''re <<$sex_ev[''dress_describe'']>>. The aforementioned cum has already seeped into your panties, creating an uncomfortable damp spot between your thighs. "I''m going to be leaking <i>all day!</i> This is gonna stain!"'
 					end
 				end
 				gs'sex_ev_leave', 'leak_all_day2'
 			end
 			
-!!{			act'Sexy':
+			act'Sexy':
 				cla & *clr
 				$sex_ev['cum_leak_talk'] = 'sexy'
 				gs'sex_ev_leave', 'dress_loop'
-				if $sex_ev['dress_describe'] = 'pulling your panties up':
-					'"I''m going to walk funny all <<$sex_ev[''walk_funny_day'']>> because of you," you say ruefully while also sexily rubbing your thighs together even as you pull your panties up over your sore pussy.'
-				elseif $sex_ev['dress_describe'] = 'tugging your pants over your hips' and $pantyworntype = 'none':
-					'"I''m going to walk funny all <<$sex_ev[''walk_funny_day'']>> because of you," you say ruefully while also sexily rubbing your thighs together even as you pull your pants up over your sore pussy.'
+				if kanikuli = 0 and mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and (week < 5 or week = 7):
+					!! if schoolday
+					if $sex_ev['dress_describe'] = 'pulling your panties up':
+						'"My pussy is so full of your cum," you say with a sultry smirk, pulling your panties up over your dripping snatch. It seeps into the fabric, forming a damp spot. "My panties are going to be soaked with it before class is over."'
+					elseif $pantyworntype = 'none':
+						if $sex_ev['dress_describe'] = 'slipping your skirt up your legs':
+							'"My pussy is so full of your cum," you say with a sultry smirk as you slip your skirt up over your hips, feeling the aforementioned cum trickle down your thighs. "You''re going to be leaking out of me through all my classes."'
+						elseif $sex_ev['dress_describe'] = 'tugging your pants over your hips':
+							'"My pussy is so full of your cum," you say with a sultry smirk, pulling your pants up over your dripping snatch. It seeps into the fabric, forming a damp spot between your thighs. "This might end up staining my uniform."'
+						elseif CloSkirtShortness > 0:
+							'"My pussy is so full of your cum," you say with a sultry smirk as you''re <<$sex_ev[''dress_describe'']>>, feeling it trickle down your thighs beneath your skirt. "You''re going to be leaking out of me through all my classes."'
+						else
+							'"My pussy is so full of your cum," you say with a sultry smirk as you''re <<$sex_ev[''dress_describe'']>>. The aforementioned cum has already seeped into the fabric of your pants, forming a damp spot between your thighs. "This might end up staining my uniform."'
+						end
+					else
+						'"My pussy is so full of your cum," you say with a sultry smirk as you''re <<$sex_ev[''dress_describe'']>>. The aforementioned cum has already seeped into your panties, forming a damp spot between your thighs. "My panties are going to be soaked with it before class is over."'
+					end
 				else
-					'"I''m going to walk funny all <<$sex_ev[''walk_funny_day'']>> because of you," you say ruefully while also sexily rubbing your thighs together even as you''re <<$sex_ev[''dress_describe'']>>.'
+					!! if not schoolday
+					if $sex_ev['dress_describe'] = 'pulling your panties up':
+						'"My pussy is so full of your cum," you say with a sultry smirk, pulling your panties up over your hips and immediately feeling a glob of <<$npc_firstname[$boy]>>''s cum seep out to form a damp spot on the fabric. "You''re going to be leaking out of me all day."'
+					elseif $pantyworntype = 'none':
+						if $sex_ev['dress_describe'] = 'slipping your skirt up your legs':
+							'"My pussy is so full of your cum," you say with a sultry smirk as you slip your skirt up over your hips, feeling the thick liquid run down your thighs. "You''re going to be leaking out of me all day."'
+						elseif $sex_ev['dress_describe'] = 'tugging your pants over your hips':
+							'"My pussy is so full of your cum," you say with a sultry smirk pulling your pants up over your dripping snatch and immediately feel a damp spot form on the fabric. "This might end up staining my pants."'
+						elseif CloSkirtShortness > 0:
+							'"My pussy is so full of your cum," you say with a sultry smirk as you''re <<$sex_ev[''dress_describe'']>> and feel thick liquid trickle down your thighs beneath your skirt. "You''re going to be leaking out of me all day."'
+						else
+							'"My pussy is so full of your cum," you say with a sultry smirk as you''re <<$sex_ev[''dress_describe'']>>. The aforementioned cum has already seeped into the fabric of your pants, forming a damp spot between your thighs. "You''re going to be leaking out of me all day."'
+						end
+					else
+						'"My pussy is so full of your cum," you say with a sultry smirk as you''re <<$sex_ev[''dress_describe'']>>, feeling a distinct damp spot between your legs. "My panties are already soaked with it."'
+					end
 				end
-				gs'sex_ev_leave', 'walk_funny2'
-			end}
+				gs'sex_ev_leave', 'leak_all_day2'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'leak_all_day2':
+	if npc_caretaker[$boy] > 0:
+		if $npc_cum_pref[$boy] = 'creampie':
+			'"Sorry about that," <<$npc_firstname[$boy]>> replies with a guilty smile, though you can''t help noticing that his eyes are fixed between your legs.'
+		else
+			'"Sorry about that," <<$npc_firstname[$boy]>> replies with a guilty smile.'
 		end
+	else
+	
+	end
+end
+
+if $ARGS[0] = 'leak_all_day3':
+	if $sex_ev['walk_funny_talk'] = 'embarrassed':
+		'You can''t help but blush even deeper at his reply.'
+	elseif $sex_ev['walk_funny_talk'] = 'annoyed':
+		'Your scowl deepens at his reply.'
+	elseif $sex_ev['walk_funny_talk'] = 'sexy':
+		'You flash a sexy smile back at him.'
 	end
+	gs'sex_ev_leave', 'dress_talk'
 end
 
 if $ARGS[0] = 'when_do_you_get_off':
@@ -1996,12 +2060,12 @@ end
 if $ARGS[0] = 'pc_sex_ev_invite_denied':
 	gs'sex_ev_leave', 'dress_loop_code'
 	'"Damn," you sigh disappointedly, continuing <<$sex_ev[''dress_describe'']>>'
-	gs 'sex_ev', 'block_sex_evs'
+	gs 'booty_call', 'block_booty_calls'
 	gs 'sex_ev_leave', 'dress_talk'
 end
 
 if $ARGS[0] = 'npc_sex_ev_invite':
-	if sex_ev['plans_later_talk'] = 0:
+	if (rand(1,10) < npc_sexdrive[$boy] or rand(1,200) < npc_rel[$boy]) and sex_ev['plans_later_talk'] = 0:
 		gs 'sex_ev_leave', 'dress_loop'
 		sex_ev['plans_later_talk'] = 1
 		if npc_day_off[$boy] = week + 1 or (week = 7 and npc_day_off[$boy] = 1):
@@ -2039,12 +2103,14 @@ if $ARGS[0] = 'npc_sex_ev_invite':
 			gs 'sex_ev_leave', 'busy_time'
 			gs 'sex_ev_leave', 'sex_ev_plan'
 		end
+	else
+		sex_ev['plans_later_talk'] = 1
 	end
 end
 
 if $ARGS[0] = 'busy_tomorrow':
 	act'I''m busy':
-		gs 'sex_ev', 'block_sex_evs'
+		gs 'booty_call', 'block_booty_calls'
 		gs 'sex_ev_leave', 'dress_loop'
 		if sex_ev['invite_tomorrow'] = 1:
 			'"I can''t, sorry," you say, <<$sex_ev[''dress_describe'']>>. "I''m busy tomorrow."'
@@ -2058,7 +2124,7 @@ end
 
 if $ARGS[0] = 'busy_time':
 	act'I''m busy':
-		gs 'sex_ev', 'block_sex_evs'
+		gs 'booty_call', 'block_booty_calls'
 		gs 'sex_ev_leave', 'dress_loop'
 		'"I can''t, sorry," you say, <<$sex_ev[''dress_describe'']>>. "I have something to do then."'
 		'"Damn," <<$npc_firstname[$boy]>> says disappointedly.'

locations/sex_ev_miss.qsrc

@@ -74,7 +74,8 @@ if $ARGS[0] = 'miss_girl_orgasm_continue':
 			'You''ve barely finished quivering when he pulls you off of him and pushes you onto your back, immediately plunging his cock back inside you. The sudden penetration of your still-sensitive pussy elicits involuntary whimpers of protest from you, but it doesn''t stop him for a moment, ramping into a steady rhythm.'
 		end
 		'"I''m not finished yet," he growls.'
-		act'Get fucked':gs'sex_ev_miss', 'miss_goto'
+!!		act'Get fucked':gs'sex_ev_miss', 'miss_goto'
+		gs'sex_ev_sex', 'fuck_continue'
 	end
 end
 

locations/sex_ev_morning.qsrc

@@ -645,7 +645,7 @@ if $ARGS[0] = 'wakeup1':
 		if $npc_rel_type[$boy] = 'husband':
 			'event ends in location'
 		elseif $sex_ev['loc'] ! 'pc_home':
-			act'Prepare to leave':gt'sex_ev_morning', 'head_out'
+			act'Prepare to leave':gs'sex_ev_morning', 'head_out'
 		else
 			act'Say goodbye to <<$npc_firstname[$boy]>>':gt'sex_ev_morning', 'npc_leave'
 		end
@@ -831,12 +831,13 @@ if $ARGS[0] = 'shower_leave':
 end
 
 if $ARGS[0] = 'head_out':
+	cla
 	if $clothingworntype = 'nude':
 		!! gt'sex_ev_morning', 'dressing1'
 		if $sex_ev['type'] = 'hookup':
 			gs'sex_ev_hookup_leave', 'gotta_go'
 		else
-			act'Get dressed':gt'sex_ev_leave', 'dressing1'
+			gt'sex_ev_leave', 'dressing1'
 		end
 	else
 		if npc_latesleeper[$boy] = 1 and sex_ev['boy_wakeup'] = 0:
@@ -1022,9 +1023,12 @@ if $ARGS[0] = 'end_morning':
 		if sex_ev['sleepover'] = 1 and npc_latesleeper[$boy] = 1 and sex_ev['boy_asleep'] ! 0 and $sex_ev['loc'] ! 'pc_home':
 			gs'sex_ev_leave', 'sneak_out1'
 		else
-			gs'sex_ev_leave', 'dressing1'
+!!			gs'sex_ev_leave', 'dressing_finish'
+!!			gs'sex_ev_leave', 'dressing1'
+			gs'sex_ev_after', 'after_sex_dressed'
 		end
 	end
+	act'Talk while you dress':cla & gs'sex_ev_leave', 'dress_talk'
 end
 
 
@@ -1592,22 +1596,42 @@ end
 
 if $ARGS[0] = 'want_breakfast':
 	if sex_ev['breakfast_eat'] = 0:
-		act'Make you breakfast?':
-			gs'sex_ev_pillow_talk', 'talk_time_add'
-			cla & *clr
-			if sex_ev['get_up'] = 0:
-				'<center><img <<$set_imgh>> src="images/shared/sex/after/pillow_talk1.jpg"></center>'
-			else
-				$sex_ev['bed_room']
+		act'Breakfast?':
+			cla
+			act'Offer to cook':
+				gs'sex_ev_pillow_talk', 'talk_time_add'
+				cla & *clr
+				if sex_ev['get_up'] = 0:
+					'<center><img <<$set_imgh>> src="images/shared/sex/after/pillow_talk1.jpg"></center>'
+				else
+					$sex_ev['bed_room']
+				end
+				'"Hungry?" you ask. "How about I make us some breakfast?"'
+				if npc_caretaker[$boy] = 1:
+					'"You don''t have to do that," <<$npc_firstname[$boy]>> says.'
+					'"I want to," you smile back and haul yourself out of bed.'
+				else
+					'"That''d be great," <<$npc_firstname[$boy]>> smiles. You smile back and haul yourself out of bed.'
+				end
+				act'Make breakfast':gt'sex_ev_morning', 'pc_make_breakfast'
 			end
-			'"Hungry?" you ask. "How about I make us some breakfast?"'
-			if npc_caretaker[$boy] = 1:
-				'"You don''t have to do that," <<$npc_firstname[$boy]>> says.'
-				'"I want to," you smile back and haul yourself out of bed.'
-			else
-				'"That''d be great," <<$npc_firstname[$boy]>> smiles. You smile back and haul yourself out of bed.'
+			act'You want coffee':
+				cla
+				act'Got any coffee?':
+					cla & *nl
+					'"Any chance I could get some coffee?" you ask.'
+				end
+				
+				act'Would kill for some coffee':
+					cla & *nl
+					
+				end
+				
+				act'Would suck cock for some coffee':
+					cla & *nl
+					
+				end
 			end
-			act'Make breakfast':gt'sex_ev_morning', 'pc_make_breakfast'
 		end
 	end
 end

locations/sex_ev_reactions.qsrc

@@ -72,12 +72,13 @@ if $ARGS[0] = 'creampie_react':
 			gs'sex_ev_talk', 'free_creampies'
 			gs'sex_ev_reactions', 'creampie_safe_day'
 			gs'sex_ev_reactions', 'did_you_come_inside'
+			gs'sex_ev_reactions', 'have_plan_b2'
 		end
 	end
 end
 
 if $ARGS[0] = 'creampie_safe_day':
-	if sex_ev['safe_day'] = 0 and sex_ev['probably_safe_day'] = 0 and sex_ev['danger_day'] = 0 and birth_control['think_safe'] ! 1 and sex_ev['plan_b'] = 0:
+	if sex_ev['safe_day'] = 0 and sex_ev['probably_safe_day'] = 0 and sex_ev['danger_day'] = 0 and birth_control['think_safe'] ! 1 and sex_ev['plan_b'] = 0 and sex_ev['plan_b_buy'] = 0:
 		if stat['safe_day'] = 1:
 			act'It''s a safe day':
 				sex_ev['safe_day'] = 1
@@ -86,17 +87,17 @@ if $ARGS[0] = 'creampie_safe_day':
 					cla & *clr
 					if sex_ev['cock_inserted'] = 0:
 						gs 'sex_ev_reactions', 'creampie_pull_out_image'
-						'"It''s a safe day," you smile as <<$npc_firstname[$boy]>>''s cum continues to trickle from your pussy. "I''m not worried."'
+						'"Don''t worry," you smile as <<$npc_firstname[$boy]>>''s cum continues to trickle from your pussy. "It''s a safe day."'
 					else
 						if $sex_ev['position'] = 'miss':
 							'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/2.jpg"></center>'
-							'"It''s a safe day," you smile at <<$npc_firstname[$boy]>>, cupping his face. "I''m not worried."'
+							'"Don''t worry," you smile at <<$npc_firstname[$boy]>>, cupping his face. "It''s a safe day."'
 						elseif $sex_ev['position'] = 'doggy':
 							'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/1.jpg"></center>'
-							'"It''s a safe day," you smile at <<$npc_firstname[$boy]>> over your shoulder. "I''m not worried."'
+							'"Don''t worry," you smile at <<$npc_firstname[$boy]>> over your shoulder. "It''s a safe day."'
 						elseif $sex_ev['position'] = 'cowgirl':
 							'<center><img <<$set_imgh>> src="images/shared/sex/vag/cowgirl/smile1.jpg"></center>'
-							'"It''s a safe day," you smile down at <<$npc_firstname[$boy]>>. "I''m not worried."'
+							'"Don''t worry," you smile down at <<$npc_firstname[$boy]>>. "It''s a safe day."'
 						end
 					end
 					if $sex_ev['last_cum'] = 'broken_condom':
@@ -156,6 +157,30 @@ if $ARGS[0] = 'creampie_safe_day':
 						gs 'sex_ev_sex', 'sex_end'
 					end
 				end
+				
+				if mesec > 0:
+					cla & *clr
+					if sex_ev['cock_inserted'] = 0:
+						gs 'sex_ev_reactions', 'creampie_pull_out_image'
+						'"Don''t worry, I''m on my period," you say as <<$npc_firstname[$boy]>>''s pink-tinged cum trickles from your pussy. "I shouldn''t get pregnant."'
+					else
+						if $sex_ev['position'] = 'miss':
+							'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/2.jpg"></center>'
+							'"Don''t worry, I''m on my period," you say. "I shouldn''t get pregnant."'
+						elseif $sex_ev['position'] = 'doggy':
+							'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/1.jpg"></center>'
+							'"Don''t worry, I''m on my period," you say over your shoulder. "I shouldn''t get pregnant."'
+						elseif $sex_ev['position'] = 'cowgirl':
+							'<center><img <<$set_imgh>> src="images/shared/sex/vag/cowgirl/smile1.jpg"></center>'
+							'"Don''t worry, I''m on my period," you say. "I shouldn''t get pregnant."'
+						end
+					end
+					if $sex_ev['last_cum'] = 'broken_condom' or sex_ev['promise_no_creampie'] = 1:
+						gs'sex_ev_cum', 'what_now'
+					else
+						gs 'sex_ev_sex', 'sex_end'
+					end
+				end
 			end
 		elseif stat['probably_safe_day'] = 1:
 			act'It should be a safe day':
@@ -184,6 +209,30 @@ if $ARGS[0] = 'creampie_safe_day':
 						gs 'sex_ev_sex', 'sex_end'
 					end
 				end
+				
+				if mesec > 0:
+					cla & *clr
+					if sex_ev['cock_inserted'] = 0:
+						gs 'sex_ev_reactions', 'creampie_pull_out_image'
+						'"Don''t worry, I''m on my period," you say as <<$npc_firstname[$boy]>>''s pink-tinged cum trickles from your pussy. "I shouldn''t get pregnant."'
+					else
+						if $sex_ev['position'] = 'miss':
+							'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/2.jpg"></center>'
+							'"Don''t worry, I''m on my period," you say. "I shouldn''t get pregnant."'
+						elseif $sex_ev['position'] = 'doggy':
+							'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/1.jpg"></center>'
+							'"Don''t worry, I''m on my period," you say over your shoulder. "I shouldn''t get pregnant."'
+						elseif $sex_ev['position'] = 'cowgirl':
+							'<center><img <<$set_imgh>> src="images/shared/sex/vag/cowgirl/smile1.jpg"></center>'
+							'"Don''t worry, I''m on my period," you say. "I shouldn''t get pregnant."'
+						end
+					end
+					if $sex_ev['last_cum'] = 'broken_condom' or sex_ev['promise_no_creampie'] = 1:
+						gs'sex_ev_cum', 'what_now'
+					else
+						gs 'sex_ev_sex', 'sex_end'
+					end
+				end
 			end
 		end
 	end
@@ -198,7 +247,9 @@ if $ARGS[0] = 'creampie_happy':
 	gs'sex_ev_reactions', 'already_creampied_me'
 	gs'sex_ev_reactions', 'thanks_for_asking'
 	gs'sex_ev_reactions', 'creampie_enjoy_that'
+	gs'sex_ev_reactions', 'creampie_safe_day'
 	gs'sex_ev_talk', 'free_creampies'
+	gs'sex_ev_reactions', 'have_plan_b2'
 end
 
 if $ARGS[0] = 'creampie_conflicted':
@@ -1765,8 +1816,18 @@ if $ARGS[0] = 'no_facial':
 	end
 end
 
+if $ARGS[0] = 'cum_mouth_gross':
+	if $sex_ev['last_cum'] = 'swallow' or $sex_ev['last_cum'] = 'mouth' or $sex_ev['last_cum'] = 'face_mouth' or $sex_ev['last_cum'] = 'spit':
+		act'Not your favourite flavour':
+			cla & *nl
+			'"That''s not my favourite flavour," you say, licking your lips as you give <<$npc_firstname[$boy]>> a wry look.'
+			gs'sex_ev_sex', 'sex_end'
+		end
+	end
+end
+
 if $ARGS[0] = 'no_mouth_cum':
-	if sex_ev['he_ask_mouth'] = 1 and $sex_ev['last_cum'] ! 'swallow' and $sex_ev['last_cum'] ! 'mouth' and $sex_ev['last_cum'] ! 'face_mouth':
+	if sex_ev['he_ask_mouth'] = 1 and $sex_ev['last_cum'] ! 'swallow' and $sex_ev['last_cum'] ! 'mouth' and $sex_ev['last_cum'] ! 'face_mouth' and $sex_ev['last_cum'] ! 'spit':
 		act'Don''t come in my mouth':
 			cla
 			if $sex_ev['last_cum'] ! 'spit':
@@ -2320,7 +2381,7 @@ if $ARGS[0] = 'oh_shit_options':
 		'"Well this isn''t good," you gulp, looking horrified at <<$npc_firstname[$boy]>>. "I''m not on birth control..."'
 		gs'sex_ev_cum', 'what_now'
 	end
-	if morning_after_pill = 0:
+!!{	if morning_after_pill = 0:
 		act'I guess I need a pill':
 			cla
 			act'Annoyed':
@@ -2344,9 +2405,9 @@ if $ARGS[0] = 'oh_shit_options':
 				gs'sex_ev_cum', 'what_now'
 			end
 		end
-	else
+	else}
 		gs'sex_ev_reactions', 'have_plan_b'
-	end
+!!	end
 end
 
 if $ARGS[0] = 'have_plan_b':
@@ -2356,7 +2417,7 @@ if $ARGS[0] = 'have_plan_b':
 			act'Calm':
 				sex_ev['plan_b'] = 1
 				cla & *nl
-				'"I have a morning after pill," you say calmly. "I''ll be okay"'
+				'"I have a morning after pill," you say calmly. "I''ll be okay."'
 				gs'sex_ev_cum', 'what_now'
 			end
 			
@@ -2378,6 +2439,34 @@ if $ARGS[0] = 'have_plan_b':
 				gs'sex_ev_cum', 'what_now'
 			end
 		end
+	else
+		act'I''ll buy some plan B':
+			cla
+			act'Calm':
+				sex_ev['plan_b_buy'] = 1
+				cla & *nl
+				'"I''ll get a morning after pill later," you shrug. "No big deal."'
+				gs'sex_ev_cum', 'what_now'
+			end
+			
+			act'Amused':
+				sex_ev['plan_b_buy'] = 1
+				cla & *nl
+				if npc_selfish[$boy] = 1 or npc_abusive[$boy] > 0:
+					'"I''ll get a morning after pill later," you giggle, finding a strange amusement in how unapologetic <<$npc_firstname[$boy]>> is about it.'
+				else
+					'"I''ll get a morning after pill later," you giggle, unable to keep from laughing at <<$npc_firstname[$boy]>>''s worry.'
+				end
+				gs'sex_ev_cum', 'what_now'
+			end
+			
+			act'Sexy':
+				sex_ev['plan_b_buy'] = 1
+				cla & *nl
+				'"It''s okay," you say with a sexy smile. "I''ll get a morning after pill later,"'
+				gs'sex_ev_cum', 'what_now'
+			end
+		end
 	end
 	
 	if stat['safe_day'] = 1 and sex_ev['safe_day'] = 0:
@@ -2387,6 +2476,70 @@ if $ARGS[0] = 'have_plan_b':
 	end
 end
 
+if $ARGS[0] = 'have_plan_b2':
+	if sex_ev['plan_b'] = 0 and sex_ev['plan_b_buy'] = 0:
+		if morning_after_pill > 0:
+			act'I have some plan B':
+				cla
+				act'Calm':
+					sex_ev['plan_b'] = 1
+					cla & *nl
+					'"Don''t worry," you say calmly. "I have a morning after pill."'
+					gs'sex_ev_sex', 'sex_end'
+				end
+				
+				act'Amused':
+					sex_ev['plan_b'] = 1
+					cla & *nl
+					'"Don''t worry," you giggle with glee. "I have a morning after pill."'
+					gs'sex_ev_sex', 'sex_end'
+				end
+				
+				act'Sexy':
+					sex_ev['plan_b'] = 1
+					cla & *nl
+					'"Don''t worry," you say with a sexy smile. "I have a morning after pill."'
+					gs'sex_ev_sex', 'sex_end'
+				end
+			end
+		else
+			act'I''ll buy some plan B':
+				sex_ev['plan_b_buy'] = 1
+				cla
+				act'Calm':
+				cla & *nl
+					if sex_ev['came_together'] > 0:
+						'"I''ll get a morning after pill later," you pant. <<$npc_firstname[$boy]>> nods back.'
+					else
+						'"I''ll buy a morning after pill later," you say to <<$npc_firstname[$boy]>> with calm assurance.'
+					end
+					gs'sex_ev_sex', 'sex_end'
+				end
+				
+				act'Amused':
+					cla & *nl
+					if sex_ev['came_together'] > 0:
+						'"I''ll guess this means I''m going to need to buy a morning after pill later," you giggle breathlessly, still a little giddy from your orgasm.'
+					else
+						'"I''ll guess this means I''m going to need to buy a morning after pill later," you giggle at <<$npc_firstname[$boy]>>.'
+					end
+					gs'sex_ev_sex', 'sex_end'
+				end
+				
+				act'Sexy':
+					cla & *nl
+					if sex_ev['came_together'] > 0:
+						'""I''ll buy a morning after pill later," you say, giving <<$npc_firstname[$boy]>> your best post-orgasm smile.'
+					else
+						'"Don''t worry," you say, giving <<$npc_firstname[$boy]>> a smouldering look. "I''ll buy a morning after pill later."'
+					end
+					gs'sex_ev_sex', 'sex_end'
+				end
+			end
+		end
+	end
+end
+
 if $ARGS[0] = 'creampie_accident_birth_control':
 	if birth_control['think_safe'] = 1:
 		if tabletkishot > 0:

locations/sex_ev_sex.qsrc

@@ -239,6 +239,7 @@ if $ARGS[0] = 'fuck_arousal_code':
 	sex_ev['fuck_time_temp'] = rand(1,4)
 	sex_ev['fuck_time_total'] += sex_ev['fuck_time_temp']
 	gs 'arousal', 'vaginal', sex_ev['fuck_time_temp'],'no_orgasm_msg'
+	gs 'arousal', 'vaginal', -sex_ev['fuck_time_temp'],'no_orgasm_msg'
 	gs 'stat'
 end
 
@@ -246,6 +247,7 @@ if $ARGS[0] = 'fuck_rough_arousal_code':
 	sex_ev['fuck_time_temp'] = rand(1,4)
 	sex_ev['fuck_time_total'] += sex_ev['fuck_time_temp']
 	gs 'arousal', 'vaginal', sex_ev['fuck_time_temp'],'no_orgasm_msg', 'rough'
+	gs 'arousal', 'vaginal', -sex_ev['fuck_time_temp'],'no_orgasm_msg', 'rough'
 	gs 'stat'
 end
 
@@ -297,66 +299,78 @@ if $ARGS[0] = 'fuck_continue':
 	elseif $sex_ev['position'] = 'cowgirl':
 		sex_ev['cowgirl_fuck'] = 1
 	end
-	
-	if sex_ev['bored'] = 1:
-		act'Keep going':gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.bored'
-	elseif sex_ev['fuck_enjoyment'] = -1:
-		$orgasm_or = 'no'
-		if $sex_ev['speed'] = 3:
-			act'Sob':sex_ev['fuck_pain'] = 4 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
-			act'Try to hold back tears':sex_ev['fuck_pain'] = 3 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+	if sex_ev['girl_orgasm'] = 0:
+		if sex_ev['bored'] = 1:
+			act'Keep going':gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.bored'
+		elseif sex_ev['fuck_enjoyment'] = -1:
+			$orgasm_or = 'no'
+			if $sex_ev['speed'] = 3:
+				act'Sob':sex_ev['fuck_pain'] = 4 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+				act'Try to hold back tears':sex_ev['fuck_pain'] = 3 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+			else
+				act'Hold back tears':sex_ev['fuck_pain'] = 3 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+			end
+			act'Perservere':sex_ev['fuck_pain'] = 2 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+			act'The pain is fading':sex_ev['fuck_pain'] = 1 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+		elseif sex_ev['fuck_enjoyment'] = 0:
+			$orgasm_or = 'no'
+			act'Just keep fucking':sex_ev['moan'] = 1 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+			act'Fake some moans':sex_ev['moan'] = 2 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+			act'Starting to feel good':sex_ev['fuck_pain'] = -1 & $orgasm_or = '' & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
 		else
-			act'Hold back tears':sex_ev['fuck_pain'] = 3 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+			act'Focus on the sensations':$orgasm_or = '' & sex_ev['dirty_talk'] = 0 & sex_ev['moan'] = 0 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+			act'Moan softly':$orgasm_or = '' & sex_ev['dirty_talk'] = 0 & sex_ev['moan'] = 1 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+			act'Moan loudly':$orgasm_or = '' & sex_ev['dirty_talk'] = 0 & sex_ev['moan'] = 2 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+	!!		act'Talk dirty...':gs 'sex_ev_sex', 'dirty_talk1'
+			act'Talk dirty':
+				$orgasm_or = ''
+				sex_ev['moan'] = 0
+				sex_ev['dirty_talk'] = 1
+				gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+			end
+			if sex_ev['fuck_enjoyment'] ! 2:
+				act'Fake enjoyment':sex_ev['bored'] = 1 & sex_ev['moan'] = 3 & $orgasm_or = 'no' & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+			end
 		end
-		act'Perservere':sex_ev['fuck_pain'] = 2 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
-		act'The pain is fading':sex_ev['fuck_pain'] = 1 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
-	elseif sex_ev['fuck_enjoyment'] = 0:
-		$orgasm_or = 'no'
-		act'Just keep fucking':sex_ev['moan'] = 1 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
-		act'Fake some moans':sex_ev['moan'] = 2 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
-		act'Starting to feel good':sex_ev['fuck_pain'] = -1 & $orgasm_or = '' & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
-	else
-		act'Focus on the sensations':$orgasm_or = '' & sex_ev['dirty_talk'] = 0 & sex_ev['moan'] = 0 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
-		act'Moan softly':$orgasm_or = '' & sex_ev['dirty_talk'] = 0 & sex_ev['moan'] = 1 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
-		act'Moan loudly':$orgasm_or = '' & sex_ev['dirty_talk'] = 0 & sex_ev['moan'] = 2 & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
-!!		act'Talk dirty...':gs 'sex_ev_sex', 'dirty_talk1'
-		act'Talk dirty':
-			$orgasm_or = ''
-			sex_ev['moan'] = 0
-			sex_ev['dirty_talk'] = 1
-			gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+		
+		act'Change position':
+			cla
+			sex_ev['change_pos'] = 1
+			gs 'sex_ev_sex', 'position_change'
 		end
-		if sex_ev['fuck_enjoyment'] ! 2:
-			act'Fake enjoyment':sex_ev['bored'] = 1 & sex_ev['moan'] = 3 & $orgasm_or = 'no' & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''pos_speed'']>>.2'
+		
+		if $sex_ev['position'] = 'cowgirl':
+			act'Change pace':gs 'sex_ev_cowgirl', 'cowgirl_change_pace'
 		end
-	end
-	
-	act'Change position':
-		cla
-		sex_ev['change_pos'] = 1
-		gs 'sex_ev_sex', 'position_change'
-	end
-	
-	if $sex_ev['position'] = 'cowgirl':
-		act'Change pace':gs 'sex_ev_cowgirl', 'cowgirl_change_pace'
-	end
-	
-	if sex_ev['stop_orgasm'] = 0:
-		act'Prevent orgasm':
-			sex_ev['stop_orgasm'] = 1
-			$orgasm_or = 'no'
-			msg 'You will not orgasm from sex while this is toggled'
-			gs 'sex_ev_sex', 'fuck_continue'
+		
+		if sex_ev['stop_orgasm'] = 0:
+			act'Prevent orgasm':
+				sex_ev['stop_orgasm'] = 1
+				$orgasm_or = 'no'
+				msg 'You will not orgasm from sex while this is toggled'
+				gs 'sex_ev_sex', 'fuck_continue'
+			end
+		else
+			act'Release orgasm':
+				sex_ev['stop_orgasm'] = 0
+				$orgasm_or = ''
+				msg 'You can orgasm again'
+				gs 'sex_ev_sex', 'fuck_continue'
+			end
 		end
+		gs'sex_ev_after', 'tap_out'
 	else
-		act'Release orgasm':
-			sex_ev['stop_orgasm'] = 0
-			$orgasm_or = ''
-			msg 'You can orgasm again'
-			gs 'sex_ev_sex', 'fuck_continue'
+		sex_ev['girl_orgasm'] = 0
+		if $npc_fav_pos[$boy] = 'miss' and rand(0,1) = 1:
+			gs 'sex_ev_miss', 'miss_girl_orgasm_continue'
+		elseif $npc_fav_pos[$boy] = 'doggy' and rand(0,1) = 1:
+			gs 'sex_ev_doggy', 'doggy_girl_orgasm_continue'
+		elseif $npc_fav_pos[$boy] = 'cowgirl' and rand(0,1) = 1:
+			gs 'sex_ev_cowgirl', 'cowgirl_girl_orgasm_continue'
+		else
+			gs 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''position'']>>_girl_orgasm_continue'
 		end
 	end
-	gs'sex_ev_after', 'tap_out'
 end
 
 if $ARGS[0] = 'position_change':

locations/sex_ev_start.qsrc

@@ -346,6 +346,28 @@ if $ARGS[0] = 'fb_invited_start':
 				act'Undress':gt 'sex_ev_foreplay', 'undress'
 			end
 		end
+		if morning_after_pill > 0:
+			act'Brought a morning after pill':
+				cla
+				sex_ev['skip_condom'] = 1
+				sex_ev['no_condom'] = 1
+				sex_ev['plan_b'] = 1
+				act'No condoms':
+					cla & *clr
+					$sex_ev['bed_room']
+					'"I brought a morning after pill," you say, stepping inside and drawing close to <<$npc_firstname[$boy]>>. You lean in and whisper in his ear, "<i>We don''t need to use a condom today.</i>"'
+					act'Undress':gt 'sex_ev_foreplay', 'undress'
+				end
+				
+				act'Come inside me':
+					sex_ev['creampie_allowance'] = 1
+					cla & *clr
+					$sex_ev['bed_room']
+					'"I brought a morning after pill," you say, stepping inside and drawing close to <<$npc_firstname[$boy]>>. You lean in and whisper in his ear, "<i>That means can come inside me today.</i>"'
+					act'Undress':gt 'sex_ev_foreplay', 'undress'
+				end
+			end
+		end
 !!	act'Stumble over to the couch':gt 'sex_ev_start', 'couch_start'
 	end
 end

locations/sex_ev_talk.qsrc

@@ -793,6 +793,18 @@ if $ARGS[0] = 'cheating_end':
 end
 
 
+if $ARGS[0] = 'boy_date_ask':
+	!! asks to become a couple
+	'"We''ve been having fun, right?" <<$npc_firstname[$boy]>> asks slowly.'
+	
+	if sex_ev['simultaneous_orgasm_count'] > 0:
+		act'They''re called simultaneous orgasms':
+			cla & *nl
+			'"They''re called simultaneous orgasms, <<$npc_firstname[$boy]>>," you grin back. '
+		end
+	end
+end
+
 if $ARGS[0] = 'rape_explain':
 	cla & *clr
 	$sex_ev['bed_room']