TV.qsrc 4.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110
  1. # TV
  2. if $ARGS[0] = 'start':
  3. *clr & cla
  4. elektro += 5
  5. gs 'stat'
  6. '<center><img <<$set_imgh>> src="images/shared/home/telek.jpg"></center>'
  7. 'You turn on the TV and settle comfortably on the couch.'
  8. if TV = 1:'Your ancient TV warms up, and you''re greeted by adverts. The sound is terrible.'
  9. if TV = 2:'Your huge plasma comes to life, and you hear the crisp sound of some advert. It looks great in HD.'
  10. if kabel = 0:
  11. 'You do not have cable, so it shows only one channel that''s just constant advertising and news.'
  12. act 'Watch TV (1:00)': minut += 60 & gt 'TV', 'nokable'
  13. elseif kabel = 1:
  14. 'You have cable TV.'
  15. act 'Watch TV (1:00)': minut += 60 & gt 'TV', 'kable'
  16. end
  17. if daystart < 10 and StoryLine = 0 and ntstart = 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.'
  18. act 'Turn off the TV and get off the couch':
  19. cla
  20. gt $loc, $loc_arg
  21. end
  22. end
  23. if $ARGS[0] = 'nokable':
  24. *clr & cla
  25. pcs_mood += 6
  26. elektro += 3
  27. gs 'stat'
  28. '<center><img <<$set_imgh>> src="images/shared/home/telek.jpg"></center>'
  29. 'You watch the network channel, lying on the couch. It''s all repeats and cheesy infomercials.'
  30. if daystart < 10 and StoryLine = 0 and ntstart = 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.'
  31. act 'Watch TV (1:00)': minut += 60 & gt 'TV', 'nokable'
  32. act 'Turn off the TV and get off the couch': gt $loc, $loc_arg
  33. end
  34. if $ARGS[0] = 'kable':
  35. *clr & cla
  36. pcs_mood += 12
  37. elektro += 3
  38. gs 'stat'
  39. '<center><img <<$set_imgh>> src="images/shared/home/telek.jpg"></center>'
  40. 'You watch cable television. It''s really good these days.'
  41. if daystart < 10 and StoryLine = 0 and ntstart = 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.'
  42. act 'Watch TV (1:00)': minut += 60 & gt 'TV', 'kable'
  43. act 'Turn off the TV and get off the couch': gt $loc, $loc_arg
  44. end
  45. if $ARGS[0] = 'pav':
  46. if tvtime = 0:
  47. *clr & cla
  48. minut += 5
  49. tvtime = 1
  50. gs 'stat'
  51. '<center><video autoplay src="images/locations/gadukino/grandparents/tv/oldtvon.mp4"></video></center>'
  52. 'You turn on the ancient TV and settle comfortably on the couch as you wait for it 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.'
  53. act 'Continue': gt 'TV', 'pav'
  54. elseif tvtime = 1:
  55. *clr & cla
  56. pcs_mood += rand(5, 10)
  57. gs 'stat'
  58. '<center><img <<$set_imgh>> src="images/shared/home/telek.jpg"></center>'
  59. '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.'
  60. act 'Watch TV (1:00)': minut += 60 & gt 'TV', 'pav'
  61. act 'Turn off the TV':
  62. *clr & cla
  63. tvtime = 0
  64. '<center><video autoplay src="images/locations/gadukino/grandparents/tv/tv_turn_off_effect.mp4"></video></center>'
  65. '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 squawk in protest.'
  66. act 'Continue': gt $loc, $loc_arg
  67. end
  68. end
  69. end
  70. if $ARGS[0] = 'gad':
  71. if tvtime = 0:
  72. *clr & cla
  73. minut += 5
  74. tvtime = 1
  75. gs 'stat'
  76. '<center><video autoplay src="images/locations/gadukino/grandparents/tv/oldtvon.mp4"></video></center>'
  77. 'You turn on the ancient TV and settle comfortably on the couch as you wait for it 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.'
  78. act 'Continue': gt 'TV', 'gad'
  79. elseif tvtime = 1:
  80. *clr & cla
  81. pcs_mood += rand(5, 10)
  82. gs 'stat'
  83. '<center><video autoplay loop src="images/locations/gadukino/grandparents/tv/tv'+rand(1,5)+'.mp4"></video></center>'
  84. '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.'
  85. act 'Watch TV (1:00)': minut += 60 & gt 'TV', 'gad'
  86. act 'Turn off the TV':
  87. *clr & cla
  88. tvtime = 0
  89. '<center><video autoplay src="images/locations/gadukino/grandparents/tv/tv_turn_off_effect.mp4"></video></center>'
  90. '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 squawk in protest.'
  91. act 'Continue': gt $loc, $loc_arg
  92. end
  93. end
  94. end
  95. --- TV ---------------------------------