[added] the ability to use the bathroom to put on a sanitary pad without leaving a sex partner's apartment

locations/sex_ev_after.qsrc

@@ -1330,6 +1330,8 @@ if $ARGS[0] = 'after_sex_dressed':
 	else
 	
 	end
+	act'Use the bathroom':gt'sex_ev_after', 'boy_bathroom'
+	
 	gs'sex_ev_leave', 'breakup_start'
 !!{
 	
@@ -1348,10 +1350,12 @@ if $ARGS[0] = 'boy_bathroom':
 	cla & *clr
 	$sex_ev['bath_room']
 	act'Back to the bedroom':
-		if sex_ev['morning_after'] = 0:
+		if sex_ev['dressed_to_go'] = 1:
+			gt 'sex_ev_after', 'after_sex_dressed'
+		elseif sex_ev['morning_after'] = 0:
 			gt 'sex_ev_after', 'after_sex2_w_picture'
 		else
-			gt 'sex_ev_morning', 'wakeup2'
+			gt 'sex_ev_morning', 'morning_menu2'
 		end
 	end
 	act'Use the mirror':

locations/sex_ev_leave.qsrc

@@ -920,10 +920,12 @@ end
 if $ARGS[0] = 'dressing_finish':
 !!	if sex_ev['dress_end'] ! 1:
 	act'Finish getting dressed':
+		sex_ev['dressed_to_go'] = 1
 		cla & *clr
 	!!			$sex_ev['bed_room']
 		gs'sex_ev_leave', 'dress_loop'
 		'You finish <<$sex_ev[''dress_describe'']>>.'
+		gs'sex_ev_leave', 'dress_loop_end'
 		gs'sex_ev_after', 'after_sex_dressed'
 	end
 end
@@ -1479,6 +1481,17 @@ if $ARGS[0] = 'dress_loop':
 	gs'stat'
 end
 
+
+if $ARGS[0] = 'dress_loop_end':
+	!! this forces the player to get fully dressed
+	gs'sex_ev_leave', 'dress_loop_code'
+	if sex_ev['dress_end'] ! 1:
+		gs'sex_ev_leave', 'dress_loop_end'
+	else
+		gs'stat'
+	end
+end
+
 if $ARGS[0] = 'dress_loop_code':
 	:dress_loop_start
 	if sex_ev['dressing_start'] ! 1: