# zaprF
if $ARGS[0] = 'start':
	cla
	*clr
	gs 'stat'
	set minut += 5
	clr
	$metka = $ARGS[0]
	$loc = $CURLOC

	'<center><B>Gas Station</B></center>'
	*nl
	'<center><img src="images\etogame\zapr.jpg"></center>'

	'Announcement, in connection with the features of the device gas stations, all cars to refuel a full tank.'
	'Cost of 1 liter of petrol 30 rubles.'

	if car > 0:
		if cardrive = 6 or cardrive = 21: 'On refueling costs your <a href="exec: GS ''carF'',''start''"><<$car>></a>.'
	end

	set zprbenz = 40 - benz
	if benz < 40 and car > 0 and cardrive = 6:
		set zprbenz = 40 - benz
		if zprbenz * 30 <= money:
			act 'Fill petrol':
				cla
				*clr
				set benz = 40
				set zprpay = zprbenz * 30
				set money -= zprpay
				'<center><B>Gas Station</B></center>'
				*nl
				'<center><img src="images\etogame\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 a canister of gasoline with up to 5 liters of 150 rubles':
			cla
			set kanistra += 1
			set money -= 150
			'You bought a canister of gasoline. (It is automatically added to the trunk)'
			act 'Remove gun': gt 'zaprF','start'
		end
	end

	act 'Leave':
		if cardrive = 6:
			gt 'nord'
		elseif cardrive = 21:
			gt 'gorodok'
		elseif litltown = 0:
			gt 'nord'
		elseif litltown = 1:
			gt 'gorodok'
		end
	end
end
--- zaprF ---------------------------------