zaprF 2.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126
  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/etogame/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/etogame/zapr1.jpg"></center>'
  31. '<center><img src="images/etogame/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/lakecafe/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'
  78. act 'Move away from the mirror':
  79. cla
  80. gt 'zaprF', 'toilet'
  81. end
  82. end
  83. if spdirtyc > 0:
  84. act 'Wipe the cum off your clothes (0:10)':
  85. cla
  86. *clr
  87. cumspclnt = 6
  88. gs 'cum_cleanup'
  89. minut += 10
  90. '<center><img src="images/etogame/frotsp.jpg"></center>'
  91. '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.'
  92. act 'Continue':gt 'zaprF', 'toilet'
  93. end
  94. end
  95. dynamic $tampon
  96. dynamic $quickwash
  97. dynamic $basin
  98. act 'Leave the restroom':gt 'zaprF', 'start'
  99. end
  100. --- zaprF ---------------------------------