1
0

vokzalGin 7.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227
  1. # vokzalGin
  2. if $ARGS[0] = '':
  3. $metka = ''
  4. $loc = 'vokzalGin'
  5. $location_type = 'public_indoors'
  6. CLOSE ALL
  7. if sound = 0:PLAY 'sound/vokzal2.mp3',30
  8. clr
  9. frost = 0
  10. poezddalsled = 0
  11. gs 'vokdin'
  12. gs 'vokdinvera'
  13. gs 'stat'
  14. if night_mode = 1:
  15. fcolor = rgb(255, 255, 255)
  16. bcolor = rgb(0, 0, 0)
  17. lcolor = rgb(106, 90, 205)
  18. else
  19. fcolor = rgb(0, 0, 0)
  20. bcolor = rgb(255, 255, 255)
  21. lcolor = rgb(106, 90, 205)
  22. end
  23. '<center><h4>Pavlovsk train station interior</h4></center>'
  24. '<center><img src="images/locations/pavlovsk/trainstation/vokzal.jpg"></center>'
  25. 'The center of the station building is a large waiting room, where passengers can wait until their train arrives. Off to one side, the <a href="exec:gt ''vokzalGin'', ''kassi''">ticket office</a> is situated next to the departures board. Opposite to that you can find the <a href="exec:dynamic $din_vokzalg_kabinet">station manager''s office</a>, and the <a href="exec:minut += 1 & gt ''vokmantoiev'', ''start''">toilets</a> on the other end of the building.'
  26. 'You can go to the train <a href="exec:GT ''vokzalperG'',''start''">platforms</a> through the station building.'
  27. if katalkinSexOnce = 1:'There is a small <a href="exec:minut += 5 & gt ''katalkin''">police station</a> inside the station building.'
  28. if StoryLine = 1 and SchoolAtestat = 0:
  29. if (sunWeather = 0 or temper <= 0) and hour >= 18 and hour < 20 and week < 6:
  30. 'You see your classmates <a href="exec:minut += 3 & gt ''gopskver''">Vitek, Dan and Vasily</a> hanging around here.'
  31. end
  32. end
  33. if podbros = 0:
  34. podrand = rand(0, 1)
  35. 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:dynamic $din_vokzalg_podbros">wallet</a> dropping from his pocket, not far away from you.'
  36. end
  37. act 'Leave the station building':minut += 3 & gt 'vokzalG'
  38. if vokzalVork >= 1:
  39. if cleZalDay ! daystart:
  40. act 'Mop the waiting room floor (1:00)':
  41. cls
  42. cleZalDay = daystart
  43. minut += 60
  44. gs 'exercise', 'tier1', 1, 'stren_exp', 'vital_exp'
  45. gs 'stat'
  46. '<center><img src="images/locations/city/residential/office/clener1.jpg"></center>'
  47. '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.'
  48. act 'Continue':minut += 1 & gt 'vokzalGin'
  49. end
  50. end
  51. if cleMTDay ! daystart:
  52. act 'Clean the men''s restroom (0:30)':
  53. cls
  54. cleMTDay = daystart
  55. minut += 30
  56. gs 'exercise', 'tier1', 1, 'stren_exp', 'vital_exp'
  57. gs 'stat'
  58. '<center><img src="images/locations/city/residential/office/clener1.jpg"></center>'
  59. 'You take some cleaning supplies from the maintenance closet, pour some water and soap into a bucket and go to the men''s room.'
  60. gs 'vokmantoiev', 'toilet_event'
  61. !!'You began to wash the floor in the men''s room, and then began to scrub toilets.'
  62. act 'Leave':minut += 1 & gt 'vokzalGin'
  63. end
  64. end
  65. if cleWTDay ! daystart:
  66. act 'Clean the women''s restroom (0:30)':
  67. cls
  68. cleWTDay = daystart
  69. minut += 30
  70. gs 'exercise', 'tier1', 1, 'stren_exp', 'vital_exp'
  71. gs 'stat'
  72. '<center><img src="images/locations/city/residential/office/clener1.jpg"></center>'
  73. '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.'
  74. dynamic $d_vokzal_vera_talk
  75. act 'Leave':minut += 1 & gt 'vokzalGin'
  76. end
  77. end
  78. if cleMTDay = daystart and cleWTDay = daystart and cleZalDay = daystart and cleZarplatDay ! daystart:
  79. act 'Collect your salary':
  80. cls
  81. cleZarplatDay = daystart
  82. vokzalVork += 1
  83. money += 250
  84. minut += 3
  85. gs 'stat'
  86. 'When you are done cleaning all the places you were told to clean, you go to the cashier and collect your well-earned salary.'
  87. act 'Continue':minut += 1 & gt 'vokzalGin'
  88. end
  89. end
  90. end
  91. if hour = 11 and minut = 0:
  92. poezddalsled = 1
  93. 'The 11:30 long-distance train is currently approaching the platform.'
  94. elseif hour = 11 and minut > 0 and minut < 30:
  95. poezddalsled = 1
  96. 'The 11:30 long-distance train is currently waiting at the platform.'
  97. elseif hour = 11 and minut = 30:
  98. poezddalsled = 1
  99. 'The 11:30 long-distance train is currently leaving the station.'
  100. elseif hour = 18 and minut = 0:
  101. poezddalsled = 1
  102. 'The 18:30 long-distance train is currently approaching the platform.'
  103. elseif hour = 18 and minut > 0 and minut < 30:
  104. poezddalsled = 1
  105. 'The 18:30 long-distance train is currently waiting at the platform.'
  106. elseif hour = 18 and minut = 30:
  107. poezddalsled = 1
  108. 'The 18:30 long-distance train is currently leaving the station.'
  109. end
  110. if poezddalsled = 1:
  111. '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.'
  112. if tovarL > 0:
  113. act 'Sell your goods to passengers':gt 'vokzaltorg'
  114. end
  115. end
  116. end
  117. if $ARGS[0] = 'kassi':
  118. cls
  119. !! This is a lie, but a useful one don''t change the $loc and $metka
  120. $loc = 'vokzalGin'
  121. $metka = 'oldtown'
  122. gs 'stat'
  123. '<center><h4>Ticket office</h4></center>'
  124. '<center><img src="images/locations/shared/train/kassa.jpg"></center>'
  125. 'The long-distance trains are at the station platforms between 11:00-11:30 and 18:00-18:30.'
  126. if money >= 50:
  127. act 'Buy a ticket to the old town (50 <b>₽</b>)':
  128. train_event = 0
  129. money -= 50
  130. train_dest = 5
  131. gt 'vokzalGin', 'oldtown'
  132. end
  133. end
  134. if money >= 75:
  135. act 'Buy a ticket to the village of Gadyukino (75 <b>₽</b>)':
  136. train_event = 0
  137. money -= 75
  138. train_dir = 1
  139. train_dest = 4
  140. gt 'vokzalGin', 'oldtown'
  141. end
  142. end
  143. if money >= 100:
  144. act 'Buy a ticket to the the communal village (100 <b>₽</b>)':
  145. train_event = 0
  146. money -= 100
  147. train_dir = 1
  148. train_dest = 3
  149. gt 'vokzalGin', 'oldtown'
  150. end
  151. end
  152. if money >= 125:
  153. act 'Buy a ticket to city industrial area (125 <b>₽</b>)':
  154. train_event = 0
  155. money -= 125
  156. train_dir = 1
  157. train_dest = 2
  158. if rand(1, 100) < 15: gt 'train', 'private'
  159. gt 'vokzalGin', 'oldtown'
  160. end
  161. end
  162. if money >= 150:
  163. act 'Buy a ticket to city center (150 <b>₽</b>)':
  164. train_event = 0
  165. money -= 150
  166. train_dir = 1
  167. train_dest = 1
  168. if rand(1, 100) < 15: gt 'train', 'private'
  169. gt 'vokzalGin', 'oldtown'
  170. end
  171. end
  172. act 'Leave the ticket office':minut += 1 & gt 'vokzalGin'
  173. end
  174. !!For travel north from Pav to old town
  175. if $ARGS[0] = 'oldtown':
  176. close all
  177. if rand(1,100) < 10 and train_event = 0: gt 'train', 'weed'
  178. cls
  179. minut += 5
  180. gs 'stat'
  181. '<center><img src="images/locations/shared/train/electri.jpg"></center>'
  182. 'You pay for the ticket and board the next train going to St. Petersburg.'
  183. 'After 5 minutes, you see the familiar old buildings and the train stops at the station near the old town.'
  184. act 'Get off the train at this station':
  185. $loc = 'train'
  186. $metka = 'oldtown'
  187. if train_event = 0 and rand(1, 100) <= 5: gt 'train_incidental', 'end'
  188. gt 'train', 'oldtown'
  189. end
  190. if train_dest < 3 and rand(0, 100) < 15: gt 'train', 'private'
  191. if train_dest < 5:
  192. act 'Continue your journey':
  193. gt 'train', 'oldtownN'
  194. end
  195. end
  196. end
  197. --- vokzalGin ---------------------------------