@set drink=0
:street
@cls
@type street.txt
@echo Вы вышли на улицу.
@echo Куда пойдем?
@if %unfsb%==2 goto str_2
@if not %icw%==4 goto str_2
@echo u - забрать с улицы домой обломки летающей тарелки
:str_2
@echo b - к ларьку за пивом
@if not %plog%==3 goto str_1
@echo c - ехать к знакомому кулхацкеру
:str_1
@echo q - домой
@choice /c:bqcu /n
@if errorlevel 4 goto ufo
@if errorlevel 3 goto street_kl
@if errorlevel 2 room
@if %money%==1 goto by_ber
@cls
@echo Пиво вкусное, пенное!..
@echo А денег то нету!
@pause
@goto street
:by_ber
@set beer=1
@cls
@echo Пиво купили.
@echo Теперь скорее домой, поставить его в холодильник. Не пить же теплое?
@pause
@goto street
:street_kl
@if %plog%==3 clhk
@goto street
:ufo
@if %unfsb%==2 goto street
@if not %icw%==4 goto street
@set unfsb=2
@echo Вы забрали домой обломки летающей тарелки, чтобы рассмотреть повнимательнее
@pause
@goto street
