glife_myCopy/locations/zaprF

# zaprF
if $ARGS[0] = 'start':
	$metka = $ARGS[0]
	$loc = $CURLOC
	cla
	clr
	*clr
	minut += 5
	gs 'stat'
	'<center><b>Gas Station</b></center>'
	'<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

	zprbenz = 40 - benz

	if benz < 40 and car > 0 and cardrive = 6 or benz < 40 and car > 0 and cardrive = 21:
		zprbenz = 40 - benz

		if zprbenz * 30 <= money:
			act 'Fill petrol':
				cla
				*clr
				benz = 40
				zprpay = zprbenz * 30
				money -= zprpay

				! WD: Uninitialised ~ 'pol'
				! if pol > 0:'<center><img src="images/etogame/zapr1.jpg"></center>'

				'<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
			kanistra += 1
			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 ---------------------------------