zaprF 2.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125
  1. # zaprF
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. cla
  6. clr
  7. *clr
  8. minut += 5
  9. gs 'stat'
  10. '<center><b>Gas Station</b></center>'
  11. '<center><img src="images/locations/shared/gas/zapr.jpg"></center>'
  12. 'Announcement, in connection with the features of the device gas stations, all cars to refuel a full tank.'
  13. 'Cost of 1 liter of petrol 30 <b>₽</b>.'
  14. act 'Wash car windows (1:00)':gt 'zaprFWash', 'start'
  15. act 'Go to the toilet':gt 'zaprF', 'toilet'
  16. if car > 0:
  17. if cardrive = 6 or cardrive = 21:'On refueling costs your <a href="exec:GS ''carF'', ''start''"><<$car>></a>.'
  18. end
  19. zprbenz = 40 - benz
  20. if benz < 40 and car > 0 and cardrive = 6 or benz < 40 and car > 0 and cardrive = 21:
  21. zprbenz = 40 - benz
  22. if zprbenz * 30 <= money:
  23. act 'Fill petrol':
  24. cla
  25. *clr
  26. benz = 40
  27. zprpay = zprbenz * 30
  28. money -= zprpay
  29. ! WD: Uninitialised ~ 'pol'
  30. ! if pol > 0:'<center><img src="images/locations/shared/gas/zapr1.jpg"></center>'
  31. '<center><img src="images/locations/shared/gas/zapr1.jpg"></center>'
  32. 'You have filled a full tank and paid <<zprpay>> <b>₽</b>.'
  33. act 'Remove gun':gt 'zaprF', 'start'
  34. end
  35. else
  36. 'You do not have enough money at the gas station.'
  37. end
  38. end
  39. if car > 0:
  40. act 'Buy a canister of gasoline with up to 5 liters of 150 <b>₽</b>':
  41. cla
  42. kanistra += 1
  43. money -= 150
  44. 'You bought a canister of gasoline. (It is automatically added to the trunk)'
  45. act 'Remove gun':gt 'zaprF', 'start'
  46. end
  47. end
  48. act 'Leave':
  49. if cardrive = 6:
  50. gt 'nord'
  51. elseif cardrive = 21:
  52. gt 'pavCommercial'
  53. elseif litltown = 0:
  54. gt 'nord'
  55. elseif litltown = 1:
  56. gt 'pavCommercial'
  57. end
  58. end
  59. end
  60. if $ARGS[0] = 'toilet':
  61. CLOSE ALL
  62. cla
  63. *clr
  64. $locM = 'zaprF'
  65. $metka = 'toilet'
  66. $metkaM = 'toilet'
  67. $loc = 'zaprF'
  68. $location_type = 'bathroom'
  69. $gt1 = 'zaprF'
  70. $gt2 = 'toilet'
  71. minut += 2
  72. '<center><h4>Gas station toilet</h4></center>'
  73. '<center><img src="images/locations/shared/bathroom/toilet.jpg"></center>'
  74. 'You are in a dirty gas station toilet. At least it provides some privacy.'
  75. act 'Look in the mirror':
  76. cla
  77. gt 'portmirror', 'start'
  78. end
  79. if pcs_hairbsh = 0:
  80. act 'Brush your hair': gt 'portmirror', 'brush'
  81. end
  82. if spdirtyc > 0:
  83. act 'Wipe the cum off your clothes (0:10)':
  84. cla
  85. *clr
  86. cumspclnt = 6
  87. gs 'cum_cleanup'
  88. minut += 10
  89. '<center><img src="images/shared/sex/cum/frotsp.jpg"></center>'
  90. 'You spend ten minutes wiping and rinsing the cum stains out of your clothes. By the end, all that remain of them are some damp spots that should dry up in a few minutes.'
  91. act 'Continue':gt 'zaprF', 'toilet'
  92. end
  93. end
  94. dynamic $tampon
  95. dynamic $quickwash
  96. dynamic $basin
  97. act 'Leave the restroom':gt 'zaprF', 'start'
  98. end
  99. --- zaprF ---------------------------------