1
0

zaprF 3.4 KB

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