[fixed] clear the porn shoot if Sveta fails the medical exam

locations/journal.qsrc

@@ -183,7 +183,7 @@ if $ARGS[0] = 'records':
 	if pornmiss = 1: '<br><b>You missed a scheduled porn shoot!</b>'
 	if prodcosttrue > 0: '<br><b>You owe money to the porn studio <<prodcost>>?</b>'
 	if firstkasting > 0 and pfilmNO < 1:
-		if pornstack <= 10:
+		if pornstack >= 10:
 			'<br>You are currently unable to book any more porn shoots at the porn studio.'
 		elseif pornstack = 11:
 			'<br>You can contract <<10-pornstack>> porn shoot(s) at the porn studio.'

locations/pornstudio.qsrc

@@ -329,7 +329,10 @@ if $ARGS[0] = 'manager':
 
 	if pregchem >= 2688 and pregtalkpornstudio = 0: gt 'pornstudio', 'pregreact'
 
-	if pfilmNO = 1:
+	if pfilmNoVenera = 1:
+	!! Banned from shooting porn due to STD
+		'"Why are you here? You''re currently blacklisted while you have an STD. Go get that fixed and show me the medical certificate first."'
+	elseif pfilmNO = 1:
 	!! Banned from shooting porn
 		'"Why are you here? You''re blacklisted and will never work in porn again."'
 	elseif pfilmSTOP = 1:
@@ -894,6 +897,11 @@ if $ARGS[0] = 'medical':
 		if venera > 0:
 			pfilmNO = 1
 			pfilmNoVenera = 1
+			killvar 'prodcosttrue'
+			killvar 'pfilmday'
+			killvar 'pornplan'
+			killvar 'porntaken'
+			killvar 'pornnow'
 			'"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'