fix for not emptying '$pfilmtags' variable

locations/pornhist

@@ -92,6 +92,7 @@ if $ARGS[0] = 'pdetail':
 		end
 		pl ' <b>Tags: <font color=#541717 size=2><<$pfilmtags>></font></b>'
 		if pornDanger[i] = 1 and pfType = 1:pl ' <font color="red" size=2><b>You were unprotected and fertile during the shoot.</b></font>'
+		killvar '$pfilmtags'
 	if i < film:
 		p '<font color="sienna"><hr></font>'
 		i += 1
@@ -229,35 +230,37 @@ $porntag = {
 		$pfilmtags = 'teen'
 	elseif pornfilmAppAge[i] >= 40:
 		$pfilmtags = 'mature'
+	else
+		$pfilmtags = ''
 	end
 	
 	if pornfilmpreg[i] = 1:
 		if $pfilmtags <> '':
 			$pfilmtags+=', pregnant'
 		else
-			$pfilmtags='pregnant'
+			$pfilmtags = 'pregnant'
 		end
 	end
 	
 	if pfactor > 2:
 		if $pfilmtags <> '':
-			$pfilmtags+=', gangbang'
+			$pfilmtags += ', gangbang'
 		else
-			$pfilmtags='gangbang'
+			$pfilmtags = 'gangbang'
 		end
 	elseif pfactor = 2:
 		if $pfilmtags <> '':
-			$pfilmtags+=', threesome'
+			$pfilmtags += ', threesome'
 		else
-			$pfilmtags='threesome'
+			$pfilmtags = 'threesome'
 		end
 	end
 	
 	if pfType = 1:
 		if $pfilmtags <> '':
-			$pfilmtags+=', creampie'
+			$pfilmtags += ', creampie'
 		else
-			$pfilmtags='creampie'
+			$pfilmtags = 'creampie'
 		end
 	end