1
0

pavtrainhall.qsrc 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438
  1. # pavtrainhall
  2. if $ARGS[0] = '':
  3. $metka = ''
  4. $loc = 'pavtrainhall'
  5. $menu_loc = 'pavtrainhall'
  6. $menu_arg = ''
  7. menu_off = 0
  8. $location_type = 'public_indoors'
  9. CLOSE ALL
  10. if sound = 0:PLAY 'sound/vokzal2.mp3',30
  11. clr
  12. frost = 0
  13. poezddalsled = 0
  14. gs 'stat'
  15. gs 'themes', 'indoors'
  16. '<center><h4>Pavlovsk train station interior</h4></center>'
  17. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/vokzal.jpg"></center>'
  18. 'The center of the station building is a large waiting room, where passengers can wait until their train arrives. Opposite to that you can find the <a href="exec: gt ''pavtrainhall_events'', ''manager''">station manager''s office</a>, and the <a href="exec:minut += 1 & gt ''pavtrainhall'', ''toilet''">toilets</a> on the other end of the building.'
  19. 'The long-distance trains are at the station platforms between 11:00-11:30 and 18:00-18:30.'
  20. *nl
  21. if katalkinSexOnce = 1:'There is a small <a href="exec:minut += 5 & gt ''katalkin''">police station</a> inside the station building.'
  22. *nl
  23. if StoryLine = 1 and SchoolAtestat = 0:
  24. if (sunWeather = 0 or temper <= 0) and hour >= 18 and hour < 20 and week < 6:
  25. 'You see your classmates <a href="exec:minut += 3 & gt ''gopskver''">Vitek, Dan and Vasily</a> hanging around here.'
  26. end
  27. end
  28. if podbros = 0:
  29. podrand = rand(0, 1)
  30. if money >= 1000 and hour >= 8 and hour <= 20 and podrand = 0:'As you walk through the station building, you notice a man''s thick <a href="exec: gt ''pavtrainhall_events'', ''wallet1''">wallet</a> dropping from his pocket, not far away from you.'
  31. *nl
  32. end
  33. act 'Leave the train station':minut += 3 & gt 'pavtrain'
  34. if Trainpass_day > daystart:
  35. 'You have <<Trainpass_day - daystart>> days left on your train pass.'
  36. act 'Go to the platforms': gt 'pavtrainhall', 'platform'
  37. else
  38. act 'Go to the ticket office': gt 'pavtrainhall', 'ticket'
  39. end
  40. if snarkozak = 1 and narkossista = 0 and narkozakday!day:
  41. if money >= 1500:
  42. act 'Find the drug dealer':gs 'events', 'snarkozaka'
  43. end
  44. end
  45. if vokzalVork >= 1:
  46. if cleZalDay ! daystart or cleMTDay ! daystart or cleWTDay ! daystart:
  47. act 'Work': gt 'pavtrainhall', 'work'
  48. elseif cleZarplatDay ! daystart:
  49. act 'Collect your salary':
  50. menu_off = 1
  51. *clr & cla
  52. '<center><h4>Pavlovsk train station interior</h4></center>'
  53. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/vokzal.jpg"></center>'
  54. cleZarplatDay = daystart
  55. vokzalVork += 1
  56. money += 130
  57. minut += 3
  58. gs 'stat'
  59. 'When you are done cleaning all the places you were told to clean, you go to the cashier and collect your well-earned salary.'
  60. act 'Continue':minut += 1 & gt 'pavtrainhall'
  61. end
  62. end
  63. end
  64. *nl
  65. if hour = 11 and minut = 0:
  66. poezddalsled = 1
  67. 'The 11:30 long-distance train is currently approaching the platform.'
  68. elseif hour = 11 and minut > 0 and minut < 30:
  69. poezddalsled = 1
  70. 'The 11:30 long-distance train is currently waiting at the platform.'
  71. elseif hour = 11 and minut = 30:
  72. poezddalsled = 1
  73. 'The 11:30 long-distance train is currently leaving the station.'
  74. elseif hour = 18 and minut = 0:
  75. poezddalsled = 1
  76. 'The 18:30 long-distance train is currently approaching the platform.'
  77. elseif hour = 18 and minut > 0 and minut < 30:
  78. poezddalsled = 1
  79. 'The 18:30 long-distance train is currently waiting at the platform.'
  80. elseif hour = 18 and minut = 30:
  81. poezddalsled = 1
  82. 'The 18:30 long-distance train is currently leaving the station.'
  83. end
  84. if poezddalsled = 1:
  85. 'The platform is bustling with passengers that are entering or leaving the currently waiting train, carrying their heavy bags with them. Several police officers are patrolling the platforms while the train is here, keeping an eye out for any unruly activities.'
  86. if tovarL > 0:
  87. act 'Sell your goods to passengers':gt 'pavtrainhall_events', 'trinkets'
  88. end
  89. end
  90. act 'Wait':gs 'obj_din', 'wait'
  91. end
  92. if $ARGS[0] = 'platform':
  93. $loc = 'pavtrainhall'
  94. $metka = 'platform'
  95. $menu_loc = 'pavtrainhall'
  96. $menu_arg = 'platform'
  97. menu_off = 0
  98. $location_type = 'public_outdoors'
  99. CLOSE ALL
  100. if sound = 0:
  101. if month >=11 and month <= 12 or month >=1 and month <=3:
  102. if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/zima.mp3',30
  103. if hour >= 0 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
  104. else
  105. if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/street_leto.mp3',30
  106. if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
  107. end
  108. end
  109. *clr & cla
  110. gs'stat'
  111. '<center><H4>Pavlovsk station platforms</H4></center>'
  112. '<center><img <<$set_imgh>> src="images/locations/shared/train/pavplat.jpg"></center>'
  113. 'Because Pavlovsk is a place that attracts a fair amount of tourists, the station can be quite busy at times. The busiest times on the platforms are between 11:00 and 11:30, and between 18:00 and 18:30 when the long-distance trains are ready for boarding.'
  114. if week >= 6 and hour >= 9 and hour <= 10:
  115. 'You notice <a href="exec:gt ''gschool_socialchg1'', ''tBella''">Bella</a> standing at the train station platform, looking at the time table.'
  116. end
  117. act 'Enter the station building': gt'pavtrainhall'
  118. if Trainpass_day > daystart:
  119. act 'Take a train to the old town': gt 'pavtrainhall', 'oldtown'
  120. act 'Take a train to the village of Gadukino': gt 'pavtrainhall', 'village'
  121. act 'Take a train to the communal village': gt 'pavtrainhall', 'communal'
  122. act 'Take a train to city industrial area': gt 'pavtrainhall', 'ind'
  123. act 'Take a train to city center': gt 'pavtrainhall', 'centre'
  124. end
  125. end
  126. if $ARGS[0] = 'work':
  127. menu_off = 1
  128. *clr & cla
  129. '<center><h4>Pavlovsk train station interior</h4></center>'
  130. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/vokzal.jpg"></center>'
  131. if cleZalDay ! daystart:
  132. act 'Mop the waiting room floor (1:00)':
  133. cls
  134. cleZalDay = daystart
  135. gs 'exercise', 'tier1', 60, 'stren_exp', 'vital_exp'
  136. pcs_mood -= 6
  137. gs 'stat'
  138. '<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener1.jpg"></center>'
  139. 'You take some cleaning supplies from the maintenance closet, pour some water and soap into a bucket and wash the floor in the waiting room.'
  140. act 'Continue':minut += 1 & gt 'pavtrainhall', 'work'
  141. end
  142. end
  143. if cleMTDay ! daystart:
  144. act 'Clean the men''s restroom (0:30)':
  145. cls
  146. cleMTDay = daystart
  147. gs 'exercise', 'tier1', 30, 'stren_exp', 'vital_exp'
  148. pcs_mood -= 6
  149. gs 'stat'
  150. '<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener1.jpg"></center>'
  151. 'You take some cleaning supplies from the maintenance closet, pour some water and soap into a bucket and go to the men''s room.'
  152. gs 'pavtrainhall_events', 'toilet_event'
  153. !!'You began to wash the floor in the men''s room, and then began to scrub toilets.'
  154. act 'Leave restroom':minut += 1 & gt 'pavtrainhall', 'work'
  155. end
  156. end
  157. if cleWTDay ! daystart:
  158. act 'Clean the women''s restroom (0:30)':
  159. cls
  160. cleWTDay = daystart
  161. gs 'exercise', 'tier1', 30, 'stren_exp', 'vital_exp'
  162. pcs_mood -= 6
  163. gs 'stat'
  164. '<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener1.jpg"></center>'
  165. 'You take some cleaning supplies from the maintenance closet, pour some water and soap into a bucket and scrub the toilets in the ladies'' room before mopping the floor.'
  166. gs 'pavtrainhall_events', 'vera'
  167. act 'Leave restroom':minut += 1 & gt 'pavtrainhall', 'work'
  168. end
  169. end
  170. act 'Return': gt 'pavtrainhall'
  171. end
  172. if $ARGS[0] = 'ticket':
  173. $menu_loc = 'pavtrainhall'
  174. $menu_arg = 'ticket'
  175. menu_off = 0
  176. *clr & cla
  177. gs 'stat'
  178. '<center><h4>Ticket office</h4></center>'
  179. '<center><img <<$set_imgh>> src="images/locations/shared/train/kassa.jpg"></center>'
  180. act 'Leave the ticket office':minut += 1 & gt 'pavtrainhall'
  181. if money >= 50:
  182. act 'Buy a ticket':
  183. cla
  184. gs 'pavtrainhall', 'buy_ticket'
  185. end
  186. end
  187. if money >= 1500 and Trainpass_day <= daystart:
  188. act 'Buy a weekly pass (7 days - 1500 <b>₽</b>) ':
  189. cla
  190. money -= 1500
  191. Trainpass_day = daystart + 7
  192. act 'Return': gt 'pavtrainhall'
  193. end
  194. end
  195. if money >= 5500 and Trainpass_day <= daystart:
  196. act 'Buy a monthly pass (30day - 5500 <b>₽</b>)':
  197. cla
  198. money -= 5500
  199. Trainpass_day = daystart + 30
  200. act 'Return': gt 'pavtrainhall'
  201. end
  202. end
  203. end
  204. if $ARGS[0] = 'buy_ticket':
  205. $menu_loc = 'pavtrainhall'
  206. $menu_arg = 'buy_ticket'
  207. menu_off = 0
  208. act 'Leave the ticket office':minut += 1 & gt 'pavtrainhall'
  209. if money >= 50:
  210. act 'Buy a ticket to the old town (50 <b>₽</b>)':
  211. money -= 50
  212. gt 'pavtrainhall', 'oldtown'
  213. end
  214. end
  215. if money >= 75:
  216. act 'Buy a ticket to the village of Gadukino (75 <b>₽</b>)':
  217. money -= 75
  218. gt 'pavtrainhall', 'village'
  219. end
  220. end
  221. if money >= 100:
  222. act 'Buy a ticket to the communal village (100 <b>₽</b>)':
  223. money -= 100
  224. gt 'pavtrainhall', 'communal'
  225. end
  226. end
  227. if money >= 125:
  228. act 'Buy a ticket to city industrial area (125 <b>₽</b>)':
  229. money -= 125
  230. gt 'pavtrainhall', 'ind'
  231. end
  232. end
  233. if money >= 150:
  234. act 'Buy a ticket to city center (150 <b>₽</b>)':
  235. money -= 150
  236. gt 'pavtrainhall', 'centre'
  237. end
  238. end
  239. end
  240. if $ARGS[0] = 'oldtown':
  241. $loc = 'train'
  242. $metka = 'oldtown'
  243. menu_off = 1
  244. minut += 5
  245. if rand(1, 100) < 20: gt 'train', 'events'
  246. gs 'stat'
  247. '<center><img <<$set_imgh>> src="images/locations/shared/train/pushplat.jpg" ></center>'
  248. 'After 5 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.'
  249. act 'Get off the train':
  250. if rand(1, 100) <= 5: gt 'train_incidental', 'end'
  251. gt 'train', 'oldtown'
  252. end
  253. end
  254. if $ARGS[0] = 'village':
  255. $loc = 'train'
  256. $metka = 'village'
  257. menu_off = 1
  258. minut += 15
  259. if rand(1, 100) <= 10: gt 'train_incidental', 'events'
  260. if rand(1, 100) < 20: gt 'train', 'events'
  261. gs 'stat'
  262. '<center><img <<$set_imgh>> src="images/locations/shared/train/gadplat.jpg" ></center>'
  263. 'After 15 minutes, the train stops at the small station near the village of Gadukino.'
  264. act 'Get off the train':
  265. if rand(1, 100) <= 5: gt 'train_incidental', 'end'
  266. gt 'train', 'village'
  267. end
  268. end
  269. if $ARGS[0] = 'communal':
  270. $loc = 'train'
  271. $metka = 'communal'
  272. menu_off = 1
  273. minut += 25
  274. if rand(1, 100) <= 10: gt 'train_incidental', 'events'
  275. if rand(1, 100) <= 20: gt 'train', 'events'
  276. gs 'stat'
  277. '<center><img <<$set_imgh>> src="images/locations/shared/train/oldplat.jpg" ></center>'
  278. 'After 20 minutes you arrive at an old railway platform near the communal village.'
  279. act 'Get off the train':
  280. if rand(1, 100) <= 5: gt 'train_incidental', 'end'
  281. gt 'train', 'communal'
  282. end
  283. end
  284. if $ARGS[0] = 'ind':
  285. $loc = 'nordtrain'
  286. $metka = 'platform'
  287. menu_off = 1
  288. minut += 35
  289. if rand(1, 100) < 15: gt 'train', 'private'
  290. if rand(1, 100) < 30: gt 'train', 'Gopnik'
  291. if rand(1, 100) <= 10: gt 'train_incidental', 'events'
  292. if rand(1, 100) <= 20: gt 'train', 'events'
  293. gs 'stat'
  294. '<center><img <<$set_imgh>> src="images/locations/shared/train/indusplat.jpg" ></center>'
  295. 'After 35 minutes, the train stops at the St. Petersburg city industrial area station.'
  296. act 'Get off the train':
  297. if rand(1, 100) <= 5: gt 'train_incidental', 'end'
  298. gt 'nordtrain', 'platform'
  299. end
  300. end
  301. if $ARGS[0] = 'centre':
  302. $loc = 'cityTrain'
  303. $metka = 'inside'
  304. menu_off = 1
  305. minut += 40
  306. if rand(1, 100) < 15: gt 'train', 'private'
  307. if rand(1, 100) < 30: gt 'train', 'Gopnik'
  308. if rand(1, 100) <= 10: gt 'train_incidental', 'events'
  309. if rand(1, 100) <= 20: gt 'train', 'events'
  310. gs 'stat'
  311. '<center><img <<$set_imgh>> src="images/locations/shared/train/cityplat.jpg" ></center>'
  312. 'After 40 minutes, the train stops at the St. Petersburg city center station. The large office blocks and shopping centers fill your view.'
  313. act 'Get off the train':
  314. if rand(1, 100) <= 5: gt 'train_incidental', 'end'
  315. gt 'cityTrain', 'inside'
  316. end
  317. end
  318. if $ARGS[0] = 'toilet':
  319. $menu_loc = 'pavtrainhall'
  320. $menu_arg = 'toilet'
  321. menu_off = 0
  322. *clr & cla
  323. vokzalToilet = 0
  324. gs 'stat'
  325. '<center><h4>Pavlovsk train station interior</h4></center>'
  326. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/vokzal.jpg"></center>'
  327. 'You are at the station''s restrooms, you can find the <a href="exec:minut += 1 & gt ''pavtrainhall'', ''female''">ladies'' room</a> and <a href="exec:minut += 1 & gt ''pavtrainhall'', ''male''">men''s room</a> here.'
  328. act 'Return to the train station':minut += 1 & gt 'pavtrainhall'
  329. end
  330. if $ARGS[0] = 'female':
  331. $locM = 'pavtrainhall'
  332. $metkaM = 'female'
  333. $loc = 'pavtrainhall'
  334. $metka = 'female'
  335. $menu_loc = 'pavtrainhall'
  336. $menu_arg = 'female'
  337. menu_off = 0
  338. $location_type = 'bathroom'
  339. *clr & cla
  340. vokzalToilet = 1
  341. gs 'stat'
  342. '<center><h4>The ladies'' room</h4></center>'
  343. '<center><img <<$set_imgh>> src="images/locations/shared/bathroom/publictoilet.jpg"></center>'
  344. 'You open the door to the ladies'' room and go in.'
  345. act 'Leave':minut += 1 & gt 'pavtrainhall', 'toilet'
  346. act 'Look in the mirror': gt 'mirror', 'start'
  347. dynamic $tampon
  348. dynamic $quickwash
  349. dynamic $basin
  350. dynamic $removepan
  351. end
  352. if $ARGS[0] = 'male':
  353. $locM = 'pavtrainhall'
  354. $metkaM = 'male'
  355. $loc = 'pavtrainhall'
  356. $metka = 'male'
  357. $menu_loc = 'pavtrainhall'
  358. $menu_arg = 'male'
  359. menu_off = 0
  360. $location_type = 'bathroom'
  361. *clr & cla
  362. vokzalToilet = 2
  363. gs 'stat'
  364. '<center><h4>The men''s room</h4></center>'
  365. '<center><img <<$set_imgh>> src="images/locations/shared/bathroom/publictoilet.jpg"></center>'
  366. 'You open the door to the men''s room and go in.'
  367. act 'Leave':minut += 1 & gt 'pavtrainhall', 'toilet'
  368. if bimbolevel >= 1:
  369. act 'Wait and see if someone finds you':gt 'trainbimbo', 'pos1'
  370. act 'Quickly enter a stall':gt 'trainbimbo', 'pos5'
  371. end
  372. act 'Look in the mirror':gt 'mirror', 'start'
  373. dynamic $tampon
  374. dynamic $quickwash
  375. dynamic $basin
  376. end
  377. --- pavtrainhall ---------------------------------