# TV
if $ARGS[0] = 'start':
	cla
	clr
	gs 'stat'
	set elektro += 5
	'<center><img src="images/pics/telek.jpg"></center>'
	'You turn on the TV and settled comfortably on the couch.'

	if TV = 1:'Ancient TV turns on and out came the sound of hoarse advertising.'
	if TV = 2:'Huge plasma joined and out came the sound of advertising smartly.'

	if kabel = 0:
	'You do not have cable, so shows only one channel at a constant advertising and news.'

	act 'Watch TV (1:00)':gt 'TV', 'nokable'
	end

	if kabel = 1:
	'You have cable TV.'

	act 'Watch TV (1:00)':gt 'TV', 'kable'
	end

	if daystart < 10 and StoryLine = 0:'Sometimes while watching TV look accidentally stops on your legs or chest, and every time it´s a bit shocking for you to see that your body is now a woman.'
	act 'Turn off the TV and get off the couch':
		cla
		gt 'TV', 'fin'
	end
end

if $ARGS[0] = 'nokable':
	cla
	*clr
	set minut += 60
	set manna += 3
	set willpower += rand(5, 10)
	set manna += rand(10, 50)
	set elektro += 3
	clr
	gs 'stat'
	'<center><img src="images/pics/telek.jpg"></center>'
	'You are viewing the central channel lying on the couch. Watch almost nothing solid and cheesy advertising program.'

	if daystart < 10 and StoryLine = 0:'Sometimes while watching TV look accidentally stops on your legs or chest, and every time it´s a bit shocking for you to see that your body is now a woman.'

	act 'Watch TV (1:00)':gt 'TV', 'nokable'
	act 'Turn off the TV and get off the couch':gt 'TV', 'fin'
end

if $ARGS[0] = 'kable':
	cla
	*clr
	set minut += 60
	set manna += 6
	set willpower += rand(10, 20)
	set manna += rand(50, 100)
	set elektro += 3
	clr
	gs 'stat'
	'<center><img src="images/pics/telek.jpg"></center>'
	'You are viewing cable television.'

	if daystart < 10 and StoryLine = 0:'Sometimes while watching TV look accidentally stops on your legs or chest, and every time it´s a bit shocking for you to see that your body is now a woman.'

	act 'Watch TV (1:00)':gt 'TV', 'kable'
	act 'Turn off the TV and get off the couch':gt 'TV', 'fin'
end

if $ARGS[0] = 'fin':
	cla
	gt $locM, $metkaM

	!'if housr = 1 and housrA = 1:
		set housrA = 0
		gt 'sitr'
	end'!
end

--- TV ---------------------------------