[fixes] the stat windows was unnecessarily cleared several times in TV

locations/TV.qsrc

@@ -1,7 +1,6 @@
 # TV
 if $ARGS[0] = 'start':
-	cla
-	clr
+	*clr & cla
 	elektro += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/shared/home/telek.jpg"></center>'
@@ -23,14 +22,12 @@ if $ARGS[0] = 'start':
 	if daystart < 10 and StoryLine = 0 and ntstart = 0:'Sometimes while watching TV you catch a glimpse of your legs or chest, and every time it''s a bit shocking for you to see that your body is now that of a woman.'
 	act 'Turn off the TV and get off the couch':
 		cla
-		gt 'TV', 'fin'
+		gt $loc, $metka
 	end
 end
 
 if $ARGS[0] = 'nokable':
-	cla
-	clr
-	*clr
+	*clr & cla
 	pcs_mood += 6
 	pcs_willpwr += rand(5, 10)
 	elektro += 3
@@ -41,13 +38,11 @@ if $ARGS[0] = 'nokable':
 	if daystart < 10 and StoryLine = 0 and ntstart = 0:'Sometimes while watching TV you catch a glimpse of your legs or chest, and every time it''s a bit shocking for you to see that your body is now that of a woman.'
 
 	act 'Watch TV (1:00)': minut += 60 & gt 'TV', 'nokable'
-	act 'Turn off the TV and get off the couch':gt 'TV', 'fin'
+	act 'Turn off the TV and get off the couch': gt $loc, $metka
 end
 
 if $ARGS[0] = 'kable':
-	cla
-	clr
-	*clr
+	*clr & cla
 	pcs_mood += 12
 	pcs_willpwr += rand(10, 20)
 	elektro += 3
@@ -58,18 +53,12 @@ if $ARGS[0] = 'kable':
 	if daystart < 10 and StoryLine = 0 and ntstart = 0:'Sometimes while watching TV you catch a glimpse of your legs or chest, and every time it''s a bit shocking for you to see that your body is now that of a woman.'
 
 	act 'Watch TV (1:00)': minut += 60 & gt 'TV', 'kable'
-	act 'Turn off the TV and get off the couch':gt 'TV', 'fin'
-end
-
-if $ARGS[0] = 'fin':
-	cla
-	gt $loc, $metka	
+	act 'Turn off the TV and get off the couch': gt $loc, $metka
 end
 
 if $ARGS[0] = 'pav':
 	if tvtime = 0: 
-		cla
-		clr
+		*clr & cla
 		minut += 5
 		tvtime = 1
 		gs 'stat'
@@ -77,8 +66,7 @@ if $ARGS[0] = 'pav':
 		'You turn on the TV and settled comfortably on the couch as you wait for the ancient TV to warm up. After 5 minutes or so, the tiny white dot at the center of the screen expands into a grainy black and white image that scrolls up and down for a few moments before settling.'
 		act 'Continue': gt 'TV', 'pav'
 	elseif tvtime = 1:
-		cla
-		cls
+		*clr & cla
 		pcs_willpwr += rand(5, 10)
 		pcs_mood += rand(5, 10)
 		gs 'stat'
@@ -86,8 +74,7 @@ if $ARGS[0] = 'pav':
 		'You are watching one of the half dozen or so television channels that you can get without cable. None of their programs are really worth watching, but the distraction is welcome anyway.'
 		act 'Watch TV (1:00)': minut += 60 & gt 'TV', 'pav'
 		act 'Turn off the TV': 
-			cls
-			cla
+			*clr & cla
 			tvtime = 0 
 			'<center><video autoplay src="images/locations/gadukino/grandparents/tv/tv_turn_off_effect.mp4"></video></center>'
 			'You turn off the TV and the image folds in on itself to form a bright line across the screen which then shrinks into a tiny white dot that slowly fades. The speakers emit a high pitched squalk in protest.'
@@ -98,8 +85,7 @@ end
 
 if $ARGS[0] = 'gad':
 	if tvtime = 0: 
-		cla
-		clr
+		*clr & cla
 		minut += 5
 		tvtime = 1
 		gs 'stat'
@@ -107,8 +93,7 @@ if $ARGS[0] = 'gad':
 		'You turn on the TV and settled comfortably on the couch as you wait for the ancient TV to warm up. After 5 minutes or so, the tiny white dot at the center of the screen expands into a grainy black and white image that scrolls up and down for a few moments before settling.'
 		act 'Continue': gt 'TV', 'gad'
 	elseif tvtime = 1:
-		cla
-		cls
+		*clr & cla
 		pcs_willpwr += rand(5, 10)
 		pcs_mood += rand(5, 10)
 		gs 'stat'
@@ -116,8 +101,7 @@ if $ARGS[0] = 'gad':
 		'You are watching one of the three television channels that you can get here in the country. None of their programs are really worth watching, but the distraction is welcome anyway.'
 		act 'Watch TV (1:00)': minut += 60 & gt 'TV', 'gad'
 		act 'Turn off the TV': 
-			cls
-			cla
+			*clr & cla
 			tvtime = 0 
 			'<center><video autoplay src="images/locations/gadukino/grandparents/tv/tv_turn_off_effect.mp4"></video></center>'
 			'You turn off the TV and the image folds in on itself to form a bright line across the screen which then shrinks into a tiny white dot that slowly fades. The speakers emit a high pitched squalk in protest.'