:comp
@cls
@type computer.txt
@echo Компьютер включен.
@echo Ваши действия:
@if %icw%==0 goto comp_1
@echo i - Взломать интернет
:comp_1
@if %hasmail%==0 goto comp_2
@echo r - Читать почту
:comp_2
@if not %plog%==1 goto comp_3
@echo p - Распечатать пентагоновский лог
:comp_3
@echo c - Звонить на BBS'ку
@echo s - Слушать MP3
@echo q - выключить компьютер
@choice /c:icqrsp /n
@if errorlevel 6 goto printlog
@if errorlevel 5 mp3
@if errorlevel 4 goto mail
@if errorlevel 3 room
@if errorlevel 2 bbs
@if errorlevel 1 if not %icw%==0 goto inet
@goto comp
:mail
@if not %hasmail%==0 mail
@goto comp
:printlog
@if  %plog%==1 goto print_log
@goto comp
:print_log
@set plog=2
@cls
@echo Лог распечатан. Теперь надо разобраться в распечатках.
@pause
@goto comp
:inet
@if %drink%==1 inet
@echo Вот бы сперва пива попить...
@pause
@goto comp