[fixed] broken porn schedule when providing medical certificate to pornstuido.

[changed] no longer able to change porn name when permanently banned from porn.
[changed] permanent variable 'aa' to 'porndays' in stat_display.

locations/pornstudio.qsrc

@@ -113,18 +113,20 @@ if $ARGS[0] = 'pa':
 	'"Who are you? This office is for staff only."'
 	else
 		'<font color="#0D42C0"> "Hi <<$pfname>>, what can I do for you?"</font>'
-		act 'Change your porn name':
-			*clr & cla
-			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?"'
-			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'
+		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?"'
+				'"Of course, just give me a minute to register it in the database. So, what would you ike 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'
+					gt 'pornstudio', 'pa'
+				end
+				act '"Ehh, leave it."':gt 'pornstudio', 'pa'
 			end
-			act '"Ehh, leave it."':gt 'pornstudio', 'pa'
 		end
 		if pfilmSTOP = 0:
 			act 'What''s the rating of my videos?':
@@ -869,11 +871,6 @@ if $ARGS[0] = 'medical':
 		if venera > 0:
 			pfilmNO = 1
 			pfilmNoVenera = 1
-			killvar 'prodcosttrue'
-			killvar 'pfilmday'
-			killvar 'pornplan'
-			killvar 'porntaken'
-			killvar 'pornnow'
 			'Your analysis showed an STD. The doctor tells you and calls Peter. Peter looks at the test results.'
 			'"Sorry, but as long as you have an STD you cannot make films."'
 			act 'Leave':gt 'pornstudio', 'start'

locations/stat_display.qsrc

@@ -1313,13 +1313,13 @@ elseif model > 0 and model_week < (daystart - week) / 7 and model_job_week < 1:
 	$stat_msg += '<BR><b>You can get paid for 2 modelling jobs this week.</b>'
 end
 if pornstack > 0:
-	aa = 0
+	porndays = 0
 	:pfilmtime
-	if aa < 200 and pfilmday[aa] = 0: aa += 1 & jump 'pfilmtime'
+	if porndays < 200 and pfilmday[porndays] = 0: porndays += 1 & jump 'pfilmtime'
 end
 if pornstack > 0 and pfilmday[0] = 0:
 	if pfilmday[1] = 0:
-		$stat_msg += '<br><b>You will star in another porno in <<aa>> days.</b>'
+		$stat_msg += '<br><b>You will star in another porno in <<porndays>> days.</b>'
 	else
 		$stat_msg += '<br><b>You have a porno shoot scheduled tomorrow.</b>'
 	end