parent $frob_class
parent $thing
object $thing_class

var $root dbref 'thing_class
var $root child_index 0
var $root fertile 1
var $root manager $thing_class
var $root owned [$thing_class]
var $root owners [$]
var $root writable []
var $root readable ['parameters, 'methods, 'code]
var $root inited 1
var $located location $nowhere
var $located obvious 1
var $described prose #[]
var $has_verbs verbs #[]
var $gendered gender $gender_neuter
var $named name ['uniq, "thing_class"]
var $named name_aliases []

method name
    arg [args];
    
    if (args && (type(args[1]) == 'dictionary))
        return (> ._name(@args) <);
    return (> pass(@args) <);
.

method namef
    arg [args];
    
    if (args && (type(args[1]) == 'dictionary))
        return (> ._namef(@args) <);
    return (> pass(@args) <);
.

method short_description
    arg [args];
    
    if (args && (type(args[1]) == 'dictionary))
        return (> ._description(@args) <);
    return (> pass(@args) <);
.

method long_description
    arg [args];
    
    if (args && (type(args[1]) == 'dictionary))
        return (> ._description(@args) <);
    return (> pass(@args) <);
.

method prose
    arg [args];
    var dict;
    
    if (args && (type(args[1]) == 'dictionary))
        return (> ._prose(@args) <);
    return (> pass(@args) <);
.

method _namef
    arg dict, [args];
    
    return (> ._name(dict, args) <);
.

method _prose
    arg dict, [args];
    
    (> .perms(sender(), 'this) <);
    return (| dict['prose] |) || "You see nothing special.";
.

method _name
    arg dict, [args];
    var name, article;
    
    (> .perms(sender(), 'this) <);
    article = [@args, 'indef][1];
    name = (| dict['name] |) || [.name(), 'prop, [.name_aliases()]];
    switch (name[2]) {
        case 'none:
            return (> .name(article) <);
        case 'uniq:
            if (article == 'indef)
                return (($string.a_or_an(name[1])) + " ") + (name[1]);
            else
                return "the " + (name[1]);
        default:
            return name[1];
    }
.

method _description
    arg dict, [args];
    
    (> .perms(sender(), 'this) <);
    return [._name(dict), @._prose(dict)];
.