parent $located_location
object $body

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

method tell
    //
.

method set_body_part
    arg part, frob, param;
    
    if (sender().has_ancestor($wearable_class))
        throw(~perm, "Sender must be $wearable_class.");
    body_parts = dict_add(body_parts, frob.new(part, param));
.

method init_body
    if (caller() != $root)
        throw(~perm, "Sender is not $root");
    body_parts = #[];
.

method body_parts
    return body_parts;
.

method namef
    arg [args];
    
    if (!args)
        args = [['name]];
    if (((args[1]) == 'nactivity) || ((args[1]) == 'titled))
        args = sublist(args, 2);
    return pass(@args);
.