vokzalGin 5.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135
  1. # vokzalGin
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. $location_type = 'public_indoors'
  5. CLOSE ALL
  6. if sound = 0:PLAY 'sound/vokzal2.mp3',30
  7. clr
  8. frost = 0
  9. poezddalsled = 0
  10. gs 'vokdin'
  11. gs 'vokdinvera'
  12. gs 'stat'
  13. fcolor = rgb(0, 0, 0)
  14. bcolor = rgb(255, 255, 255)
  15. lcolor = rgb(106, 90, 205)
  16. '<center><h4>Pavlovsk train station interior</h4></center>'
  17. '<center><img src="images/qwest/alter/vokzal.jpg"></center>'
  18. '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:dynamic $din_vokzalg_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.'
  19. 'You can go to the train <a href="exec:GT ''vokzalperG'',''start''">platforms</a> through the station building.'
  20. if katalkinSexOnce = 1:'There is a small <a href="exec:minut += 5 & gt ''katalkin''">police station</a> inside the station building.'
  21. if podbros = 0:
  22. podrand = rand(0, 1)
  23. 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.'
  24. end
  25. act 'Leave the station building':minut += 3 & gt 'vokzalG'
  26. if vokzalVork >= 1:
  27. if cleZalDay ! daystart:
  28. act 'Mop the waiting room floor (1:00)':
  29. cls
  30. cleZalDay = daystart
  31. minut += 60
  32. sweat += 10
  33. if vital < 15:vital += rand(0, 1) + (steroid_dose - rand(0,steroid_dose)) & gs 'obj_din', 'steroids'
  34. if stren < 15:stren += rand(0, 1) + (steroid_dose - rand(0,steroid_dose)) & gs 'obj_din', 'steroids'
  35. gs 'stat'
  36. '<center><img src="images/etogame/clener1.jpg"></center>'
  37. '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.'
  38. act 'Continue':minut += 1 & gt 'vokzalGin'
  39. end
  40. end
  41. if cleMTDay ! daystart:
  42. act 'Clean the men''s restroom (0:30)':
  43. cls
  44. cleMTDay = daystart
  45. minut += 30
  46. sweat += 10
  47. if vital < 15:vital += rand(0, 1) + (steroid_dose - rand(0,steroid_dose)) & gs 'obj_din', 'steroids'
  48. if stren < 15:stren += rand(0, 1) + (steroid_dose - rand(0,steroid_dose)) & gs 'obj_din', 'steroids'
  49. gs 'stat'
  50. '<center><img src="images/etogame/clener1.jpg"></center>'
  51. 'You take some cleaning supplies from the maintenance closet, pour some water and soap into a bucket and go to the men''s room.'
  52. gs 'vokmantoiev', 'toilet_event'
  53. !!'You began to wash the floor in the men''s room, and then began to scrub toilets.'
  54. act 'Leave':minut += 1 & gt 'vokzalGin'
  55. end
  56. end
  57. if cleWTDay ! daystart:
  58. act 'Clean the women''s restroom (0:30)':
  59. cls
  60. cleWTDay = daystart
  61. minut += 30
  62. sweat += 10
  63. if vital < 15:vital += rand(0, 1) + (steroid_dose - rand(0,steroid_dose)) & gs 'obj_din', 'steroids'
  64. if stren < 15:stren += rand(0, 1) + (steroid_dose - rand(0,steroid_dose)) & gs 'obj_din', 'steroids'
  65. gs 'stat'
  66. '<center><img src="images/etogame/clener1.jpg"></center>'
  67. '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.'
  68. dynamic $d_vokzal_vera_talk
  69. act 'Leave':minut += 1 & gt 'vokzalGin'
  70. end
  71. end
  72. if cleMTDay = daystart and cleWTDay = daystart and cleZalDay = daystart and cleZarplatDay ! daystart:
  73. act 'Collect your salary':
  74. cls
  75. cleZarplatDay = daystart
  76. vokzalVork += 1
  77. money += 250
  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 'vokzalGin'
  82. end
  83. end
  84. end
  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:
  107. act 'Sell your goods to passengers':gt 'vokzaltorg'
  108. end
  109. end
  110. --- vokzalGin ---------------------------------