[fixed] Unclear time cost for doing homework

locations/stol.qsrc

@@ -106,36 +106,39 @@ if $ARGS[0] = 'stolPar':
 	act 'Get up':gt $loc, $metka
 	act 'Check your birth control': gt 'stol', 'bc'
 	
-	if mentats_have > 0:
-		'<a href="exec:dynamic $use_mentats & gt ''stol'', ''stolPar''"><b>Take neurobooster pill.</b></a> Uses left: <<mentats_have>>. Warning on the box says not to take more than one per day.'
-	end
-	if steroid_have > 0:
-		'<a href="exec:dynamic $use_steroids & gt ''stol'', ''stolPar''"><b>Take steroids.</b></a> Uses left: <<steroid_have>>.'
-	end
-	if aphrodisiac_have > 0:
-		'<a href="exec:dynamic $use_aphrodisiac & gt ''stol'', ''stolPar''"><b>Chew aphrodisiac gum.</b></a> Uses left: <<aphrodisiac_have>>.'
-	end
-
+	if mentats_have > 0: '<a href="exec:dynamic $use_mentats & gt ''stol'', ''stolPar''"><b>Take neurobooster pill.</b></a> Uses left: <<mentats_have>>. Warning on the box says not to take more than one per day.'
+	if steroid_have > 0: '<a href="exec:dynamic $use_steroids & gt ''stol'', ''stolPar''"><b>Take steroids.</b></a> Uses left: <<steroid_have>>.'
+	if aphrodisiac_have > 0: '<a href="exec:dynamic $use_aphrodisiac & gt ''stol'', ''stolPar''"><b>Chew aphrodisiac gum.</b></a> Uses left: <<aphrodisiac_have>>.'
+		
 	if lernHome > 0:
-		act 'Do your homework':
+		'<br>You have to do homework for school. Finishing everything will take <<lernHome>> hours.'
+		act 'Do your homework (1 hour)':
 			cla & *clr
 			'<center><img <<$set_imgh>> src="images/locations/shared/apartment/homework.jpg"></center>'
-			if lernHome <= 2:
-				minut += 60*lernHome
-				lernHome = 0
-				lern += 1
-				'It takes you one hour to complete your homework.'
-				gs'stat'
-			elseif lernHome > 2:
-				minut += 60*2
-				lernHome = 0
-				'It takes you two hours to complete your homework.'
-				gs'stat'
-			end
+			minut += 60
+			lernHome -= 1
+			lern += 1
+			'It took you one hour to '+iif(lernHome = 0, 'complete', 'do a part of')+' your homework.'
+			gs'stat'
 			
-			act 'Get up from the table':gt $loc, $metka
+			act 'Continue':gt 'stol', 'stolPar'
 		end
 	end
+	
+	if lernHome > 1:
+		act 'Finish all of your homework (<<lernHome>> hours)':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/locations/shared/apartment/homework.jpg"></center>'
+			minut += 60 * lernHome
+			lern += 1 + lernHome/2
+			'It took you <<lernHome>> hours to complete your homework.'
+			lernHome = 0
+			gs'stat'
+			
+			act 'Continue':gt 'stol', 'stolPar'
+		end
+	end
+	
 !{	
 	!! use gs 'boyStat', 'D<<strapnumber>>' to recall which dildo is attached?
 	if strapon = 1: