1
0

TV 2.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081
  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:'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. 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 watch the network channel, lying on the couch. It''s all repeats and cheesy infomercials.'
  36. 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.'
  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 watch cable television., it''s really good these days.'
  52. 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.'
  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 ---------------------------------