[changed] Sauna debt: Moved same logic to same place

locations/sauna.qsrc

@@ -107,15 +107,7 @@ if $ARGS[0] = 'saunaroom':
 		'<br>Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set for <<timer>> hours <<timerM>> minutes and currently turned <a href="exec: budilnikOn = 0 & gt ''sauna'', ''saunaroom''">on</a>.'
 	end
 
-	if SaunaWhore > 0 and money > 0 and workDolg > 0:
-		if money > workDolg:
-			money -= workDolg
-			workDolg = 0
-		elseif workDolg > money:
-			workDolg -= money
-			money = 0
-		end
-	end
+	gs 'saunawhore','debtPay'
 	if workDolg > 0:'Your debt is <<workDolg>> <b>₽</b>'
 
 	act '<b>Exit to the sauna</b>':gt 'saunawhore', 'saunawork'

locations/saunawhore.qsrc

@@ -832,13 +832,7 @@ if $ARGS[0] = 'saunawork':
 		'Nurse cames to you and takes from you <<paymamka>> per customer.'
 	end
 
-	if money > workDolg:
-		money -= workDolg
-		workDolg = 0
-	elseif workDolg > money:
-		workDolg -= money
-		money = 0
-	end
+	gs 'saunawhore','debtPay'
 	if workDolg > 0:'Your debt is <<workDolg>> <b>₽</b>'
 
 	gs 'stat'
@@ -1103,5 +1097,15 @@ if $ARGS[0] = 'bathroom':
 	end
 end
 
+if $ARGS[0] = 'debtPay':
+	if money > workDolg:
+		money -= workDolg
+		workDolg = 0
+	elseif workDolg > money:
+		workDolg -= money
+		money = 0
+	end
+end
+
 --- saunaWhore ---------------------------------