zaprF 1.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071
  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. if car > 0:
  15. if cardrive = 6 or cardrive = 21:'On refueling costs your <a href="exec:GS ''carF'', ''start''"><<$car>></a>.'
  16. end
  17. zprbenz = 40 - benz
  18. if benz < 40 and car > 0 and cardrive = 6 or benz < 40 and car > 0 and cardrive = 21:
  19. zprbenz = 40 - benz
  20. if zprbenz * 30 <= money:
  21. act 'Fill petrol':
  22. cla
  23. *clr
  24. benz = 40
  25. zprpay = zprbenz * 30
  26. money -= zprpay
  27. ! WD: Uninitialised ~ 'pol'
  28. ! if pol > 0:'<center><img src="images/etogame/zapr1.jpg"></center>'
  29. '<center><img src="images/etogame/zapr1.jpg"></center>'
  30. 'You have filled a full tank and paid <<zprpay>> <b>₽</b>.'
  31. act 'Remove gun':gt 'zaprF', 'start'
  32. end
  33. else
  34. 'You do not have enough money at the gas station.'
  35. end
  36. end
  37. if car > 0:
  38. act 'Buy a canister of gasoline with up to 5 liters of 150 <b>₽</b>':
  39. cla
  40. kanistra += 1
  41. money -= 150
  42. 'You bought a canister of gasoline. (It is automatically added to the trunk)'
  43. act 'Remove gun':gt 'zaprF', 'start'
  44. end
  45. end
  46. act 'Leave':
  47. if cardrive = 6:
  48. gt 'nord'
  49. elseif cardrive = 21:
  50. gt 'pavCommercial'
  51. elseif litltown = 0:
  52. gt 'nord'
  53. elseif litltown = 1:
  54. gt 'pavCommercial'
  55. end
  56. end
  57. end
  58. --- zaprF ---------------------------------