brothel.qsrc Added consequences for skipping work too often

locations/brothel.qsrc

@@ -450,7 +450,11 @@ if $ARGS[0] = 'reception':
     else:
 		act 'Second section':gt 'brothel','section2_lobby'
     end
-	act 'Ask him to let you out': gt 'brothel', 'leave'
+    if brothelCredit < -4 and pcs_health < 200:
+        act 'Ask him to let you out': gt 'brothel', 'section1_force_work'                  
+    else
+		act 'Ask him to let you out': gt 'brothel', 'leave'
+    end
 end
 
 if $ARGS[0] = 'leave':
@@ -617,6 +621,25 @@ if $ARGS[0] = 'section1_cage_leave':
 	brothelCredit -= 1
 	act 'Say an excuse and leave': gt 'brothel', 'brothel_dressingroom', '1'
 end
+      
+if $ARGS[0] = 'section1_force_work':
+    menu_off = 1
+	'<h3>Brothel Lobby</h3>'
+    '<h5>Slave cage: Forced to work</h5>'
+    '<center><img <<$set_imgh>> src="images/locations/shared/brothel/placeholder.jpg"></center>'
+    '<font color=#<<$rec_font>>>"Running off, again and again, whore? If you can't make up your mind, maybe some training will help you."</font>'
+    if $clothingworntype ! 'nude':
+      'With this, the receptionist grabs and undresses you, then locks you in a cage.'
+    elseif $pantyworntype ! 'none': 
+      'With this, the receptionist grabs you, rips your panties off, then locks you in a cage.'
+	else
+      'With this, the receptionist grabs you, then locks you in a cage.'
+    end
+    '<font color=#<<$rec_font>>>"Stay there, someone will teach you a lesson in time. Hopefully you learn to be responsible."</font>'
+    !!Should be replaced in time with a special training event
+    brothelCredit = 0
+    act 'Wait for a client': gt 'brothel', 'section1_cage_client'
+end
 
 if $ARGS[0] = 'section1_cage_client':
 	'<h3>Brothel Lobby</h3>'