city_redlight.qsrc 6.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137
  1. # city_redlight
  2. if $ARGS[0] = 'start':
  3. $loc_arg = 'start'
  4. $loc = 'city_redlight'
  5. $region = 'city'
  6. $location_type = 'public_outdoors'
  7. $menu_loc = 'city_redlight'
  8. $menu_arg = 'start'
  9. menu_off = 0
  10. CLOSE ALL
  11. if sound = 0:
  12. if month >=11 and month <= 12 or month >=1 and month <=3:
  13. if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/street7.mp3',30 & PLAY 'sound/zima.mp3',30
  14. if hour >= 0 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
  15. else
  16. if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/street7.mp3',30 & PLAY 'sound/street_leto.mp3',30
  17. if hour >= 0 and hour <= 7: PLAY 'sound/street_night_leto.mp3' & PLAY 'sound/street_night.mp3',30
  18. end
  19. end
  20. gs 'stat'
  21. '<center><h2>St. Petersburg</h2></center>'
  22. '<center><b>Red Light District</b></center>'
  23. '<center><img <<$set_imgh>> src="images/locations/city/redlight/redlight.jpg"></center>'
  24. 'This small area inside the Industrial District has lots of strip clubs and sex shops. The Porn studio also operates out of this district.'
  25. if hour >= 18 or hour < 3:
  26. 'The <a href="exec:gt ''stripclub'', ''start''">Strip Clubs</a> red lights, attracting men from all over the city.'
  27. else
  28. 'The <a href="exec:msg ''The Strip Club is closed for the day and will reopen at 18:00''">Strip Clubs</a> red lights, attracting men from all over the city.'
  29. end
  30. if pornstudio >= 1 and hour >= 10 and hour < 22:
  31. 'At the <a href="exec:gt ''pornstudio'', ''start''">Porn Studio</a>, where a variety of adult movies are created.'
  32. elseif pornstudio >= 1 and (hour < 10 or hour >= 22):
  33. 'At the <a href="exec:msg ''The Porn Studio is closed for the day and will reopen at 10:00''">Porn Studio</a>, where a variety of adult movies are created.'
  34. end
  35. if hour < 3 or hour >= 11:
  36. 'A shop for <a href="exec:minut += 1 & gt ''sexshop'', ''start''">Sex Toys</a> is open for perverts from all around the city to browse its stock.'
  37. else
  38. 'A shop that sells sex toys. It is currently closed and will open at 11:00.'
  39. end
  40. if bordel > 0 and func('bordel', 'is_open'):'Inside the courtyard is the entrance to the <a href="exec:gt ''bordel''">brothel</a>.'
  41. if hour >= 10:
  42. 'You see a small <a href="exec:gt ''city_redlight'',''city_copy_shop''">printing shop</a> tucked away between two larger buildings.'
  43. else
  44. 'You see a small printing shop tucked away between two larger buildings. It is currently closed and will open at 10:00.'
  45. end
  46. if hour >= 19 or hour < 2:
  47. 'A <a href="exec:gt ''hookahlounge'', ''start''">Hookah Lounge</a> is on a corner, with Indian music streaming from an open door, with a scent of exotic spices.'
  48. else
  49. 'A <a href="exec:msg ''The Hookah Lounge is closed for now and will reopen at 19:00''">Hookah Lounge</a> is on a corner, but it''s currently closed.'
  50. end
  51. act 'Walk to the Industrial Region (0:05)': minut += 5 & gt 'city_industrial'
  52. act 'Wait':gs 'obj_din', 'wait'
  53. gs 'taxi'
  54. if car > 0:
  55. if wrek = 0 and ((cardrive = 7 and func('autoservisF', 'is_open') = 0) or (cardrive = 9 and func('autotraidF', 'is_open') = 0)):
  56. 'It looks like the ' + iif(cardrive = 7, 'repair shop', 'car dealership') + ' moved your car outside before they closed.'
  57. cardrive = 3
  58. end
  59. if cardrive = 3 or cardrive = 6 or (cardrive = 7 and func('autoservisF', 'is_open')) or (cardrive = 9 and func('autotraidF', 'is_open')) or cardrive = 27:
  60. 'In the parking stands your <a href="exec:' + iif(cardrive = 27, '', 'minut += 1 & ') + 'gs ''carF'', ''start''"><<$car>></a>.'
  61. end
  62. end
  63. if hour >= 20 or hour <= 4:
  64. *nl
  65. 'There are prostitutes working in places near here.'
  66. if pcs_makeup > 2 and PCloStyle = 4 and pcs_inhib >= 40:
  67. act 'Prostitute yourself': prst_loc = 1 & gt 'street_walker', 'work'
  68. elseif pcs_inhib >= 40:
  69. *nl
  70. 'You could work as a prostitute, but you need to wear appropriate clothes and more than a little bit of makeup.'
  71. else
  72. *nl
  73. 'You could work as a prostitute, but you aren''t comfortable with the idea.'
  74. end
  75. end
  76. end
  77. if $ARGS[0] = 'city_copy_shop':
  78. *clr & cla
  79. menu_off = 1
  80. minut += 1
  81. gs 'stat'
  82. '<center><img <<$set_imgh>> src="images/locations/city/redlight/bm_seller.jpg"></center>'
  83. 'You enter the run-down looking copy shop and look around. Scattered across the room are small tables with various dusty looking copy machines that don''t strike you as being very reliable. Watching you from behind a counter is a bored looking man with greasy hair and a sleazy look.'
  84. if fakepassport = 2:
  85. !!only notify player 1 time after events triggered
  86. fakepassport = 0
  87. 'He looks at you hard before saying in a quiet voice, "A passport with a fake age will cost you 30,000 <b>₽</b>"'
  88. end
  89. if university['fakediplom'] = 2:
  90. !!only notify player 1 time after events triggered
  91. university['fakediplom'] = 0
  92. 'He tells you "A diploma for a bachelor''s degree will cost you 100,000 <b>₽</b>"'
  93. end
  94. act 'Leave': gt 'city_redlight', 'start'
  95. if age < 18 and fakepassport ! 1:
  96. if money => 30000:
  97. act 'Buy fake passport (30,000 <b>₽</b>)':
  98. *clr & cla
  99. minut += 60
  100. money -= 30000
  101. fakepassport = 1
  102. '<center><img <<$set_imgh>> src="images/locations/city/redlight/bm_seller.jpg"></center>'
  103. 'He tells you to come in the back and takes a quick photo of your face, then tells you to wait out out front until he''s done. About an hour goes by before he steps back out and hands you the passport, which shows your face but has an older age printed out on it.'
  104. act 'Leave': gt 'city_redlight', 'start'
  105. end
  106. else
  107. act 'Buy fake passport (<font color="red">30,000 <b>₽</b></font>)': '<br><font color="red">You don''t have enough money to buy the fake passport.</font>'
  108. end
  109. end
  110. if university['diploma'] = 0 and university['fakediplom'] = 0:
  111. if money => 100000:
  112. act 'Buy fake diploma (100,000 <b>₽</b>)':
  113. *clr & cla
  114. minut += 60
  115. money -= 100000
  116. university['fakediplom'] = 1
  117. '<center><img <<$set_imgh>> src="images/locations/city/redlight/bm_seller.jpg"></center>'
  118. 'You bought a fake diploma.'
  119. act 'Leave': gt 'city_redlight', 'start'
  120. end
  121. else
  122. act 'Buy fake diploma (<font color="red">100,000 <b>₽</b></font>)': '<br><font color="red">You don''t have enough money to buy the fake diploma.</font>'
  123. end
  124. end
  125. end
  126. --- city_redlight ---------------------------------