Forum.iFiction.Ru

Язык Разметки Интерактивной Литературы (ЯРИЛ) версии 2.0 проходит стадию формирования и развития. На данный момент существует некий вариант #001 как первая предварительная реализация языка. Приведу пример:
------------------------------------------------------------------

//Пример №1 редакция 2
ярил 2.0

//И. Р. Д. В. Т. П.
//ж-женский род, с-средний, <пусто>-мужской
локация Камера "Одиночная камера" ("одиночн"+"ая","ой",р,"ую",р,р) ("камер"+"а","ы","е","у","ой",д) ж:
      "Мокрая, холодная камера. Стены в полумраке кажутся серыми. В одной из них виднеется тяжёлая металлическая дверь."
/локация

//*-множественное число
предмет Стены "Стены" ("") ("стен"+"ы",,"е","у","ой",д) * - Камера:
      "Серые сырые стены. Полуотваливающаяся штукатурка имеет мерзкий вид. На одной из стен проступает какая-то надпись."
      (неподвижен)
/предмет

предмет Надпись "Надпись на стене" ("") ("надпис"+"ь",и,"и",и,"ью",д) ж - Камера:
      "С трудом можно прочесть: 'Проба пера... Привет от Соника! '"
      (неподвижен)
      (читаем)
/предмет

локация Выход "Выход из тюрьмы" ("") ("выход"+,"а","у",,"ом","е"):
      "Узкий серый коридор упирается в каменную стену. Массивные металлические ворота приоткрыты..."
/локация

//сказать_з - сказать_заглавная
функция Взять
      если неподвижен тогда
            сказать_з ип+" неподвиж"+(выбор пол=м:"ен",ж:"на",с:"но",*:"ны")
      иначе
            переместить сам в инв
            сказать_з "Вы взяли "+вп
      /если
/функция

функция Читать
      если читаем тогда
            Описать
      иначе
            сказать_з ип+" нечитаем"+(выбор пол=ж:"а",с:"о",*:"ы")
      /если
/функция

функция Описать
      сказать "  "+ип
      сказать " "+Описание
/функция

функция ПоказатьИнвентарь
      сказать "У вас с собой:"
      если инв.колво=0 тогда
            сказать "  (пусто)"
      иначе
            для а=1 до колво(инв)
                  сказать "  "+инв(а).ип
            /для
      /если
/функция

//и,р,д,в,т,п - предметы в падежах; "" - неизменяемая часть
команда "взять", "возьми", "забрать", "забери"
      * в: Взять
/команда

команда "читать", "читай", "прочесть", "прочти"
      * в: Читать
/команда

команда "осмотреться", "осмотрись", "оглядеться", "оглядись"
      Описать(ТекЛок)
/команда

команда "осмотреть", "осмотри", "исследовать", "исследуй"
      * в: Описать
/команда

команда "осм"
      * в: Описать
      Описать(ТекЛок)
/команда

команда "инвентарь", "инвентарий", "инв", "и"
      ПоказатьИнвентарь
/команда

функция Среда.Нераспознаваема
      сказать "Простите, я не понимаю эту фразу."
/функция

функция Среда.Предначало
      сказать "Это тестовая история на 'ЯРИЛ 2.0. Релиз #001.'"
/функция
------------------------------------------------------------------

Мне интересно, насколько данный пример понятен IF-писателям - непрограммистам?