1
0

TV 2.1 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980
  1. # TV
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. elektro += 5
  6. gs 'stat'
  7. '<center><img src="images/pics/telek.jpg"></center>'
  8. 'You turn on the TV and settled comfortably on the couch.'
  9. if TV = 1:'Ancient TV turns on and out came the sound of hoarse advertising.'
  10. if TV = 2:'Huge plasma joined and out came the sound of advertising smartly.'
  11. if kabel = 0:
  12. 'You do not have cable, so shows only one channel at a constant advertising and news.'
  13. act 'Watch TV (1:00)':gt 'TV', 'nokable'
  14. elseif kabel = 1:
  15. 'You have cable TV.'
  16. act 'Watch TV (1:00)':gt 'TV', 'kable'
  17. end
  18. 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.'
  19. act 'Turn off the TV and get off the couch':
  20. cla
  21. gt 'TV', 'fin'
  22. end
  23. end
  24. if $ARGS[0] = 'nokable':
  25. cla
  26. clr
  27. *clr
  28. minut += 60
  29. manna += 3
  30. willpower += rand(5, 10)
  31. manna += rand(10, 50)
  32. elektro += 3
  33. gs 'stat'
  34. '<center><img src="images/pics/telek.jpg"></center>'
  35. 'You are viewing the central channel lying on the couch. Watch almost nothing solid and cheesy advertising program.'
  36. 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.'
  37. act 'Watch TV (1:00)':gt 'TV', 'nokable'
  38. act 'Turn off the TV and get off the couch':gt 'TV', 'fin'
  39. end
  40. if $ARGS[0] = 'kable':
  41. cla
  42. clr
  43. *clr
  44. minut += 60
  45. manna += 6
  46. willpower += rand(10, 20)
  47. manna += rand(50, 100)
  48. elektro += 3
  49. gs 'stat'
  50. '<center><img src="images/pics/telek.jpg"></center>'
  51. 'You are viewing cable television.'
  52. 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.'
  53. act 'Watch TV (1:00)':gt 'TV', 'kable'
  54. act 'Turn off the TV and get off the couch':gt 'TV', 'fin'
  55. end
  56. if $ARGS[0] = 'fin':
  57. cla
  58. gt $locM, $metkaM
  59. !'
  60. if housr = 1 and housrA = 1:
  61. housrA = 0
  62. gt 'sitr'
  63. end
  64. '!
  65. end
  66. --- TV ---------------------------------