brothel.qsrc Continued with new section 1 actions and some bugfixes

locations/brothel.qsrc

@@ -1,33 +1,33 @@
 # brothel
-!2021/05/08
+!!2021/05/08
 CLOSE ALL
 $loc = 'brothel'
 
-! brothelCredit - liked or not liked by the brothel management
-! custTime - time spent with the current client; for calculation of the whores pay
+!! brothelCredit - liked or not liked by the brothel management
+!! custTime - time spent with the current client; for calculation of the whores pay
 
 $pcs_font = '990099'
 $mas_font = '990000'
 $red_font = 'D81818'
 $rec_font = '585858'
 
-! event probabilities
-	! pushing out anal plug
+!! event probabilities
+	!! pushing out anal plug
 	prob_chPlug = 20
 
-	! anal rod after pushing out anal plug
+	!! anal rod after pushing out anal plug
 	prob_chRod = 20
 
-	! receptionists pulls out the plug
+	!! receptionists pulls out the plug
 	prob_recPlugCh = 30
 
-	! client will want to use needles (titTorture)
+	!! client will want to use needles (titTorture)
 	prob_hardCh = 60
 
-	! chance to get abducted to a hotel room when alko wasted
+	!! chance to get abducted to a hotel room when alko wasted
 	prob_abdCh = 25
 
-	! chance that client agrees to 100% bonus for above rules practices
+	!! chance that client agrees to 100% bonus for above rules practices
 	prob_agreeCh = 33
 
 dbg = 0
@@ -444,10 +444,10 @@ if $ARGS[0] = 'reception':
 		act 'Ask to get your hard earned wage': gt 'brothel', 'get_paid'
 	end
 
-	act 'First section':gt 'brothel','section1_lobby'hotelWhore
+	act 'First section':gt 'brothel','section1_lobby'
     if section_warn = 0:
     	act 'Second section':gt 'brothel','section2_warning'
-    elseif:
+    else:
 		act 'Second section':gt 'brothel','section2_lobby'
     end
 	act 'Ask him to let you out': gt 'brothel', 'leave'
@@ -470,7 +470,7 @@ if $ARGS[0] = 'leave':
 		else
 			'<center><img <<$set_imgh>> src="images/pc/body/nude1.jpg"></center>'
 		end
-		act 'Go back to suit up': gt 'brothel', 'brothel_dressingroom', '1'
+		act 'Go back to suit up': gt 'brothel', 'brothel_dressingroom', '3'
 	else
 		'The Receptionist pushes a hidden button, probably signaling the errand boy, because after a minute he arrives with the elevator.'
 		'<font color=#<<$rec_font>>>"Go <<$pcs_firstname>>, you are free to leave."</font>'
@@ -496,9 +496,9 @@ if $ARGS[0] = 'section1_lobby':
 	$menu_arg = 'section1_lobby'
 	menu_off = 0
 	$sect = 'section1'
-	'<h3>Brothel Lobby</h3>'
+	'<h3>Brothel Section 1 Lobby</h3>'
 	'<center><img <<$set_imgh>> src="images/locations/shared/brothel/lobby.jpg"></center>'
-	'The section 1 lobby.A spacy hall-like room, leading to several smaller rooms.'
+	'The section 1 lobby. A spacy hall-like room, leading to several smaller rooms.'
 	'A Comfortable couch is in the middle of the lobby, next to it are several cages sized just for a smaller person.'
 	'One of the doors also leads to a <a href="exec:gt ''brothel'', ''brothel_dressingroom'', ''1''">room</a> made for the girls. '
 	if (klismaday = daystart and (pcs_leghair <= 3 or pcs_pubes <= 3) and pcs_hairbsh = 1 and pcs_makeup >= 1 and pcs_lipbalm >= 1 and $pantyworntype = 'none' and $clothingworntype = 'nude' and (cumloc[1] = 0 and cumloc[4] = 0 and cumloc[8] = 0 and cumloc[9] = 0 and cumloc[10] = 0 and cumloc[11] = 0 and cumloc[15] = 0 and cumloc[16] = 0 and cumloc[17] = 0) and pcs_sweat < 40):
@@ -570,7 +570,7 @@ if $ARGS[0] = 'brothel_dressingroom':
 			if stanok > 0: dynamic $brit
 		end
 	else
-      !Changed from buying to taking from the box, since shampoo is handed out for free at this location
+      !!Changed from buying to taking from the box, since shampoo is handed out for free at this location
 		'<font color="red">You''ve run out of shampoo and will have to grab some more from the box before you can wash yourself.</font>'
 	end
 	gs 'din_van', 'prvt_pee'
@@ -586,14 +586,16 @@ if $ARGS[0] = 'brothel_dressingroom':
 			pain['killer'] += 1
 			painkiller -= 1
 			pcs_hydra += 20
-			gt 'brothel', 'brothel_dressingroom', '1'
+			gt 'brothel', 'brothel_dressingroom', $ARGS[1]
 		end
 	end
-      if $ARGS[1] = 1:
-		 act 'Go back to lobby': gt 'brothel', 'section1_lobby'
-      elseif $ARGS[1] = 2:
-		 act 'Go back to lobby': gt 'brothel', 'section2_lobby'
-      end
+    if $ARGS[1] = 0 or $ARGS[1] = 1:
+		act 'Go back to lobby': gt 'brothel', 'section1_lobby'
+    elseif $ARGS[1] = 2:
+		act 'Go back to lobby': gt 'brothel', 'section2_lobby'
+    elseif $ARGS[1] = 3:
+		act 'Go back to the reception': gt 'brothel', 'reception'
+    end
 end
 
 if $ARGS[0] = 'section1_cage':
@@ -672,12 +674,13 @@ if $ARGS[0] = 'section1_slave_chooses':
 	'<h3>Playroom</h3>'
 	'<h5>You decide to suggest what your Master should do with you...</h5>'
 	'You ask him: <font color=#<<$pcs_font>>>"Master, please..."</font>'
-	!!act '..let''s just have sex and see where it leads':
-	act '..just bind me and use my holes': gt 'brothel', 'section1_pick', '3', '1'
-	act '..I''ve been a bad girl, I should be punished': gt 'brothel', 'section1_pick', '2', '1'
 	act '..I need to recharge my batteries': gt 'brothel', 'section1_pick', '1', '1'
-	!!act '..I''m so thirsty, I could use something to drink':
-	!!act '..I am so tight, I need some exercise':
+    act '..I''ve been a bad girl, I should be punished': gt 'brothel', 'section1_pick', '2', '1'
+    act '..just bind me and use my holes': gt 'brothel', 'section1_pick', '3', '1'
+    !!act '..let''s just have sex and see where it leads': gt 'brothel', 'section1_pick', '4', '1'
+    !!if someone wants to put watersports in, feel free, I''m not doing it
+	!!act '..I''m so thirsty, I could use something to drink': gt 'brothel', 'section1_pick', '5', '1'
+	!!act '..I am so tight, I need some exercise': gt 'brothel', 'section1_pick', '6', '1'
 	act 'Reconsider and be quiet': gt 'brothel', 'section1_pick', '0', '0'
 end
                     
@@ -711,6 +714,7 @@ if $ARGS[0] = 'section1_pick':
 		mas_dec = $ARGS[1]
 	elseif mas_accept = 0:
 		mas_dec = rand(1, 3)
+      	!!mas_dec = rand(1, 6)
 	end
 
 	if mas_dec = 1:
@@ -719,12 +723,24 @@ if $ARGS[0] = 'section1_pick':
 		$actType = 'electricity'
 	elseif mas_dec = 2:
       	'<center><video autoplay loop src="images/locations/shared/brothel/placeholder.mp4"></video></center>'
-      	'The client grabs a box full of smaller tools from a shelf and fetches a few wooden sticks. <font color=#'+$mas_font+'>Let's make your tits beatiful, slut.</font>'
+      	'The client grabs a box full of smaller tools from a shelf and fetches a few wooden sticks. <font color=#'+$mas_font+'>Let''s make your tits beatiful, slut.</font>'
 		$actType = 'titTorture'
 	elseif mas_dec = 3:
       	'<center><video autoplay loop src="images/locations/shared/brothel/placeholder.mp4"></video></center>'
-      	'The client grabs a box full of smaller tools from a shelf, with several ropes hanging out of it. <font color=#'+$mas_font+'>Sluts like you are much more agreeable when properly tied up. Don't you think, slave?</font>'
+      	'The client grabs a box full of smaller tools from a shelf, with several ropes hanging out of it. <font color=#'+$mas_font+'>Sluts like you are much more agreeable when properly tied up. Don''t you think, slave?</font>'
 		$actType = 'boundPlay'
+    elseif mas_dec = 4:
+      	'<center><video autoplay loop src="images/locations/shared/brothel/placeholder.mp4"></video></center>'
+      	'<font color=#'+$mas_font+'>Let us start nice and slow, little whore. I''ll have my fun, either way.</font> The clients proclaims, while undressing himself.'
+		$actType = 'sex'
+    elseif mas_dec = 5:
+      	'<center><video autoplay loop src="images/locations/shared/brothel/placeholder.mp4"></video></center>'
+      	''
+		$actType = 'watersports'
+    elseif mas_dec = 6:
+      	'<center><video autoplay loop src="images/locations/shared/brothel/placeholder.mp4"></video></center>'
+      	'<font color=#'+$mas_font+'>Don''t you think, you should be much more open to your clients needs, especially in your line if work, whore?</font> At this, the clients brings a massive dildo over. <font color=#'+$mas_font+'>Let me help you with that, slut.</font>'
+		$actType = 'stretching'
 	end
 	
 	act 'Begin the session': gt 'brothel', $subloc
@@ -735,12 +751,12 @@ if $ARGS[0] = 'section1_play':
 	$base = 'section1_play'
 	$sessionB = 'section1_play'
 
-	!too much rage or orgasm - client is too aroused and masturbates to your face, finishing the session
+	!!too much rage or orgasm - client is too aroused and masturbates to your face, finishing the session
 	if rageMeter = 100:
 		gt 'brothel', 'section1_ragefinish'
 	end
 
-	!too much pain - Sveta pushes out the anal plug by accident
+	!!too much pain - Sveta pushes out the anal plug by accident
 	if (pain['total'] > 50 and analplugIN = 1):
 		chPlug = rand(0, 100)
 		if chPlug < prob_chPlug:
@@ -923,6 +939,57 @@ if $ARGS[0] = 'section1_play':
 			gt 'brothel', 'section1_electrocuteAssMax'
 		end
 	end
+      
+    if $act_type = 'sex':
+      if orgasmMeter = 100:
+			'After a long fucking session, the client finally gets close to an orgasm.'
+			fin = rand (1, 4)
+			if fin = 1:
+				$finType = 'missionary:anal'
+			elseif fin = 2:
+				$finType = 'missionary:vaginal'
+			elseif fin = 3:
+				$finType = 'face_mouth'
+			elseif fin = 4:
+				$finType = 'face_face'
+			end
+			gt 'brothel', 'section1_finish'
+		end
+    end
+      
+    if $act_type = 'watersports':
+      if orgasmMeter = 100:
+			''
+			fin = rand (1, 4)
+			if fin = 1:
+				$finType = 'missionary:anal'
+			elseif fin = 2:
+				$finType = 'missionary:vaginal'
+			elseif fin = 3:
+				$finType = 'face_mouth'
+			elseif fin = 4:
+				$finType = 'face_face'
+			end
+			gt 'brothel', 'section1_finish'
+		end
+    end
+      
+    if $act_type = 'stretching':
+      if orgasmMeter = 100:
+      		'<font color=#'+$mas_font+'>Now that''s what a proper fucktoy looks like! Now let''s see what I will do with you.</font>'
+			fin = rand (1, 4)
+			if fin = 1:
+				$finType = 'missionary:anal'
+			elseif fin = 2:
+				$finType = 'missionary:vaginal'
+			elseif fin = 3:
+				$finType = 'face_mouth'
+			elseif fin = 4:
+				$finType = 'face_face'
+			end
+			gt 'brothel', 'section1_finish'
+		end
+    end
 
 end
 
@@ -949,7 +1016,7 @@ if $ARGS[0] = 'section1_finish':
 			step = 1
 			act 'Continue':gt 'brothel', 'section1_finish'
 		elseif step = 1:
-			! pls not in anus
+			!!pls not in anus
 			if th = 1:
 				if analplugIN = 1:
 					'Both your pussy and your anus are too well on display... You say to yourself: <font color=#<<$pcs_font>>>(At least he won''t put it in my anus... the plug is already there...)</font>'
@@ -960,7 +1027,7 @@ if $ARGS[0] = 'section1_finish':
 					'Right at that moment the Client penetrates your pussy and thrusts his pole in, up to the rim!'
 					'<center><video autoplay loop src="images/locations/shared/brothel/insertvaginalfrombehind.mp4"></video></center>'
 				end
-			!pls not in pussy
+			!!pls not in pussy
 			elseif th = 2:
 				'Both your pussy and your anus are well on display... You say to yourself: <font color=#<<$pcs_font>>>(Please just don''t put it in my sore pussy!)</font>'
 				'Right at that moment the Client pushes his phallus in your tender pussy... and all the way in!'
@@ -1021,7 +1088,7 @@ if $ARGS[0] = 'section1_finish':
 			step = 1
 			act 'Continue':gt 'brothel', 'section1_finish'
 		elseif step = 1:
-			! pls not in anus
+			!!pls not in anus
 			if th = 1:
 				if analplugIN = 1:
 					'Both your pussy and your anus are too well on display... You say to yourself: <font color=#<<$pcs_font>>>(At least he won''t put it in my anus... the plug is already there...)</font>'
@@ -1039,7 +1106,7 @@ if $ARGS[0] = 'section1_finish':
 					'<center><video autoplay loop src="images/locations/shared/brothel/fuckanalfrombehind2.mp4"></video></center>'
 					'<font color=#<<$pcs_font>>>"Owwwwuuch! Pleaaase no take it ouuuut! Maaaster please not in my ass!"</font>'
 				end
-			!pls not in pussy
+			!!pls not in pussy
 			elseif th = 2:
 				'Both your pussy and your anus are well on display... You say to yourself: <font color=#<<$pcs_font>>>(Please just don''t put it in my sore pussy!)</font>'
 				'Ironically you actually sigh in relief as the Client sticks his warm, hard pole in your anus and not your pussy.'
@@ -1948,7 +2015,7 @@ if $ARGS[0] = 'section2_warning':
       section_warn =  1
       'As you walk toward the second Section, the receptionist suddenly speaks up: <font color=#<<$rec_font>>>"<<$pcs_firstname>>, you''ve never been in the second Section before, have you?"</font>'
       'You stop, looking at him and shake your head. <font color=#<<$pcs_font>>>"No, so far not. Anything I should know?"</font>'
-      <font color=#<<$rec_font>>>"Yes, clients in there are usually very rich and have their own ideas of fun. So, if you want to get paid well, do what they order you to do. That also means you are on your own if anything... problematic happens to you. We have our rules, but with those clients, management is much more accommodating ."</font>'
+      '<font color=#<<$rec_font>>>"Yes, clients in there are usually very rich and have their own ideas of fun. So, if you want to get paid well, do what they order you to do. That also means you are on your own if anything... problematic happens to you. We have our rules, but with those clients, management is much more accommodating."</font>'
       'Slowly nodding to yourself, you give him a quick thanks, and resume your way towards the Section.'
       act 'Proceed to the second section':gt 'brothel','section2_lobby'
 end
@@ -1958,7 +2025,7 @@ if $ARGS[0] = 'section2_lobby':
 	$menu_arg = 'section2_lobby'
 	menu_off = 0
 	$sect = 'section2'
-	'<h3>Brothel Lobby Section 2</h3>'
+	'<h3>Brothel Section 2 Lobby</h3>'
 	'<center><img <<$set_imgh>> src="images/locations/shared/brothel/lobby.jpg"></center>'
 	'The section 2 lobby. This lobby is quite small, offering only enough room for a couch and a small table.'
 	'Only a single room is attached to the lobby by a wide door.Judging by the state of the floor, a lot of heavy equipment is regularly dragged in and out.'