[edit] Reworked the striptease action.

locations/stripclub.qsrc

@@ -29,13 +29,13 @@ 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
-		else
-			'The security guard stops you, looking you up and down, he asks to see your ID.'
+		else		
 			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
+					'The security guard stops you, looking you up and down, he asks to see your ID.'
 					'"OK, your ID checks out, you are free to enter." he tells you.'
 				end
 				if stripdolg = 0:
@@ -58,6 +58,8 @@ if $ARGS[0] = 'start':
 					end
 				end
 			else
+				'The security guard stops you, looking you up and down, he asks to see your ID.'
+				'You make a show of rummaging through your purse. "Sorry, I must have left my ID at home."'
 				'"You need to leave this establishment, be sure to come back when you are old enough." he tells you.'
 			end
 		end

locations/stwork.qsrc

@@ -21,16 +21,39 @@ if $ARGS[0] = 'start':
 	'There are some stairs leading to the <a href="exec:gt ''stwork'', ''stripgirl''">stage</a> where you can head out to perform.'
 	'To the side there''s a <a href="exec:stripMir = 0 & gt ''stripclub'', ''start''">steel door</a> which overlooks the back yard and the staff uses as an entrance, to save them from meeting scummy customers. Standing by this entrance, there''s always <a href="exec:gt ''stwork'', ''guard''">security</a> keeping the talent safe.'
 	'Near the exit door is a vending machine selling '+iif(money >= 100,'<a href="exec:money -= 100 & gt ''food'', ''snack''">snacks</a>','snacks')+' and a <a href="exec:gt ''beverage'', ''bev_wat''">water cooler</a>, which is heavily used by staff after coming off stage'
-	'Behind a wooden door there''s the <a href="exec:gt ''stwork'', ''toilet''">staff bathroom</a>.'
+	'A wooden door leads to the <a href="exec:gt ''stwork'', ''toilet''">staff bathroom</a>.'
 
-	&! if tatlech > 0:stripKoef = rand(1, 3)
-	&! if tatback > 0:stripKoef2 = rand(1, 3)
-	&! if tatblly > 0:stripKoef3 = rand(1, 3)
-	&! if tatupb > 0:stripKoef4 = rand(3, 6)
-	&! if tatleg > 0:stripKoef5 = rand(1, 3)
-	&! if tatarm > 0:stripKoef6 = rand(1, 3)
-	&! if tatside > 0:stripKoef7 = rand(1, 3)
+	! Tattoos increase your desireability as a stripper
+	if tatlech > 0:stripKoef1 = rand(1, 3)
+	if tatback > 0:stripKoef2 = rand(1, 3)
+	if tatblly > 0:stripKoef3 = rand(1, 3)
+	if tatupb > 0:stripKoef4 = rand(3, 6)
+	if tatleg > 0:stripKoef5 = rand(1, 3)
+	if tatarm > 0:stripKoef6 = rand(1, 3)
+	if tatside > 0:stripKoef7 = rand(1, 3)
+	stripKoef = stripKoef1 + stripKoef2 + stripKoef3 + stripKoef4 + stripKoef5 + stripKoef6 + stripKoef7
 
+	!! Private dance available
+	if stprivatechance > 0:
+		stpriv = stripKoef + (pcs_apprnc / 3)
+		! Bonus for poledancing
+		if stprivatechance = 2:
+			stprive += 20
+		end
+		if stpriv > rand (0, 100):
+		*nl
+			'One of the bouncers walks up to you, telling you that a customer is waiting for you in one of the private rooms.'
+			act '<b>Go perform a private dance</b>': 
+				stprivatechance = 0
+				gt 'stwork2', 'privatdance'
+			end
+		end
+	end
+	if countmoney = 1:
+		countmoney = 0
+		gs 'stwork2', 'tipcalculator'
+	end
+	
 	if (kosmetica >= 3 or pcs_makeup >= 4) and (hour >= 11 or hour <= 2):
 		act '<b>Prepare for your show</b>':
 			*clr & cla

locations/stwork2.qsrc

@@ -20,38 +20,158 @@ if $ARGS[0] = 'strip':
 	if hour >= 11 or hour <= 2:
 		if stpredmet = 3:lapdance = 0
 		if stpredmet > 0:
-			act 'Striptease 5 minutes (<<stpredmet>> items of clothing)':
-				*clr & cla
-				minut += 5
-				stpredmet -= 1
-				pcs_sweat += 5
-				fat -= 3
-				dancero_exp += rand(2, 4)
-				inhib_exp += rand(2,5)
-				city_stripping += rand(1,2)
-
-				if stpredmet = 1:pcs_sweat += 5
-				if stpredmet = 0:pcs_hairbsh = 0 & stripdancesum += 1
-
-				striptip = rand(pcs_dancero,100)
-				lapdance += striptip
-
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclub2.jpg"></center>'
-				'You walk up on the stage and hear the music start. The effect is immediate, you start moving seductively on stage, teasingly undressing on stage...'
-
-				if pcs_weight > pcs_hgt - 90:
-					vesrand = rand(0, 100)
-
-					if vesrand >= 75:
-						striptip -= rand(5, 10)
-						'You overhear some of the customers right next to the stage, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
+			if $pantyworntype ! 'none' and if $braworntype ! 'none':
+				act 'Striptease 15 minutes (<<stpredmet>> items of clothing)':
+					*clr & cla
+					countmoney = 1
+					custbooing = 0
+					minut += 15
+					pcs_sweat += 15
+					fat -= 3
+					dancero_exp += rand(2, 4)
+					inhib_exp += rand(2,5)
+					city_stripping += rand(1,2)
+
+					if stpredmet = 1:pcs_sweat += 5
+					if stpredmet = 0:pcs_hairbsh = 0 & stripdancesum += 1
+
+					striptip = rand(pcs_dancero,100)
+					lapdance += striptip
+
+					gs 'stat'
+					
+					!You either start with underwear and clothes or in underwear. Each has a different picture set.
+					if $clothingworntype ! 'nude':
+						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclo' + rand(1,3) + '.jpg"></center>'
+						'You walk up on the stage and hear the music start. The effect is immediate, you start moving seductively around the pole in the center of the stage...'
+						gs 'stwork2', 'custboo'
+						act 'Take off your top':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclo' + rand(4,5) + '.jpg"></center>'
+							if custboo = 0:
+								pcs_mood += 5
+								'Urged on by the audience you take off your blouse and let it drop to the stage while you keep teasing them.'
+							else
+								pcs_mood -= 5
+								'Ignoring the comments from the audience you take off your blouse and let it drop to the stage while you keep teasing them.'
+							end
+							gs 'stwork2', 'custboo'
+							gs 'stat'
+							act 'Take off your skirt':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclo' + rand(6,7) + '.jpg"></center>'
+								if custboo = 0:
+									pcs_mood += 5
+									'The positive responses make you smile even broader as you unzip your skirt and let it drop to your ankles before kicking it off and laying down on the stage, rolling around and looking several customers straight in the eyes. Some of them throw some bills your way and you take care to pay them some extra attention.'
+								else
+									pcs_mood -= 5
+									'The negative comments make you feel a bit uncomfortable as you unzip your skirt and let it drop to your ankles before kicking it off and laying down on the stage, rolling around and looking several customers straight in the eyes.'
+								end
+								gs 'stwork2', 'custboo'
+								gs 'stat'
+								if custbooing < 2:
+									act 'Show them more':
+										*clr & cla
+										'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclo' + rand(9,15) + '.jpg"></center>'
+										if custboo = 0:
+											pcs_mood += 5
+											'The men in the first row go wild when you take off your bra. Shouting "Show your pussy! Show your pussy!"'
+											'As you hook your fingers into your panties a few customers start throwing money on the stage. You walk over to one of them and bend over, giving him a great view of your ass as you pull your panties off.'
+											'After that you dance as seductively as you can, trying to spread your attention over the audience, but paying extra attention to the ones who give you more money.'
+										else
+											'The negative comments make you feel a bit uncomfortable as you take off your bra, but as soon as soon as they can see your tits the audience becomes a lot more appreciative.'
+											'This gives you the courage to take off your panties as well. Once you are naked some customers start throwing money on the stage.'
+											'You dance as seductively as you can, trying to spread your attention over the audience, but paying extra attention to the ones who give you more money.'
+										end
+										'When the music starts winding down you collect your tips and pick up your clothes, waving a few kisses to your audience before going backstage again.'
+										gs 'exhibitionism', 3
+										stprivatechance = 1
+										gs 'stat'
+										act 'Leave the stage': gt 'stwork', 'start'
+									end
+								else
+									act 'Show them more':
+										*clr & cla
+										'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripclo8.jpg"></center>'
+										pcs_mood -= 5
+										'Not sure what you could do to please your audience you take off your bra and toss it with the rest of your clothes. Even this doesn''t seem to get any positive responses.'
+										'All you can hear is mockery as you try to ignore them and continue your act. The cutting remarks keep coming however and soon you are close to tears.'
+										'Before the music stops you start collecting your meager tips and clothes and flee backstage.'
+										gs 'exhibitionism', 1
+										stprivatechance = 0
+										gs 'stat'
+										act 'Leave the stage': gt 'stwork', 'start'
+									end
+								end
+							end
+						end
+					else
+						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripund' + rand(1,3) + '.jpg"></center>'
+						'You walk up on the stage and hear the music start. The effect is immediate, you start moving seductively around the pole in the center of the stage...'
+						gs 'stwork2', 'custboo'
+						act 'Take off your bra':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripund' + rand(4,8) + '.jpg"></center>'
+							if custboo = 0:
+								pcs_mood += 5
+								'Urged on by the audience you slowly take off your bra and let it drop to the stage while you keep teasing them.'
+							else
+								pcs_mood -= 5
+								'Ignoring the comments from the audience you slowly take off your bra and let it drop to the stage while you keep teasing them.'
+							end
+							'You even perform a few easy moves on the pole.'
+							gs 'stwork2', 'custboo'
+							gs 'exhibitionism', 1
+							gs 'stat'
+							act 'Take off your panties':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripund' + rand(9,12) + '.jpg"></center>'
+								if custboo = 0:
+									pcs_mood += 5
+									'The positive responses make you smile even broader as you playfully drop your panties to your ankles before kicking them off. You look several customers straight in the eyes as you do so. Some of them throw some bills your way and you take care to pay them some extra attention.'
+								else
+									pcs_mood -= 5
+									'The negative comments make you feel a bit uncomfortable as you playfully drop your panties to your ankles before kicking them off. You look several customers straight in the eyes as you do so.'
+								end
+								gs 'stwork2', 'custboo'
+								gs 'exhibitionism', 2
+								gs 'stat'
+								if custbooing < 2:
+									act 'Dance some more':
+										*clr & cla
+										'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripund' + rand(13,14) + '.jpg"></center>'
+										if custboo = 0:
+											pcs_mood += 5
+											'The men in the first row go wild as soon as you are fully nude. Shouting out their approval. Several of them are tipping generously.'
+											'You dance as seductively as you can, trying to spread your attention over the audience, but paying extra attention to the ones who give you more money.'
+										else
+											'The negative comments make you feel a bit uncomfortable. Not wanting to give up you put all your effort into your dancing. This seems to please some of them and they start tipping you after all.'
+											'You dance as seductively as you can, trying to spread your attention over the audience, but paying extra attention to the ones who give you more money.'
+										end
+										'When the music starts winding down you collect your tips and pick up your clothes, waving a few kisses to your audience before going backstage again.'
+										gs 'exhibitionism', 3
+										stprivatechance = 1
+										gs 'stat'
+										act 'Leave the stage': gt 'stwork', 'start'
+									end
+								else
+									act 'Flee the stage':
+										*clr & cla
+										'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/stripund' + rand(13,14) + '.jpg"></center>'
+										pcs_mood -= 5
+										'Even being completely naked doesn''t seem to get any positive responses.'
+										'All you can hear is mockery as you try to ignore them and continue your act. The cutting remarks keep coming however and soon you are close to tears.'
+										'Before the music stops you start collecting your meager tips and clothes and flee backstage.'
+										gs 'exhibitionism', 3
+										stprivatechance = 0
+										gs 'stat'
+										act 'Leave the stage': gt 'stwork', 'start'
+									end
+								end
+							end
+						end
 					end
 				end
-
-				gs 'stwork2', 'tipcalculator'
-
-				act 'Continue': gt 'stwork2', 'strip'
 			end
 
 			act 'Dance around the pole 5 minutes (<<stpredmet>> garments)':
@@ -106,9 +226,11 @@ if $ARGS[0] = 'strip':
 			if lapdance >= 150:
 				privatrand = rand(0, 100)
 				if privatrand >= 50:
-					'After you finish dance, the security guard approaches you and tells you that you have a customer wanting a private show.'
-					gs 'stwork2', 'privatdance'
-					exit
+					'After you finish dancing, a security guard approaches you and tells you that you have a customer wanting a private show.'
+					act '<b>Go perform a private dance</b>': 
+						stprivatechance = 0
+						gt 'stwork2', 'privatdance'
+					end
 				end
 			end
 		end
@@ -119,72 +241,110 @@ if $ARGS[0] = 'strip':
 	act 'Leave the stage':gt 'stwork', 'start'
 end
 
+if $ARGS[0] = 'custboo':
+	if pcs_weight > pcs_hgt - 90:
+		vesrand = rand(0, 100)
+		if vesrand >= 60:
+			striptip -= rand(5, 10)
+			custboo = 1
+			custbooing += 1
+			resprand = rand(0,3)
+			if resprand = 0:
+				'You overhear some of the customers right next to the stage, "Look at her fat hanging out. Her gut and ass shaking like jelly."'
+			elseif resprand = 1:
+				'You overhear some of the customers right next to the stage, "What a cow. Someone should roll her off the stage."'
+			elseif resprand = 2:
+				'You overhear some of the customers right next to the stage, "They should get that fat bitch off the stage and bring on a better looking stripper."'
+			elseif resprand = 3:
+				'You overhear some of the customers right next to the stage, "Looks like they cater to your tastes too. What was that last fat bitch called again? She weighed more than you, and this girl weighs as much as you two combined."'
+			end
+		else
+			custboo = 0
+			resprand = rand(0,1)
+			if resprand = 0:
+				'A few customers are catcalling. "Get those fat titties out!" You hear one of them yell.'
+			elseif resprand = 1:
+				'A few customers are catcalling. "Show us some flesh!" You hear one of them yell.'
+			end
+		end
+	else
+		custboo = 0
+		resprand = rand(0,1)
+		if resprand = 0:
+			'Several customers are catcalling. They want to see more.'
+		elseif resprand = 1:
+			'Most of the crowd seems to like what they are seeing. "Show us some more flesh!" You hear one of them yell.'
+		end
+	end
+end
+
 if $ARGS[0] = 'tipcalculator':
-	
+	!20% chance that tattoos increase tips
+	if rand (0, 4) = 0:
+		striptip += stripKoef
+	end
 	if striptip < 30:
 		'Nobody even noticed you or your efforts on the stage.'
 	elseif striptip < 60:
-		'A couple of people looked at you but nothing more than that, you didn''t receive a tip.'
+		'A couple of people looked at you but nothing more than that, you didn''t receive a single tip.'
 	elseif striptip < 70:
-		if payrand = 0: 'A couple of people looked at you but nothing more than that, you didn''t receive a tip.'
+		if payrand = 0: 'A couple of people looked at you but nothing more than that, you didn''t receive any tips.'
 	elseif striptip < 80:
 		if rand(0,5) = 0:
-			'The customers are pleased with your performance. No one tipped you.'
+			'The customers were pleased with your performance. No one tipped you however.'
 		else
 			paymoneyrand = rand(3,10) * 5
 			money += paymoneyrand
 			pcs_mood += rand(1,2)
-			'The customers are pleased with your performance. They give you <<paymoneyrand>> <b>₽</b> in tips.'
+			'The customers were pleased with your performance. They gave you <<paymoneyrand>> <b>₽</b> in tips.'
 		end
 	elseif striptip < 90:
 		if rand(0,10) = 0:
-			'The customers are following you move between their conversations. No one tipped you.'
+			'The customers followed your movements between their conversations. No one tipped you however.'
 		else
 			paymoneyrand = rand(10,50) * 5
 			money += paymoneyrand
 			pcs_mood += rand(1,2)
-		'The customers are following you move between their conversations. As you finish they give you <<paymoneyrand>> <b>₽</b> in tips.'
+		'The customers followed your movements between their conversations. After counting out your tips it amounts to <<paymoneyrand>> <b>₽</b>.'
 		end
 	else
 		if rand(0,15) = 0:
-			'The customers are paying their full attention to your dancing but no one tipped you.'
+			'The customers were mesmerized by your dancing but no one tipped you.'
 		else
 			paymoneyrand = rand(10,100) * 5
 			money += paymoneyrand
 			pcs_mood += rand(1,2)
-		'The customers are paying their full attention to your dancing and are tipped <<paymoneyrand>> <b>₽</b>.'
+			'The customers were mesmerized by your dancing and have tipped <<paymoneyrand>> <b>₽</b>.'
 		end
 	end
 end
 
 if $ARGS[0] = 'privatdance':
-	act 'Go and perform a lap dance':
-		*clr & cla
-		minut += 30
-		money += 400
-		if pcs_sweat < 30 : pcs_sweat += 10
-		pcs_hairbsh = 0
-		pcs_makeup = 0
-		fat -= 5
-		pcs_mood += rand(2,6)
-		dancero_exp += rand(2, 4)
-		stripdancesum += 1
-
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/privatstrip.jpg"></center>'
-		'You walk over to a smaller private room where you put on some music before the customer walks in. As the customer walks in you tell him to sit down and enjoy the show. You spend half an hour showing off your dancing skills, and every time you grind against him you can feel his rock hard cock.'
-
-		stprrand = rand(0,15)
-		if stprrand = 0:
-			gt 'stwork2', 'pr1'
-		elseif stprrand = 1:
-			gt 'stwork2', 'pr2'
-		elseif stprrand = 2:
-			gt 'stwork2', 'pr3'
-		end
+	*clr & cla
+	minut += 30
+	money += 400
+	if pcs_sweat < 30 : pcs_sweat += 10
+	pcs_hairbsh = 0
+	pcs_makeup = 0
+	fat -= 5
+	pcs_mood += rand(2,6)
+	dancero_exp += rand(2, 4)
+	stripdancesum += 1
 
-		act 'Return to the locker room':gt 'stwork', 'start'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/privatstrip.jpg"></center>'
+	'You walk over to a smaller private room where you put on some music before the customer walks in. As the customer walks in you tell him to sit down and enjoy the show. You spend half an hour showing off your dancing skills, and every time you grind against him you can feel his rock hard cock.'
+
+	stprrand = rand(0,15)
+	if stprrand = 0:
+		gt 'stwork2', 'pr1'
+	elseif stprrand = 1:
+		gt 'stwork2', 'pr2'
+	elseif stprrand = 2:
+		gt 'stwork2', 'pr3'
 	end
+
+	act 'Return to the locker room':gt 'stwork', 'start'
 end
 
 if $ARGS[0] = 'pr1':