TV 4.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142
  1. # TV
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. elektro += 5
  6. gs 'stat'
  7. '<center><img <<$set_imgh>> src="images/shared/home/telek.jpg"></center>'
  8. 'You turn on the TV and settled comfortably on the couch.'
  9. if TV = 1:'Your ancient TV warms up and you''re greeted by adverts, the sound is terrible.'
  10. if TV = 2:'Your huge plasma comes to life and you hear the crisp sound of some advert, it looks great in HD.'
  11. if kabel = 0:
  12. 'You do not have cable, so it shows only one channel that''s just 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 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.'
  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. pcs_mood += 6
  30. pcs_willpwr += rand(5, 10)
  31. elektro += 3
  32. gs 'stat'
  33. '<center><img <<$set_imgh>> src="images/shared/home/telek.jpg"></center>'
  34. 'You watch the network channel, lying on the couch. It''s all repeats and cheesy infomercials.'
  35. 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.'
  36. act 'Watch TV (1:00)':gt 'TV', 'nokable'
  37. act 'Turn off the TV and get off the couch':gt 'TV', 'fin'
  38. end
  39. if $ARGS[0] = 'kable':
  40. cla
  41. clr
  42. *clr
  43. minut += 60
  44. pcs_mood += 12
  45. pcs_willpwr += rand(10, 20)
  46. elektro += 3
  47. gs 'stat'
  48. '<center><img <<$set_imgh>> src="images/shared/home/telek.jpg"></center>'
  49. 'You watch cable television., it''s really good these days.'
  50. 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.'
  51. act 'Watch TV (1:00)':gt 'TV', 'kable'
  52. act 'Turn off the TV and get off the couch':gt 'TV', 'fin'
  53. end
  54. if $ARGS[0] = 'fin':
  55. cla
  56. gt $loc, $metka
  57. !!if housr = 1 and housrA = 1:
  58. !! housrA = 0
  59. !! gt 'sitr'
  60. !!end
  61. end
  62. if $ARGS[0] = 'pav':
  63. if tvtime = 0:
  64. cla
  65. clr
  66. minut += 5
  67. tvtime = 1
  68. gs 'stat'
  69. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/tv/oldtvon.gif"></center>'
  70. 'You turn on the TV and settled comfortably on the couch as you wait for the ancient TV to warm up. After 5 minutes or so, the tiny white dot at the center of the screen expands into a grainy black and white image that scrolls up and down for a few moments before settling.'
  71. act 'Continue': gt 'TV', 'pav'
  72. elseif tvtime = 1:
  73. cla
  74. cls
  75. minut += 55
  76. pcs_willpwr += rand(5, 10)
  77. pcs_mood += rand(5, 10)
  78. gs 'stat'
  79. '<center><img <<$set_imgh>> src="images/shared/home/telek.jpg"></center>'
  80. 'You are watching one of the half dozen or so television channels that you can get without cable. None of their programs are really worth watching, but the distraction is welcome anyway.'
  81. act 'Watch TV (1:00)': gt 'TV', 'pav'
  82. act 'Turn off the TV':
  83. cls
  84. cla
  85. tvtime = 0
  86. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/tv/tv_turn_off_effect.gif"></center>'
  87. 'You turn off the TV and the image folds in on itself to form a bright line across the screen which then shrinks into a tiny white dot that slowly fades. The speakers emit a high pitched squalk in protest.'
  88. act 'Continue': gt $loc, $metka
  89. end
  90. end
  91. end
  92. if $ARGS[0] = 'gad':
  93. if tvtime = 0:
  94. cla
  95. clr
  96. minut += 5
  97. tvtime = 1
  98. gs 'stat'
  99. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/tv/oldtvon.gif"></center>'
  100. 'You turn on the TV and settled comfortably on the couch as you wait for the ancient TV to warm up. After 5 minutes or so, the tiny white dot at the center of the screen expands into a grainy black and white image that scrolls up and down for a few moments before settling.'
  101. act 'Continue': gt 'TV', 'gad'
  102. elseif tvtime = 1:
  103. cla
  104. cls
  105. minut += 60
  106. pcs_willpwr += rand(5, 10)
  107. pcs_mood += rand(5, 10)
  108. gs 'stat'
  109. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/tv/tv'+rand(1,5)+'.gif"></center>'
  110. 'You are watching one of the three television channels that you can get here in the country. None of their programs are really worth watching, but the distraction is welcome anyway.'
  111. act 'Watch TV (1:00)': gt 'TV', 'gad'
  112. act 'Turn off the TV':
  113. cls
  114. cla
  115. tvtime = 0
  116. '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/tv/tv_turn_off_effect.gif"></center>'
  117. 'You turn off the TV and the image folds in on itself to form a bright line across the screen which then shrinks into a tiny white dot that slowly fades. The speakers emit a high pitched squalk in protest.'
  118. act 'Continue': gt $loc, $metka
  119. end
  120. end
  121. end
  122. --- TV ---------------------------------