cityTrain 7.1 KB

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