# zaprF
if $ARGS[0]='start':
cla
*clr
gs'stat'
set minut = minut + 5
clr
$metka = $ARGS[0]
$loc = $CURLOC
'<center><B>AZS</B></center>'
'<center><img src="pic/zapr.jpg" ></center>'
'advert, in connection with the features of the device gas stations, all cars are filled up to a full tank.'
'cost 1 liter of gasoline 30 rubles.'
if car > 0:
	 if cardrive = 6 or cardrive = 21:'At the gas station stands <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
	 end
set zprbenz = 40 - benz
if benz < 40 and car > 0 and cardrive = 6 or benz < 40 and car > 0 and cardrive = 21:
	 set zprbenz = 40 - benz
	 if zprbenz*30 <= money:
		 act 'fill petrol':
			 cla
			 *clr
			 set benz = 40
			 set zprpay = zprbenz*30
			 set money = money - zprpay
			 if pol > 0:'<center><img src="pic/zapr1.jpg" ></center>'
			 'You have filled a full tank and paid <<zprpay>> rubles.'
			 act 'remove gun':gt 'zaprF','start'
			 end
		 else
			 'You do not have enough money at the gas station.'
		 end
	 end
if car > 0:
	 act 'Buy canister 5liters of gasoline 150 RUB':
		 cla
		 set kanistra = kanistra + 1
		 set money = money - 150
		 'You bought a canister of gasoline. (it is automatically added to the trunk)'
		 act 'remove gun':gt 'zaprF','start'  
		 end
	 end
     act 'Get_Away':
	     if cardrive = 6:
		 gt'nord'
		 elseif cardrive = 21:
		 gt'gorodok'
		 elseif litltown=0:
		 gt'nord'
		 elseif litltown=1:
		 gt'gorodok'
		 end
	 end
end
--- zaprF ---------------------------------

