1
0

TV 2.1 KB

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