===
по квестам - :=) получился вроде небольшой интерпретатор
---
команды в тексте квестового файла
:Метка - поименованная строка - на неё идёт переход по командам GOTO BTN
ext - спец слово для принудительного выхода из квеста
;вся строка - комментарий
TIT arg1 - изменение Титульной строки на Форме квеста
PLN arg1 - вывод строки текста на Форму с переводом каретки
BTN metka,naz_metka - создание кнопки с Меткой перехода
PAUSE Arg1 - приостановка на Арг1 миллисекунд 1000=1 сек
GOTO Metka - переход в тексте квеста на нужную метку
INV+ arg1,Name - Создание или Плюсование Инвентория
INV- arg1,Name - Вычитание или Удаление Инвентория(if name<0)
SET arg1,Name - Присваивание Переменной указанного значения (если переменной нету - то создаём её)
DET Name - Удаление переменной из памяти
RND arg1,Name - присваивание Имени переменной или Инвентаря случайного значение 0...Арг1-1
ADD arg1,Name - Name := Name + arg1
SUB arg1,Name - Name := Name - arg1
MUL arg1,Name - Name := Name * arg1
DIV arg1,Name - Name := Name / arg1
IF== Arg1,Name - if Name == arg1 then выполнить следующую строку Else пропустить след строку
IF>= Arg1,Name - if Name >= arg1 then выполнить следующую строку Else пропустить след строку
IF<= Arg1,Name - if Name <= arg1 then выполнить следующую строку Else пропустить след строку
// доделать
gosub метка - выполнение подпрограммы по адресу Метка - до комнды RET???
return - выход из п/п
musik arg1 - исполнение в бск цикле музыки с номерами 1.mid ... 99.mid
prn arg1 - вывод текста без перевода каретки???
let Nam1,Nam2 - Nam1 := Nam2 считывает NAME2 и записывает в NAME2 и если надо создаёт их
мдааа - конечно реализация арифметики и выполнение по проверке оставляет Желать лучшего.... но... что смог :=)