# TV
if $ARGS[0] = 'start':
cla
clr
elektro += 5
gs 'stat'
'
'
'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'
'
'
'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'
'
'
'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 ---------------------------------