1
0

zaprF.qsrc 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123
  1. # zaprF
  2. if $ARGS[0] = 'start':
  3. $metka = 'start'
  4. $loc = 'zaprF'
  5. $location_type = 'public_outdoors'
  6. cla
  7. *clr
  8. gs 'stat'
  9. '<center><b>Gas Station</b></center>'
  10. '<center><img <<$set_imgh>> src="images/locations/shared/gas/zapr.jpg"></center>'
  11. 'The local gas station, the cheap pumps are limited in functionality and will always fill the tank up completely.'
  12. *nl
  13. 'When the weather is nice sometimes girls will offer a car washing service for some tips, there''s no structure to it so you could always try it.'
  14. 'The petrol price is 30 <b>₽</b> per liter.'
  15. *nl
  16. if hour < 9:
  17. 'It''s too early to wash cars.'
  18. elseif hour > 19:
  19. 'It''s too late to wash cars.'
  20. else
  21. act 'Wash car windows (1:00)':gt 'zaprFWash', 'start'
  22. end
  23. act 'Go to the toilet':gt 'zaprF', 'toilet'
  24. if car > 0:
  25. if cardrive = 6 or cardrive = 21:'Your <a href="exec:GS ''carF'', ''start''"><<$car>></a> is parked here.'
  26. end
  27. zprbenz = 40 - benz
  28. if benz < 40 and car > 0 and cardrive = 6 or benz < 40 and car > 0 and cardrive = 21:
  29. zprbenz = 40 - benz
  30. if zprbenz * 30 <= money:
  31. act 'Fill the tank with petrol':
  32. cla
  33. *clr
  34. benz = 40
  35. zprpay = zprbenz * 30
  36. money -= zprpay
  37. ! WD: Uninitialised ~ 'pol'
  38. ! if pol > 0:'<center><img <<$set_imgh>> src="images/locations/shared/gas/zapr1.jpg"></center>'
  39. '<center><img <<$set_imgh>> src="images/locations/shared/gas/zapr1.jpg"></center>'
  40. 'You filled the tank and paid <<zprpay>> <b>₽</b>.'
  41. act 'Disengage from the pump':gt 'zaprF', 'start'
  42. end
  43. else
  44. 'You do not have enough money to refuel.'
  45. end
  46. end
  47. if car > 0:
  48. act 'Buy a canister able to contain up to 5 liters of gasoline for 150 <b>₽</b>':
  49. cla
  50. kanistra += 1
  51. money -= 150
  52. 'You bought a canister of gasoline. (It was automatically put in the trunk)'
  53. act 'Disengage from the pump':gt 'zaprF', 'start'
  54. end
  55. end
  56. act 'Leave':
  57. if cardrive = 6:
  58. minut += 5
  59. gt 'nord'
  60. elseif cardrive = 21:
  61. minut += 5
  62. gt 'pavCommercial'
  63. elseif litltown = 0:
  64. minut += 5
  65. gt 'nord'
  66. elseif litltown = 1:
  67. minut += 5
  68. gt 'pavCommercial'
  69. end
  70. end
  71. end
  72. if $ARGS[0] = 'toilet':
  73. CLOSE ALL
  74. if night_mode = 1:
  75. fcolor = rgb(255, 255, 255)
  76. bcolor = rgb(0, 0, 0)
  77. lcolor = rgb(106, 90, 205)
  78. else
  79. fcolor = rgb(0, 0, 0)
  80. bcolor = rgb(255, 255, 255)
  81. lcolor = rgb(106, 90, 205)
  82. end
  83. cla
  84. *clr
  85. $metka = 'toilet'
  86. $loc = 'zaprF'
  87. $location_type = 'bathroom'
  88. $locM = 'zaprF'
  89. $metkaM = 'toilet'
  90. minut += 2
  91. gs 'stat'
  92. '<center><h4>Gas station toilet</h4></center>'
  93. '<center><img <<$set_imgh>> src="images/locations/shared/bathroom/toilet.jpg"></center>'
  94. 'You are in a dirty gas station toilet. At least it provides some privacy.'
  95. act 'Leave the restroom':gt 'zaprF', 'start'
  96. act 'Look in the mirror': gt 'mirror', 'start'
  97. if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
  98. dynamic $tampon
  99. dynamic $quickwash
  100. dynamic $basin
  101. end
  102. --- zaprF ---------------------------------