glife/locations/TV

# 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:'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'
	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 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
	*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 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
	*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 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:
		housrA = 0
		gt 'sitr'
	end
	'!
end

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