@set kot=1
@set hol=открыть
@set ks=открыть
:kitchen
@cls
@type kitchen.txt
@echo Вы на кухне. Что делать будем?
@echo h - %hol% холодильник
@echo k - %ks% кастрюлю
@if %kot%==0 goto kot_1
@echo p - пнуть кота
:kot_1
@if %ks%==открыть goto kit_1
@if %money%==1 goto kit_1
@echo m - взять из кастрюли деньги
:kit_1
@if %hol%==открыть goto hold_1
@if %potato%==1 goto hold_1
@echo e - сьесть последнюю картошку
:hold_1
@if %hol%==открыть goto hold_3
@if %beer%==0 goto hold_2
@echo b - выпить все пиво
@goto hold_3
:hold_2
@echo b - расстроиться отсутствию пива
:hold_3
@echo q - идти в комнату
@choice /c:hkpqmeb /n
@if errorlevel 7 goto beer
@if errorlevel 6 goto eat
@if errorlevel 5 goto mony
@if errorlevel 4 room
@if errorlevel 3 goto kot
@if errorlevel 2 goto ks
@if %hol%==открыть goto hol_1
@set hol=открыть
@goto kitchen
:hol_1
@set hol=закрыть
@goto kitchen
:ks
@if %ks%==открыть goto ks_1
@set ks=открыть
@goto kitchen
:ks_1
@set ks=закрыть
@goto kitchen
:kot
@if %kot%==0 goto kitchen
@set kot=0
@cls
@type kot.txt
@pause
@goto kitchen
:mony
@if %ks%==открыть goto kitchen
@if not %money%==0 goto kitchen
@set money=1
@cls
@echo Теперь у вас есть деньги
@pause
@goto kitchen
:eat
@if %hol%==открыть goto kitchen
@if %potato%==1 goto kitchen
@set potato=1
@cls
@echo Ну вот и поели. Сразу лучше стало.
@pause
@goto kitchen
:beer
@if %hol%==открыть goto kitchen
@if %beer%==0 goto beer_1
@if %potato%==0 goto beer_2
@set drink=1
@set beer=0
@cls
@echo Теперь мой желудок полон счастья.
@pause
@goto kitchen
:beer_1
@cls
@echo Ах, как жаль, что все пиво кончилось. Может сгоняем за ним в ларек?
@pause
@goto kitchen
:beer_2
@cls
@echo Пить на пустой желудок? Да ни за что!
@pause
@goto kitchen
