[edit] some preparation for female actresses. Also removed beastiality from the possible porn options.

locations/pornfilm.qsrc

@@ -61,6 +61,45 @@ if $ARGS[0] = 'pornactor':
 	end
 end
 
+if $ARGS[0] = 'pornactress':
+	if pfactor ! 50:
+		num = pfactor
+		:actressloop
+			akrand = rand(1,10)
+			if akrand = 1:
+				$paktress[num] = 'Name Pending'
+				$pactressnick[num] = 'K'
+				$pactressID[num] = 'A207'
+			elseif akrand = 2:
+				$pactress[num] = 'Name Pending'
+				$pactressnick[num] = 'Elli'
+				$pactressID[num] = 'A234'
+			elseif akrand = 3:
+				$pactress[num] = 'Name Pending'
+				$pactressnick[num] = 'Juli'
+				$pactressID[num] = 'A235'
+			elseif akrand = 4:
+				$pactress[num] = 'Name Pending'
+				$pactressnick[num] = 'Tina'
+				$pactressID[num] = 'A236'
+			elseif akrand = 5:
+				$pactress[num] = 'Name Pending'
+				$pactress[num] = 'Alli'
+				$pactressID[num] = 'A237'
+			end
+			if num < pfactor:
+				num2 = pfactor
+				:actressloop2
+					if $pactress[num] = $pactress[num2]:jump 'actressloop'
+					num2 -= 1
+				if num2 > num:jump 'actressloop2'
+			end
+			if aksex[akrand] = 0:aksex[akrand] = 1 & girl += 1
+			num -= 1
+		if num > 0:jump 'actressloop'
+	end
+end
+
 if $ARGS[0] = '1':
 	if rand(0,1) = 0: pornhj += 1
 	pornbukk += 1

locations/pornstudio.qsrc

@@ -119,7 +119,7 @@ if $ARGS[0] = 'pa':
 				menu_off = 1
 				gs 'stat'
 				'"I would like to change my professional name. Is it possible?"'
-				'"Of course, just give me a minute to register it in the database. So, what would you ike to be called?"'
+				'"Of course, just give me a minute to register it in the database. So, what would you like to be called?"'
 				act '"I want to be called..."':
 					$pfname = input("Enter the name you want to be known as.")
 					if $pfname = '':$pfname = 'Lotta Cox'
@@ -156,7 +156,7 @@ if $ARGS[0] = 'pa':
 				if porn_fame >= 20:
 					ftypecount[0] = pornvag & $ftypecount[0] = 'vaginal'
 					ftypecount[1] = pornanal & $ftypecount[1] = 'anal'
-					ftypecount[2] = pornbeast & $ftypecount[2] = 'beastiality'
+					ftypecount[2] = porngasm & $ftypecount[15] = 'orgasm'
 					ftypecount[3] = porngang & $ftypecount[3] = 'group sex'
 					ftypecount[4] = porncream & $ftypecount[4] = 'creampie'
 					ftypecount[5] = pornhole & $ftypecount[5] = 'gloryhole'
@@ -169,10 +169,9 @@ if $ARGS[0] = 'pa':
 					ftypecount[12] = pornbj & $ftypecount[12] = 'blowjob'
 					ftypecount[13] = pornhj & $ftypecount[13] = 'handjob'
 					ftypecount[14] = pornswall & $ftypecount[14] = 'cum swallowing'
-					ftypecount[15] = porngasm & $ftypecount[15] = 'orgasm'
 					k = 1
 					:repeating
-						c = 15
+						c = 14
 						:ftypecount
 							current = ftypecount[c]
 							$current = $ftypecount[c]
@@ -185,7 +184,7 @@ if $ARGS[0] = 'pa':
 							end
 						if c >= k:jump 'ftypecount'
 						k += 1
-					if k < 15:jump 'repeating'
+					if k < 14:jump 'repeating'
 					if ftypecount[1] = ftypecount[0]:
 						if ftypecount[0] = ftypecount[2]:
 							'You are known from your <<$ftypecount[0]>>, <<$ftypecount[1]>> and <<$ftypecount[2]>> scenes.'
@@ -276,7 +275,7 @@ if $ARGS[0] = 'delivery':
 				'This sauna is located near your home, it is strange that you did not notice it before.'
 			end
 
-			'You go to the sauna, and you''re introduced to the local managers. it is explained to you who you need to deliver to, and 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 is explained to you who you need to deliver to, and 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 and don''t fuck up."'
 
 			act 'Leave':bomzQW = 2 & gt 'street'
@@ -296,7 +295,11 @@ if $ARGS[0] = 'shower':
 	dynamic $showerdin
 	gs 'stat'
 	'<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
-	'You enter the shower cubicle. Turned on the shower and gently wash all traces of semen from your body.'
+!! needs to check for cum
+		'You enter the cubicle, turn on the shower and gently wash all traces of semen from your body.'
+!!	else
+!!		'You enter the cubicle, turn on the shower and wash yourself clean.'
+!!	end	
 	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'
@@ -967,7 +970,7 @@ if $ARGS[0] = 'postvideo':
 	else
 		pfilmNOPAY = 0
 		pfcash = 0
-		'You have fulfilled your obligation and the made the film for free.'
+		'You have fulfilled your obligation and made the film for free.'
 	end
 	pornfilmYear[film] = year
 	pornfilmMonth[film] = month
@@ -1147,7 +1150,7 @@ if $ARGS[0] = '2':
 
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/studio/casting_<<rand(1,6)>>.jpg"></center>'
 
-	'You spent eight hours posing in a variety of sexy underwear, for the casting director.'
+	'You spend eight hours posing in a variety of sexy underwear for the casting director.'
 
 	minut += 120
 	gs 'stat'