Some small text edits

locations/cum_cleanup.qsrc

@@ -82,12 +82,12 @@ elseif $ARGS[0] = 'cleanwomb' and arrsize('ARGS') > 1:
 	KILLVAR 'cumarrcon',ARGS[1]
 elseif $ARGS[0] = 'cumcondslip':
 	if cumcondslip_deep > (pcs_vag / 2):
-		'The condom is slipped too deep inside to be pulled out by your hand. You need to ask for professional help!'
+		'The condom is too deep inside you to be pulled out by hand. You need to seek professional help!'
 	else
 		gs 'cum_cleanup', 'cleanloc', 17
 		cumcondslip = 0
 		gs 'stat'
-		'With some effort, you managed to remove the condom.'
+		'With some effort, you manage to remove the condom.'
 	end
 elseif $ARGS[0] = 'reset':
 	!!{ Used in cheat and when giving birth.}

locations/journal.qsrc

@@ -29,12 +29,12 @@ if $ARGS[0] = 'records':
 	if home_owned[1] = 1:'You rent a two room apartment in the city residential area. Your rent for the apartment is subtracted automatically in sum of <<home_rent[1]>> <b>₽</b> us electric bill on 25th of each month. You are currently paid up for <b><<ArendHouseSL>></b> days'
 	if home_owned[1] = 2:'You own a two room apartment in the city residential area. Your utility bills are due on the 25th of each month.'
 	if home_owned[1] = 3:'You own a two room apartment in the city residential area. It''s currently occupied by your tenants.'
-	if home_owned[2] > 0:'You live in a two room apartment in a large apartment complex. You live with your parents and siblings in Pavlovsk.'
+	if home_owned[2] > 0:'You live with your parents and siblings in a two room apartment in Pavlovsk.'
 	if home_owned[3] > 0:'You own a small holiday cottage with an adjacent allotment in the communal village.'
 	if home_owned[4] > 0:'You rent a two room apartment in Pushkin. Your rent for the apartment is subtracted automatically in the sum of <<home_rent[4]>> <b>₽</b> us electric bill on the 25th of each month. You are currently paid up for <b><<ArendHouseSL4>></b> days'
 	if home_owned[5] = 1:'You own a vacant block in the city suburbs. Your utility bills are due on the 25th of each month.'
-	if home_owned[5] = 2:'You own a block in the city suburbs, upon which you are building a house. Your utility bills are due on the 25th of each month.'
-	if home_owned[5] = 3:'You own an impressive mansion in the suburbs of St. Petersburg. Your utility bills are due on the 25th of each month.'
+	if home_owned[5] = 2:'You own a plot of land in the city suburbs upon which you are building a house. Your utility bills are due on the 25th of each month.'
+	if home_owned[5] = 3:'You own an impressive mansion in the city suburbs. Your utility bills are due on the 25th of each month.'
 	
 	'<center><h2>Work</h2></center>'
 	

locations/pornstudio.qsrc

@@ -1,5 +1,5 @@
 # pornstudio
-!!2021/04/15
+!!2021/07/17
 
 $location_type = 'public_indoors'
 
@@ -19,11 +19,11 @@ if $ARGS[0] = 'start':
 	act 'Leave': gt 'city_industrial', 'redlight'
 
 	if hour < 10 or hour > 22:
-		'The porn studio is currently closed. It is open between 10:00 and 22:00'
+		'The porn studio is currently closed. It is open between 10:00 and 22:00.'
 		exit
 	end
 
-	'The manager''s office is open.'
+	'You enter the studio and are greeted by a busy scene of actors, actresses and other studio employees going about their business or chatting to each other. It looks like the manager is in his office.'
 
 	act 'Go to the manager': gt 'pornstudio', 'manager'
 
@@ -53,8 +53,8 @@ if $ARGS[0] = 'start':
 				minut += 5
 				workDisk = 2
 				gs 'stat'
-				'You are given a thumb drive, and asked if you remember all the instructions. You nod your head and leave with the drive.'
-				'As you leave the studio, you hear someone come out of a nearby building and start following you.'
+				'You are given a thumb drive, and asked if you remember all the instructions. You quietly nod and leave.'
+				'As you leave the studio, you hear someone exit a nearby building and start following you.'
 				'<font color="magenta"> "Just avoid dark, deserted places and this will blow over."</font> you reassure yourself, and carry on.'
 
 				act 'Leave': gt 'city_industrial', 'redlight'
@@ -71,10 +71,8 @@ if $ARGS[0] = 'start':
 					workDolg = 200000
 					workDolgDay = 7
 					'Digging through your things, you begin to panic. No envelope. You search again, but to your despair, you can''t find it. You stand there, unable to speak.'
-					'The manager grabs his phone and makes a call. You can''t hear exactly what he is saying because your heart is beating so loud, but he soon hangs up.'
-					'"You are very lucky that the boss is in a good mood. He has given you one week to recover his losses."'
-					'"You have until next Friday evening to bring me 200,000 <b>₽</b>. Do this and we''re done, you will never work for us again.'
-					'<font color="#0D42C0"> "Fail, and bad things will happen to you."</font> he says with a stern look on his face.'
+					'The manager grabs his phone and makes a call. You can''t hear exactly what he''s saying because your heart is beating so loud, but he soon hangs up.'
+					'"You''re very lucky the boss is in a good mood. He''s given you one week to recover his losses, so you have until next Friday evening to bring me 200,000 <b>₽</b>. Do this and we''re done, you''ll never work for us again. Fail, and bad things will happen to you." he says with a stern look on his face.'
 				else
 					konvert = 0
 					money += 5000
@@ -94,7 +92,7 @@ if $ARGS[0] = 'start':
 			pfilmNoVenera = 0
 			pfilmNO = 0
 			gs 'stat'
-			'You hand over your medical certificate showing that you are STD free. They promise to consider your reinstatement as a porn actress.'
+			'You hand over your medical certificate showing that you''re STD free. They promise to consider your reinstatement.'
 
 			act 'Leave': gt 'pornstudio', 'start'
 		end
@@ -108,25 +106,25 @@ if $ARGS[0] = 'pa':
 	$menu_arg = 'pa'
 	menu_off = 0
 	gs 'stat'
-	'There is a young guy tapping on the computer keyboard in a small office.'
+	'Inside the small office is a young man sitting at a computer, tapping away at the keyboard.'
 
 	if film = 0:
 	'"Who are you? This office is for staff only."'
 	else
-		'<font color="#0D42C0"> "Hi, what can I do for you?"</font>'
+		'"Hi there, what can I do for you?"'
 		if pfilmNO = 0:
 			act 'Change your porn name':
 				*clr & cla
 				menu_off = 1
 				gs 'stat'
-				'"I would like to change my professional name. Is it possible?" you ask.'
-				'"Of course, just give me a minute to register it in the database. So, what would you like to be called?" he replies.'
+				'"Is it possible for me to change my stage name?"'
+				'"Of course! Just give me a minute to register it in the database. So, what would you like to be called?" he replies.'
 				act '"I want to be called..."':
 					$pfname = input("Enter the name you want to be known as.")
 					if $pfname = '':$pfname = 'Lotta Cox'
 					gt 'pornstudio', 'pa'
 				end
-				act '"Never mind"': gt 'pornstudio', 'pa'
+				act 'Nothing': gt 'pornstudio', 'pa'
 			end
 		end
 		if pfilmSTOP = 0:
@@ -139,17 +137,17 @@ if $ARGS[0] = 'pa':
 				'"You''ve made <<film>> films."'
 
 				if porn_fame < 10:
-					'"Nobody knows your name. You are one of hundreds of unknown actresses. You will get to play tertiary characters in big movies. Your own movies sold really cheap."'
+					'"Nobody knows your name. You''re one of hundreds of amateur actresses who only play minor roles in big movies. Your own movies sold really cheap."'
 				elseif porn_fame < 20:
-					'"You are still unknown, but your name is mentioned in the credits. You are unlikely to get recognized. Your own movies are still sold cheap."'
+					'"You''re still unknown, but your name is mentioned in the credits. You''re unlikely to be recognized, and your own movies are still sold cheap."'
 				elseif porn_fame < 40:
-					'"You are mentioned here and there, but you will still mostly get secondary roles in most of your porn movies. Your name is slowly emerging and you have your own fans."'
+					'"You''re mentioned here and there, but you still mostly get secondary roles in most of your movies. Your name is slowly emerging and you have your own fanbase."'
 				elseif porn_fame < 60:
-					'"You are a minor, but known porn actress. You occasionally get primary roles, and could get back cover appearances. Your movies are getting more popular, which means more fans and money."'
+					'"You''re a minor, but known porn actress. You get the occasional primary role and back cover appearance. Your movies are getting more popular, which means more fans and more money."'
 				elseif porn_fame < 80:
-					'"You are a known porn actress. You play mostly primary roles, and you appear on the front cover. Your movies are sold at a decent price, and in big number. You may also appear in a variety of adult magazines."'
+					'"You''re a known porn actress who mostly plays primary roles, and you appear on the front cover. Your movies are sold at a decent price, and in big numbers. You may also appear in a variety of adult magazines."'
 				else
-					'"You are a famous porn actress and always play the main role. You are a brand name, with sex toys and T-shirts among the items sold as part of your own line of merchandise."'
+					'"You''re a famous porn starlet and always play the main role. You''re a brand name, with sex toys and T-shirts among the items sold as part of your own line of merchandise."'
 				end
 
 				if porn_fame >= 20:
@@ -186,12 +184,12 @@ if $ARGS[0] = 'pa':
 					if k < 14:jump 'repeating'
 					if ftypecount[1] = ftypecount[0]:
 						if ftypecount[0] = ftypecount[2]:
-							'You are known for your <<$ftypecount[0]>>, <<$ftypecount[1]>> and <<$ftypecount[2]>> scenes.'
+							'You''re known for your <<$ftypecount[0]>>, <<$ftypecount[1]>> and <<$ftypecount[2]>> scenes.'
 						else
-							'You are known for your <<$ftypecount[0]>> and <<$ftypecount[1]>> scenes.'
+							'You''re known for your <<$ftypecount[0]>> and <<$ftypecount[1]>> scenes.'
 						end
 					else
-						'You are known for your <<$ftypecount[0]>> scenes.'
+						'You''re known for your <<$ftypecount[0]>> scenes.'
 					end
 				end
 
@@ -204,8 +202,8 @@ if $ARGS[0] = 'pa':
 						minut += 5
 						films_stop_payment = film * 40000
 						gs 'stat'
-						'"Seeing as you''re not well known, it''s unlikely anyone would notice. However, to remove them you''d have to cover the loss of the studio''s potential future profits- 40,000 <b>₽</b> per film. That''s a total of <<films_stop_payment>> <b>₽</b>."'
-						'"Also, it would piss off your co-stars and our director. It would end your porn career. You should also know that there is no guarantee that there are no other copies of your movies out there anyway, so think carefully."'
+						'"Seeing as you''re not well known, it''s unlikely anyone would notice. However, to remove them you''d have to cover the loss of the studio''s profits- 40,000 <b>₽</b> per film. That''s a total of <<films_stop_payment>> <b>₽</b>."'
+						'"Also, it would piss off your co-stars and director, and likely end your porn career. You should also know that there''s no guarantee that there''s no other copies of your movies out there anyway, so think carefully."'
 
 						if money >= films_stop_payment:
 							act 'Remove them':
@@ -257,14 +255,14 @@ if $ARGS[0] = 'delivery':
 		cls
 		minut += 15
 		gs 'stat'
-		'"We will take you this one time. In the future, you''ll have to make your own way because Fridays are getting risky for us. We need to introduce you to our colleagues."'
+		'"We''ll take you this one time. In the future, you''ll have to make your own way because Fridays are getting risky for us. We need to introduce you to our colleagues."'
 
 		act 'Let''s go':
 			cls
 			workDisk = 1
 			minut += 15
 			gs 'stat'
-			'You slip into a car by the entrance, and are driven to the sauna.'
+			'You climb into a car by the entrance and are driven to the sauna.'
 
 			if saunasex = 1:
 				'You recall going to this sauna. You had some pretty energetic sex here.'
@@ -274,7 +272,7 @@ if $ARGS[0] = 'delivery':
 				'This sauna is located near your home. You find it strange that you didn''t notice it before.'
 			end
 
-			'You go to the sauna, and are introduced to the local managers. It is explained to you who you need to deliver to, and are reminded that it is necessary to return the envelope the same day you receive it.'
+			'You go to the sauna, and are introduced to the local managers. It''s explained to you who you need to deliver to, and are reminded that it is necessary to return the envelope the same day you receive it.'
 			'"Don''t forget to use secure transport. We''ll see you on Fridays. <i>Don''t</i> fuck up."'
 
 			act 'Leave':bomzQW = 2 & gt 'city_residential'
@@ -298,15 +296,13 @@ if $ARGS[0] = 'shower':
 	dynamic $showerdin
 	gs 'stat'
 	'<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
-!! needs to check for cum
-		'You enter the cubicle, turn on the shower and thoroughly wash all traces of cum from your body.'
-!!	else
-!!		'You enter the cubicle, turn on the shower and wash yourself clean.'
-!!	end	
+    cumspclnt = 20
+	gs 'cum_cleanup'
+	'You enter the cubicle, turn the water on and thoroughly wash yourself.'
 	if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
-
+	
 	act 'Look in the mirror': gt 'mirror', 'start'
-	act 'Go and see Peter': gt 'pornstudio', 'postvideo'
+	act 'Go and see Dimitri': gt 'pornstudio', 'postvideo'
 end
 
 if $ARGS[0] = 'bathroom':
@@ -315,10 +311,10 @@ if $ARGS[0] = 'bathroom':
 	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/shower.jpg"></center>'
-	'You can freshen up in the mirror or go and see Peter about being paid.'
+	'You can freshen up in the mirror or go and see Dimitri about being paid.'
 
 	act 'Look in the mirror': gt 'mirror', 'start'
-	act 'Go and see Peter': gt 'pornstudio', 'postvideo'
+	act 'Go and see Dimitri': gt 'pornstudio', 'postvideo'
 end
 
 if $ARGS[0] = 'manager':
@@ -327,25 +323,25 @@ if $ARGS[0] = 'manager':
 	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
-	'You walk into the manager''s office and see that he is here.'
+	'You walk into the manager''s office and find Dimitri at his desk.'
 
 	if firstkasting = 0: gt 'pornstudio', 'first'
 
 	if pregchem >= 2688 and pregtalkpornstudio = 0: gt 'pornstudio', 'pregreact'
 
 	if pfilmNO = 1:
-	! Banned from shooting porn
-		'You''re blacklisted. No decent porn studio will hire you.'
+	!! Banned from shooting porn
+		'"Why are you here? You''re blacklisted and will never work in porn again."'
 	elseif pfilmSTOP = 1:
-	! No longer shooting porn
+	!! No longer shooting porn
 		'"I''m sorry, I thought you had retired?"'
 	elseif ((pfilmday[0] > 0 and hour > 12) or pornmiss = 1) and prodcosttrue <= 20000 and missedshoot = 0:
-	! You missed your shooting time, but you have a chance to work it off
+	!! You missed your shooting time, but you have a chance to work it off
 		missedshoot = 1
 		pornmiss = 0
-		'Peter seems really agitated as he storms towards you, ready to chew you out.'
-		'"Didn''t I tell you not to be late? Where the fuck were you? I''ve wasted a lot of money! I had to pay actors, assistants, the director and the doctor just to sit on their asses! The whole shoot was a bust!"'
-		'He manages to cool off a little with the airing some of his frustration, and after a deep breath, he continues more calmly.'
+		'Dimitri looks agitated as he storms towards you, ready to chew you out.'
+		'"Didn''t I tell you not to be late? Where the fuck were you? I''ve wasted a lot of money! I had to pay actors, assistants, the director and the doctor just to sit around on their asses waiting for you! The whole shoot was a bust!"'
+		'He manages to cool off a little with the venting of his frustration, and after a deep breath, he continues more calmly.'
 		if pfilmday[1] = 0:
 			missday = rand(0,3)
 			porntaken['1,<<missday>>'] = 0
@@ -358,7 +354,7 @@ if $ARGS[0] = 'manager':
 				freefilm = 1
 				gt 'pornstudio', 'start'
 			end
-			'"I''ll give you a chance to make it right. Another actress has gotten sick and cancelled her shoot. If you jump in instead of her, your debt is cancelled. Or you can work it off, but that will take longer. Of course you can also pay it back, if you have the money. And no, I don''t remember what she was going to shoot. This day has been anything but easy due to you!"'
+			'"I''ll give you a chance to make it right. Another actress has gotten sick and cancelled her shoot. If you jump in for her, your debt is cancelled. Or you can work it off, but that will take longer. Of course you can also pay it back, if you have the money. And no, I don''t remember what she was going to shoot. This day has been anything but easy due to you!"'
 		else
 			'"You know what, you can work it off, but it will take you a while. Of course you can also pay it back, if you have the money."'
 		end
@@ -367,8 +363,9 @@ if $ARGS[0] = 'manager':
 
 		gs 'willpower', 'misc', 'self'
 		if will_cost <= pcs_willpwr:
-			act 'Fuck this shit, I quit! (<<will_cost>> Willpower)':
+			act 'I quit! (<<will_cost>> Willpower)':
 				gs 'willpower', 'pay', 'self'
+				'"Fuck this shit, I quit!" you yell before storming out of his office.'
 				pfilmNO = 1
 				killvar 'prodcosttrue'
 				killvar 'pfilmday'
@@ -378,24 +375,23 @@ if $ARGS[0] = 'manager':
 				gt 'pornstudio', 'start'
 			end
 		else
-			act 'Fuck this shit, I quit! (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			act 'I quit! (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 		exit
 	elseif prodcosttrue > 20000 and prodcost > 0:
-	! You really fucked up, you are banned from porn for life
+	!! You really fucked up and are banned from shooting porn
 		pfilmNO = 1
 		killvar 'prodcosttrue'
 		killvar 'pfilmday'
 		killvar 'pornplan'
 		killvar 'porntaken'
 		killvar 'pornnow'
-		'"You didn''t come to the shoot! You fucked me again, and you already owed me a lot of money! You took the second chance I gave you and threw it back in my face!"'
-		'"I don''t want to work with you anymore. You''re now blacklisted, so get out!"'
+		'"You didn''t come to the shoot! You fucked me over again, and you already owed me a lot of money! You took the second chance I gave you and threw it back in my face! I don''t want to work with you anymore. You''re now blacklisted, so get out!"'
 	elseif pfilmday[0] > 0 and hour >= 10 and hour <= 12:
-	! You have porn shoot today, and you are in time
+	!! You have a porn shoot and are on time
 		pornnow = 1
-		if hour = 10: '"You''re just in time for your inspection. Off you go now." Peter says with a smile.'
-		if hour = 11: '"You''re late. My patience is not eternal." Peter says strictly. "Get going to your inspection, quickly!"'
+		if hour = 10: '"You''re just in time for your inspection. Off you go now." he says with a smile.'
+		if hour = 11: '"You''re late. My patience is not eternal." he says strictly. "Get going to your inspection, quickly!"'
 		if hour = 12: '"What the hell? Everyone''s waiting for you! Hurry up and get inspected! Now!"'
 
 		act 'Go for medical check-up': gt 'pornstudio', 'medical', pfilmday[0]
@@ -404,7 +400,7 @@ if $ARGS[0] = 'manager':
 	! Your first ever movie offer
 		if firstoffer = 0:
 			firstoffer = 1
-			'"So, you''re the new girl? As luck would have it, we''re looking for a brand new girl for our next shoot. It''s called ''Girls Jerk Guys #36''."'
+			'"So you''re the new girl? As luck would have it, we''re looking for someone fresh for our next shoot. It''s called ''Girls Jerk Guys #36''."'
 			'"For 500 <b>₽</b>, you have to jerk a guy off and have him cum on your tits."'
 		else
 			'"Hello. Since you''re brand new, all I can offer you is an introductory movie called ''Girls Jerk Guys #36''."'
@@ -432,7 +428,7 @@ if $ARGS[0] = 'manager':
 	elseif film > 0:
 		gs 'pornstudio', 'options'
 	else
-		'Peter looks up from his paperwork, and greets you. "Hello. Can I help you with something?"'
+		'Dimitri looks up from his paperwork and greets you. "Hello. Can I help you with something?"'
 	end
 
 	if porndebt > 0:
@@ -772,10 +768,10 @@ if $ARGS[0] = 'first':
 	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting0.jpg"></center>'
-	'You sit down on the sofa and greet the boss. "I see it''s your first time with us. So, you want to be a porn star?'
+	'You sit down on the sofa and greet the manager. "I see it''s your first time with us. So, you want to be a porn star?'
 
 	if pcs_inhib < 40 and (money <= 500 and karta <= 500 and home_owned[2] = 0) or (narkoman = 1 or SLomka > 0):
-		'While you don''t feel confident enough showing off your body, you are desperate for money, and are willing to do anything to earn it.'
+		'While you don''t feel confident enough showing off your body, you''re desperate for money, and are willing to do anything to earn it.'
 		act 'Continue': gt 'pornstudio', 'yes'
 	elseif pcs_inhib < 40:
 		'You don''t feel confident enough to start a career in porn. You should gain some confidence showing off your body first.'
@@ -790,17 +786,17 @@ if $ARGS[0] = 'yes':
 	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting0.jpg"></center>'
-	'You sit down on the sofa and greet the boss. "I see it''s your first time with us. So, you want to be a porn star?"'
+	'You sit down on the sofa and greet the manager. "I see it''s your first time with us. So, you want to be a porn star?"'
 	act 'Yes':
 		cla
 		minut += 5
 		gs 'stat'
-		'You confirm your enthusiasm to be in porn and the boss nods. "Let''s see your papers. You are 18 or older, yes?"'
+		'You confirm your enthusiasm to be in porn and he nods. "Let''s see your papers. You are 18 or older, yes?"'
 		if age >= 18:
-			'"Yes I am." you answer, handing him your passport.'
-			'"All right. First we''ll need to do a casting. Take off your clothes and let me see your body."'
+			'"Yes, I am." you answer, handing him your passport.'
+			'"All right then. First we''ll need to do a casting. Take off your clothes and let me see your body."'
 		elseif fakepassport = 1:
-			'"Yes I am." you answer, handing him your fake passport.'
+			'"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. First we''ll need to do a casting. Take off your clothes and let me see your body."'
 		else
@@ -821,7 +817,7 @@ if $ARGS[0] = 'yes':
 				minut += 5
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting1.jpg"></center>'
-				'You undress in front of the boss as he gets up from his chair and walks towards you. "Lie down on the couch and spread your legs."'
+				'You undress as he gets up from his chair and walks towards you. "Lie down on the couch and spread your legs."'
                 
 				act 'Grab your clothes and run out': gt 'pornstudio', 'start'
 
@@ -830,21 +826,21 @@ if $ARGS[0] = 'yes':
 					minut += 5
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting2.jpg"></center>'
-					'You lie down on the sofa and spread your legs. The boss takes a few pictures on his phone, explaining that it is for your portfolio. After that, he asks you to kneel.'
+					'You lie down on the sofa and spread your legs. The manager takes a few pictures on his phone, explaining that they''re for your portfolio. After that, he asks you to kneel.'
 
 					act 'Kneel':
 						cla & *clr
 						minut += 5
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting3.jpg"></center>'
-						'You get up from the sofa and kneel in front of the boss as he pulls out his sizeable cock. You admire his member for a few seconds before slowly sucking on his tip. He takes more pictures as he says "Now suck."'
+						'You get up from the sofa and kneel in front of him as he pulls out his sizeable cock. You admire it for a few seconds before slowly sucking on his tip. He takes more pictures as he says "Now suck."'
 
 						act 'Suck his dick':
 							cla & *clr
 							minut += 5
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting4.jpg"></center>'
-							'You take his shaft into your mouth and begin to suck as he takes a few more pictures.'
+							'You take his shaft into your mouth and begin to suck it as he takes a few more pictures.'
 
 							act 'Finish him':
 								cla & *clr
@@ -852,21 +848,21 @@ if $ARGS[0] = 'yes':
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting5.jpg"></center>'
 								'You take his dick deep into your throat while trying to look as sexy as possible. Meanwhile, he fondles your breast with his free hand.'
-								'He pulls his dick out of your mouth and curtly tells you. "Finish me off." You quickly jerk him off and soon a thick load of cum is covering your face. He takes some last photos of you before returning to his desk and offering you wipes. You quickly clean yourself, get dressed and sit down.'
-								'"You can call me Peter. You are going to need a pornstar name.'
+								'After a few minutes, he pulls his dick out of your mouth. "Finish me off!" he curtly orders. You quickly jerk him off and soon a thick load of cum is covering your face. He takes some last photos of you before returning to his desk and offering you wipes. You quickly clean yourself, get dressed and sit down.'
+								'"You can call me Dimitri. You''re going to need a stage name.'
 
-								act 'Choose your pornstar name':
+								act 'Choose your name':
 									cla & *clr
 									firstkasting = 1
-									$pfname = input ("What will your pornstar name be?")
+									$pfname = input ("What will your porn name be?")
 
 									if $pfname <= 0:$pfname = '<<$pcs_nickname>> BimboStar'
 
-									'"<<$pfname>>, wonderful name. Now listen. Before shooting starts, you have to pass a medical examination. If we find any sign of a sexually transmitted disease, you are out, no exceptions."'
-									'"There we go, you''re now registered. We are quite big in the industry, shooting about four films a day, so you can choose what you to be in. Anal or gangbang, it''s your choice, just remember to take care of your health. If you get sick or something, just cancel the shoot. You can do this up to the day of the shooting."'
+									'"<<$pfname>>, wonderful name. Now listen. Before shooting starts, you have to pass a medical examination. If we find any sign of a sexually transmitted disease, you''re out, no exceptions."'
+									'"There we go, you''re now registered. We''re quite big in the industry, shooting about four films a day, so you can choose what you to be in. Anal or gangbang, it''s your choice, just remember to take care of your health. If you get sick or something, just cancel the shoot. You can do this up to the day of the shooting."'
 									'"Come see me when you want a contract. And welcome to the world of pornography...<<$pfname>>."'
 
-									act '...': gt 'pornstudio', 'start'
+									act 'Continue': gt 'pornstudio', 'start'
 								end
 							end
 						end
@@ -885,7 +881,7 @@ if $ARGS[0] = 'medical':
 	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/exam.jpg"></center>'
 	minut += 5
 	gs 'stat'
-	'You go into the office where the doctor is waiting. He quickly snaps on a pair of rubber gloves and tells you to undress.'
+	'You enter the office where the doctor is waiting. He quickly snaps on a pair of rubber gloves and tells you to undress.'
 	'You remove your clothes and sit on the gynecological chair. The doctor comes up to you and starts the check up. After a thorough inspection, he takes a blood sample.'
 	'"It will be about half an hour before the tests are finished. They will tell us if you have caught something."'
 
@@ -898,8 +894,8 @@ if $ARGS[0] = 'medical':
 		if venera > 0:
 			pfilmNO = 1
 			pfilmNoVenera = 1
-			'"Your analysis shows you have an STD." the doctor tells you as he calls Peter to the office.' 
-			'Once he arrives, Peter looks at the test results. "Sorry, but as long as you have an STD, you cannot make films."'
+			'"Your analysis shows you have an STD." the doctor tells you as he calls Dimitri to the office.' 
+			'Once he arrives, Dimitri looks at the test results. "Sorry, but as long as you have an STD, you cannot make films."'
 			act 'Leave': gt 'pornstudio', 'start'
 		else
 			'"Very good, you are clean. You can go to the dressing room."'
@@ -971,7 +967,7 @@ if $ARGS[0] = 'postvideo':
 	if pfilmNOPAY = 0:
 		pfcash = pcash * fmulti
 		money += pfcash
-		'Peter counts <<pfcash>> <b>₽</b> out for your film and wishes good luck.'
+		'Dimitri counts <<pfcash>> <b>₽</b> out for your film and wishes good luck.'
 	else
 		pfilmNOPAY = 0
 		pfcash = 0
@@ -1083,25 +1079,25 @@ if $ARGS[0] = '1':
 
 	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_1.jpg"></center>'
 	'You''ve come to the studio, looking for someone - anything that you think can help you.'
-	'You approach a man, who introduces himself as Peter.'
+	'You approach a man, who introduces himself as Dimitri.'
 
 	act 'State the purpose of your visit':
 		*clr & cla
 		minut += 60
-
-		'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
-		'"Peter smiles. "New actresses are always welcome, but if they''re terrible, the studio won''t take them. The auditions are made public, so remember that if you ever consider it."'
-		'"I''ll tell you everything, here and now, but under one condition - you have to undress."'
+        '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
+		'Dimitri smiles. "New actresses are always welcome, but if they''re terrible, the studio won''t take them. The auditions are made public, so remember that if you ever consider it."'
+		'"I''ll tell you everything else under one condition - you have to undress."'
 
 		act 'Undress':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting_3.jpg"></center>'
-			'"We start with the casting auditions. As I have said, if you are terrible, then you have no hope. This can be overlooked if you have an attractive appearance, however."'
+			'You strip out of your clothes. Once you''re nude, Dimitri smiles and starts his tour.'
+			'"We start with the casting auditions. As I said, if you''re terrible, then you have no hope. This can be overlooked if you have an attractive appearance, however."'
 
 			act 'Continue':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/model_0.jpg"></center>'
-				'"Then a girl is chosen for the lead role. Only the most attractive of girls are chosen"'
+				'"Then a girl is chosen for the lead role. Only the most attractive of girls are chosen."'
 				
 				act 'Continue':
 					*clr & cla
@@ -1111,26 +1107,26 @@ if $ARGS[0] = '1':
 					act 'Continue':
 						*clr & cla
 						'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/dvd-disx.jpg"></center>'
-						'...are how we make money."'
+						'He pulls a DVD off the top of a nearby stack. "Are how we make money."'
 
-						act 'How and where it is all sold?':
+						act 'How and where is it all sold?':
 							*clr & cla
 							'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
-							'"We mostly sell it digitally on our premium websites, but we have guys at the sauna in the residential area and in the sex shop for those who want to buy physically. We''re thinking of moving in on the university as well- and not just selling our films there. We could possibly shoot a few films on campus. If they helped us, it would be good for profits, entitle us to dividends and more."'
+							'"We mostly sell it digitally on our premium websites, but we have guys at the sauna in the residential area and in the sex shop for those who want to buy physically.' 
+							'We''re thinking of moving in on the university as well- and not just selling our films there. We could possibly shoot a few films on campus. There''s a huge market for young college students and we want a slice."'
 
 							act 'Is that legal?':
 								*clr & cla
 								'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/ment_0.jpg"></center>'
-								'"It doesn''t matter since we bribe the cops. Maybe in the future you will be able to help us with that? In the meantime, I''ve told you everything you need to know."'
+								'"It doesn''t matter since we bribe the cops. Maybe in the future you''ll be able to help us with that? In the meantime, I''ve told you everything you need to know."'
 
-								act 'I sort of understand':
+								act 'I understand':
 									*clr & cla
 									pornstudio = 3
 
 									'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
 									'"Good girl. Now leave and stop wasting my time."'
-
-									gt 'pornstudio', 'start'
+                                    gt 'pornstudio', 'start'
 								end
 							end
 						end
@@ -1189,7 +1185,7 @@ end
 
 if $ARGS[0] = 'pregreact':
 	'"Wow. I''m surprised you still want to do the shoot considering how far along you are. The good news is, we''ve been looking into appealing to people with different fetishes, so this is the perfect opportunity to start marketing to pregnancy fetishists. However, this is also going to change the shoots you can do."' 
-	'"You see, this is more of a niche thing and not something we can really use for wide appeal. You can still work, but only on specific pregnancy shoots, so you might not get the same amount of work you got before. But don''t worry, if we can find a way to make money off of you, we definitely will." the manager ends with a smile.'
+	'"You see, this is more of a niche thing and not something we can really use for wide appeal. You can still work, but only on specific pregnancy shoots, so you might not get the same amount of work you got before. Don''t worry though, if we can find a way to make money off of you, we definitely will." the manager ends with a smile.'
 	act 'Continue': pregtalkpornstudio = 1 & gt 'pornstudio', 'manager'
 end