zaprF 1.4 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667
  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 rubles.'
  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. if pol > 0:'<center><img src="images/etogame/zapr1.jpg"></center>'
  28. 'You have filled a full tank and paid <<zprpay>> rubles.'
  29. act 'Remove gun':gt 'zaprF', 'start'
  30. end
  31. else
  32. 'You do not have enough money at the gas station.'
  33. end
  34. end
  35. if car > 0:
  36. act 'Buy a canister of gasoline with up to 5 liters of 150 rubles':
  37. cla
  38. kanistra += 1
  39. money -= 150
  40. 'You bought a canister of gasoline. (It is automatically added to the trunk)'
  41. act 'Remove gun':gt 'zaprF', 'start'
  42. end
  43. end
  44. act 'Leave':
  45. if cardrive = 6:
  46. gt 'nord'
  47. elseif cardrive = 21:
  48. gt 'gorodok'
  49. elseif litltown = 0:
  50. gt 'nord'
  51. elseif litltown = 1:
  52. gt 'gorodok'
  53. end
  54. end
  55. end
  56. --- zaprF ---------------------------------