1
0

pavtrainhall.qsrc 14 KB

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