# 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
end
--- TV ---------------------------------

