Forum.iFiction.Ru

[ BeforeParsing o i j n flag;
    for (i=1 : i<=parse-->0 : i++) {                        ! перебираем все распознанные слова
        objectloop (o provides name) {                        ! перебираем все объекты, у которых есть name
            if (TestScope(o, player) && Refers(o, i)) {        ! проверяем в фокусе ли объект и соотносится ли с ним проверяемое сейчас слово
                flag = 1;                                    ! если объект в скоупе и слово — его, флаг равен 1
            }
        }
        n = n + flag;                                        ! увеличиваем счётчик, если флаг последнего слова сработал
        flag = 0;                                            ! обнуляем флаг на следующий цикл
    }
    if (n < parse-->0) rfalse;                                ! если счётчик меньше, чем количество введённых слов — значит, не все они соотнеслись с объектами, возвращаем фейл, пусть парсер выдаёт ошибку
    for (j=buffer-->0 : j>0 : j--) {                        ! перебираем все вхождения в буфере
        buffer-->(j+2) = buffer-->j;                        ! смещаем вхождения в буфере на 2 вперёд
    }
    buffer-->1 = 'о';                                        ! в освободившееся первое вхождение в буфере пишем символ «о» (как «осмотреть»)
    buffer-->2 = ' ';                                        ! в освободившееся второе вхождение в буфере пишем символ пробела (после глагола)
    buffer-->0 = buffer-->0 + 2;                            ! увеличиваем длину буфера на 2 дополнительных символа
    VM_Tokenise(buffer, parse);                                ! репарсим буфер
];