Forum.iFiction.Ru

Спасибо Korwin'у и uux'у за предоставленную информацию! (написано интересно - прочитаю)

Добавил на код "нашлепок" - и превратился в сканер синтакиса, режимы работы:
непосредственная работа/проверка синтаксиса/проверка синтаксиса и наличие меток переходов (режимы работы настраиваются двумя булевскими переменными). сейчас включен последний режим, показывает возможности текущей версии по разбору команд. (без сканирования меток работает на порядок быстрее, и еще, текущая версия не знает оператор ELSE) также не позволяет создавать "goto #%стр$" и прочие безобразия в вычислениях, непомню как выглядело, что-то типа: "x+#abc$" - причем подобные записи были не в строках.
___ комментируйте строки ";" если хотите чтобы их пропускал парсер.

p.s.: для переходов на строковую метку пользователя я лучше сделаю внутреннюю переменную и команду, которая считывает оттуда и преобразовывает строку в пользовательское_имя_метки (просто это концепция парсера - отделить строки от пользовательских имен)
___
если выявилась ошибка, то ее нужно искать назад по строке от обозначенного места, т.к. сканер говорит о ней, когда становится однозначно ясно.
иногда ошибку нужно смотреть на предыдущей строке, во время сканирования текста не выводится ни каких сообщений, текст необходимо переконвертировать а dos-кодировку (можно сделать стандартным виндовым WordPad, предварительно сменив расширение файла на ".txt")
___
ни один из нескольких сканированных не был полностью правильным, то метки не хватало, то команды пропущены...

Отредактировано abcdef (21.07.2009 09:40)

Без #$ и #%$ в любом месте кода это уже не урка.

прочитал документацию  Korwin'а - для полноценной версии нужно:
* добавить операции сравнения строковых переменных и др. (надо подумать как лучше сделать это).
* автоподстановку имени меток, переменных/инвентаря (лучший вариант сделать спец. переменную которая принимает строку, а обращение к ней возвращает одно_имя или один_оператор языка URQL).
* простой способ внедрения оператора ELSE  в том, чтобы разместить его после IF... THEN на следующей строке,
например:
if i<max then pln Обработка...
else pln Конец обработки...
____
в примерах показано так:
if Дубина then btn шмяк,Ударить зеленого гоблина дубиной по башке! else btn драп,Драпать!
так что получается что кроме символов: # & <crlf> в строках нельзя использовать слово <ELSE>?

интересны также часто встречающиеся конструкции вида: if i<max then goto loop1 else pln Конец цикла
в которых можно вообще обойтись без ELSE, т.е. примерно так:
if i<max then goto loop1
pln Конец цикла
_____
осталось несколько вопросов:
в доке: - Выражение #переменная_x$ заменяется на значение числовой переменной 'переменная_x'
вопрос: - понятно если это встраивается в строку, но если это просто оператор по тексту программы, кто мешает просто писать ...переменная_x... без #...$?
__
в доке: - Возможно вложение, то есть такая строка считается допустимой: #var#x$$
вопрос: - а нужно ли вложение?  т.к. это аналогично операции вида: #var$#x$
_Заранее спасибо!
_____

p.s.: у кого какие предложения/пожелания для усовершенствования предложенного AURQ?

Единые правила работы интерпретатора:

<зарезервированные символы>  -  : ; > < = + - * ( ) / \ , # $ & #13#10 #27

<зарезервированные слова>  -  and or not if then else p pln btn goto proc end inv rnd instr cls input pause music play save common anykey invkill perkill system

<пользовательское имя>  -  имя состоящее из любых символов, кроме служебных; символы с кодом меньше или равном 32 вырезаются (знаки табуляции, пробелы). Также в имя не могут входить <зарезервированные слова>

<строка текста>  -  символы до знака "&" или конца строки, где обрабатывается вставки после наличие символа "#", причем этот символ требует завершения символом "$":
#$ - подстановка пробела
#/$ - подстановка перехода на новую строку
##<арифметическо-логическое выражение>$ - где <арифметическо-логическое выражение> = подстановка кода печатаемого символа
#<арифметическо-логическое выражение>$ - где <арифметическо-логическое выражение> = подстановка вычисленного числа
#%<пользователское имя>$ - где <пользователское имя> = подстановка строки из строковой переменной <пользовательское имя>

Опрерация подстановки system. Заменяется содержимым строки sys, например (var=_abc1):
instr sys=lab#%var$
goto system
представляется в:
goto lab_abc1

Оператор выбора записыается следующим видом:
if <условие> then <действие>&<действие>&...
else <действие>&<действие>&...

Количество пореходов на метку можно получить только так: count_<пользовательское имя>

Инвентарь по кнопке "i"  - в меню текущей локации добавляются действия с инвентарем. При выборе действия с инвентарем они ставяться в очередь и выполняются при переходе в следующую локацию.
____
p.s.: исправил некоторые ошибки в текущей версии, в ближайщем будущем добавлю сравнение строк по маске и т.д.
о некоторых возможностях интерпретатора сознательно буду умалчивать, чтобы не прививать плохих привычек программирования

Отредактировано abcdef (21.07.2009 09:42)

А чем мотивировалась разработка под DOS?
Вряд ли в наш век найдется хотя бы один пользователь сидящий под чистым досом

исправлено:
- команда anykey
- зарержка команды pause
- уменьшено мерцание курсора
- генерация ошибки, если невозможно перейти на метку (ранее просто зависал)
- сообщение о завершении квеста, в локации которой нет кнопок

Отредактировано abcdef (21.07.2009 09:45)

добавлена поддержка шифрованных квестов формата QS1 (также сделал конвертер отдельной программкой для удобства отладки)
доработал разбор, теперь строки с названиями меток могут содержать комментарии.
при сканировании на синтаксис добавлены два вида предупреждений:
"TOO LARGE BLOCK" -  текст локации может не поместиться в один экран
"TOO LARGE TEXT" -  текстовая строка содержит более 253 символов
обнаружена ошибка проверки (при выполнении все нормально) - не обрабатываются выражения со стоящим вначале знаком минус или плюс "-" "+", например: a=-2 необходимо написать a=0-2
___
Некоторые замечания по нахождению мест распознанных сканированием:
1. Метки btn сканируются в конце локации, поэтому если будет сообщение вида: "Error: label <30> not found  (STR:775,POS:0,TOKEN:end)" где "TOKEN:end" то это говорит что мы в конце локации, а команда с ошибочной меткой "30" находится где-то выше по тексту.
2. "warning: STR 22,  TOO LARGE TEXT" - вполне вожможно что это была предыдущая строка, потому как строка заканчивается переходом на новую строку, а после этого определяется что она слишком длинная.
___
Замечания при генерации переходов: если программа сканирования выдает ошибку на переходе типа goto system, то это значит что в текущий момент сканирования в system находиться мусор чтоб обойти это на этапе отладки можно сделать так:

:1
;предыдущая локация
end

instr sys=2  ;этот код ни когда не будет выполняться в реально работающей программе, сюда поместим заполнение system какой-нить меткой

:2
btn system,назад
end

___
проверен разбор нескольких квестов с http://ripsoft.narod.ru/Download.htm
Гарри Гаррисон
Похождения отважного хомяка Семена: Побег
Похождения отважного хомяка Семена-2: КРУТОЙ СПУСК
Древний кинжал 1
НАДЕЖДА НА ЖИЗНЬ
Без права на надежду

Замечания по поводу сканированных квестов:
1. В квесте Гарри Гаррисон автор перевода на URQ намеренно испортил код квеста повсюду на метках отсутствуют либо ":" вначале метки, либо цифра три исправлена на русскую букву "з".
2. Без права на надежду - много ошибок, такое впечатление будто автор также хотел запутать игрока, порой создается впечатление "как это может вообще работать..."
___
Для пользователей: включены все проверки. версия - отладочная.

Отредактировано abcdef (21.07.2009 09:57)

Нужны, и очень, но не клоны, и чтоб возможностей было больше, а глюков меньше.

Добавлены функции работы со строками:

;получить длина строки///   число = strlen строка&
;сравнить две строки///   число = strcmp строка&строка&
;получить код символа из строки///   число = strchar числовая_позиция,строка&
;скопировать подстроку///  строка = strcopy начальная_позиция, длина_подстроки,строка&
;получить позицию вхождения подстроки в строку///число = strpos подстрока&строка&
;установить символ в строку///   строка = strset позиция, код_символа,строка&

Примечание:
из версии aurq005 ошибок не выявлено, код немного переработан
версия тестовая. просьба сообщать о найденных багах
для работы используйте только последнюю версию программы, если встретилась ошибка проверьте ее на предыдущей версии.

Отредактировано abcdef (21.07.2009 09:47)

и вот еще: delphi исходный код библиотеки адаптиции к windows-плитформе

подробное описание, полные исходники и доработаная версия aurq_win0082
_____
в архиве квест "хроники капитана Блуда, тайна левой ягодицы".
замечания: реализация квеста интересная, но примерно треть локаций не существует, добавляйте сами при прохождении переадревацию в пустую локацию. например:

:give__
:use__
:give_экипаж_блуд
:give_gazettedestribunaux_блуд
:give_gazettedestribunaux_герда
:give_деньги_блуд
:give_блокнот_блуд
:use_gazettedestribunaux_
:use_gazettedestribunaux_столик
:use_деньги_деньги
:use_деньги_столик
:use_деньги_блокнот
:use_блокнот_блокнот
:give_столик_блуд
:читать_газету
:common
end

версия aurq0089. описание. белее сотни проверенных и адаптированных квестов в архиве

+Мутанта-3
40000_demo
9_gum
A.L
about
agentD
aif
Alice's+Adventures+in+Urqland
Ancient_dagger_1
Ancient_dagger_2
ARROW
Ayk
bigsch
black_mage
BO3POBURN
Bodun
Brain1
Brain11
buratino
CD-пират2-Beginning
colors
comictravel
comictravel2
ConspiracyLifeForNothing
Corleone
creat
Demo
DODS
DOOMуровень1
DOOMуровень2
ElfQuest
ella
Escape1_02
EVGENY
Evgeny2
fall5
GarpiasFly
GEROJ
ghost1
grey_mage
hacker
HackerSim
hamster1
hamster2
hippi
Hope
internet
ITF
kolobok
labirint1
lift-4
Matrix
matrix2
mdemo
Memory
Memory2
mines
mystery
nash
Nightmare
p
Parish1313
Petrov
petrovicch
Pikachu
poiske
Pop
qwerty-bench
riga
Sam
Semion
StarngerVer11
strtest
sword
t
test
tetris
TheMagicRill100
the_room
TURNIR
unreal
URQ-2009
VinnyPuh
VirusDos
VVMB
WH
Wolf
yo
Zachetka
Вампиры1
Выползание_некроманта
Гладиаторы
Демоны_темной_стороны
Детектив_Memory
КвестПроПетю
Константин
Крюгер
Месть
Молчание_хрящей
Мутация+Мутанта
Рагнарек
Тень
Царство_смерти
Черная_пятница
Яша