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

	if TV = 1:'Your ancient TV warms up and you''re greeted by adverts, the sound is terrible.'
	if TV = 2:'Your huge plasma comes to life and you hear the crisp sound of some advert, it looks great in HD.'

	if kabel = 0:
		'You do not have cable, so it shows only one channel that''s just constant advertising and news.'

		act 'Watch TV (1:00)':gt 'TV', 'nokable'
	elseif 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 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'
	end
end

if $ARGS[0] = 'nokable':
	cla
	clr
	*clr
	minut += 60
	manna += 3
	willpower += rand(5, 10)
	manna += rand(10, 50)
	elektro += 3
	gs 'stat'
	'<center><img src="images/pics/telek.jpg"></center>'
	'You watch the network channel, lying on the couch. It''s all repeats and cheesy infomercials.'

	if daystart < 10 and StoryLine = 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)':gt 'TV', 'nokable'
	act 'Turn off the TV and get off the couch':gt 'TV', 'fin'
end

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

	if daystart < 10 and StoryLine = 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)':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:
		housrA = 0
		gt 'sitr'
	end
	'!
end

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