cityTrain.qsrc 7.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249
  1. # cityTrain
  2. if $ARGS[0] = 'start':
  3. $metka = 'start'
  4. $loc = 'cityTrain'
  5. $location_type = 'public_outdoors'
  6. $menu_loc = 'cityTrain'
  7. $menu_arg = 'start'
  8. menu_off = 0
  9. *clr & cla
  10. gs'stat'
  11. '<center><B>City center railway station</B></center>'
  12. if hour < 9 or hour > 19:
  13. '<center><img <<$set_imgh>> src="images/locations/city/shared/trainstation/central_station_night.jpg"></center>'
  14. else
  15. '<center><img <<$set_imgh>> src="images/locations/city/shared/trainstation/central_station_day.jpg"></center>'
  16. end
  17. 'The main station for the city, it is always busy offering services to many destinations and the best place to park your car or hire a taxi.'
  18. if car > 0 and cardrive = 2:
  19. 'In the parking lot is <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
  20. end
  21. act 'Go to the city center':minut += 5 & gt 'down'
  22. act 'Enter the station building': minut += 1 & gt 'cityTrain', 'inside'
  23. end
  24. if $ARGS[0] = 'inside':
  25. $metka = 'inside'
  26. $loc = 'cityTrain'
  27. $location_type = 'public_indoors'
  28. $menu_loc = 'cityTrain'
  29. $menu_arg = 'inside'
  30. menu_off = 0
  31. *clr & cla
  32. gs'stat'
  33. '<center><B>City center railway station</B></center>'
  34. '<center><img <<$set_imgh>> src="images/locations/city/shared/trainstation/central_station_inside.jpg"></center>'
  35. 'The grand old station is even more impressive on the inside and has a number of shops and bars as well as all the platforms and trains. '
  36. *nl
  37. act 'Leave the station': minut += 1 & gt 'cityTrain', 'start'
  38. if Trainpass_day > daystart:
  39. 'You have <<Trainpass_day - daystart>> days left on your train pass.'
  40. act 'Go to platforms': gt 'cityTrain', 'platform'
  41. else
  42. act 'Go to the ticket office': gt 'cityTrain', 'tickets'
  43. end
  44. end
  45. if $ARGS[0] = 'tickets':
  46. $menu_loc = 'cityTrain'
  47. $menu_arg = 'tickets'
  48. menu_off = 0
  49. *clr & cla
  50. gs 'stat'
  51. '<center><h4>Ticket office</h4></center>'
  52. '<center><img <<$set_imgh>> src="images/locations/shared/train/kassa.jpg" ></center>'
  53. act 'Leave the ticket office':minut += 1 & gt 'cityTrain', 'inside'
  54. act 'Buy a ticket':
  55. cla
  56. gs 'cityTrain', 'buy_ticket'
  57. end
  58. if money >= 1500 and Trainpass_day <= daystart:
  59. act 'Buy a weekly pass (7 days - 1500 <b>₽</b>) ':
  60. cla
  61. menu_off = 1
  62. money -= 1500
  63. Trainpass_day = daystart + 7
  64. act 'Return': gt 'cityTrain', 'inside'
  65. end
  66. end
  67. if money >= 5500 and Trainpass_day <= daystart:
  68. act 'Buy a monthly pass (30day - 5500 <b>₽</b>)':
  69. cla
  70. menu_off = 1
  71. money -= 5500
  72. Trainpass_day = daystart + 30
  73. act 'Return': gt 'cityTrain', 'inside'
  74. end
  75. end
  76. end
  77. if $ARGS[0] = 'buy_ticket':
  78. $menu_loc = 'cityTrain'
  79. $menu_arg = 'buy_ticket'
  80. menu_off = 0
  81. act 'Leave the ticket office': minut += 1 & gt 'cityTrain', 'inside'
  82. act 'Buy a ticket to the city industrial area (50 <b>₽</b>)':
  83. if money >= 50:
  84. money -= 50
  85. gt 'cityTrain', 'ind'
  86. else
  87. 'You don''t have enough money for this ticket.'
  88. end
  89. end
  90. act 'Buy a ticket to the old platform by the communal village (75 <b>₽</b>)':
  91. if money >= 75:
  92. money -= 75
  93. gt 'cityTrain', 'communal'
  94. else
  95. 'You don''t have enough money for this ticket.'
  96. end
  97. end
  98. act 'Buy a ticket to the village of Gadukino (100 <b>₽</b>)':
  99. if money >= 100:
  100. money -= 100
  101. gt 'cityTrain', 'village'
  102. else
  103. 'You don''t have enough money for this ticket.'
  104. end
  105. end
  106. act 'Buy a ticket to the old town (125 <b>₽</b>)':
  107. if money >= 125:
  108. money -= 125
  109. gt 'cityTrain', 'oldtown'
  110. else
  111. 'You don''t have enough money for this ticket.'
  112. end
  113. end
  114. act 'Buy a ticket to Pavlovsk (150 <b>₽</b>)':
  115. if money >= 150:
  116. money -= 150
  117. gt 'cityTrain', 'pavlovsk'
  118. else
  119. 'You don''t have enough money for this ticket.'
  120. end
  121. end
  122. end
  123. if $ARGS[0] = 'platform':
  124. $location_type = 'public_outdoors'
  125. $menu_loc = 'cityTrain'
  126. $menu_arg = 'platform'
  127. menu_off = 0
  128. gs 'stat'
  129. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/vokzalper.jpg" ></center>'
  130. 'When you arrive at the platform, you can''t help but notice it bustling with activity. Lots of passengers are coming and going, all carrying shopping bags. It feels like it is always busy here, no matter at what time of the day it is.'
  131. act 'Return to the station hall':gt 'cityTrain', 'inside'
  132. act 'Take a train to the city industrial area': gt 'cityTrain', 'ind'
  133. act 'Take a train to the old platform by the communal village': gt 'cityTrain', 'communal'
  134. act 'Take a train to the village of Gadukino': gt 'cityTrain', 'village'
  135. act 'Take a train to the old town': gt 'cityTrain', 'oldtown'
  136. act 'Take a train to Pavlovsk': gt 'cityTrain', 'pavlovsk'
  137. end
  138. if $ARGS[0] = 'ind':
  139. $loc = 'nordtrain'
  140. $metka = 'platform'
  141. menu_off = 1
  142. minut += 5
  143. gs 'stat'
  144. if rand(1, 100) < 15: gt 'train', 'private'
  145. if rand(1, 100) <= 10: gt 'train_incidental', 'events'
  146. if rand(1, 100) <= 20: gt 'train', 'events'
  147. '<center><img <<$set_imgh>> src="images/locations/shared/train/indusplat.jpg" ></center>'
  148. 'After 5 minutes, the train stops at the St. Petersburg city industrial area station.'
  149. act 'Get off the train':
  150. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  151. gt 'nordtrain', 'platform'
  152. end
  153. end
  154. if $ARGS[0] = 'communal':
  155. $loc = 'train'
  156. $metka = 'communal'
  157. menu_off = 1
  158. minut += 15
  159. if rand(1, 100) <= 10: gt 'train_incidental', 'events'
  160. if rand(1, 100) <= 20: gt 'train', 'events'
  161. gs 'stat'
  162. '<center><img <<$set_imgh>> src="images/locations/shared/train/oldplat.jpg" ></center>'
  163. 'After 15 minutes you arrive at an old railway platform near the communal village.'
  164. act 'Get off the train':
  165. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  166. gt 'train', 'communal'
  167. end
  168. end
  169. if $ARGS[0] = 'village':
  170. $loc = 'train'
  171. $metka = 'village'
  172. menu_off = 1
  173. minut += 25
  174. if rand(1, 100) <= 10: gt 'train_incidental', 'events'
  175. if rand(1, 100) < 20: gt 'train', 'events'
  176. gs 'stat'
  177. '<center><img <<$set_imgh>> src="images/locations/shared/train/gadplat.jpg" ></center>'
  178. 'After 25 minutes, the train stops at the small station near the village of Gadukino.'
  179. act 'Get off the train':
  180. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  181. gt 'train', 'village'
  182. end
  183. end
  184. if $ARGS[0] = 'oldtown':
  185. $loc = 'train'
  186. $metka = 'oldtown'
  187. menu_off = 1
  188. minut += 35
  189. if rand(1, 100) < 15: gt 'train', 'private'
  190. if rand(1, 100) < 30: gt 'train', 'Gopnik'
  191. if rand(1, 100) <= 10: gt 'train_incidental', 'events'
  192. if rand(1, 100) < 20: gt 'train', 'events'
  193. gs 'stat'
  194. '<center><img <<$set_imgh>> src="images/locations/shared/train/pushplat.jpg" ></center>'
  195. 'After 35 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.'
  196. act 'Get off the train':
  197. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  198. gt 'train', 'oldtown'
  199. end
  200. end
  201. if $ARGS[0] = 'pavlovsk':
  202. $loc = 'pavtrainhall'
  203. $metka = 'platform'
  204. menu_off = 1
  205. minut += 40
  206. if rand(1, 100) < 15: gt 'train', 'private'
  207. if rand(1, 100) < 30: gt 'train', 'Gopnik'
  208. if rand(1, 100) <= 10: gt 'train_incidental', 'events'
  209. if rand(1, 100) <= 20: gt 'train', 'events'
  210. gs 'stat'
  211. if train_event = 0 and rand(1, 100) < 20: gt 'train', 'events'
  212. '<center><img <<$set_imgh>> src="images/locations/shared/train/pavplat.jpg" ></center>'
  213. 'After 40 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.'
  214. act 'Get off the train':
  215. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  216. gt 'pavtrainhall', 'platform'
  217. end
  218. end
  219. --- cityTrain ---------------------------------