metro.qsrc 8.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220
  1. # metro
  2. if $ARGS[0] = 'start':
  3. CLOSE ALL
  4. $menu_loc = 'metro'
  5. $menu_arg = 'start'
  6. menu_off = 0
  7. if sound = 0:PLAY 'sound/metro' + rand(1,4) + '.mp3',30
  8. '<center><b><font color="maroon">Metro station</font></b></center>'
  9. if $loc = 'city_residential':
  10. '<center><b><font color="maroon">Residential Area</font></b></center>'
  11. '<center><img <<$set_imgh>> src="images/locations/city/shared/metro/platresident.jpg"></center>'
  12. elseif $loc = 'city_center':
  13. '<center><b><font color="maroon">City Center</font></b></center>'
  14. '<center><img <<$set_imgh>> src="images/locations/city/shared/metro/platcenter.jpg"></center>'
  15. elseif $loc = 'city_industrial':
  16. '<center><b><font color="maroon">City Industrial Region</font></b></center>'
  17. '<center><img <<$set_imgh>> src="images/locations/city/shared/metro/platindust.jpg"></center>'
  18. !!new locations for the metro, you will have to see how the code works and for now the island will be commented out until we add that area of the city
  19. elseif $loc = 'psiklin':
  20. '<center><b><font color="maroon">City Suburbs</font></b></center>'
  21. '<center><img <<$set_imgh>> src="images/locations/city/shared/metro/platsuburb.jpg"></center>'
  22. elseif $loc = 'city_island':
  23. '<center><b><font color="maroon">Vasilyevsky Island</font></b></center>'
  24. '<center><img <<$set_imgh>> src="images/locations/city/shared/metro/platisland.jpg"></center>'
  25. end
  26. 'The metro fare costs 16 <b>₽</b>.'
  27. clr
  28. gs 'stat'
  29. gs 'themes', 'indoors'
  30. if workDisk = 3 and konvert = 1:
  31. badrand = rand(0, 100)
  32. if badrand >= 80:konvert = 0
  33. end
  34. act 'Leave the Metro station':
  35. minut += 5
  36. gt $loc, $loc_arg
  37. end
  38. if money >= 16:
  39. if $loc ! 'city_residential':
  40. act 'Go to the <b>Residential Area</b> (16 <b>₽</b>)':
  41. $loc = 'city_residential'
  42. $loc_arg = ''
  43. money -= 16
  44. minut += 10
  45. gt 'metro', 'vagon'
  46. end
  47. end
  48. if $loc ! 'city_center':
  49. act 'Go to the <b>City Center</b> (16 <b>₽</b>)':
  50. $loc = 'city_center'
  51. $loc_arg = ''
  52. money -= 16
  53. minut += 10
  54. gt 'metro', 'vagon'
  55. end
  56. end
  57. if $loc ! 'city_industrial':
  58. act 'Go to the <b>City Industrial Region</b> (16 <b>₽</b>)':
  59. $loc = 'city_industrial'
  60. $loc_arg = ''
  61. money -= 16
  62. minut += 10
  63. gt 'metro', 'vagon'
  64. end
  65. end
  66. if $loc ! 'psiklin':
  67. act 'Go to the <b>City Suburbs</b> (16 <b>₽</b>)':
  68. $loc = 'psiklin'
  69. $loc_arg = 'start'
  70. money -= 16
  71. minut += 10
  72. gt 'metro', 'vagon'
  73. end
  74. end
  75. if $loc ! 'city_island':
  76. act 'Go to the <b>Vasilyevsky Island</b> (16 <b>₽</b>)':
  77. $loc = 'city_island'
  78. $loc_arg = ''
  79. money -= 16
  80. minut += 10
  81. gt 'metro', 'vagon'
  82. end
  83. end
  84. else
  85. 'You don''t have enough money to pay for the metro.'
  86. end
  87. if pusher = 1 and dealer = 0:
  88. dealer = 1
  89. 'You see a tall, emaciated man leaning against the wall next to the tracks, looking very shady.<br>He notices you looking and beckons you to come closer.'
  90. act 'Talk to the man':gt 'metro', 'dealer'
  91. elseif dealer ! 0:
  92. 'You see the dealer lurking around the station.'
  93. act 'Buy drugs':gt 'metro', 'shop'
  94. end
  95. end
  96. if $ARGS[0] = 'vagon':
  97. *clr & cla
  98. CLOSE ALL
  99. if sound = 0:PLAY 'sound/metro1.mp3',30
  100. gs 'stat'
  101. gs 'themes', 'indoors'
  102. menu_off = 1
  103. '<center><b><font color="maroon">Metro car</font></b></center>'
  104. if hour < 7 or hour >=22:
  105. if rand(0, 100) >= 70:gt 'metro_events', 'frot'
  106. metro_busy = rand(0,1)
  107. elseif (hour >= 9 and hour < 16) or (hour >= 18 and hour < 22):
  108. if rand(0, 100) >= 80:gt 'metro_events', 'frot'
  109. metro_busy = rand(1,2)
  110. else
  111. if rand(0, 100) >= 90:gt 'metro_events', 'frot'
  112. metro_busy = rand(2,3)
  113. end
  114. if metro_busy = 0:
  115. '<center><img <<$set_imgh>> src="images/locations/city/shared/metro/metroempty.jpg"></center>'
  116. 'The car is almost completely empty. One or two other passengers are in the car with you. It seems a bit odd and a little creepy seeing the car this empty. You have practically the whole car to yourself and pick the cleanest spot to sit.'
  117. elseif metro_busy = 1:
  118. '<center><img <<$set_imgh>> src="images/locations/city/shared/metro/metro.jpg"></center>'
  119. 'The car is mostly empty, leaving you a choice of seats. You easily find a place for yourself, leaving you plenty of room to get comfortable. The few other people on the car mind their own business, leaving you to your own thoughts.'
  120. elseif metro_busy = 2:
  121. '<center><img <<$set_imgh>> src="images/locations/city/shared/metro/metrofull<<rand(1,5)>>.jpg"></center>'
  122. 'The car is full of people. All of the seats are taken, but only a few people are forced to stand. At least it is not packed. You easily find a place for yourself, leaving you plenty of room to get comfortable.'
  123. else
  124. '<center><img <<$set_imgh>> src="images/locations/city/shared/metro/metropacked.jpg"></center>'
  125. 'The car is packed with people. Most of them are forced to stand, as there are not enough seats. It is so tightly packed that people are crammed tight up against each other either in the seats or standing up. You manage to squeeze yourself in among the people. You can feel other bodies pressed up tightly against yours. It is very uncomfortable and hot.'
  126. end
  127. if sosedQW >= 1:
  128. if hour = 7 or hour = 15:
  129. sosedMetroRand = rand(0, 100)
  130. if sosedMetroRand >= 60 and sosedMetroDay ! daystart:'You notice your neighbor <a href="exec:gt ''TimofeiMetro''">Timofei</a> in the metro car.'
  131. end
  132. end
  133. if (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[11] = 1:
  134. if hour >= 7 and hour <= 21:
  135. pcs_mood -= 10
  136. 'Several passengers are shocked, noticing the cum smears on you.'
  137. end
  138. end
  139. act 'Get out of the car':
  140. if hour < 7 or hour >=22:
  141. if rand(0, 100) >= 70:gt 'metro_events', 'station'
  142. elseif (hour >= 9 and hour < 16) or (hour >= 18 and hour < 22):
  143. if rand(1,100) >= 80:gt 'metro_events', 'station'
  144. else
  145. if rand(1,100) >= 90:gt 'metro_events', 'station'
  146. end
  147. gt 'metro', 'start'
  148. end
  149. end
  150. if $ARGS[0] = 'shop':
  151. *clr & cla
  152. menu_off = 1
  153. gs 'stat'
  154. '<b>What''s it gonna be?</b>'
  155. 'He shows you a small box filled with red and blue pills. There are about two dozen of each pill inside.'
  156. act 'Leave':gt 'metro','start'
  157. if money >= 1000:
  158. '<a href="exec:money -= 1000 & mentats_have += 20 & gt ''metro'', ''shop''">Buy neuroboosters</a> 1000 <b>₽</b>'
  159. else
  160. 'Buy neuroboosters 1000 <b>₽</b> (You do not have enough money)'
  161. end
  162. 'Uses left: <<mentats_have>>'
  163. 'A pillbox with 10 orange pills inside, the description is removed from the box.'
  164. if money >= 500:
  165. '<a href="exec:money -= 500 & steroid_have += 10 & gt ''metro'', ''shop''">Buy steroids</a> 500 <b>₽</b>'
  166. else
  167. 'Buy steroids 500 <b>₽</b> (You do not have enough money)'
  168. end
  169. 'Uses left: <<steroid_have>>'
  170. 'Paste tube with two pictures of a woman. In the latter one, she sports an enormous bust.'
  171. if money >= 500:
  172. '<a href="exec:money -= 500 & bcream_have += 5 & gt ''metro'', ''shop''">Buy breast cream</a> 500 <b>₽</b>'
  173. else
  174. 'Buy breast cream 500 <b>₽</b> (You do not have enough money)'
  175. end
  176. 'Uses left: <<bcream_have>>'
  177. if MagikDostup = 0:
  178. 'Packet of pink chewing gum. There are 10 in one package.'
  179. if money >= 200:
  180. '<a href="exec:money -= 200 & aphrodisiac_have += 10 & gt ''metro'', ''shop''">Buy aphrodisiacs</a> 200 <b>₽</b>'
  181. else
  182. 'Buy aphrodisiacs 200 <b>₽</b> (You do not have enough money)'
  183. end
  184. 'Uses left: <<aphrodisiac_have>>'
  185. end
  186. if money >= 250:
  187. 'Buy enough <a href="exec:money -= 250 & joint += 5 & gt ''metro'', ''shop''">weed</a> for 5 joints for 250 <b>₽</b>'
  188. if money >= 500:'Buy enough <a href="exec:money -= 500 & joint += 10 & gt ''metro'', ''shop''">weed</a> for 10 joints for 500 <b>₽</b>'
  189. else
  190. 'Buy enough weed for 5 joints for 250 <b>₽</b> (You do not have enough money)'
  191. end
  192. end
  193. if $ARGS[0] = 'dealer':
  194. *clr & cla
  195. menu_off = 1
  196. 'He sizes you up with suspicion.<br><b>"Hey miss, saw you buying Lady in the park."</b> <br>He clears his throat and spits onto the tracks.<b> "That shit will mess you up."</b><br>He opens his coat, and you flinch thinking he is going to flash you, but instead you see he is wearing a business suit beneath.<br>He gestures at numerous pockets lining the insides of his coat. They are filled to bursting with various packages, pills and ampules.<br><b>"Here, my products are of a much better quality. You''ll have a great time, and I guarantee they won''t kill you."</b>'
  197. act 'Continue':gt 'metro','shop'
  198. end
  199. --- metro ---------------------------------