Single point of exit from the loop.

locations/bed2.qsrc

@@ -306,7 +306,7 @@ if $ARGS[0] = 'dream':
 	InSleep = 1
 	gs 'stat'
 	gs 'dreams', 'start'
-
+	wake_up = 0
 !! to avoid sleeping the whole day I decide to calcululate the duration of the sleep in advance
 !! the quality of the sleep depends on many factors, so the time of sleep can be modify later, especially the part when the time of sleep is shortened
 
@@ -328,80 +328,82 @@ if $ARGS[0] = 'dream':
 		varsleep['minutes to wakeup'] = varsleep['time_to_full']
 		varsleep['minutes to wakeup end'] = varsleep['time_to_full']
 	end
-
 	:loopson_bed
-	minut += 1
-	stime += 1
-	if recuperation = 0:pcs_health += 5
-
-	if vibratorIN = 1:
-		vtime += 1
-		if vtime >= 5:
-			pcs_horny +=1
-			vtime = 0
-		end
-
-		if pcs_horny = 100:
-			*clr & cla
-			pcs_horny = 0
-			orgasm += 1
-			minut += 5
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/shared/sex/oface/o_face.jpg"></center>'
-			*nl
-			'You abruptly wake up in the throes of an orgasm. As you recover, you check the time, <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>.'
-
-			act 'Go back to sleep':
-				*clr & cla
-				gt 'bed2', 'dream'
+		minut += 1
+		stime += 1
+		if recuperation = 0:pcs_health += 5
+
+		if vibratorIN = 1:
+			vtime += 1
+			if vtime >= 5:
+				pcs_horny +=1
+				vtime = 0
 			end
 
-			act 'Give up trying to sleep':
+			if pcs_horny = 100:
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/shared/sex/oface/kotovfirst1.jpg"></center>'
+				pcs_horny = 0
+				orgasm += 1
+				minut += 5
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/shared/sex/oface/o_face.jpg"></center>'
 				*nl
-				'Maybe trying to sleep with a vibrator in your pussy wasn''t such a good idea.'
-				gs 'bed2', 'wake'
+				'You abruptly wake up in the throes of an orgasm. As you recover, you check the time, <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>.'
+
+				act 'Go back to sleep':
+					*clr & cla
+					gt 'bed2', 'dream'
+				end
+
+				act 'Give up trying to sleep':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/shared/sex/oface/kotovfirst1.jpg"></center>'
+					*nl
+					'Maybe trying to sleep with a vibrator in your pussy wasn''t such a good idea.'
+					gs 'bed2', 'wake'
+				end
+
+				exit
 			end
+		!! Exclusions for succubus dreams as they set horny to 100 and will always get overridden otherwise
+		elseif pcs_horny > 80 and pcs_sleep >= 30 and rand (1,300) = 300 and succubusQW ! 1 and succubusQW ! 2:
+			gs 'stat'
+			$waketext = 'You glance at your alarm clock. It reads <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>.'
+			gt 'bed2', 'wake_horny'
+		end
 
-			exit
+		if stime >= 60:
+			stime = 0
+			pcs_sleep += 15
+			if pcs_sleep >= 100:
+				pcs_condition['lack_of_sleep'] = 0
+			elseif pcs_condition['lack_of_sleep'] > 0:
+				pcs_condition['lack_of_sleep'] -= 1
+			end
+			gs 'stat'
 		end
-	!! Exclusions for succubus dreams as they set horny to 100 and will always get overridden otherwise
-	elseif pcs_horny > 80 and pcs_sleep >= 30 and rand (1,300) = 300 and succubusQW ! 1 and succubusQW ! 2:
-		gs 'stat'
-		$waketext = 'You glance at your alarm clock. It reads <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>.'
-		gt 'bed2', 'wake_horny'
-	end
 
-	if stime >= 60:
-		stime = 0
-		pcs_sleep += 15
-		if pcs_sleep >= 100:
-			pcs_condition['lack_of_sleep'] = 0
-		elseif pcs_condition['lack_of_sleep'] > 0:
-			pcs_condition['lack_of_sleep'] -= 1
+		
+		varsleep['minutes to wakeup'] -= 1
+		varsleep['minutes to wakeup end'] -= 1
+
+		if alarm_holiday = 1 and kanikuli > 0:
+		!! use weekend time alarm
+			varsleep['alarm_time'] = daystart*1440 + timerEnd * 60 + timerEndM
+			if varsleep['minutes to wakeup end'] = 0: wake_up = 1
+		elseif week > 5:
+		!! use weeken time alarm 
+			varsleep['alarm_time'] = daystart*1440 + timerEnd * 60 + timerEndM
+			if varsleep['minutes to wakeup end'] = 0: wake_up = 1
+		else 
+			varsleep['alarm_time'] = daystart*1440 + timer * 60 + timerM
+			if varsleep['minutes to wakeup'] = 0: wake_up = 1
 		end
-		gs 'stat'
-	end
 
-	
-	varsleep['minutes to wakeup'] -= 1
-	varsleep['minutes to wakeup end'] -= 1
-
-	if alarm_holiday = 1 and kanikuli > 0:
-	!! use weekend time alarm
-		varsleep['alarm_time'] = daystart*1440 + timerEnd * 60 + timerEndM
-		if varsleep['minutes to wakeup end'] > 0:jump 'loopson_bed'
-	elseif week > 5:
-	!! use weeken time alarm 
-		varsleep['alarm_time'] = daystart*1440 + timerEnd * 60 + timerEndM
-		if varsleep['minutes to wakeup end'] > 0:jump 'loopson_bed'
-	else 
-		varsleep['alarm_time'] = daystart*1440 + timer * 60 + timerM
-		if varsleep['minutes to wakeup'] > 0:jump 'loopson_bed'
-	end
+		varsleep['time_now'] = daystart*1440 + hour * 60 + minut
 
-	varsleep['time_now'] = daystart*1440 + hour * 60 + minut
+	!! Ensuring single exit point instead of multiple ones.
+	if wake_up = 0: jump 'loopson_bed'
 
 	if stime < 300:
 	!!Worsening of skin quality if you do not sleep enough.
@@ -433,6 +435,8 @@ if $ARGS[0] = 'dream':
 	gs 'bed2', 'wake'
 	*nl
 	'<<$waketext>>'
+
+	killvar 'wake_up'
 end
 
 if $ARGS[0] = 'wake_horny':