:титул
заголовок Роща
заголовок автор: Владимир
крепость_берёзы = 5
инв +топор
инв +разрешение
кноп начало, Начать
кон

:начало
экр Ты стоишь на краю леса.
экр Как тебя зовут?
ввод имя, Твоё имя
экр Тебя зовут "?имя". 

если есть имя то кноп роща, Войти в рощу
кон

:роща
экр "?имя", ты пришёл в "+рощу". Тебе надо срубить берёзу.
"+рощу" На душе всегда светлеет, когда ты оказываешься в этом березняке. Множество стволов белеет в зелёной тени, кроны всегда шумят над головой.. В подвижных просветах синеет небо. К сожалению, тебе нужно забрать отсюда одну берёзу. Очень нужно. 
экр Вокруг тебя шумят зелёные "+меню берёзы".
если нет инв +бревно и крепость_берёзы = 0 то стр На земле лежит "+меню срубленная берёза". Вокруг пня рассыпаны щепки.
"+меню срубленная берёза, Обрубить берёзу" Ты обрубил ветки и взвалил бревно на плечо. (инв +бревно; переход роща)
если крепость_берёзы = 0 и нет разрешение_показал = 1 то экр Из-за деревьев вышел лесной обходчик с двустволкой на плече:.. -- Давай разрешение, "?имя".
если крепость_берёзы = 0 и разрешение_показал = 1 то экр Обходчик исчез в роще.
если крепость_берёзы = 0 и разрешение_выбросил = 1 то экр Тебе нечего ему показать. Ты неосмотрительно выбросил нужную бумажку. Теперь ты имеешь штраф.

сл кноп Выйти из рощи
если крепость_берёзы = 0 и разрешение_показал = 1 то
экр Обходчик повернулся и исчез за деревьями.
переход выход
если крепость_берёзы = 0 и нет разрешение_показал = 1 то
экр Обходчик держит тебя за воротник:.. -- Показывай разрешение, шельма!
переход роща
иначе
переход выход
кон кноп

"+меню берёзы, Осмотреть берёзы" Ты любуешься деревьями. Высокие, зелёные. Длинные гибкие ветви качаются под ветром. 
если крепость_берёзы +=1 и инв +топор то "+меню берёзы, срубить берёзу" Ты поплевал на ладони и замахнулся топором. (переход рубить)
если крепость_берёзы = 0 то "+меню берёзы, посмотреть на пень" От берёзы остался только пень.
кон

:рубить
крепость_берёзы = крепость_берёзы - 1
если крепость_берёзы = 4 то экр Топор со стуком опустился. На стволе появилась первая засечка. ..Берёза "?крепость_берёзы".
если крепость_берёзы = 3 то экр Второй удар. Засечка глубже, из-под коры показывается белая древесина. ..Берёза "?крепость_берёзы".
если крепость_берёзы = 2 то экр Третий удар. Ствол наклонился, берёза вот-вот упадёт. ..Берёза "?крепость_берёзы".
если крепость_берёзы = 1 то экр Четвёртый удар. Берёза еле держится. ..Берёза "?крепость_берёзы".
если крепость_берёзы = 0 то экр Пятый удар. Берёза наклонилась и начала валиться на бок с громким треском. ..Берёза "?крепость_берёзы".
если крепость_берёзы +=1 то кноп рубить, Рубить дальше
если крепость_берёзы =0 то кноп роща, Отскочить от берёзы
кон

:выход
экр "?имя" выходит из рощи.
стр Конец.
кон

:инв_топор
"+меню топор, осмотреть топор" Топор с блестящим от ладоней черенком. Лезвие пускает солнечных зайчиков.
если нет топор_выбросил то "+меню топор, выбросить топор" Ты бросил топор в траву. (топор_выбросил = 1; инв -топор; переход роща)
кон

:інв_разрешение
"+меню разрешение, осмотреть разрешение" На бумажке написано, что ты имеешь право срубить одну берёзу. Оплачено.
если нет разрешение_показал = 1 и крепость_берёзы = 0 то "+меню разрешение, дать обходчику" Ты протянул разрешение обходчику. Тот согласно кивнул. (разрешение_показал = 1; переход роща)
если разрешение_показал = 1 то "+меню разрешение, осмотреть оторванный край" Край бумажки оторван.
если нет разрешение_выбросил то "+меню разрешение, выбросить разрешение" Ты скомкал бумажку и выбросил. (разрешение_выбросил = 1; инв -разрешение; переход роща)
кон