city_residential.qsrc 8.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189
  1. # city_residential
  2. music_loop = 0
  3. CLOSE ALL
  4. $loc_arg = ''
  5. $loc = 'city_residential'
  6. $location_type = 'public_outdoors'
  7. $menu_loc = 'city_residential'
  8. $menu_arg = ''
  9. menu_off = 0
  10. killvar '$locclass'
  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. !all random events move to [street_events], and display them before show location. by illume
  21. if streetevent_hour + 2 < hour:gt'street_event','city_residential', 'main'
  22. '<center><h2>St. Petersburg</h2></center>'
  23. '<center><b>Residential Area</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/residential/streetw.jpg"></center>'
  27. else
  28. '<center><img <<$set_imgh>> src="images/locations/city/residential/streetwn.jpg"></center>'
  29. end
  30. else
  31. if hour >= 8 and hour <= 21:
  32. '<center><img <<$set_imgh>> src="images/locations/city/residential/street.jpg"></center>'
  33. else
  34. '<center><img <<$set_imgh>> src="images/locations/city/residential/street_night.jpg"></center>'
  35. end
  36. end
  37. gs'street_event','city_residential', 'extras'
  38. if opusk > 0 or gnewQW = 5:
  39. if rand(0,9) = 0:gt 'gopnew', 'start5'
  40. if home_owned[1] > 0:'Near the entrance to where you live there is something written on the wall. It says:<b>"<<$pcs_nickname>> from apartment 69 is a cheap slut!"</b>'
  41. end
  42. gs 'stat'
  43. palMir = 0
  44. bordysh = 0
  45. housrA = 0
  46. obdysh = 0
  47. tanhouse1 = 0
  48. obMir = 0
  49. houseob = 0
  50. borMir = 0
  51. $onobjsel = 'onobjsel'
  52. if gopdeath = 1 and vsehsdaladay ! daystart:
  53. over = 6
  54. gt 'gameover'
  55. exit
  56. end
  57. housrA = 0
  58. if car > 0 and cardrive = 1: 'In the parking lot is <a href="exec:GS ''carF'', ''start''">your <<$car>></a>.'
  59. if home_owned[1] > 0:
  60. act '<b>Go home</b>':
  61. gorand = rand(0, 100)
  62. if (loh > 0 or gnewQW = 7) and gopdolg > 0 and hour >= 20 and gorand >= 80:
  63. gt 'gopnew', 'start'
  64. exit
  65. end
  66. if (opusk > 0 or gnewQW = 5) and hour >= 20 and gorand >= 80 and gopopusday ! daystart:
  67. gt 'gopnew', 'start'
  68. exit
  69. end
  70. minut += 1
  71. gt 'korr'
  72. end
  73. end
  74. act 'Wait':gs 'obj_din', 'wait'
  75. gs 'taxi'
  76. if hour >= 8 and hour <= 22:'You can see the <a href="exec:$loc = ''city_residential'' & minut += 1 & gt ''kiosk'', ''start''">kiosk</a> selling cigarettes and magazines.'
  77. if Enable_tablemap = 0:
  78. if katkey = 1:'<a href="exec:gt ''katspalnya'', ''start''">Kats</a> apartment'
  79. if IrinaQW >= 1:'<a href="exec:gt ''city_irinaroom'', ''start''">Irenes</a> apartment is not far away from yours.'
  80. if hour >= 16 and hour < 22 and dimaQW > 0:'<a href="exec:gt ''city_dima'', ''start''">Dimas</a> apartment'
  81. if klofQW >= 2:'<a href="exec:gt ''city_jorahouse'', ''start''">Joras</a> apartment'
  82. else
  83. st_count=0 & $show_table=''
  84. if katkey = 1:gs'show_table','<a href="exec:gt ''katspalnya'', ''start''">Kats</a> apartment','3'
  85. if IrinaQW >= 1:gs'show_table','<a href="exec:gt ''city_irinaroom'', ''start''">Irenes</a> apartment is not far away from yours.','3'
  86. if hour >= 16 and hour < 22 and dimaQW > 0:gs'show_table','<a href="exec:gt ''city_dima'', ''start''">Dimas</a> apartment','3'
  87. if klofQW >= 2:gs'show_table','<a href="exec:gt ''city_jorahouse'', ''start''">Joras</a> apartment','3'
  88. if hour >= 10 and hour < 22 and lesbiQW = 1:
  89. gs'show_table','<a href="exec:gt ''lesbidomhouse'', ''start''">Natalya Petrovnas</a> apartment.'
  90. elseif lesbiday ! daystart and subdom = 2:
  91. gs'show_table','<a href="exec:gt ''lesbisubhouse'', ''start''">Your slaves</a> apartment.','3'
  92. elseif lesbiday ! daystart and hour >= 8 and hour < 22 and lesbiQW >= 2 and lesbiQW < 13:
  93. gs'show_table','<a href="exec:gt ''lesbidomhouse'', ''start''">Mistress''</a> apartment.','3'
  94. elseif lesbiday ! daystart and hour >= 8 and hour < 22 and lesbiQW >= 13:
  95. gs'show_table','<a href="exec:gt ''lesbimistress'', ''start''">Mistress''</a> apartment.','3'
  96. end
  97. if st_count > 0 :'<TABLE BORDER=1><<$show_table>></TR></TABLE>'
  98. end
  99. if hour >= 5 and hour <= 23:'The <a href="exec: minut += 5 & gt ''metro'', ''start''">Metro</a> Station is within a 5 minute walk from here.'
  100. if hour >= 8 and hour <= 20:'The <a href="exec: minut += 3 & gt ''shop'', ''start''">supermarket</a> is not far from here.'
  101. if (hour >= 8 and hour <= 20) or preg = 2:
  102. 'The <a href="exec:gt ''city_clinic'', ''start''">clinic</a> is also nearby.'
  103. else
  104. 'The clinic is close. It will open again at 08:00.'
  105. end
  106. if hour >= 6 and hour <= 9 and military = 1 and week = 6:
  107. 'There is a <a href="exec:minut += 60 & gt ''Military'', ''start''">military bus</a> waiting on the other side of the street.'
  108. elseif military = 1:
  109. 'The military bus will wait between 06:00 and 09:00 on Saturdays.'
  110. end
  111. if hour >= 8 and hour <= 14 and week ! 1:
  112. 'You could go shopping at the noisy local <a href="exec: minut += 10 & gt ''city_market'', ''start''">marketplace</a>.'
  113. else
  114. 'You could go shopping at the noisy local marketplace, but it''s '+iif(week = 1, 'closed on Mondays.', 'only open between 08:00 and 15:00.')
  115. end
  116. if hour >= 8 and hour <= 15 and week < 6:
  117. 'Near the market is a <a href="exec: minut += 10 & gt ''city_market'', ''tailor''">tailor shop</a> where you can get your clothes resized if needed.'
  118. else
  119. 'Near the market is a tailor shop where you can get your clothes resized if needed. '+iif(week < 6, 'It closes at 16:00.', 'It''s closed on weekends.')
  120. end
  121. if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1:
  122. 'The side door of <a href="exec: minut += 5 & gt ''city_kafe'', ''work''">"The Roadhouse"</a> is open, so employees can enter to begin their shift.'
  123. elseif hour >= 12 and hour <= 22 and week ! 1:
  124. 'In a side alley, next to the uniquely styled diner <a href="exec: minut += 5 & gt ''city_kafe'', ''start''">"The Roadhouse"</a>, you can hear the swearing and laughing of some <a href="exec: minut += 5 & gt ''gopnew'', ''start''">gopniks</a>.'
  125. elseif hour > 22 or hour <= 3:
  126. 'In the parking lot of "The Roadhouse" diner you can hear the swearing and laughing of some <a href="exec:gt ''gopnew'', ''start''">gopniks</a>.'
  127. else
  128. 'The diner "The Roadhouse" is closed right now. It''s open every day except Monday between 12:00 and 23:00.'
  129. end
  130. if clener >= 1 and hour >= 7 and hour <= 22:'There''s a small office building where a <a href="exec: minut += 5 & gt ''city_smalloffice'', ''start''">cleaning lady</a> is needed.'
  131. 'The city''s large <a href="exec:minut += 20 & gt ''city_park'', ''start''">central park</a> is about a 20-minute walk away.'
  132. 'The city''s only <a href="exec:minut += 40 & gt ''city_lake'', ''start''">lake</a> is just a 40-minute walk away.'
  133. '24 Hour <a href="exec:$loc = ''city_residential'' & gt ''city_pharmacy'', ''start''">Pharmacy</a>.'
  134. if Enable_tablemap = 0:
  135. if hour >= 10 and hour < 22 and lesbiQW = 1:
  136. '<a href="exec:gt ''lesbidomhouse'', ''start''">Natalya Petrovna''s</a> apartment.'
  137. elseif lesbiday ! daystart and subdom = 2:
  138. '<a href="exec:gt ''lesbisubhouse'', ''start''">Your slave''s</a> apartment.'
  139. elseif lesbiday ! daystart and hour >= 8 and hour < 22 and lesbiQW >= 2 and lesbiQW < 13:
  140. '<a href="exec:gt ''lesbidomhouse'', ''start''">Mistress''</a> apartment.'
  141. elseif lesbiday ! daystart and hour >= 8 and hour < 22 and lesbiQW >= 13:
  142. '<a href="exec:gt ''lesbimistress'', ''start''">Mistress''</a> apartment.'
  143. end
  144. end
  145. if home_owned[1] = 0:
  146. 'In the courtyard of one of the apartment buildings, you see several <a href="exec: minut += 1 & gt ''city_trashplace''">trash bins</a>.'
  147. else
  148. 'In the courtyard of your <a href="exec: gt ''etoexhib'', ''pos51''">apartment building</a>, you see several <a href="exec: minut += 1 & gt ''city_trashplace''">trash bins</a>.'
  149. end
  150. if SNarkPriton > 0:'The <a href="exec:minut += 5 & gt ''city_drugden''">drug house</a> is clearly recognizable by the syringes and the trash that lies in front of it.'
  151. if hour >= 8 and hour <= 23 or saunaWorkWhore > 0 or workDisk = 2:'<a href="exec:minut += 10 & gt ''city_sauna''">The Sauna</a> is a 10 minute walk away. Rumors say the sauna is just the front for a brothel.'
  152. if hour >= 20 or hour <= 4:
  153. *nl
  154. 'There are prostitutes working in places near here.'
  155. if pcs_makeup > 2 and PCloStyle = 4 and pcs_inhib >= 40 and (stat['vaginal'] > 0 or pav_slut >= 100):
  156. act 'Prostitute yourself': gt 'street_walker', 'work'
  157. elseif pcs_inhib >= 40 and (stat['vaginal'] > 0 or pav_slut >= 100):
  158. *nl
  159. 'You could work as a prostitute, but you need to wear appropriate clothes and more than a little bit of makeup.'
  160. else
  161. *nl
  162. 'You could work as a prostitute, but you aren''t comfortable with the idea.'
  163. end
  164. end
  165. --- city_residential ---------------------------------