nordtrain.qsrc 7.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274
  1. # nordtrain
  2. if $ARGS[0] = 'inside':
  3. $metka = 'inside'
  4. $loc = 'nordtrain'
  5. $menu_loc = 'nordtrain'
  6. $menu_arg = 'inside'
  7. menu_off = 0
  8. $location_type = 'public_indoors'
  9. CLOSE ALL
  10. if sound = 0:PLAY 'sound/vokzal.mp3',30
  11. *clr & cla
  12. gs'stat'
  13. '<center><img <<$set_imgh>> src="images/locations/shared/train/vokzalholle.jpg" ></center>'
  14. 'There is a <a href="exec:GT ''dort''">path</a> leading off in to the distance, in the direction of the lake.'
  15. act 'Leave the station': minut += 2 & gt 'nordtrain', 'outside'
  16. *nl
  17. if Trainpass_day > daystart:
  18. 'You have <<Trainpass_day - daystart>> days left on your train pass.'
  19. act 'Go to the platforms': gt 'nordtrain', 'platform'
  20. else
  21. act 'Go to the ticket office': minut += 1 & gt 'nordtrain', 'ticket'
  22. end
  23. act 'Go to the restrooms': minut += 1 & gt 'nordtrain', 'toilet'
  24. end
  25. if $ARGS[0] = 'outside':
  26. $metka = 'outside'
  27. $loc = 'nordtrain'
  28. $menu_loc = 'nordtrain'
  29. $menu_arg = 'inside'
  30. menu_off = 0
  31. $location_type = 'public_outdoors'
  32. *clr & cla
  33. gs'stat'
  34. '<center><B>Railway station</B></center>'
  35. '<center><img <<$set_imgh>> src="images/locations/city/shared/trainstation/vokzal.jpg"></center>'
  36. if car > 0 and cardrive = 19:
  37. cardrive = 19
  38. 'In the parking lot is <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
  39. end
  40. if RAND(1,100) > 70:
  41. 'You see a <a href="exec:GT ''etoexhib'',''pos54''">suspicious character</a>.'
  42. !fakes use 2 for aware of need for, 1 for have, otherwise 0
  43. if fakepassport = 2 or fakediplom = 2:
  44. 'When you pass by the suspicious character, he whispers to you: "I have what you want, miss"'
  45. end
  46. end
  47. act 'Go to the city industrial region': minut += 15 & gt'nord'
  48. act 'Enter the station building': minut += 2 & gt'nordtrain', 'inside'
  49. end
  50. if $ARGS[0] = 'platform':
  51. $metka = 'platform'
  52. $loc = 'nordtrain'
  53. $menu_loc = 'nordtrain'
  54. $menu_arg = 'inside'
  55. menu_off = 0
  56. $location_type = 'public_outdoors'
  57. *clr & cla
  58. gs 'stat'
  59. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/vokzalper.jpg" ></center>'
  60. '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 large bags. It feels like it is always busy here, no matter at what time of the day you are here.'
  61. act 'Return to the station': minut += 5 & gt 'nordtrain', 'inside'
  62. if Trainpass_day > daystart:
  63. act 'Take a train to the city center': gt 'nordtrain', 'centre'
  64. act 'Take a train to the old platform by the communal village': gt 'nordtrain', 'communal'
  65. act 'Take a train to the village of Gadukino': gt 'nordtrain', 'village'
  66. act 'Take a train to the old town': gt 'nordtrain', 'oldtown'
  67. act 'Take a train to Pavlovsk': gt 'nordtrain', 'pavlovsk'
  68. end
  69. end
  70. if $ARGS[0] = 'toilet':
  71. $metkaM = 'toilet'
  72. $locM = 'nordtrain'
  73. $metka = 'toilet'
  74. $loc = 'nordtrain'
  75. $menu_loc = 'nordtrain'
  76. $menu_arg = 'inside'
  77. menu_off = 0
  78. $location_type = 'bathroom'
  79. *clr & cla
  80. gs'stat'
  81. gs 'themes', 'indoors'
  82. '<center><img <<$set_imgh>> src="images/locations/shared/bathroom/publictoilet.jpg"></center>'
  83. act 'Return to the station': minut += 1 & gt 'nordtrain', 'inside'
  84. act 'Look in the mirror': gt 'mirror', 'start'
  85. if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
  86. dynamic $tampon
  87. dynamic $quickwash
  88. dynamic $basin
  89. dynamic $removepan
  90. end
  91. if $ARGS[0] = 'ticket':
  92. $menu_loc = 'nordtrain'
  93. $menu_arg = 'ticket'
  94. menu_off = 0
  95. *clr & cla
  96. gs 'stat'
  97. '<center><h4>Ticket office</h4></center>'
  98. '<center><img <<$set_imgh>> src="images/locations/shared/train/kassa.jpg"></center>'
  99. act 'Leave the ticket office':minut += 1 & gt 'nordtrain', 'inside'
  100. if money >= 50:
  101. act 'Buy a ticket':
  102. cla
  103. gs 'nordtrain', 'buy_ticket'
  104. end
  105. end
  106. if money >= 1500 and Trainpass_day <= daystart:
  107. act 'Buy a weekly pass (7 days - 1500 <b>₽</b>) ':
  108. cla
  109. money -= 1500
  110. Trainpass_day = daystart + 7
  111. act 'Return': gt 'nordtrain', 'inside'
  112. end
  113. end
  114. if money >= 5500 and Trainpass_day <= daystart:
  115. act 'Buy a monthly pass (30day - 5500 <b>₽</b>)':
  116. cla
  117. money -= 5500
  118. Trainpass_day = daystart + 30
  119. act 'Return': gt 'nordtrain', 'inside'
  120. end
  121. end
  122. end
  123. if $ARGS[0] = 'buy_ticket':
  124. $menu_loc = 'nordtrain'
  125. $menu_arg = 'buy_ticket'
  126. menu_off = 0
  127. act 'Leave the ticket office': gt 'nordtrain', 'inside'
  128. if money >= 50:
  129. act 'Buy a ticket to the city center (50 <b>₽</b>)':
  130. money -= 50
  131. gt 'nordtrain', 'centre'
  132. end
  133. end
  134. if money >= 50:
  135. act 'Buy a ticket to the old platform by the communal village (50 <b>₽</b>)':
  136. money -= 100
  137. gt 'nordtrain', 'communal'
  138. end
  139. end
  140. if money >= 75:
  141. act 'Buy a ticket to the village of Gadukino (75 <b>₽</b>)':
  142. money -= 75
  143. gt 'nordtrain', 'village'
  144. end
  145. end
  146. if money >= 100:
  147. act 'Buy a ticket to the old town (100 <b>₽</b>)':
  148. money -= 100
  149. gt 'nordtrain', 'oldtown'
  150. end
  151. end
  152. if money >= 125:
  153. act 'Buy a ticket to Pavlovsk (125 <b>₽</b>)':
  154. money -= 125
  155. gt 'nordtrain', 'pavlovsk'
  156. end
  157. end
  158. end
  159. if $ARGS[0] = 'centre':
  160. $loc = 'cityTrain'
  161. $metka = 'inside'
  162. menu_off = 1
  163. *clr & cla
  164. minut += 5
  165. gs 'stat'
  166. '<center><img <<$set_imgh>> src="images/locations/shared/train/electri.jpg"></center>'
  167. 'You pay for the ticket and board the next train going to the city center.'
  168. '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.'
  169. act 'Get off the train at this station':
  170. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  171. gt 'cityTrain', 'inside'
  172. end
  173. end
  174. if $ARGS[0] = 'communal':
  175. $loc = 'train'
  176. $metka = 'communal'
  177. menu_off = 1
  178. minut += 10
  179. if rand(1, 100) < 20: gt 'train', 'events'
  180. gs 'stat'
  181. '<center><img <<$set_imgh>> src="images/locations/shared/train/oldplat.jpg" ></center>'
  182. 'After 10 minutes you arrive at an old railway platform near the communal village.'
  183. act 'Get off the train':
  184. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  185. gt 'train', 'communal'
  186. end
  187. end
  188. if $ARGS[0] = 'village':
  189. $loc = 'train'
  190. $metka = 'village'
  191. menu_off = 1
  192. minut += 20
  193. if rand(1, 100) <= 10: gt 'train_incidental', 'events'
  194. if rand(1, 100) < 20: gt 'train', 'events'
  195. gs 'stat'
  196. '<center><img <<$set_imgh>> src="images/locations/shared/train/gadplat.jpg" ></center>'
  197. 'After 20 minutes, the train stops at the small station near the village of Gadukino.'
  198. act 'Get off the train':
  199. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  200. gt 'train', 'village'
  201. end
  202. end
  203. if $ARGS[0] = 'oldtown':
  204. $loc = 'train'
  205. $metka = 'oldtown'
  206. menu_off = 1
  207. minut += 30
  208. if rand(1, 100) <= 10: gt 'train_incidental', 'events'
  209. if rand(1, 100) < 20: gt 'train', 'events'
  210. gs 'stat'
  211. '<center><img <<$set_imgh>> src="images/locations/shared/train/pushplat.jpg" ></center>'
  212. '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.'
  213. act 'Get off the train':
  214. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  215. gt 'train', 'oldtown'
  216. end
  217. end
  218. if $ARGS[0] = 'pavlovsk':
  219. $loc = 'pavtrainhall'
  220. $metka = 'platform'
  221. menu_off = 1
  222. minut += 35
  223. if rand(1, 100) < 15: gt 'train', 'private'
  224. if rand(1, 100) < 30: gt 'train', 'Gopnik'
  225. if rand(1, 100) <= 10: gt 'train_incidental', 'events'
  226. if rand(1, 100) <= 20: gt 'train', 'events'
  227. gs 'stat'
  228. '<center><img <<$set_imgh>> src="images/locations/shared/train/pavplat.jpg" ></center>'
  229. '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.'
  230. act 'Get off the train':
  231. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  232. gt 'pavtrainhall', 'platform'
  233. end
  234. end
  235. --- nordtrain ---------------------------------