[changed] stripclub. Now requires ID/Age entry, shortened crazy long actions, manager job interview is now inside the club,

locations/stripclub.qsrc

@@ -9,12 +9,15 @@ if $ARGS[0] = 'start':
 	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Strip Club</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub.jpg"></center>'
-	
+	*nl
+
+	act 'Leave': gt 'Nord', 'redlight'
+
 	if hour = 2:
 		'The strip club is closing and security guard ushers everyone out.'
 	elseif hour > 2 and hour < 11:
 		'The strip club is closed. You notice a sign on the door: The business hours are between 18:00 - 02:00.'
-	else	
+	else
 		if stripdolg > 0:
 			if money >= 50000:
 				act 'Pay off your fine (50,000 <b>₽</b>)':
@@ -26,108 +29,119 @@ if $ARGS[0] = 'start':
 				*nl
 				'You still owe a 50,000 <b>₽</b> fine for your illegal actions. You cannot return to the club until you have paid them off.'
 			end
-		end
-
-		if stripdolg = 0:
-			if cfnm = 1 and money >= 500:
-				act 'Enter (500 <b>₽</b>)':
-					cla
-					money -= 500
-					minut += 5
-					frost = 0
-					gt 'stripclub', 'forwoman'
-				end
-			elseif cfnm = 0 and money >= 300:
-				act 'Enter (300 <b>₽</b>)':
-					cla
-					money -= 300
-					minut += 5
-					frost = 0
-					gt 'stripclub', 'forman'
+		else
+			'The security guard stops you, looking you up and down, he asks to see your ID.'
+			if age >= 18 or fakepassport = 1:
+				if stripwork = 1:
+					'"Welcome back <<$pcs_nickname>>, are you working tonight?" he asks.'
+					act 'Use the employee''s entrance':frost = 0 & gt 'stwork', 'start'
+				else
+					'"OK, your ID checks out, you are free to enter." he tells you.'
 				end
-			end
-
-			if pcs_dancero > 0 and stripwork = 0 and pcs_inhib >= 60:	
-				act 'Talk to the manager about performing in the strip club':
-					*clr & cla
-					minut += 15
-					gs 'stat'
-					'The manager observes you for a while and asks, "Are you really 18 years old? I had a visit from the police last week and they found an under-aged girl working here. I was fortunate enough that the officers could be bribed."'
-					*nl
-
-					if age >= 18:
-						'"Yes I am." You answer him. He points at a spot where he wants you to do a little dance.'
-						'You dance sensually, clearly he''s smitten by you. He asks you to sit down, "Our business hours are between 18:00 to 02:00. Some days there are only male strippers performing. We don''t pay strippers, but the customers tip generously. Think of it as an incentive, perform well and you''ll earn a tip."'
-						'"Strippers can perform lap dances for clients at their request for 1000 <b>₽</b> per lap dance, the stripper gets 400 <b>₽</b>, and the rest belongs to the club. They may want further entertainment, as the club doesn''t operate as a brothel we don''t really accept that kind of business but we usually turn a blind eye to it."'
-						'"One last thing that I nearly forgot, dancing on stage involves a lot of work on the pole. Unless you do that, it is unlikely you will earn anything. There is no set schedule, the employees choose when they want to come to work. So what do you say, are you interested?"'
-						
-						act 'Accept his offer':
-							*clr & cla
-							stripwork = 1
-							gs 'stat'
-							'You think about it for a minut and smile at him as you accept his offer. The manager leads you to the dressing room and tell a woman responsible for the costumes that you''re going to join the club. He also introduces you to the chief of security, who takes your picture and makes you sign some documents. After you''re done the boss once again greets you welcome and then returns to his office.'
-
-							if cfnm = 0:act 'Look around':gt 'stwork', 'start'
-
-							if cfnm = 1:
-								'There are only males performing tonight, so the room is full of guys getting ready to perform.'
-
-								act 'Leave':gt 'stripclub', 'start'
-							end
+				if stripdolg = 0:
+					if cfnm = 1 and money >= 500:
+						act 'Enter the club (500 <b>₽</b>)':
+							cla
+							money -= 500
+							minut += 5
+							frost = 0
+							gt 'stripclub', 'forwoman'
 						end
-						
-						act 'Reject his offer':
-							*clr & cla
-							gs 'stat'
-							'You thank him for the offer but you''re not ready to commit to anything yet.'
-							'You can see on his face that he''s disappointed but he can''t really do anything about your decision. He thanks you and tells you if you ever change your mind you''re welcome back.'
-							act 'Leave':gt 'stripclub', 'start'
-						end					
-					elseif fakepassport = 1:
-						'"Yes I am." you answer, handing him your fake passport.'
-						'You see him frown as he checks your passport with suspicion, "Well, I guess everything is in order." as he points at a spot where he wants you to do a little dance.'
-						'You dance sensually, clearly he''s smitten by you. He asks you to sit down, "Our business hours are between 18:00 to 02:00. Some days there are only male strippers performing. We don''t pay strippers, but the customers tip generously. Think of it as an incentive, perform well and you''ll earn a tip."'
-						'"Strippers can perform lap dances for clients at their request for 1000 <b>₽</b> per lap dance, the stripper gets 400 <b>₽</b>, and the rest belongs to the club. They may want further entertainment, as the club doesn''t operate as a brothel we don''t really accept that kind of business but we usually turn a blind eye to it."'
-						'"One last thing that I nearly forgot, dancing on stage involves a lot of work on the pole. Unless you do that, it is unlikely you will earn anything. There is no set schedule, the employees choose when they want to come to work. So what do you say, are you interested?"'
-						
-						act 'Accept his offer':
-							*clr & cla
-							stripwork = 1
-							gs 'stat'
-							'You think about it for a minut and smile at him as you accept his offer. The manager leads you to the dressing room and tell a woman responsible for the costumes that you''re going to join the club. He also introduces you to the chief of security, who takes your picture and makes you sign some documents. After you''re done the boss once again greets you welcome and then returns to his office.'
-
-							if cfnm = 0:act 'Look around':gt 'stwork', 'start'
-
-							if cfnm = 1:
-								'There are only males performing tonight, so the room is full of guys getting ready to perform.'
-
-								act 'Leave':gt 'stripclub', 'start'
-							end
+					elseif cfnm = 0 and money >= 300:
+						act 'Enter the club (300 <b>₽</b>)':
+							cla
+							money -= 300
+							minut += 5
+							frost = 0
+							gt 'stripclub', 'forman'
 						end
-						
-						act 'Reject his offer':
-							*clr & cla
-							gs 'stat'
-							'You thank him for the offer but you''re not ready to commit to anything yet.'
-							'You can see on his face that he''s disappointed but he can''t really do anything about your decision. He thanks you and tells you if you ever change your mind you''re welcome back.'
-							act 'Leave':gt 'stripclub', 'start'
-						end					
-					else
-						'"Nearly..." you say dejectingly.'
-						'"Right. You need to leave this establishment, be sure to come back when you are old enough." he tells you.'
-								
-						act 'Leave':gt 'Nord', 'redlight'			
 					end
 				end
-			elseif stripwork = 0 and pcs_inhib < 60:
-				'You could ask the manager for a job, but you don''t feel confident enough to be a stripper, you should get more used to showing off your body first.'
+			else
+				'"You need to leave this establishment, be sure to come back when you are old enough." he tells you.'
 			end
-			
-			if stripwork = 1: act 'Walk into the dressing room':frost = 0 & gt 'stwork', 'start'
 		end
 	end
+end
 
-	act 'Leave': gt 'Nord', 'redlight'
+if $ARGS[0] = 'manager':
+	*clr & cla
+	minut += 15
+	gs 'stat'
+	'The manager observes you for a while and asks, "Are you really 18 years old? I had a visit from the police last week and they found an under-aged girl working here. I was fortunate enough that the officers could be bribed."'
+	*nl
+
+	if age >= 18:
+		'"Yes I am." You answer him. He points at a spot where he wants you to do a little dance.'
+		'You dance sensually, clearly he''s smitten by you. He asks you to sit down, "Our business hours are between 18:00 to 02:00. Some days there are only male strippers performing. We don''t pay strippers, but the customers tip generously. Think of it as an incentive, perform well and you''ll earn a tip."'
+		'"Strippers can perform lap dances for clients at their request for 1000 <b>₽</b> per lap dance, the stripper gets 400 <b>₽</b>, and the rest belongs to the club. They may want further entertainment, as the club doesn''t operate as a brothel we don''t really accept that kind of business but we usually turn a blind eye to it."'
+		'"One last thing that I nearly forgot, dancing on stage involves a lot of work on the pole. Unless you do that, it is unlikely you will earn anything. There is no set schedule, the employees choose when they want to come to work. So what do you say, are you interested?"'
+
+		act 'Accept his offer':
+			*clr & cla
+			stripwork = 1
+			gs 'stat'
+			'You think about it for a minut and smile at him as you accept his offer. The manager leads you to the dressing room and tell a woman responsible for the costumes that you''re going to join the club. He also introduces you to the chief of security, who takes your picture and makes you sign some documents. After you''re done the boss once again greets you welcome and then returns to his office.'
+
+			if cfnm = 0:act 'Head to the dressing room':gt 'stwork', 'start'
+
+			if cfnm = 1:
+				'There are only males performing tonight, so the room is full of guys getting ready to perform.'
+
+				act 'Leave':gt 'stripclub', 'work_leave'
+			end
+		end
+
+		act 'Reject his offer':
+			*clr & cla
+			gs 'stat'
+			'You thank him for the offer but you''re not ready to commit to anything yet.'
+			'You can see on his face that he''s disappointed but he can''t really do anything about your decision. He thanks you and tells you if you ever change your mind you''re welcome back.'
+			act 'Leave':gt 'stripclub', 'work_leave'
+		end
+	elseif fakepassport = 1:
+		'"Yes I am." you answer, handing him your fake passport.'
+		'You see him frown as he checks your passport with suspicion, "Well, I guess everything is in order." as he points at a spot where he wants you to do a little dance.'
+		'You dance sensually, clearly he''s smitten by you. He asks you to sit down, "Our business hours are between 18:00 to 02:00. Some days there are only male strippers performing. We don''t pay strippers, but the customers tip generously. Think of it as an incentive, perform well and you''ll earn a tip."'
+		'"Strippers can perform lap dances for clients at their request for 1000 <b>₽</b> per lap dance, the stripper gets 400 <b>₽</b>, and the rest belongs to the club. They may want further entertainment, as the club doesn''t operate as a brothel we don''t really accept that kind of business but we usually turn a blind eye to it."'
+		'"One last thing that I nearly forgot, dancing on stage involves a lot of work on the pole. Unless you do that, it is unlikely you will earn anything. There is no set schedule, the employees choose when they want to come to work. So what do you say, are you interested?"'
+
+		act 'Accept his offer':
+			*clr & cla
+			stripwork = 1
+			gs 'stat'
+			'You think about it for a minut and smile at him as you accept his offer. The manager leads you to the dressing room and tell a woman responsible for the costumes that you''re going to join the club. He also introduces you to the chief of security, who takes your picture and makes you sign some documents. After you''re done the boss once again greets you welcome and then returns to his office.'
+
+			if cfnm = 0:act 'Head to the dessing room':gt 'stwork', 'start'
+
+			if cfnm = 1:
+				'There are only males performing tonight, so the room is full of guys getting ready to perform.'
+
+				act 'Leave':gt 'stripclub', 'work_leave'
+			end
+		end
+
+		act 'Reject his offer':
+			*clr & cla
+			gs 'stat'
+			'You thank him for the offer but you''re not ready to commit to anything yet.'
+			'You can see on his face that he''s disappointed but he can''t really do anything about your decision. He thanks you and tells you if you ever change your mind you''re welcome back.'
+			act 'Leave':gt 'stripclub', 'work_leave'
+		end
+	else
+		'"Nearly..." you say dejectingly.'
+		'"Right. You need to leave this establishment, be sure to come back when you are old enough." he tells you.'
+
+		act 'Leave':gt 'Nord', 'redlight'
+	end
+end
+
+if $ARGS[0] = 'work_leave':
+	if cfnm = 0:
+		gt 'stripclub', 'forman'
+	elseif cfnm = 1:
+		gt 'stripclub', 'forwoman'
+	end
 end
 
 if $ARGS[0] = 'forman':
@@ -139,11 +153,10 @@ if $ARGS[0] = 'forman':
 	'There are some girls on the stage, dancing to the music. You notice a sign offering private dances, costing 1000 <b>₽</b> per dance.'
 
 	act 'Leave': minut += 5 & gt 'stripclub', 'start'
-
 	if hour ! 2:
-		act 'Sit at a table near the stage and watch a striptease':gt 'stripclub', 'stol'
+		act 'Watch a striptease':gt 'stripclub', 'stol'
 
-		if money >= 1000: act 'Order a private lap dance (1,000 <b>₽</b>)':gt 'stripclub', 'privat'
+		if money >= 1000: act 'Order a private dance (1,000 <b>₽</b>)':gt 'stripclub', 'privat'
 
 		if money >= 5000:
 			act 'Order a special show (5,000 <b>₽</b>)':
@@ -154,6 +167,11 @@ if $ARGS[0] = 'forman':
 			end
 		end
 	end
+	if pcs_dancero > 0 and stripwork = 0 and pcs_inhib >= 60:
+		act 'See the manager for work': gt 'stripclub', 'manager'
+	elseif stripwork = 0 and pcs_inhib < 60:
+		'You could ask the manager for a job, but you don''t feel confident enough to be a stripper, you should get more used to showing off your body first.'
+	end
 end
 
 if $ARGS[0] = 'privat':
@@ -172,13 +190,13 @@ if $ARGS[0] = 'privat':
 
 		act 'Finish':gt 'stripclub', 'forman'
 		act 'Let them continue on':gt 'stripclub', 'privsex'
-		
+
 	elseif privrand > 0:
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/privat.jpg"></center>'
 		'There are some very hot girls dancing around you, your feel your pulse rise, their movements are just like an aphrodisiac.'
 
 		act 'Finish':gt 'stripclub', 'forman'
-		if money >= 1000: act 'Order another dance (1,000 <b>₽</b>)':gt 'stripclub', 'privat'	
+		if money >= 1000: act 'Order another dance (1,000 <b>₽</b>)':gt 'stripclub', 'privat'
 	end
 end
 
@@ -236,7 +254,7 @@ if $ARGS[0] = 'forwoman':
 			minut += 10
 			'As soon as you take the camera out you are immediately approached by a security guard that informs you that there is no photography allowed, you apologize and put the camera back in your purse.'
 		end
-		
+
 	elseif hour ! 2 and minifoto > 0:
 		act 'Photograph':
 			*clr & cla
@@ -249,12 +267,12 @@ if $ARGS[0] = 'forwoman':
 				stripdolg = 1
 				'You fail to hide the camera well enough and get spotted out by the security guard. He grabs you by the hand and leads you to his office, already waiting there for you is the owner, he takes your camera, and says that you own him 50,000 <b>₽</b> for snooping around and until you pay up you are barred from the club.'
 
-				act 'Leave':gt 'stripclub', 'start'				
+				act 'Leave':gt 'stripclub', 'start'
 			elseif stripfotorand >= 2 and stripfotorand < 6:
 				shantfoto += 1
 				'You struggle to take a normal picture, the girls surrounding you are moving obscurly while they strip, and the guard is very close so you have to be careful. You finally manage to take a normal picture in the end.'
 
-				act 'Return':gt 'stripclub', 'forwoman'		
+				act 'Return':gt 'stripclub', 'forwoman'
 			elseif stripfotorand >= 6:
 				'You struggle to take a normal picture, the girls surrounding you are moving obscurly while they strip, and the guard is very close so you decide that you don''t want to risk anything.'
 
@@ -263,7 +281,12 @@ if $ARGS[0] = 'forwoman':
 		end
 	end
 
-	if hour ! 2: act 'Sit at a table near the stage and watch a striptease': gt 'stripclub', 'stolW'
+	if hour ! 2: act 'Watch a striptease': gt 'stripclub', 'stolW'
+	if pcs_dancero > 0 and stripwork = 0 and pcs_inhib >= 60:
+		act 'See the manager for work': gt 'stripclub', 'manager'
+	elseif stripwork = 0 and pcs_inhib < 60:
+		'You could ask the manager for a job, but you don''t feel confident enough to be a stripper, you should get more used to showing off your body first.'
+	end
 end
 
 if $ARGS[0] = 'stolW':