@cls
@echo Wellcome Internet.
@goto inet_inet
:inet
@cls
:inet_inet:
@type inet.txt
@echo Ваши действя:
@if not %plog%==6 goto inet_2
@echo h - залезть на секретный сервер в пентагон
:inet_2
@echo c - Чатиться.
@echo s - гулять по сайтам
@if not %mp33%==0 goto inet_1
@echo d - Скачать крутую MP3
:inet_1
@echo q - HANG UP
@choice /c:scdqh /n
@if errorlevel 5 goto hak
@if errorlevel 4 computer
@if errorlevel 3 goto download
@if errorlevel 2 goto chat
:cnt
@echo COOL!
@echo Что дальше?
@pause
@goto inet
computer
:download
@if not %mp33%==0 goto inet
@set mp33=1
@cls
@echo COOL MP3!
@pause
@goto inet
:chat
@if not %plog%==4 goto cnt
@cls
@echo Вы нашли другого кулхацкера.
@if not %unfsb%==0 goto chat1
@echo Но проклятые ФСБ помешали вам с ним поболтать.
@pause
@goto inet
:chat1
@set plog=5
@echo Он посмотрел пентагоновские логи и рассмеялся, сказал, что даже
@echo лохи сейчас не ксорят хоть и инкрементирующимся ключем. Вы получили
@echo расшифрованные логи. Теперь разобраться в них будет гораздо легче.
@pause
@goto inet
:hak
@if not %plog%==6 goto inet
@if %icw%==2 pentagon
@if %icw%==3 pentagon
@if %icw%==4 pentagon
@echo Не смотря на то, что вы знаете пароль, одному вам здесь не обойтись.
@pause
@goto inet
