1
0

pav_commercial.qsrc 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210
  1. # pav_commercial
  2. CLOSE ALL
  3. $loc_arg = ''
  4. $loc = 'pav_commercial'
  5. $location_type = 'public_outdoors'
  6. $menu_loc = 'pav_commercial'
  7. $menu_arg = ''
  8. menu_off = 0
  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/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/street_leto.mp3',30
  15. if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
  16. end
  17. end
  18. cla
  19. *clr
  20. litltown = 1
  21. alkoblock = 0
  22. boynumBlock = 0
  23. !!sets the return location for bank and post office
  24. bankloc = 0
  25. !call random events from [street_events], and display them before show location.
  26. if streetevent_hour + 2 < hour:gt'street_event','pav_commercial', 'main'
  27. '<center><h2>Pavlovsk</h2></center>'
  28. if month >= 11 or month <= 3:
  29. if hour >= 8 and hour <= 21:
  30. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/gorodokw.jpg"></center>'
  31. else
  32. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pavbuswn.jpg"></center>'
  33. end
  34. else
  35. if hour >= 8 and hour <= 21:
  36. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/gorodok.jpg"></center>'
  37. else
  38. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pavbusn.jpg"></center>'
  39. end
  40. end
  41. *nl
  42. 'Pavlovsk can be split into four regions, the commercial hub here, the residential suburbs, the industrial region and the Five Eight estate of Soviet era apartment blocks.'
  43. *nl
  44. 'While the commercial hub of Pavlovsk is better maintained and a bit cleaner looking than other areas, it is still very much rural like the rest of the town, and even from here, you can still easily access the old <a href="exec:view''images/locations/pavlovsk/palace/pav_palace.jpg''">Imperial Palace</a> built by Catherine the Great, and the remodeled <a href="exec:view''images/locations/pavlovsk/fortress/bip_hotel.png''">Bip fortress</a> which now operates as a luxury hotel and restaurant.'
  45. *nl
  46. 'A short distance away you can clearly see the golden domes of the <a href="exec:minut += 10 & gt ''ParChurch'',''start''">Church of St. Nikolas</a>. It''s only a 10 minute walk to get there from here.'
  47. *nl
  48. 'The nearby residential area is next to the lake and the town surrounds the old palace grounds which are now a large <a href="exec:minut += 5 & gt ''pav_park'', ''start''">public park</a>.'
  49. gs'street_event','pav_commercial', 'extras'
  50. if AlbinaQW['AlbFatherQW'] >= 1 and AlbinaQW['ParkRally'] > 0:
  51. if AlbinaQW['ElectionCampaignTime'] = 0:AlbinaQW['ElectionCampaignTime'] = totminut + 2880
  52. 'You can see election posters on the walls all over town. They say: "Vote for Boris Barlovsky!" Wait a minute... isn''t that Albina''s father?'
  53. end
  54. if AlbinaQW['ElectionCampaignTime'] > 0 and AlbinaQW['ElectionCampaignTime'] <= totminut and hour >= 14 and AlbinaQW['AlbFatherQW'] = 1:gt 'albina_election_events'
  55. if StoryLine > 0 and hour < 4 and motherWorry = 0 and SchoolAtestat = 0 and age < 18 and home_owned[2] = 1:
  56. motherWorry = 1
  57. end
  58. if rand(1, 5) >= 4 and pav_slut >= 100:
  59. if pav_slut < 150:
  60. '<br>You catch people staring at you intently, as if they''re supposed to know who you are but can''t quite remember why. You sincerely hope they don''t realize your promiscuous adventures are the reason why. The occasional person chuckling and pointing at you crushes those hopes, and you quickly keep walking before they get a chance to say anything.'
  61. elseif pav_slut < 200:
  62. '<br>People look at you with lewd grins on their faces, some of them even making vulgar gestures. Looks like they know what you''ve been up to.'
  63. else
  64. '<br>Everywhere you go, people recognize you as a whore. Some even come over and slap you on the ass, claiming they know you like it when they do, or claiming they want to sample your goods. An elderly woman sitting on a bench calls out to you, loudly calling you a slut and a whore. You hide your face and run away as fast as you can, before she can draw too much attention to you.'
  65. end
  66. end
  67. gs 'stat'
  68. if car > 0 and cardrive = 24:
  69. cardrive = 24
  70. 'Your <a href="exec:gs ''carF'', ''start''"><<$car>></a> is parked in the street.'
  71. end
  72. if hour >= 8 and hour <= 20:
  73. $Pharmname = 'For easy access, there''s even a <a href="exec: minut += 5 & gt ''pav_pharmacy'', ''start''">pharmacy</a> attached to it.'
  74. else
  75. $Pharmname = 'For easy access, there''s even a pharmacy attached to it but it''s currently closed for the day.'
  76. end
  77. '<br>Centered along the main street is the <a href="exec:minut += 10 & gt ''pav_train''">train station</a> that is always open and running. For those with a car, the end of the street leads to a <a href="exec:minut += 5 & gt ''zaprF'', ''start''">gas station</a> which is usually the last stop people make before heading out onto the nearby highway.'
  78. if week < 6 and hour >= 9 and hour <= 18:
  79. $desc_txt4 = '<a href="exec:minut += 3 & gt ''post_office'', ''start''">post office</a>'
  80. elseif week = 6 and hour >= 10 and hour <= 18:
  81. $desc_txt4 = '<a href="exec:minut += 3 & gt ''post_office'', ''start''">post office</a>'
  82. else
  83. $desc_txt4 = '<a href="exec:msg ''The post office, which is closed right now, will reopen again at 9:00 and at 10:00 on Saturdays.''">post office</a>'
  84. end
  85. if (week < 6 and hour >= 9 and hour <= 16) or (week = 6 and hour >= 9 and hour <= 13):
  86. $desc_txt5 = '<a href="exec:gt ''bank'', ''start''">VTB Bank</a>'
  87. else
  88. $desc_txt5 = '<a href="exec:msg ''VTB Bank, which is closed right now. It will reopen again at 9:00''">VTB Bank</a>'
  89. end
  90. '<br>On the street across from the station is a small <a href="exec:minut += 5 & gt ''pav_clinic''">Avicenna clinic</a>. <<$Pharmname>> The building next door is shared by the local <<$desc_txt4>> and a <<$desc_txt5>>.'
  91. if hour >= 8 and hour <= 20:
  92. $desc_txt3 = '<a href="exec:minut += 2 & gt ''shop'', ''start''">Pyaterochka</a>, a popular discount supermarket chain'
  93. else
  94. $desc_txt3 = '<a href="exec:msg ''Pyaterochka, which is closed right now. It will reopen again at 8:00''">Pyaterochka</a>, a popular discount supermarket chain'
  95. end
  96. '<br>Of course, right after you visit the bank, you can spend your money at <<$desc_txt3>>.'
  97. if hour >= 8 and hour <= 17:
  98. $desc_txt1 = '<a href="exec: minut += 3 & gt ''barbershop'', ''start''">A Cut Above</a>, the only barber shop in the area and <a href="exec: minut += 3 & gt ''shop_coco_carmen'', ''start''">Coco Carmen</a> the trendy clothes shop.'
  99. else
  100. $desc_txt1 = '<a href="exec:msg ''A Cut Above, which is closed right now. It will reopen again at 8:00''">A Cut Above</a> and <a href="exec:msg ''Coco Carmen, which is closed right now. It will reopen again at 8:00''">Coco Carmen</a>'
  101. end
  102. '<br>The rest of the street is filled with smaller locally owned businesses, most notable being <<$desc_txt1>>.'
  103. if leonidSlave = 1:
  104. '<br>Near the town hall there is an old <a href="exec:minut += 15 & gt ''pav_commercial_offices''">office building</a>.'
  105. end
  106. if hour >= 7 and hour <= 18:
  107. $desc_txt2 = '<a href="exec:minut += 15 & gt ''etoexhib'', ''pos20''">vocational school</a>, where young adults can learn a trade.'
  108. else
  109. $desc_txt2 = '<a href="exec:msg ''vocational school, which is closed right now. It will reopen again at 7:00''">vocational school</a>.'
  110. end
  111. '<br>If you continue past the shops, you''ll eventually find a <<$desc_txt2>>'
  112. if workPTU > 2:act '<b>Go to the hostel</b>':gt 'etoexhib', 'pos40'
  113. act 'Walk to the Residential area (0:05)':minut += 5 & gt 'pav_residential'
  114. act 'Walk to the Industrial region (0:05)':minut += 5 & gt 'pav_industrial'
  115. act 'Walk to the Five Eight estate (0:05)':minut += 5 & gt 'pav_complex', 'start'
  116. act 'Walk to the train station (0:10)':minut += 10 & gt 'pav_train'
  117. act 'Walk to the highway (0:15)':minut += 15 & nroad = 20 & gt 'road'
  118. if hour >= 8 and hour <= 22 and sunWeather = 1 and temper >= 15 and ml_guitar['carried'] = 1 and ml_performance['performed_minutes'] < ml_performance['max_perform_minutes'] and ml_performance['max_perform_minutes'] >= 15:
  119. *nl
  120. 'With the weather being pleasant and sunny, there are groups of people moving around the streets. You could play some music, practice performing songs and maybe make some money too.'
  121. ml_buskingtime = min((ml_performance['max_perform_minutes']-ml_performance['performed_minutes']), 60)
  122. if pcs_inhib < 30:
  123. if pcs_inhib < 10:
  124. $diff = 'hard'
  125. elseif pcs_inhib < 20:
  126. $diff = 'medium'
  127. else
  128. $diff = 'easy'
  129. end
  130. gs 'willpower', 'skill', 'self', $diff
  131. will_cost = (will_cost * 3) - (pcs_perform)
  132. if will_cost <= pcs_willpwr:
  133. act 'Start busking (<<ml_buskingtime>> minutes) (<<will_cost>> Willpower)':
  134. inhib_exp += rand(1,3)
  135. gs 'willpower', 'pay', 'self'
  136. gs 'stat'
  137. gs 'music_buskingevents', 'busking', 'pav'
  138. if rand(0,100) > 80 and (pcs_instrmusic + pcs_vokal + pcs_perform) >= 120 and hotcat >= 5:
  139. gt 'music_gigstarts', 'delparco_start', 'pav_commercial'
  140. end
  141. end
  142. else
  143. act 'Start busking (<<ml_buskingtime>> minutes) (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  144. end
  145. else
  146. act 'Start busking (<<ml_buskingtime>> minutes)':
  147. gs 'music_buskingevents', 'busking', 'pav'
  148. if rand(0,100) > 80 and (pcs_instrmusic + pcs_vokal + pcs_perform) >= 120 and hotcat >= 5:
  149. gt 'music_gigstarts', 'delparco_start', 'pav_commercial'
  150. end
  151. end
  152. end
  153. end
  154. act 'Wait':gs 'obj_din', 'wait'
  155. !!if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  156. if npc_QW['A113'] = 1 and daybelisex ! daystart and hour >= 9 and hour <= 23 and week = 7:
  157. cla & *clr
  158. daybelisex = daystart
  159. minut += 5
  160. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/vadim/belyjeep.jpg"></center>'
  161. 'As you walk through Pavlovsk, Vadim Belys Mitsubishi Pajero stops near you.'
  162. act 'Go to the jeep': gt 'belgang', 'payday'
  163. elseif npc_QW['A113'] = 1 and daybelisex ! daystart and hour >= 9 and hour <= 23 and week ! 7 and belgangPayWeek >= 300 and belgangProstitute = 1 and rand (0,2) = 0:
  164. cla & *clr
  165. daybelisex = daystart
  166. minut += 5
  167. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/vadim/belyjeep.jpg"></center>'
  168. 'You see the by now familiar old Mitsubishi Pajero driving through the streets with Vadim Bely and his gang. Your heart skips a beat as you notice one of them pointing at you, and soon they pull over.'
  169. act 'Go to the jeep': gt 'belgang', 'workofdebt'
  170. end
  171. --- pav_commercial ---------------------------------