vokzalholle.qsrc 5.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175
  1. # vokzalholle
  2. if $ARGS[0] = '':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. $location_type = 'public_indoors'
  6. CLOSE ALL
  7. if sound = 0:PLAY 'sound/vokzal.mp3',30
  8. cls
  9. gs'stat'
  10. '<center><img <<$set_imgh>> src="images/locations/shared/train/vokzalholle.jpg" ></center>'
  11. 'There is a <a href="exec:GT ''dort''">path</a> leading off in to the distance, in the direction of the lake.'
  12. act 'Leave the station building': minut += 2 & gt 'vokzal'
  13. *nl
  14. if Trainpass_day > daystart:
  15. 'You have <<Trainpass_day - daystart>> days left on your train pass.'
  16. act 'Go to the platforms': gt 'vokzalper'
  17. else
  18. act 'Go to the ticket office': minut += 1 & gt 'vokzalholle', 'ticket'
  19. end
  20. act 'Go to the restrooms': minut += 1 & gt 'vokzaltoilet'
  21. end
  22. if $ARGS[0] = 'ticket':
  23. cls
  24. gs 'stat'
  25. '<center><h4>Ticket office</h4></center>'
  26. '<center><img <<$set_imgh>> src="images/locations/shared/train/kassa.jpg"></center>'
  27. if money >= 50:
  28. act 'Buy a ticket':
  29. cla
  30. gs 'vokzalholle', 'buy_ticket'
  31. end
  32. end
  33. if money >= 1500 and Trainpass_day <= daystart:
  34. act 'Buy a weekly pass (7 days - 1500 <b>₽</b>) ':
  35. cla
  36. money -= 1500
  37. Trainpass_day = daystart + 7
  38. act 'Return': gt 'vokzalholle', ''
  39. end
  40. end
  41. if money >= 5500 and Trainpass_day <= daystart:
  42. act 'Buy a monthly pass (30day - 5500 <b>₽</b>)':
  43. cla
  44. money -= 5500
  45. Trainpass_day = daystart + 30
  46. act 'Return': gt 'vokzalholle', ''
  47. end
  48. end
  49. act 'Leave the ticket office':minut += 1 & gt 'vokzalholle', ''
  50. end
  51. if $ARGS[0] = 'buy_ticket':
  52. if money >= 50:
  53. act 'Buy a ticket to the city center (50 <b>₽</b>)':
  54. money -= 50
  55. gt 'vokzalholle', 'centre'
  56. end
  57. end
  58. if money >= 50:
  59. act 'Buy a ticket to the old platform by the communal village (50 <b>₽</b>)':
  60. money -= 100
  61. gt 'vokzalholle', 'communal'
  62. end
  63. end
  64. if money >= 75:
  65. act 'Buy a ticket to the village of Gadyukino (75 <b>₽</b>)':
  66. money -= 75
  67. gt 'vokzalholle', 'village'
  68. end
  69. end
  70. if money >= 100:
  71. act 'Buy a ticket to the old town (100 <b>₽</b>)':
  72. money -= 100
  73. gt 'vokzalholle', 'oldtown'
  74. end
  75. end
  76. if money >= 125:
  77. act 'Buy a ticket to Pavlovsk (125 <b>₽</b>)':
  78. money -= 125
  79. gt 'vokzalholle', 'pavlovsk'
  80. end
  81. end
  82. act 'Leave the ticket office': gt 'vokzalholle', ''
  83. end
  84. if $ARGS[0] = 'centre':
  85. $loc = 'cityTrain'
  86. $metka = 'inside'
  87. cls
  88. minut += 5
  89. gs 'stat'
  90. '<center><img <<$set_imgh>> src="images/locations/shared/train/electri.jpg"></center>'
  91. 'You pay for the ticket and board the next train going to the city center.'
  92. 'After 5 minutes, you see the office blocks and shops at the heart of the city. The train stops at its final destination, the busy station in the city center.'
  93. act 'Get off the train at this station':
  94. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  95. gt 'cityTrain', 'inside'
  96. end
  97. end
  98. if $ARGS[0] = 'communal':
  99. $loc = 'train'
  100. $metka = 'communal'
  101. minut += 10
  102. if rand(1, 100) < 20: gt 'train', 'events'
  103. gs 'stat'
  104. '<center><img <<$set_imgh>> src="images/locations/shared/train/oldplat.jpg" ></center>'
  105. 'After 10 minutes you arrive at an old railway platform near the communal village.'
  106. act 'Get off the train':
  107. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  108. gt 'train', 'communal'
  109. end
  110. end
  111. if $ARGS[0] = 'village':
  112. $loc = 'train'
  113. $metka = 'village'
  114. minut += 20
  115. if rand(1, 100) <= 10: gt 'train_incidental', 'events'
  116. if rand(1, 100) < 20: gt 'train', 'events'
  117. gs 'stat'
  118. '<center><img <<$set_imgh>> src="images/locations/shared/train/gadplat.jpg" ></center>'
  119. 'After 20 minutes, the train stops at the small station near the village of Gadyukino.'
  120. act 'Get off the train':
  121. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  122. gt 'train', 'village'
  123. end
  124. end
  125. if $ARGS[0] = 'oldtown':
  126. $loc = 'train'
  127. $metka = 'oldtown'
  128. minut += 30
  129. if rand(1, 100) <= 10: gt 'train_incidental', 'events'
  130. if rand(1, 100) < 20: gt 'train', 'events'
  131. gs 'stat'
  132. '<center><img <<$set_imgh>> src="images/locations/shared/train/pushplat.jpg" ></center>'
  133. 'After 30 minutes, the train stops at old platform by the old town of Pushkin. Famous for its extensive park and old historic buildings, the locals are known to be eccentric but that adds to the charm.'
  134. act 'Get off the train':
  135. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  136. gt 'train', 'oldtown'
  137. end
  138. end
  139. if $ARGS[0] = 'pavlovsk':
  140. $loc = 'vokzalperG'
  141. $metka = ''
  142. minut += 35
  143. if rand(1, 100) < 15: gt 'train', 'private'
  144. if rand(1, 100) < 30: gt 'train', 'Gopnik'
  145. if rand(1, 100) <= 10: gt 'train_incidental', 'events'
  146. if rand(1, 100) <= 20: gt 'train', 'events'
  147. gs 'stat'
  148. '<center><img <<$set_imgh>> src="images/locations/shared/train/pavplat.jpg" ></center>'
  149. 'After 35 minutes, you see the town of Pavlovsk approaching. Pavlovsk Castle is an impressive sight, even from a long distance. The train stops at its final destination, a platform in Pavlovsk station.'
  150. act 'Get off the train':
  151. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  152. gt 'vokzalperG'
  153. end
  154. end
  155. --- vokzalholle ---------------------------------