Forum.iFiction.Ru

(Я правда, имел в виду, что все предыдущие команды были введены после того, как Ватрушкин положил трубку, ну да ладно, можно и так)

—ХОЧУ УЗНАТЬ СУММУ ЗАДОЛЖЕННОСТИ

—ХОЧУ ПОПОЛНИТЬ ФОНД СЕЙЧАС

(если пополнить прямо сейчас не получается)

—ХОЧУ ОТКЛЮЧИТЬ УСЛУГУ

(О, блин, а ведь интересно, так, глядишь, и втянусь;).

oleksus написал:

Я хочу разнообразить выводимые ldesc и sdesc для объектов и локаций. Как оформить несколько описаний в список и выводить случайным образом одно из них методом shuffleList? Когда все длинные описания выйдут, далее выводятся только короткие, тоже вперемежку.

Честно говоря, не понял про shuffleList; я бы данную задачу решил вот так:


class MyRoom: room
// Общее кол-во длинных описаний
NrOfLongDescs=3
// Кол-во показанных длинных описаний
NrOfLongDescsDisplayed=0
// Общее кол-во коротких описаний
NrOfShortDescs=3
//Список длинных описаний
LongDescs=['Это большая комната бла бла бла' 'Знакомая тебе комната бла бла' 'Ничего в этой комнате не поменялось бла бла']
//Список коротких описаний
ShortDescs=['Известно какая' 'Просто комната' 'Комната и все тут']
DisplayedLDs=[]
ldesc={local i, FoundFree, count, PosInList;
       if(self.NrOfLongDescsDisplayed<self.NrOfLongDescs)
         {// Выводим длинные описания
          FoundFree:=nil;
          count:=0;
          while((not FoundFree) and (count<1500)) // Условие count - защита от непредвиденного зацикливания
                                                                      // (вообще-то перестраховка)
            {count++;
             i:=rand(self.NrOfLongDescs);
             PosInList:=find(self.DisplayedLDs,i);
             if(PosInList=nil)
               {// Нашли описание, которое еще не использовалось; выводим его
                say(self.LongDescs[i]);
                // Устанавливаем флаг выхода из цикла, добавляем номер отображенного описания в
                // соответствующий список, увеличиваем число отображенных длинных описаний
                self.DisplayedLDs:=self.DisplayedLDs+i;
                self.NrOfLongDescsDisplayed++;
                FoundFree:=true;
               }
            }
         }
       else
         {// Длинные описания кончились; выводим короткие
          i:=rand(self.NrOfShortDescs);
          say(ShortDescs[i]);
         }
      }

Согласен, выглядит громоздко, зато это - готовое решение (ну, если кто-нибудь бага не найдет . В дальнейшем достаточно будет ввести что-то типа

Komnata: MyRoom
;

и переопределить первые четыре свойства "по месту".

oleksus написал:

Спасибо за код, начну строить первую локацию...

Появилась еще одна мысль на предмет парсера...

Не хочу показаться занудой, но лично я бы рекомендовал воздержаться от каких-либо действий по написанию кода, пока все мысли на предмет парсера, да и всех прочих аспектов игры не утрясутся, и на свет не появится такой документ, как общий план игры (от *самого* начала до *самого* конца): это может быть, например, список локаций с перечнем содержащихся в них хотя бы основных объектов, влияющих на ход игры, и их основных реакций (опять-таки влияющих на развитие сюжета). Понимаю, что занимаюсь практически самоцитированием, но рекомендую по данному поводу перечитать главу 6 (R)TADS-мануала. Очень жизненно

oleksus написал:

Вот по РТАДС есть несколько вопросов.

1) Я хочу заменить функцию look at на простое введение названия объекта. То есть, игрок видит в описании интересующее существительное, вводит его, и получает описание объекта, как если бы он ввел "осмотреть предмет".
Как это сделать?

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

Но это не значит, что в RTADS этого сделать вообще нельзя;).

Возможны два варианта: простой, но неэлегантный и кривоватый, а также посложнее, но (надеюсь;)) попрямее.

Неэлегантный вариант - просто переопределить для всех предметов в игре глаголы с тем же набором лексических свойств, что и для предметов. Недостатки: 1) сильно утомительно; 2) трудновато будет реализовать прилагательные (к предмету можно обратиться сочетанием прилагательное-существительное (два лексическиз свойства - adjective и noun), а у глаголов на все про все одно-единственное лексическое свойство verb).

Вариант поэлегантнее - см. следующее сообщение.

(Окончание)


// Если мы оказались здесь, то это означает, что либо в предыдущем варианте словосочетание
// было признано некорректным (тогда IncorrectFirstTry=true), или для него просто не
// нашлось объектов в игре (тогда IncorrectFirstTry=nil), либо оно было разобрано не до конца
// (тогда также IncorrectFirstTry=nil). Пытаемся использовать альтернативный
// вариант подбора (для словосочетаний вида "собака Павлова", которые стандартному
// подборщику TADS не по зубам - по крайней мере, без дополнительной подготовки)
//
if(length(wordlist)>1)
   {// Длина списка >1, т. е. теоретически возможно, что игрок ввел словосочетание вида "часы брата";
    // дополнительно проверяем наличие соответствущего определения для последнего слова в словосочетании
    //
    RetObj:=[]+(wordlist[length(wordlist)]+'#r');
    BuffObj:=parserDictLookup(RetObj, [PRSTYP_ADJ]);
    if(BuffObj=[])
      {// Такого определения нет, так что нечего и пытаться дальше разбирать словосочетание
       //
       if(IncorrectFirstTry)
         {// Предоставляем системе самой вывести сообщение об ошибке
          //
          return nil;
         }
       else
         {// Выводим сообщение сами
          //
          "Я не вижу здесь этого.";
          return true;
         }
      }
    else
      {// Меняем порядок элементов в исходных списках слов и типов и пытаемся выполнить разбор еще раз
       //
       BuffObj:=wordlist[length(wordlist)];
       wordlist[length(wordlist)]:=wordlist[length(wordlist)-1];
       wordlist[length(wordlist)-1]:=BuffObj;
       BuffObj:=typelist[length(typelist)];
       typelist[length(typelist)]:=typelist[length(typelist)-1];
       typelist[length(typelist)-1]:=BuffObj;
       RetObj:=parseNounList(wordlist, typelist, 1, nil, nil, true);
       // Вновь проверяем результат
       //
       if(RetObj=nil)
         {// Синтаксически некорректное словосочетание; проверяем, был ли синтаксически некорректным
          // предыдущий порядок слов, и в зависимости от этого выводим сообщение сами или
          // предоставляем это сделать системе
          //
          if(IncorrectFirstTry)
            {// Предоставляем системе самой вывести сообщение об ошибке
             //
             return nil;
            }
          else
            {// Выводим сообщение сами
             //
             "Я не вижу здесь этого.";
             return true;
            }
         }
       else
         {if((length(RetObj)>1) and (RetObj[1]>length(wordlist)))
            {// Словосочетание корректное, и удалось найти объекты; завершаем подбор
             // в интерактивном режиме
             ResultList:=parserResolveObjects(actor, inspectVerb, nil, nil, PRO_RESOLVE_DOBJ, &verDoInspect,
                                              wordlist, RetObj, nil);
             if(ResultList[1] = PRSERR_DISAMBIG_RETRY)
               {// В процессе подбора (устранения неопределенности) игрок ввел новую команду;
                // запускаем ее
                //
                parserReplaceCommand(ResultList[2]);
                return true;
               }
             else
               {if(ResultList[1] = PRS_SUCCESS)
                  {// Удачное завершение; выводим длинное описание подобранного объекта
                   //
                   ResultList[2].ldesc;
                  }
               // В любом случае, удачное завершение или нет, дальнейшей обработки не
               // требуется (при неудачном завершении сообщение об ошибке было выведено parserResolveObjects)
               //
               return true;
              }
            }
          else
            {// Словосочетание корректное, но объектов для него нет; выводим соответствующее
             // сообщение и завершаем обработку
             //
             "Я не вижу здесь этого.";
             return true;
            }
         }
      }
   }
else
   {// В словосочетании всего одно слово - значит, формат "собака Павлова" неприменим по определению
    //
    if(IncorrectFirstTry)
      {// Предоставляем системе самой вывести сообщение об ошибке
       //
       return nil;
      }
    else
      {// Выводим сообщение сами
       //
       "Я не вижу здесь этого.";
       return true;
      }
   }
}

Объем кода пусть не пугает: во-первых, он раздут за счет подробных комментариев, а во-вторых, я сознательно ничего не оптимизировал (в частности, там некоторые фрагменты кода повторяются по нескольку раз).

Ограничения данного варианта: не будут корректно работать множественные числа (свойство plural), а также перечисление объектов через запятую (например, если игрок введет "шкаф и стол"). В остальном, насколько я могу судить по короткому тесту - вполне работоспособный вариант.

Информацию по "точке входа" parseUnknownVerb см. в разделе 4.3 руководства по (R)TADS, по используемым в ходе разбора функциям parseNounList, parserResolveObjects, parserReplaceCommand, parserDictLookup - в разделе 4.2 того же руководства (подраздел "Обработка введенной строки непосредственно из игры").

oleksus написал:

Я в шоке. Я просто в ужасе от того, как просто делается в LUA все то, чему посвящается масса гемора в английских изобретениях типа inform и TADs.
Мдяя... я конечно уважаю все предложенные советы и помощь, но на обустройство нужного мне парсера в ЛУА у меня ушло вдесятеро меньше строк кода. ТАДС мне напоминает чугунный скафандр для бальных танцев. ;D

Все, еще несколько дней без лени и ЛУА версия игры готова. Выложу на свой ФТП и сразу дам ссылку.
6days рулит! 8-)

Ну, уважаемому oleksus'у, наверное, уже все равно, он свою игру уже написал на LUA, а вот вниманию всех остальных любителей простых решений предлагаю на будущее RTADS'овский код, решающий ту же задачу (напомню, речь шла о том, чтобы игра распознавала введенное название объекта как синоним команды "осмотреть <объект>"), но "кривее" и с большим количеством ограничений.

class HybridItem: thing
action(actor)={if(self.isVisible(parserGetMe().location))
                        {self.ldesc;
                        }
                      else
                        {"Ты не видишь этого здесь.";
                        }
                    }
;
Shkaf: fixeditem, HybridItem
verb='шкаф'
noun='шкаф'
sdesc="шкаф"
ldesc="Это просто шкаф."
;


Ограничения по сравнению с "развесистым" вариантом, опубликованным ранее:
- затруднена оддержка прилагательных (если у нас есть черный шкаф, большой черный шкаф, шкаф старшей сестры и т. п., реализовать все возможные комбинации будет тяжеловато);
- трудности возникают, когда у нас имеется несколько объектов с одинаковыми названиями в игре (например, тех же шкафов). Связано это с тем, что свойство verb должно быть уникальным для каждого глагола. Причем, если эти объекты разбросаны по разным локациям (например, шкафы стоят в разных комнатах и не могут быть перемещены), то это ограничение обходится, хотя и кривовато, путем использования динамических лексических свойств (addword/delword) - просто при входе в определенную комнату мы "переключаем" дублирующееся лексическое свойство verb c "ненужного" (оставшегося в другой комнате) объекта на "нужный". Сложнее будет обстоять дело, если у вас в игре, например, имеется куча дверей и куча ключей к ним, которые игрок может собирать. При этом данный "простой" способ перестает работать.

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

Предложенный ранее "сложный" способ свободен от этих ограничений. Он будет работать одинаково для любого размера игры/числа объектов в ней, поскольку действует на иных принципах.

Отредактировано uux (06.04.2007 19:13)

zerrr написал:

Валя, а где он игру-то выложил? Задумка интересная, язык богатый - очень хочется глянуть, что же вышло.

Я же сказал "наверное, написал", т.е. это мое предположение. Просто я исходил из того, что заявленные автором "пара дней без лени" за месяц простоя форума точно должны были состояться;). А на игру мне и самому было бы любопытно взглянуть...

zerrr написал:

И где этот самый LUA посмотреть ? обрыл интернет - не нашел рабочих ссылок:)

Посмотри сайт Belial'а: http://questtext.narod.ru/run.html. Игру "Клара - расхитительница варенья" с КРИЛ-06, надеюсь, не забыл? Вот она написана в системе "6 days", которая, в свою очередь, основана на языке LUA.

Кстати, рад, что у тебя проблемы с доступом к форуму решились;).

Отредактировано uux (07.04.2007 08:07)