# 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 ---------------------------------