Forum.iFiction.Ru

/*
Правила использования:

dyevushka : Actor
    location = startroom
    sdesc = "девушка"
    rdesc = "девушки"
    ddesc = "девушке"
    vdesc = "девушку"
    tdesc = "девушкой"
    pdesc = "девушке"
    noun = 'девушка' 'девушки' 'девушке' 'девушкой' '
    девушку' 'девушке#d' 'девушкой#t' 'девушкою#t'
    ldesc = "Красивая девушка. Блондинка."
    isHer = true
    verDoTalk(actor) = {}
    doTalk(actor) = {
                    "Девушка оценивающе смотрит на вас.";
                    answers([
                            '- Привет.' hello
                            '- Как тебя зовут?' name
                            '- Нет. Ничего.' ext
                            ]);
                    }
; 

hello: menu
action = {
            "- Привет."; 
            name.hide := nil;
         }
;

name: menu
hide = true
action = {
            "- Аня.";
            self.hide := true;
         }
;

Функцию answers возможно вставлять в любой метод. 
ext - стандартный выход из диалога,
если вам нужно, что бы персонаж, к примеру,
тоже прощался в ответ - достаточно вписать
вместо ext свой метод.
*/

answers: function;

menu: object
hide = nil //спрятать пункт меню? true - да, nil - нет
was = 0 //был ли вызов пункта меню? если да, то сколько раз?
action={} //ну, соответсвенно, содержимое диалога
isreturn = true; //выводит последние ответы
;

ext: menu //заглушка по умолчанию для завершения разговора
isreturn=nil
action={}
was=0
;

answers: function (Buttons)
{    
    local i, j, arr;
    
    arr := [];
    j := 0;
    
    "\b";
    
    for (i:=2; i <= length(Buttons); i+=2)
    {
        if (Buttons[i].hide = nil)
        {
        j++;
        say(j); ") "; say(Buttons[i-1]); "\n";
        arr := arr + Buttons[i];
        }
    }
    
    Handler:
    
    if (j < 10)
        i := cvtnum(inputkey());
    else
        {
        "\bВаш выбор: "; 
        i := cvtnum(input());
        }
    
    if (i > j or i = 0) goto Handler;
    
    "\b";
    
    arr[i].action;
    arr[i].was++;
    if (arr[i].isreturn = true) answers(Buttons);
}