gas_station_gp_117.qsrc 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455
  1. # gas_station_gp_117
  2. !! NOTE: #mod_wlife_highway was the original file
  3. !! The Gazpromneft 117 gas station on the M11 a bit north-east of Pavlovsk
  4. $loc = 'gas_station_gp_117'
  5. $locM = 'gas_station_gp_117'
  6. $menu_loc = 'gas_station_gp_117'
  7. ! [x] First check over
  8. if $ARGS[0] = 'outside':
  9. gs 'prostitution_functions', 'work_clothes'
  10. gs 'gas_station_gp_117', 'event_check'
  11. CLOSE ALL
  12. if sound = 0:PLAY 'sound/highway.mp3',20
  13. $loc_arg = 'outside'
  14. $menu_arg = 'outside'
  15. menu_off = 0
  16. $location_type = 'public_outdoors'
  17. *clr & cla
  18. '<center><img <<$set_imgh>> src="images/locations/highway/gas_station_gp_117/gas_'+iif(month > 10 or month < 4, 'winter', '')+iif(daystage = 5, 'night', 'day')+'.jpg"></center>'
  19. 'The gas station is modern and clean in comparison to other gas stations in the area. To the south of the station is the highway M-10 that goes from St. Petersburg to Moscow. To the north there are small villages and towns similar to Pavlovsk which is even further south than the highway.'
  20. *nl
  21. 'There is a small shop were you can buy something to eat or to drink and a public restroom is also nearby.'
  22. *nl
  23. if car > 0 and cardrive = 29: gs 'gas_station_gp_117', 'gas'
  24. *nl
  25. if prostitute['wl_block'] = 0 and prostitute['full_block'] = 0 and prostitute['gas_station'] = 1 and prostitute['active'] = 1:
  26. if prostitute['earnings_day'] > 0:
  27. 'You have earned <<prostitute[''earnings_day'']>> <b>₽</b> today.'+iif(prostitute['payment_method'] = 0, ' Your share is <<prostitute[''earnings_day''] * prostitute[''share_player''] / 100>> <b>₽</b>'+iif(prostitute['debt_amount'] > 0, ', but your pimp will keep <<prostitute[''earnings_day''] * prostitute[''debt_payment_percent''] / 100>> <b>₽</b> to pay down your debt.', '.'), '')
  28. end
  29. gs 'prostitution_functions', 'work_clothes'
  30. if prostitute['work_clothes'] and prostitute['changed_for_work']:
  31. 'You are wearing the right outfit to work as a prostitute at the gas station. You can ' + iif(car > 0 and cardrive = 29, '<a href="exec: gt ''prostitution_functions'', ''change_back'' ">change back into your regular clothes</a> in your car or', 'change back into your regular clothes') + ' in a restroom.'
  32. elseif dressed_as_a_prostitute = 0 and prostitute['outfit_is_set']:
  33. 'You could work as a prostitute, but first you have to ' + iif(car > 0 and cardrive = 29, '<a href="exec: gt ''prostitution_functions'', ''change'' ">change into a more appropriate outfit</a> in your car or ', 'change into a more appropriate outfit ') + 'in a restroom.'
  34. else
  35. 'You are wearing the right outfit to work as a prostitute at the gas station.'
  36. end
  37. end
  38. if prostitute['payment_method'] = 1: '<br>You can take a bus to the '+iif(money < 75, 'train station', '<a href="exec: gt ''gas_station_gp_117'', ''bus_end''">train station</a>')+' in Pavlovsk. The bus ride and a short walk to the bus station will take and hour and a half minutes and cost 75 <b>₽</b>.'+iif(money < 75, ' You don''t have enough money.', '')
  39. gs 'stat'
  40. act 'Go inside the gas station': minut += 1 & gt 'gas_station_gp_117', 'shop'
  41. act 'Go to the public restroom': minut += 1 & gt 'gas_station_gp_117', 'restroom'
  42. if prostitute['wl_block'] = 0 and prostitute['full_block'] = 0 and prostitute['gas_station'] = 1 and prostitute['work_clothes']: act 'Go to work': gt 'gas_station_gp_117', 'work'
  43. act 'Wait': gs 'obj_din', 'wait'
  44. killvar 'dressed_as_a_prostitute'
  45. end
  46. ! [x] First check over
  47. if $ARGS[0] = 'shop' or $gas_shop_inside = 'yes':
  48. CLOSE ALL
  49. if sound = 0:PLAY 'sound/highway.mp3',5
  50. $loc_arg = 'shop'
  51. $loc_s = 'gas_station_gp_117'
  52. $args_s = 'shop'
  53. $menu_loc = 'gas_station_gp_117'
  54. $menu_arg = 'shop'
  55. menu_off = 0
  56. $location_type = 'public_indoors'
  57. $gas_shop_inside = 'yes'
  58. *clr & cla
  59. '<center><img <<$set_imgh>> src="images/locations/highway/gas_station_gp_117/gas_interior.jpg"></center>'
  60. 'The shop is stacked with some magazines, cigarettes, different things to eat and drink.'
  61. *nl
  62. if prostitute['tomas_timer'] = daystart:
  63. 'Behind the counter stands Tomas. He''s talking to another customer right now.'
  64. elseif week < 7:
  65. !!'Behind the counter stands <a href="exec: minut += 1 & gt ''gas_station_gp_117'',''tomas''">'+iif(prostitute['tomas'] = 0, 'a plump man', 'Tomas')+'</a>.'
  66. 'Behind the counter stands '+iif(prostitute['tomas'] = 0, 'a plump man.', 'Tomas.')
  67. elseif prostitute['tomas'] > 0 and week = 7:
  68. 'Tomas isn''t working on Sundays. Another guy you don''t know is standing behind the counter.'
  69. end
  70. *nl
  71. gs 'item_cart', 'shoppping_aisle', 'prost_shop'
  72. gs 'stat'
  73. act 'Go outside': $gas_shop_inside = 'no' & minut += 1 & gt 'gas_station_gp_117', 'outside'
  74. act 'Buy and eat a snack (100 <b>₽</b> and 0:05)':
  75. *clr & cla
  76. menu_off = 1
  77. minut += 5
  78. money -= 100
  79. pcs_health += 5
  80. pcs_mood += 40
  81. fat += 6
  82. pcs_energy += 60
  83. if pcs_hydra >= 100:
  84. pcs_hydra += 10
  85. else
  86. pcs_hydra += 20
  87. end
  88. cumspclnt = 2
  89. gs 'cum_cleanup'
  90. pcs_breath = 0
  91. gs 'stat'
  92. '<center><img <<$set_imgh>> src="images/locations/highway/gas_station_gp_117/food.jpg"></center>'
  93. 'You enjoy a tasty snack.'
  94. act 'Continue': gt 'gas_station_gp_117', 'shop'
  95. end
  96. act 'Buy and eat a healthy snack (100 <b>₽</b> and 0:05)':
  97. *clr & cla
  98. menu_off = 1
  99. minut += 5
  100. money -= 100
  101. pcs_health += 40
  102. pcs_mood += 10
  103. fat += 2
  104. pcs_energy += 60
  105. if pcs_hydra >= 100:
  106. pcs_hydra += 10
  107. else
  108. pcs_hydra += 20
  109. end
  110. pcs_breath = 0
  111. cumspclnt = 2
  112. gs 'cum_cleanup'
  113. gs 'stat'
  114. '<center><img <<$set_imgh>> src="images/locations/highway/gas_station_gp_117/food.jpg"></center>'
  115. 'You enjoy a healthy snack.'
  116. act 'Continue': gt 'gas_station_gp_117', 'shop'
  117. end
  118. act 'Buy and drink some water (40 <b>₽</b> and 0:05)':
  119. *clr & cla
  120. menu_off = 1
  121. frost = 1
  122. if alko > 0: alko -= 1
  123. minut += 5
  124. money -= 40
  125. pcs_health += 10
  126. pcs_energy += 4
  127. if pcs_hydra >= 100:
  128. pcs_hydra += 25
  129. else
  130. pcs_hydra += 75
  131. end
  132. pcs_breath = 0
  133. cumspclnt = 2
  134. gs 'cum_cleanup'
  135. gs 'stat'
  136. '<center><img <<$set_imgh>> src="images/locations/highway/gas_station_gp_117/water.jpg"></center>'
  137. 'You enjoy a drink of water'
  138. act 'Continue': gt 'gas_station_gp_117', 'shop'
  139. end
  140. end
  141. ! [x] First check over
  142. if $ARGS[0] = 'restroom':
  143. CLOSE ALL
  144. if sound = 0:PLAY 'sound/highway.mp3',10
  145. $loc_arg = 'restroom'
  146. $menu_arg = 'restroom'
  147. menu_off = 0
  148. $location_type = 'public_outdoors'
  149. *clr & cla
  150. '<center><img <<$set_imgh>> src="images/locations/highway/gas_station_gp_117/restroom_'+iif(daystage = 5, 'night', 'day')+'.jpg"></center>'
  151. 'The gas station has a public bathroom. '+iif(prostitute_status['restroom_chip'] = 0, 'It costs 10 <b>₽</b> to use it.', 'You have an employee chip and can use it for free.')+' On the right side of the restroom is a <a href="exec: minut += 1 & gt ''gas_station_gp_117'',''condom_dispenser''">condom dispenser</a>.'
  152. gs 'stat'
  153. act 'Go back': minut += 1 & gt 'gas_station_gp_117', 'outside'
  154. if money >= 10 and prostitute_status['restroom_chip'] = 0:
  155. act 'Enter the women''s restroom': money -= 10 & minut += 1 & gt 'gas_station_gp_117', 'restroom_women'
  156. act 'Enter the men''s restroom': money -= 10 & minut += 1 & gt 'gas_station_gp_117', 'restroom_men'
  157. else
  158. '<br>You don''t have enough money to use the restroom.'
  159. end
  160. if mc_inventory['joints'] > 0:
  161. act 'Smoke a joint':
  162. *clr & cla
  163. menu_off = 1
  164. minut += 15
  165. gs 'drugs', 'joint'
  166. '<center><img <<$set_imgh>> src="images/shared/drugs/joint_smoking.jpg"></center>'
  167. 'You go behind the restrooms and pull a joint out of your purse and light it up. Not before long you''re starting to feel the relaxing effects as you''re getting high.'
  168. act 'Go back': gt 'gas_station_gp_117', 'restroom'
  169. end
  170. end
  171. end
  172. ! [x] First check over
  173. if $ARGS[0] = 'condom_dispenser':
  174. CLOSE ALL
  175. if sound = 0:PLAY 'sound/highway.mp3',10
  176. $loc_arg = 'condom_dispenser'
  177. $menu_arg = 'condom_dispenser'
  178. menu_off = 0
  179. *clr & cla
  180. '<center><img <<$set_imgh>> src="images/locations/highway/gas_station_gp_117/condoms.jpg"></center>'
  181. 'A condom costs 60 <b>₽</b> and you have <<mc_inventory[''normal_condoms'']>> condoms.'
  182. gs 'stat'
  183. act 'Go back': minut += 1 & gt 'gas_station_gp_117', 'restroom'
  184. if money >= 60:
  185. act 'Buy a condom (60 <b>₽</b>)':
  186. minut += 1
  187. money -= 60
  188. if preziktype = 0: mc_inventory['equipped_condoms'] += 1
  189. if preziktype = 1 or preziktype = 2: mc_inventory['normal_condoms'] += 1
  190. gt 'gas_station_gp_117', 'condom_dispenser'
  191. end
  192. end
  193. if money >= 300:
  194. act 'Buy five condoms (300 <b>₽</b>)':
  195. minut += 1
  196. money -= 300
  197. if preziktype = 0: mc_inventory['equipped_condoms'] += 5
  198. if preziktype = 1 or preziktype = 2: mc_inventory['normal_condoms'] += 5
  199. gt 'gas_station_gp_117', 'condom_dispenser'
  200. end
  201. end
  202. if money >= 600:
  203. act 'Buy ten condoms (600 <b>₽</b>)':
  204. minut += 1
  205. money -= 600
  206. if preziktype = 0: mc_inventory['equipped_condoms'] += 10
  207. if preziktype = 1 or preziktype = 2: mc_inventory['normal_condoms'] += 10
  208. gt 'gas_station_gp_117', 'condom_dispenser'
  209. end
  210. end
  211. end
  212. ! [x] First check over
  213. if $ARGS[0] = 'restroom_women':
  214. CLOSE ALL
  215. *clr & cla
  216. if sound = 0:PLAY 'sound/highway.mp3',5
  217. $loc_arg = 'restroom_women'
  218. $locM_arg = 'restroom_women'
  219. $menu_arg = 'restroom_women'
  220. menu_off = 0
  221. $location_type = 'bathroom'
  222. gs 'stat'
  223. '<center><img <<$set_imgh>> src="images/locations/highway/gas_station_gp_117/restroom_women.jpg"></center>'
  224. 'The women''s restroom is relatively clean. It has has three bathroom stalls which over only a little privacy.'
  225. *nl
  226. 'A <a href="exec:gt ''mirror'',''start''">mirror</a>, where you can ' + iif(pcs_hairbsh = 0,'<a href="exec: gt ''mirror'',''brush''">brush</a>','brush') + ' your hair hangs over each sink.'
  227. act 'Go outside': minut += 1 & gt 'gas_station_gp_117', 'restroom'
  228. if mc_inventory['cocaine'] > 0 and drugVars['cocaine_day'] ! daystart:
  229. act 'Do a line of cocaine (0:05)':
  230. *clr & cla
  231. menu_off = 1
  232. gs 'drugs', 'cocaine'
  233. minut += 5
  234. gs 'stat'
  235. '<center><img <<$set_imgh>> src="images/shared/drugs/cocaine.jpg"></center>'
  236. 'You snort some cocaine, feeling dizzy for just a moment. After that you feel fantastic, horny and full of energy.'
  237. act 'Continue': gt 'gas_station_gp_117', 'restroom_women'
  238. end
  239. end
  240. dynamic $tampon
  241. dynamic $quickwash
  242. dynamic $basin
  243. dynamic $publicpan
  244. end
  245. ! [x]: First check over
  246. if $ARGS[0] = 'restroom_men':
  247. CLOSE ALL
  248. *clr & cla
  249. if sound = 0:PLAY 'sound/highway.mp3',5
  250. $loc_arg = 'restroom_men'
  251. $locM_arg = 'restroom_men'
  252. $menu_arg = 'restroom_men'
  253. menu_off = 0
  254. $location_type = 'bathroom'
  255. gs 'stat'
  256. '<center><img <<$set_imgh>> src="images/locations/highway/gas_station_gp_117/restroom_men.jpg"></center>'
  257. 'The men''s restroom is dirty and smells like urine. It has has three bathroom stalls which over only a little privacy.'
  258. *nl
  259. 'A <a href="exec:gt ''mirror'',''start''">mirror</a>, where you can ' + iif(pcs_hairbsh = 0,'<a href="exec: gt ''mirror'',''brush''">brush</a>','brush') + ' your hair hangs over each sink.'
  260. act 'Go outside': minut += 1 & gt 'gas_station_gp_117', 'restroom'
  261. if mc_inventory['cocaine'] > 0 and drugVars['cocaine_day'] ! daystart:
  262. act 'Do a line of cocaine (0:05)':
  263. *clr & cla
  264. menu_off = 1
  265. gs 'drugs', 'cocaine'
  266. minut += 5
  267. gs 'stat'
  268. '<center><img <<$set_imgh>> src="images/shared/drugs/cocaine.jpg"></center>'
  269. 'You snort some cocaine, feeling dizzy for just a moment. After that you feel fantastic, horny and full of energy.'
  270. act 'Continue': gt 'gas_station_gp_117', 'restroom_men'
  271. end
  272. end
  273. dynamic $tampon
  274. dynamic $quickwash
  275. dynamic $basin
  276. dynamic $publicpan
  277. end
  278. if $ARGS[0] = 'gas':
  279. 'Your <a href="exec: gs ''carF'', ''start''"><<$car>></a> is parked here.'
  280. *nl
  281. 'You can buy petrol for your car, the price is 30 <b>₽</b> per liter.'
  282. if kanistra < 5:
  283. act 'Buy a canister and fill it with 5 liters of gasoline for 150 <b>₽</b>':
  284. cla
  285. kanistra += 1
  286. money -= 150
  287. 'You buy a canister of gasoline. (It will automatically be put in the trunk of your car)'
  288. act 'Disengage from the pump': gt 'gas_station_gp_117', 'outside'
  289. end
  290. end
  291. if benz < 50:
  292. zprbenz = 50 - benz
  293. if zprbenz * 30 <= money:
  294. act 'Fill the tank with petrol':
  295. cla
  296. *clr
  297. benz = 50
  298. zprpay = zprbenz * 30
  299. money -= zprpay
  300. ! WD: Uninitialised ~ 'pol'
  301. ! if pol > 0:'<center><img <<$set_imgh>> src="images/locations/shared/gas/zapr1.jpg"></center>'
  302. '<center><img <<$set_imgh>> src="images/locations/shared/gas/zapr1.jpg"></center>'
  303. 'You fill the tank and pay <<zprpay>> <b>₽</b>.'
  304. act 'Disengage from the pump':gt 'gas_station_gp_117', 'outside'
  305. end
  306. else
  307. 'You do not have enough money to refuel your car.'
  308. end
  309. end
  310. end
  311. ! [x] First check over
  312. ! NOTE: The functions relating to Tomas are removed for now, the attendant doesn''t make seses at the moment. Not really integral to the WLife story, so could be
  313. ! scavenged and used later if needed.
  314. !!------ Prostitution ------------------------------
  315. !! fc
  316. !!------ Working ----------------------------------------------------------------------------------
  317. ! [x] First check over
  318. ! NOTE: The first function - work - is location dependent, so this needs to be left here, and every location will need a similar one.
  319. if $ARGS[0] = 'work':
  320. CLOSE ALL
  321. if sound = 0:PLAY 'sound/highway.mp3',20
  322. *clr & cla
  323. $loc_arg = 'work'
  324. $used_name = 'street'
  325. $menu_arg = 'work'
  326. menu_off = 0
  327. gs 'stat'
  328. gs 'prostitution_functions', 'parameters'
  329. if $prostitute_names['street'] = '':
  330. 'If you want, you can tell your clients a different name.'
  331. $prostitute_names['street'] = input("What name do you want to tell your clients? (Leave blank for <<$pcs_nickname>>)")
  332. if $prostitute_names['street'] = '': $prostitute_names['street'] = $pcs_nickname
  333. end
  334. '<center><video autoplay src="images/shared/prostitution/car/normal/negotiation/search.mp4"></video></center>'
  335. 'You are walking near the gas station waiting for a client. On a scale from 1 to 10 you look like a <<hotcat>>. A good looking girl will always earn more money.'+iif(pcs_makeup < 2, ' You should '+iif(pcs_makeup = 0, 'fix your make-up', 'wear make-up')+' to increase your earnings.', ' Wearing make-up is a good way to increase your earnings.')+iif(pirsA > 0 and pirsA < 10000, ' Your tongue piercing will make a blowjob more enjoyable for most men, that could bring in a small bonus.', '')+iif($pantyworntype = 'eroto' and CloSkirtShortness > 4, ' Wearing such a short skirt reveals your slutty panties to your potential customers.', '')+iif(pcs_apprnc = -10, ' You don''t look healthy and should seek treatment for your STD. There is a high chance that a guy won''t touch you without a condom.', '')
  336. if klismaday ! daystart: '<br>Nearly all men won''t like dirty anal sex, even with a condom, and it''s probably a safe bet that they won''t pay a lot for it. You should start giving yourself an enema before going to work.'
  337. if mesec > 0: '<br>You are having your period, most men will pay less for vaginal sex during that time of the month.'
  338. if prostitute['cum_dressed'] = 1: '<br>You have visible cum stains on you. Most clients won''t like that and will offer less money.'
  339. if prostitute['earnings_day'] > 0: 'You have earned <<prostitute[''earnings_day'']>> <b>₽</b> today.'+iif(prostitute['payment_method'] = 0, ' Your share is <<prostitute[''earnings_day''] * prostitute[''share_player''] / 100>> <b>₽</b>'+iif(prostitute['debt_amount'] > 0, ', but your pimp will keep <<prostitute[''earnings_day''] * prostitute[''debt_payment_percent''] / 100>> <b>₽</b> to pay down your debt.', '.'), '')
  340. if prostitute['payment_method'] = 0: gs 'gas_station_gp_117', 'event_check'
  341. act 'Stop working': gt 'gas_station_gp_117', 'outside'
  342. gs 'willpower', 'prostitution', 'self', 'medium'
  343. if will_cost <= pcs_willpwr:
  344. act 'Look for a client (0:30 and <<will_cost>> Willpower)':
  345. gs 'willpower', 'pay', 'self'
  346. gt 'prostitution_car_negotiation', 'look_client'
  347. end
  348. elseif will_cost > pcs_willpwr:
  349. act 'Look for a client (0:30 and <font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  350. end
  351. if mc_inventory['makeup_wipes'] > 0 and (prostitute['cum_dressed'] = 1 or prostitute['cum_undressed'] = 1 or prostitute['cum_vaginal_mod'] = 1 or prostitute['cum_anal_mod'] = 1):
  352. act 'Remove the cum from your body (0:02)':
  353. minut += 2
  354. mc_inventory['makeup_wipes'] -= 1
  355. cumspclnt = 20
  356. gs 'cum_cleanup'
  357. gt 'gas_station_gp_117', 'work'
  358. end
  359. elseif mc_inventory['makeup_wipes'] = 0:
  360. '<br>You don''t have any tissues with you to remove cum from your body.'
  361. end
  362. !! NOTE: This is where the working/negotiationg part begins in the original file. Moved to a separate file.
  363. !! This call just displays the explanation and the "config" of the negotiations on the page.
  364. gs 'prostitution_car_negotiation', 'general_description'
  365. end
  366. if $ARGS[0] = 'event_check':
  367. !! TODO: Originally this was checking for story events. Now it should check for police raid or just check, attack, or anything else.
  368. !! If this is used in the city, then the initial pimp visits should be checked here too.
  369. !! gt 'mod_wlife_story', 'police'
  370. end
  371. ! [x] First check over
  372. if $ARGS[0] = 'bus_end':
  373. minut += 87
  374. money -= 75
  375. !!NOTE: Removed the checking for acceptance
  376. prostitute['earnings_day'] = 0
  377. prostitute['customer_day'] = 0
  378. gt 'pav_market'
  379. end
  380. --- gas_station_gp_117 ---------------------------------