0
0

451_zaprF 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122
  1. # zaprF
  2. <<<<<<< 451_zaprF
  3. if $ARGS[0] = 'start':
  4. cla
  5. *clr
  6. gs 'stat'
  7. set minut += 5
  8. clr
  9. $metka = $ARGS[0]
  10. $loc = $CURLOC
  11. '<center><B>Gas Station</B></center>'
  12. *nl
  13. '<center><img src="images\etogame\zapr.jpg"></center>'
  14. 'Announcement, in connection with the features of the device gas stations, all cars to refuel a full tank.'
  15. 'Cost of 1 liter of petrol 30 rubles.'
  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. set zprbenz = 40 - benz
  20. if benz < 40 and car > 0 and cardrive = 6:
  21. set zprbenz = 40 - benz
  22. if zprbenz * 30 <= money:
  23. act 'Fill petrol':
  24. cla
  25. *clr
  26. set benz = 40
  27. set zprpay = zprbenz * 30
  28. set money -= zprpay
  29. '<center><B>Gas Station</B></center>'
  30. *nl
  31. '<center><img src="images\etogame\zapr1.jpg"></center>'
  32. 'You have filled a full tank and paid <<zprpay>> rubles.'
  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 rubles':
  41. cla
  42. set kanistra += 1
  43. set 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 'gorodok'
  53. elseif litltown = 0:
  54. gt 'nord'
  55. elseif litltown = 1:
  56. gt 'gorodok'
  57. end
  58. end
  59. =======
  60. if $ARGS[0]='start':
  61. cla
  62. *clr
  63. gs'stat'
  64. set minut = minut + 5
  65. clr
  66. $metka = $ARGS[0]
  67. $loc = $CURLOC
  68. '<center><B>AZS</B></center>'
  69. '<center><img src="pic/zapr.jpg" ></center>'
  70. 'advert, in connection with the features of the device gas stations, all cars are filled up to a full tank.'
  71. 'cost 1 liter of gasoline 30 rubles.'
  72. if car > 0:
  73. if cardrive = 6 or cardrive = 21:'At the gas station stands <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
  74. end
  75. set zprbenz = 40 - benz
  76. if benz < 40 and car > 0 and cardrive = 6 or benz < 40 and car > 0 and cardrive = 21:
  77. set zprbenz = 40 - benz
  78. if zprbenz*30 <= money:
  79. act 'fill petrol':
  80. cla
  81. *clr
  82. set benz = 40
  83. set zprpay = zprbenz*30
  84. set money = money - zprpay
  85. if pol > 0:'<center><img src="pic/zapr1.jpg" ></center>'
  86. 'You have filled a full tank and paid <<zprpay>> rubles.'
  87. act 'remove gun':gt 'zaprF','start'
  88. end
  89. else
  90. 'You do not have enough money at the gas station.'
  91. end
  92. end
  93. if car > 0:
  94. act 'Buy canister 5liters of gasoline 150 RUB':
  95. cla
  96. set kanistra = kanistra + 1
  97. set money = money - 150
  98. 'You bought a canister of gasoline. (it is automatically added to the trunk)'
  99. act 'remove gun':gt 'zaprF','start'
  100. end
  101. end
  102. act 'Get_Away':
  103. if cardrive = 6:
  104. gt'nord'
  105. elseif cardrive = 21:
  106. gt'gorodok'
  107. elseif litltown=0:
  108. gt'nord'
  109. elseif litltown=1:
  110. gt'gorodok'
  111. end
  112. end
  113. >>>>>>> 451_zaprF
  114. end
  115. --- zaprF ---------------------------------