1
0

pav_train_hall.qsrc 15 KB

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