scissors: item            // "item" является классом TADS для
                          // чего-то, что вы можете поднять
    sdesc = "ножницы"     // "краткое" описание объекта
    adesc = "ножницы"     // описание, использующееся, когда
                          // игра хочет назвать предмет 
                          // с использованием артикля "a"
    noun = 'ножницы'      // термин, которым игрок может
                          // воспользоваться, чтобы назвать предмет
    location = startroom  //  где объект расположен вначале игры
;

  verDoTakeOut( actor, io ) =
    {
        if ( io <> nil and not self.isIn( io ))
        {
            caps(); self.thedesc; "не находится в"; io.thedesc; ". ";
        }
        self.verDoTake(actor);       /* убедиться, что объект
                                      вообще можно брать */
    }

 modify thing
    verDoTakeOut( actor, io ) =
    {
        if ( io <> nil and not self.isIn( io ))
        {
           caps(); self.thedesc;
           // НОВЫЙ КОД!
           if (self.plural) " не находятся в"; else " не находится в";
           // КОНЦОВКА СТАРОГО КОДА
           " в "; io.thedesc; ". ";
        }
        self.verDoTake(actor);       /* убедиться, что объект
                                      вообще можно брать */
    }
;

Комментарии

nozhnitsy : item
    location = startroom
    sdesc = "ножницы"     // именительный падеж
    rdesc = "ножниц"      // родительный падеж
    ddesc = "ножницам"    // дательный падеж
    vdesc = "ножницы"     // винительный падеж
    tdesc = "ножницами"   // творительный падеж
    pdesc = "ножницах"    // предложный падеж
    noun = 'ножницы' 'ножниц' 'ножницам' 'ножницами'
           'ножницах' 'ножницам#d' 'ножницами#t'
    isThem = true         // Вот это чудо, которое
                          // родилось после этой статьи
;

    verDoTakeOut(actor, io) =
    {
        if (io <> nil and not self.isIn(io))
        {
            ZAG(self,&sdesc); " ";
            " не наход<<glok(self,2,1)>>ся в "; io.pdesc; ". ";
        }
        else
            self.verDoTake(actor);     /* убедиться, что объект
                                       вообще можно брать */
    }

    verDoTakeOut(actor, io) =
    {
        if (io <> nil and not self.isIn(io))
        {
            caps(); self.thedesc; " "; self.isntdesc;
            " in "; io.thedesc; ". ";
        }
        else
            self.verDoTake(actor);     /* убедиться, что объект
                                        вообще можно брать */
    }

parseAskobjActor: function(a, v, ...)
{
    if (argcount = 3)
    {
       if (getarg(3)!=toPrep or v.type!=2) ZA(dToS(getarg(3),&sdesc));
       if (getarg(3)=onPrep or getarg(3)=thruPrep or getarg(3)=inPrep
                              or getarg(3)=atPrep) " что ";
       else  if ((getarg(3)=underPrep) or (getarg(3)=behindPrep)
               or (getarg(3)=overPrep)or (getarg(3)=betweenPrep)
               or (getarg(3)=aboutPrep)) " чем ";
       else  if (getarg(3)=goonPrep) " чему ";
       else if (getarg(3)=toPrep)
         {
          if (v.type=2) "Кому ";
           else " чему ";
         }
       else " чего ";
       if (a <> parserGetMe() or a.lico=3)
        {
         a.sdesc;" ";"долж<<ok(a,'ны','ен','но','на')>> ";
        }
        else "Вы хотите ";
        v.sdesc;" ";
        if (getarg(3)!=aboutPrep)
        {
         if (v.pred) v.pred.sdesc;
         " это?";
        }
        else (v=tellVerb)?"этому?":"этого?"; //Тоже звучит некрасиво :(
       }
    else
    {
        ZA(dToS(v,&vopr));
        if (a <> parserGetMe() or a.lico=3) 
         {
          a.sdesc;" ";"долж<<ok(a,'ны','ен','но','на')>> ";
         }
         else "<<parserGetMe().sdesc>> хо<<
         (parserGetMe().isThem)?"тите":"чешь">> ";"<<v.sdesc>>?";
    }
}