Nord.qsrc 6.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145
  1. # Nord
  2. if $ARGS[0] = '':
  3. $metka = ''
  4. $loc = 'Nord'
  5. $metkaStreet = ''
  6. $locStreet = 'Nord'
  7. $location_type = 'public_outdoors'
  8. CLOSE ALL
  9. if sound = 0:
  10. if month >=11 and month <= 12 or month >=1 and month <=3:
  11. if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/street7.mp3',30 & PLAY 'sound/zima.mp3',30
  12. if hour >= 0 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
  13. else
  14. if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/street7.mp3',30 & PLAY 'sound/street_leto.mp3',30
  15. if hour >= 0 and hour <= 7: PLAY 'sound/street_night_leto.mp3' & PLAY 'sound/street_night.mp3',30
  16. end
  17. end
  18. clr
  19. gs 'stat'
  20. !call random events from [street_events], and display them before show location.
  21. if streetevent_hour + 2 < hour: gt 'street_event','Nord', 'main'
  22. '<center><h2>St. Petersburg</h2></center>'
  23. '<center><b>Industrial Region</b></center>'
  24. if month >= 11 or month <= 3:
  25. if hour >= 8 and hour <= 21:
  26. '<center><img <<$set_imgh>> src="images/locations/city/industrial/industw.jpg"></center>'
  27. else
  28. '<center><img <<$set_imgh>> src="images/locations/city/industrial/industwn.jpg"></center>'
  29. end
  30. else
  31. if hour >= 8 and hour <= 21:
  32. '<center><img <<$set_imgh>> src="images/locations/city/industrial/nord.jpg"></center>'
  33. else
  34. '<center><img <<$set_imgh>> src="images/locations/city/industrial/nord2.jpg"></center>'
  35. end
  36. end
  37. gs'street_event','Nord', 'extras'
  38. act 'Walk to the main road to Pavlovsk (0:15)': minut += 15 & nroad = 0 & gt'road'
  39. act 'Visit the Red Light District (0:05)': minut += 5 & gt 'Nord', 'redlight'
  40. act 'Wait':
  41. cla
  42. waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
  43. if waiting <= 0 or waiting > 120:
  44. minut += 15
  45. elseif waiting > 0 and waiting <= 120:
  46. minut += waiting
  47. end
  48. act 'Take a look at the clock':gt curloc
  49. end
  50. gs 'taxi'
  51. if car > 0:
  52. if cardrive = 3 or cardrive >= 6 and cardrive <= 9:'In the parking stands your <a href="exec:GS ''carF'', ''start''"><<$car>></a>.'
  53. end
  54. 'The towns <a href="exec:hour += 1 & gt ''park'', ''start''">central park</a> is an hours walk from here.'
  55. if hour >= 8 and hour <= 22:'You can see the <a href="exec:$locM = ''Nord'' & minut += 1 & gt ''kiosk'', ''start''">kiosk</a> selling cigarettes and magazines.'
  56. '<a href="exec:minut += 15 & gt ''vokzal''">Train Station</a> to get to the small Town.'
  57. if week = 3 or hour < 16:
  58. 'The Bar "Rabotnik" is here, but it seems to be closed. A sign by the door tells you that it''s open every day (except Wednesday) between 16:00 and 24:00.'
  59. else
  60. 'The <a href="exec: minut += 5 & gt ''qwBarPolet''">Bar "Rabotnik"</a> seems to be open.'
  61. end
  62. ![slavaQW - Related to Glory; references to bar "Flight" have to be fixed - requirement to access the bar has been removed for now, since content not related - Variable not used by anything else at the moment]
  63. litltown = 0
  64. 'There is a <a href="exec: minut += 5 & gt ''zaprF'', ''start''">Gas</a> Station near the street'
  65. if hour >= 5 and hour <= 23:'The <a href="exec:gt ''metro'', ''start''">Metro</a> Station is within a 5 minute walk from here.'
  66. if hour >= 9 and hour <= 20 and week < 7:'<a href="exec: minut += 5 & gt ''autoservisF'', ''start''">Repair Shop</a>'
  67. if hour >= 9 and hour <= 17 and week > 1:'<a href="exec: minut += 5 & gt ''autotraidF'', ''start''">Car Dealership</a>'
  68. if hour >= 9 and hour < 17 and week < 6:'<a href="exec: minut += 5 & gt ''dk'', ''start''">Community centre</a>'
  69. if hour >= 9 and hour <= 17 and (StoryLine = 1 and SchoolAtestat = 0) or bumtolik > 3: '<a href="exec:GT ''buklinik'',''start''">Mercy clinic</a>'
  70. if hour >= 8 and hour <= 20:'The parking lot, which is engulfed in bright lights, belongs to a <a href="exec: minut += 2 & gt ''shop'', ''start''">Supermarket</a>'
  71. if hour >= 12 and hour <= 19:'Above the door to a basement room is a bright neon sign for the <a href="exec: minut += 5 & gt ''pirsingsalon'', ''start''">Tattoo & Piercing parlor</a>'
  72. if tobiQW >= 1:'The old mansion, home to <a href="exec:gt ''kakuzu'', ''start''">Kakuzu</a>'
  73. 'There is a huge building, with bright lights, which houses a <a href="exec: minut += 10 & gt ''casino''">Casino</a>.'
  74. if hour >= 14 or hour < 4:'Located far away from the buildings <a href="exec: minut += 2 & gt ''lakecafe'', ''main''">barbecue</a>.'
  75. if jouryResult = 10:'You can go to one of the apartment blocks and visit <a href="exec:gt ''youry'',''start''">Yuri''s</a> flat'
  76. if IvanKvartira > 0:'In one of these building is <a href="exec:gt ''ivanRoom''">Manager Ivans</a> apartment'
  77. 'A long and high fence, which is build around the <a href="exec:gt ''Terminal''">storage terminal</a>'
  78. end
  79. if $ARGS[0] = 'redlight':
  80. $metka = 'redlight'
  81. $loc = 'Nord'
  82. $metkaStreet = 'redlight'
  83. $locStreet = 'Nord'
  84. $location_type = 'public_outdoors'
  85. CLOSE ALL
  86. if sound = 0:
  87. if month >=11 and month <= 12 or month >=1 and month <=3:
  88. if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/street7.mp3',30 & PLAY 'sound/zima.mp3',30
  89. if hour >= 0 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
  90. else
  91. if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/street7.mp3',30 & PLAY 'sound/street_leto.mp3',30
  92. if hour >= 0 and hour <= 7: PLAY 'sound/street_night_leto.mp3' & PLAY 'sound/street_night.mp3',30
  93. end
  94. end
  95. clr
  96. gs 'stat'
  97. '<center><h2>St. Petersburg</h2></center>'
  98. '<center><b>Red Light District</b></center>'
  99. if hour >= 15 or hour <= 2:'The <a href="exec:gt ''stripclub'', ''start''">Strip Clubs</a> red lights, attracting men from all over the city.'
  100. if pornstudio >= 1 and hour >= 10 and hour < 22:'At the <a href="exec:gt ''pornstudio'', ''start''">Porn Studio</a>, where a variety of naughty movies are created'
  101. 'A shop for <a href="exec:gt ''sexshop'', ''start''">sex toys</a> is open for perverts from all around the city.'
  102. if bordel > 0 and hour >= 20 or bordel > 0 and hour <= 3:'Inside the courtyard is the entrance to the <a href="exec:gt ''bordel''">brothel</a>.'
  103. act 'Return to the Industrial Region (0:05)': minut += 5 & gt 'Nord'
  104. act 'Wait':
  105. cla
  106. waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
  107. if waiting <= 0 or waiting > 120:
  108. minut += 15
  109. elseif waiting > 0 and waiting <= 120:
  110. minut += waiting
  111. end
  112. act 'Take a look at the clock': gt 'Nord', 'redlight'
  113. end
  114. end
  115. --- Nord ---------------------------------