# zaprF
if $ARGS[0] = 'start':
$metka = $ARGS[0]
$loc = $CURLOC
cla
clr
*clr
minut += 5
gs 'stat'
'
Gas Station'
''
'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 <<$car>>.'
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
if pol > 0:''
'You have filled a full tank and paid <> 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 ---------------------------------