Generic person

    This object determines the behavior of people (not necessarily users).

parent located
parent container
object person

eval
    .initialize();
    .set_name("Generic person");
    .add_verb("wh?isper * to %this", 'whisper_verb, 'noremote);
.

method tell
.

method whisper_verb
    arg dummy1, message, dummy2, dummy3;
    var actor;

    actor = sender();
    if (!.local_to_environment(actor))
	throw(~perm, "Sender isn't in local environment.");
    .tell(actor.name() + " whispers, \"" + message + "\"");
    actor.tell("You whisper \"" + message + "\" to " + .name() + ".");
.