Forráskód Böngészése

Fixed some errors with last commit

Vengeance_11 9 hónapja
szülő
commit
c5f90931a6
2 módosított fájl, 64 hozzáadás és 51 törlés
  1. 0 16
      locations/albina_starlets.qsrc
  2. 64 35
      locations/albina_starlets_sex.qsrc

+ 0 - 16
locations/albina_starlets.qsrc

@@ -441,22 +441,6 @@ if $ARGS[0] = 'after_show':
 	end
 end
 
-if $ARGS[0] = 'cab_home':
-	menu_off = 1
-	*clr & cla
-	minut += 15
-	gs 'stat'
-	'You call a taxi to take you back to town.'
-
-	if $ARGS[1] <> 'no_clean':
-		cumspclnt = 20
-		gs 'cum_cleanup'
-		'While waiting for the taxi, you gather up your clothes and enter the bathroom. You clean yourself up at the sink as best as you can before getting dressed. You feel incredibily dirty and the only thing you want right now is a thorough shower when you get home.'
-	end
-
-	act 'Leave': gt 'pav_residential'
-end
-
 if $ARGS[0] = 'parkrally':
 	cla & *clr
 	AlbinaQW['ParkRally'] = 3

+ 64 - 35
locations/albina_starlets_sex.qsrc

@@ -9,15 +9,16 @@ if $ARGS[0] = 'whore1':
 	gs 'boyStat', $AlbinaQW['Cust']
 	gs 'stat'
 	
-	'The Armenian, still tightly gripping your arm, drags you into his hotel room where he forces you to strip naked, his hungry eyes inspecting every inch of you. "Time to earn your money whore!" he says as he forces you to your knees in front of him.'
 	if AlbinaQW['client1'] = 0:
+		'The Armenian, still tightly gripping your arm, drags you into his hotel room where he forces you to strip naked, his hungry eyes inspecting every inch of you. "Time to earn your money, whore!" he says as he forces you to your knees in front of him.'
+		
 		act 'Please him':
 			*clr & cla
 			guy += 1
 			AlbinaQW['client1'] = 1
 			gs 'stat'
 			'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj51.mp4"></video></center>'
-			'He unzips his pants, pulls his cock out and stares down at you impatiently, so you start sheepishly licking his shaft and sucking on the head before taking it into your mouth and sucking while looking up to seek approval.'
+			'He unzips his pants, pulls his cock out and stares down at you impatiently, so you start sheepishly licking his shaft and sucking on the head before taking it into your mouth and sucking while looking up at him to seek approval.'
 			'"Oh yes, just like that you little fucking slut!"'
 			gs 'arousal', 'bj', 10, 'sub'
 			gs 'stat'
@@ -50,7 +51,7 @@ if $ARGS[0] = 'whore1':
 						gs 'arousal', 'end'
 						gs 'stat'
 
-						act 'Call a taxi': gt 'albina_starlets', 'cab_home'
+						act 'Call a taxi': gt 'albina_starlets_sex', 'cab_home'
 					end
 					
 					act 'Enjoy it':
@@ -59,7 +60,7 @@ if $ARGS[0] = 'whore1':
 						'He doesn''t loosen his grip until you''re on the verge of blacking out. When he releases you, you feel a wave of pleasure rushing over you as he starts fucking you even harder, seemingly close to climax as you rub your neck.'
 						*nl
 						'After a few more minutes, he pulls out and flips you over before pulling you up onto your knees, your ass in the air. He slides back inside your pussy and starts pounding you doggystyle as he slaps and squeezes your ass before he suddenly pulls out and you feel his cum splattering onto your labia and asshole.'
-						'"Waste of a good pussy if you can''t cum inside it I say, especially when it''s dirty sluts like you who like it," he crudly remarks. "I might pay Albina a little visit again. Her tight little fuck hole is just begging me to fill it again!" he adds.'
+						'"Waste of a good pussy if you can''t cum inside it I say, especially when it''s dirty sluts like you who like it rough," he crudly remarks. "I might pay Albina a little visit again. Her tight little fuck hole is just begging me to fill it again!" he adds.'
 						'To your disgust, he drags you up next to him and forces you into his now sweaty embrace, his flabby arm wrapped around your neck as he fondles and squeezes your breast while speaking on his phone in a language you don''t understand. This post sex torture finally ends 10 minutes later.'
 						gs 'pain', 2, 'throat', 'choke'
 						gs 'arousal', 'vaginal', 30, 'sub', 'humiliation', 'rough'
@@ -70,13 +71,13 @@ if $ARGS[0] = 'whore1':
 						gs 'arousal', 'end'
 						gs 'stat'
 						
-						act 'Call a taxi': gt 'albina_starlets', 'cab_home'
+						act 'Call a taxi': gt 'albina_starlets_sex', 'cab_home'
 					end
 				end
 				
 				act 'You hate it':
 					cla
-					'You squeal in pain as he continues twisting your nipples. "That''s right, keep squealing like a bitch!"'
+					'You squeal in pain as he continues twisting your nipple. "That''s right, keep squealing like a bitch!"'
 					'You then panic when he stops thrusting and tightens his grip around your neck. You thrash your arms in distress, but he just smiles and doesn''t loosen his grip until you''re on the verge of blacking out. He then resumes fucking you, faster and seemingly closer to climax as you clutch your neck and gasp for air.'
 					*nl
 					'After a few more minutes, he pulls out and flips you over before pulling you up onto your knees, your ass in the air. He slides back inside your pussy and starts pounding you doggystyle as he slaps and squeezes your ass. You are forced to endure this for what feels like an eternity before he suddenly pulls out and you feel his cum splattering onto your labia and asshole.'
@@ -91,16 +92,18 @@ if $ARGS[0] = 'whore1':
 					gs 'arousal', 'end'
 					gs 'stat'
 
-					act 'Call a taxi': gt 'albina_starlets', 'cab_home'
+					act 'Call a taxi': gt 'albina_starlets_sex', 'cab_home'
 				end
 			end
 		end
 	else
+		'The Armenian leads you into his hotel room where he looks at you expectantly. Knowing what he wants, you strip naked and get on your knees in front of him, his perverted gaze watching you as you do.'
+		
 		act 'Please him':
 			*clr & cla
 			'<center><video autoplay loop src="images/locations/pavlovsk/resident/apartment/shulginhome/smroom/event/rought/oral1.mp4"></video></center>'
-			'He unzips his pants, pulls his cock out and stares down at you impatiently, so you immediately take it into your mouth and start sucking while looking up to seek approval.'
-			'"The whore remembers her place. With my cock between her lips!" he laughs before grabbing your hair and proceeding to fuck your mouth, not appearing care as you gag and splutter as his cock slams in and out of your throat.'
+			'You unzip his pants and immediately take his cock into your mouth, sucking it while looking up at him to seek approval.'
+			'"The whore remembers her place. On her knees with my cock between her lips!" he laughs before grabbing your hair and proceeding to fuck your mouth, making you gag and splutter as his cock slams in and out of your throat.'
 			guy += 1
 			gs 'arousal', 'bj', 10, 'sub'
 			gs 'stat'
@@ -108,15 +111,16 @@ if $ARGS[0] = 'whore1':
 			act 'Get your pussy fucked':
 				*clr & cla
 				'<center><video autoplay loop src="images/locations/pavlovsk/resident/apartment/shulginhome/smroom/event/rought/miss1.mp4"></video></center>'
-				'After a few minutes of this, the man roughly flips you on your back and spreads your legs, smiling crudely as he massages your clit with his fat thumb. "This pussy is one of the finest my money has ever bought, and I''m going to get my money''s worth, slut. You''re going to milk every drop of cum from my cock. Got it?" You just silently nod and feel the thick tip of his fat cock spreading your labia apart as he pushes into you.'
+				'After a few minutes of this, the man roughly flips you on your back and spreads your legs, smiling crudely as he massages your clit with his fat thumb. "This pussy is one of the finest my money has ever bought, and I''m going to get my money''s worth, slut. You''re going to milk every drop of cum from my cock. Got it?"' 
+				'You just silently nod and feel the thick tip of his fat cock spreading your labia apart as he pushes into you.'
 				
 				if AlbinaQW['client1_like'] = 1:
 					cla
-					'Knowing you like it rough, his hand immediately reaches for your nipple and roughly twists it as he starts pounding your pussy. You squeal in pleasure and instintively clench around his cock. "That''s it, slut. Squeeze your pussy around my cock!" he smirks before wrapping his hand around your neck and squeezing.' 
+					'Knowing you like it rough, his hand immediately reaches for your nipple and roughly twists it as he starts pounding your pussy. You squeal in pleasure and instintively clench your pussy around his cock. "That''s it, slut! Squeeze harder!" he smirks before wrapping his hand around your neck and squeezing.' 
 					
 					act 'Panic':
 						cla
-						'You thrash your arms in distress, but he just smiles and doesn''t loosen his grip until you''re on the verge of blacking out. He then resumes fucking you, faster and seemingly closer to climax as you clutch your neck and gasp for air.'
+						'You look at him in distress, but he just smiles and doesn''t loosen his grip until you''re on the verge of blacking out. He then resumes fucking you, faster and seemingly closer to climax as you clutch your neck and gasp for air.'
 						*nl
 						'After a few more minutes, he pulls out and flips you over before pulling you up onto your knees, your ass in the air. He slides back inside your pussy and starts pounding you doggystyle as he slaps and squeezes your ass. You''re forced to endure this for what feels like an eternity before he suddenly pulls out and you feel his cum splattering onto your labia and asshole.'
 						'"Another pounding where I can''t cum inside you," he mutters. "Whores with fucking strings attached. At least the pussy is good."'
@@ -130,7 +134,7 @@ if $ARGS[0] = 'whore1':
 						gs 'arousal', 'end'
 						gs 'stat'
 
-						act 'Call a taxi': gt 'albina_starlets', 'cab_home'
+						act 'Call a taxi': gt 'albina_starlets_sex', 'cab_home'
 					end
 					
 					act 'Enjoy it':
@@ -150,7 +154,7 @@ if $ARGS[0] = 'whore1':
 						gs 'arousal', 'end'
 						gs 'stat'
 						
-						act 'Call a taxi': gt 'albina_starlets', 'cab_home'
+						act 'Call a taxi': gt 'albina_starlets_sex', 'cab_home'
 					end
 				else
 					cla
@@ -172,7 +176,7 @@ if $ARGS[0] = 'whore1':
 						gs 'arousal', 'end'
 						gs 'stat'
 
-						act 'Call a taxi': gt 'albina_starlets', 'cab_home'
+						act 'Call a taxi': gt 'albina_starlets_sex', 'cab_home'
 					end
 				end
 			end
@@ -190,11 +194,13 @@ if $ARGS[0] = 'whore2':
 	$AlbinaQW['Cust1'] = $npclastgenerated
 	gs 'boyStat', $AlbinaQW['Cust1'], 'a'
 	gs 'stat'
+	
 	if AlbinaQW['client2'] = 0:
 		AlbinaQW['client2'] = 1
 		gs 'stat'
 		'Laughing, the two Armenians shove you into their hotel room and you fall to the floor. "Get up. It''s time to show us what you''ve got little lamb!" one says.'
 		'"I want to see what those <<$pc_desc[''lips'']>> lips of yours can do. They look like they were made to suck cock!" the other man replies.'
+		
 		act 'Please them':
 			*clr & cla
 			guy += 2
@@ -214,6 +220,7 @@ if $ARGS[0] = 'whore2':
 				'"It''s time for you to get roasted, little lamb!" one of them says after you''ve spent a few minutes sucking their cocks.'
 				'You''re grabbed by the hair and roughly pulled to your feet before you''re thrown onto the bed on all fours. The two men undress and move into position at both ends. "You might be the sweetest thing I''ve ever seen. Even sweeter than that last whore your friend gave us!" one of the men laughs.'
 				'You start thinking of that girl and how she handled these men when a sharp slap to the face brings you back and you notice the cock hanging in front of you. "Get back to work whore!" he shouts.'
+				
 				act 'Get spitroasted':
 					*clr & cla
 					'<center><video autoplay loop src="images/shared/sex/group/threesomepm8.mp4"></video></center>'
@@ -253,14 +260,14 @@ if $ARGS[0] = 'whore2':
 								*clr & cla
 								'<center><video autoplay loop src="images/shared/sex/cum/mouth/cum1.11.mp4"></video></center>'
 								'He forces you to open your mouth and his cum starts splashing onto your tongue before he makes you suck him. Your mouth is now full of cum and some starts dribbling down your chin.'
-								'One of the men sees this and grabs your throat. "Now now little lamb. Don''t go wasting it. I want you to swallow every. Last. Drop!"'
+								'One of the men sees this and grabs your throat. "Now now, little lamb. Don''t go wasting it. I want you to swallow every. Last. Drop!"'
 								'You do as you''re told and swallow the loads in your mouth, while using your finger to scoop the cum on your chin back into your mouth. You show the man your clean tongue and he releases you with a pat on the head.'
 								'"This little lamb knows her place. I think we''ll be seeing you again soon!"'
 								gs 'arousal', 'bj', 5, 'dick1', 'group', 'sub'
 								gs 'cum_call', 'mouth_swallow', $AlbinaQW['Cust1']
 								gs 'arousal', 'end'
 								gs 'stat'
-								act 'Call a taxi': gt 'albina_starlets', 'cab_home'
+								act 'Call a taxi': gt 'albina_starlets_sex', 'cab_home'
 							end
 						end
 					end
@@ -270,6 +277,7 @@ if $ARGS[0] = 'whore2':
 	else
 		'Laughing, the two Armenians shove you into their hotel room and you fall to the floor. "Get up. It''s time for another roasting, little lamb!" one says.'
 		'"Yeah, I want to see those <<$pc_desc[''lips'']>> lips of yours wrapped around my cock again!" the other man replies.'
+		
 		act 'Please them':
 			*clr & cla
 			guy += 2
@@ -289,6 +297,7 @@ if $ARGS[0] = 'whore2':
 				'"It''s time for you to get roasted, little lamb!" one of them says after you''ve spent a few minutes sucking their cocks.'
 				'You''re grabbed by the hair and roughly pulled to your feet before you''re thrown onto the bed on all fours. The two men undress and move into position at both ends. "You''re definetely the best whore your friend has ever given us!" one of the men laughs.'
 				'You start thinking about what he just said when a sharp slap to the face brings you back and you notice the cock hanging in front of you. "Get back to work, whore!" he shouts.'
+				
 				act 'Get spitroasted':
 					*clr & cla
 					'<center><video autoplay loop src="images/shared/sex/group/threesomepm8.mp4"></video></center>'
@@ -335,7 +344,7 @@ if $ARGS[0] = 'whore2':
 								gs 'cum_call', 'mouth_swallow', $AlbinaQW['Cust1']
 								gs 'arousal', 'end'
 								gs 'stat'
-								act 'Call a taxi': gt 'albina_starlets', 'cab_home'
+								act 'Call a taxi': gt 'albina_starlets_sex', 'cab_home'
 							end
 						end
 					end
@@ -359,6 +368,7 @@ if $ARGS[0] = 'whore3':
 		AlbinaQW['client3']= 1
 		gs 'stat'
 		'The young men take you to their hotel room. One of them impatiently pulls you along while the other shyly tags along behind you.'
+		
 		act 'Get started':
 			*clr & cla
 			guy += 2
@@ -405,7 +415,7 @@ if $ARGS[0] = 'whore3':
 						gs 'cum_call', 'mouth_swallow', $AlbinaQW['Cust1']
 						gs 'arousal', 'end'
 						gs 'stat'
-						act 'Call a taxi': gt 'albina_starlets', 'cab_home'
+						act 'Call a taxi': gt 'albina_starlets_sex', 'cab_home'
 					end
 				end
 			end
@@ -427,8 +437,9 @@ if $ARGS[0] = 'whore3':
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/threesome1.jpg"></center>'
 				'The boys lifts you to your feet and practically tear your clothes off before throwing you on your back on the bed. They pull their pants off and the confident boy dangles his cock near your face as you hang your head over the edge of the bed.'
 				'You take his cock into your mouth and start sucking while the shy boy gets on the bed and spreads your legs before shoving his cock into your pussy.'
-				'After a few minutes, the boys switch places, the shy boy shoving his bigger cock into your mouth while the other inserts his into your pussy. It''s not as big as his friend''s and doesn''t fill you as much, but he enthusiastically starts fucking you, driving his friend''s dick down your throat.'
 				*nl
+				'After a few minutes, the confident boy speaks up. "I want a turn of that pussy now."'
+				'They switch places, the shy boy shoving his bigger cock into your mouth while the other inserts his into your pussy. It''s not as big as his friend''s and doesn''t fill you as much, but he enthusiastically starts fucking you, driving his friend''s dick down your throat.'
 				'They fuck you like this for a few minutes until they both pull out and get you down on your knees in front of them as they jerk their cocks.'
 				gs 'arousal', 'bj', 30, 'dick', 'sub', 'group'
 				gs 'arousal', 'bj', 30, 'dick1', 'sub', 'group'
@@ -450,7 +461,7 @@ if $ARGS[0] = 'whore3':
 					gs 'cum_call', 'face', $AlbinaQW['Cust1']
 					gs 'arousal', 'end'
 					gs 'stat'
-					act 'Call a taxi': gt 'albina_starlets', 'cab_home'
+					act 'Call a taxi': gt 'albina_starlets_sex', 'cab_home'
 				end
 			end
 		end
@@ -529,7 +540,7 @@ if $ARGS[0] = 'whore4':
 						gs 'arousal', 'hj', 5 'sub'
 						gs 'arousal', 'end'
 						gs 'stat'
-						act 'Call a taxi': gt 'albina_starlets', 'cab_home'
+						act 'Call a taxi': gt 'albina_starlets_sex', 'cab_home'
 					end
 				end
 			end
@@ -576,7 +587,7 @@ if $ARGS[0] = 'whore5':
 			gs 'arousal', 'anal_finger', 5, 'dick1', 'sub'
 			gs 'stat'
 
-			act 'Get stuffed':
+			act 'Anal':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/blackthreesome.jpg"></center>'
 				'You continue sucking away at the first guy as the other one pushes his massive cock into your ass. Your pained moans at your asshole being stretched are muffled by the cock in your mouth.'
@@ -595,22 +606,22 @@ if $ARGS[0] = 'whore5':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/blackfacial.jpg"></center>'
 					'The guy you''re sucking suddenly grabs you by the head and you start choking as the huge cock slides down your throat and cum starts flooding into your mouth.'
-					'You let out a strangled gurgle and frantically start swallowing it all down until he finally finishes. He slides his cock out of your mouth and you swallow the last of the cum in your mouth.'
+					'You frantically start swallowing it all down until he finally finishes. He then slides his cock out of your mouth and you swallow the last of the cum in your mouth.'
 					'You look up at him, seeking approval. He pats you on the head. "I guess you little white girls really do crave it."'
 					'You take their cocks in your hands and finish them off with a final blowjob each, to their immense satisfaction.'
 					gs 'arousal', 'bj', 10, 'dick1', 'sub', 'deepthroat', 'rough', 'humiliation'
 					gs 'pain', 1, 'throat', 'choke'
-					gs 'cum_call', 'mouth_swallow', $AlbinaQW['Cust1'], 0, 0, 0, 120
+					gs 'cum_call', 'mouth_swallow', $AlbinaQW['Cust'], 0, 0, 0, 120
 					gs 'arousal', 'end'
 					gs 'stat'
-					act 'Call a taxi': gt 'albina_starlets', 'cab_home'
+					act 'Call a taxi': gt 'albina_starlets_sex', 'cab_home'
 				end
 			end
 		elseif tipdarand = 1:
 			'The guys then effortlessy lift you up and lay you on the bed, your head leaning over the edge.'
-			'One of the guys climbs in beside you and spreads your legs before his cock starts grinding between your labia. The other moves to the edge of the bed and presses his cock against your lips.'
+			'One of them climbs in beside you and spreads your legs as the other moves to the edge of the bed and presses his cock against your lips.'
 
-			act 'Get filled':
+			act 'Vaginal':
 				*clr & cla
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/blackthreesome1.jpg"></center>'
@@ -626,12 +637,12 @@ if $ARGS[0] = 'whore5':
 				minut -= 30
 				gs 'stat'
 				
-				act 'Monster facial':
+				act 'Facial':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/blackfacial.jpg"></center>'
 					'You cough when the cock in your mouth is pulled out. "Get ready for it, girl!"'
 					'You''re barely able to close your eyes before you''re hit in the face with a massive stream of cum that drenches you.'
-					'Your eyes glued closed, you feel the other guy pull out of your pussy and telling you to stay still before another huge load of thick cum is deposited over your face and into your hair.' 
+					'Your eyes glued closed, you feel the other guy pull out of your pussy and telling you to stay still before another huge load of thick cum splatters over your face and into your hair.' 
 					'You wipe the cum away from your eyes and crawl off the bed between the two men as they smile down at you.'
 					'"Damn girl, you are a hot mess!" one of them laughs as you finish them off by slowly jerking their massive cocks.'
 					gs 'cum_call', 'face', $AlbinaQW['Cust'], 0, 0, 0, 120
@@ -643,7 +654,7 @@ if $ARGS[0] = 'whore5':
 					gs 'arousal', 'hj', 5, 'dick1', 'sub', 'group', 'humiliation'
 					gs 'arousal', 'end'
 					gs 'stat'
-					act 'Call a taxi': gt 'albina_starlets', 'cab_home'
+					act 'Call a taxi': gt 'albina_starlets_sex', 'cab_home'
 				end
 			end
 		end
@@ -696,7 +707,7 @@ if $ARGS[0] = 'whore6':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/prostitute/souvenir.jpg"></center>'
 					'Eventually, his thrusts grow faster and he pulls out and pushes you on your stomach. He groans as his cum spurts onto your ass. When he finishes, he grabs his phone and moves around beside you.'
-					'"That pussy is one of the best I''ve ever had. I just need a souvenir to remind me of it," he smiles as he takes a photo of you and your cum splattered ass. "You definetely satisified me, so you deserve your reward."'
+					'"That pussy is one of the best I''ve ever had. I just need a souvenir to remind me of it," he smiles as he takes a photo of you and your cum splattered ass. "You definitely satisified me, so you deserve your reward."'
 					gs 'arousal', 'vaginal', 10, 'sub'
 					gs 'cum_call', 'precum', $AlbinaQW['Cust']
 					gs 'arousal', 'BDSM', -1, 'sub', 'humiliation'
@@ -717,7 +728,7 @@ if $ARGS[0] = 'whore6':
 						gs 'pain', 1, 'asscheeks', 'slap'
 						gs 'arousal', 'end'
       					gs 'stat'
-						act 'Call a taxi' : gt 'albina_starlets', 'cab_home', 'no_clean'
+						act 'Call a taxi' : gt 'albina_starlets_sex', 'cab_home', 'no_clean'
 					end
 				end
 			end
@@ -767,7 +778,7 @@ if $ARGS[0] = 'whore7':
 			minut += 10
 			gs 'stat'
 
-			act 'Service them': gt 'albina_starlets', 'whore7_1'
+			act 'Service them': gt 'albina_starlets_sex', 'whore7_1'
 		end
 	else
 		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -787,7 +798,7 @@ if $ARGS[0] = 'whore7':
 		minut += 15
 		gs 'stat'
 
-		act 'Service them': gt 'albina_starlets', 'whore7_1'
+		act 'Service them': gt 'albina_starlets_sex', 'whore7_1'
 	end
 end
 
@@ -948,6 +959,7 @@ if $ARGS[0] = 'whore8':
 							'"I''ll... I''ll do better next time, mistress..." you sheepishly reply.'
 							'"You better. Otherwise I''m going to have to keep punishing you until you learn."'
 							'You just nod and spend the rest of the journey in silence. Reaching the gas station, she ushers you out of the car and quickly drives away without another word.'
+							act 'Leave': gt 'zaprF', 'start'
 						end
 					end
 				end
@@ -956,4 +968,21 @@ if $ARGS[0] = 'whore8':
 	end
 end
 
+if $ARGS[0] = 'cab_home':
+	menu_off = 1
+	*clr & cla
+	minut += 15
+	gs 'stat'
+	'You call a taxi to take you back to town.'
+
+	if $ARGS[1] <> 'no_clean':
+		cumspclnt = 20
+		gs 'cum_cleanup'
+		'While waiting for the taxi, you gather up your clothes and enter the bathroom. You clean yourself up at the sink as best as you can before getting dressed. You feel incredibily dirty and the only thing you want right now is a thorough shower when you get home.'
+	end
+
+	act 'Leave': gt 'pav_residential'
+end
+
+
 --- albina_starlets_sex ---------------------------------