toy (#1207)

     Maybe it's a teddy bear.

if (((length((c = callers())[1][2]) >= 5) && (c[1][2][1..5] == "@exam")) && (c[1][4] 
== $player))
    player:tell("  The @examine command is obsolete.");
    player:tell("  Try: `examine ", argstr, "'");
    kill_task(task_id());
elseif (is_clear_property(this, "description"))
    return {tostr("You see a ", this.name, ".")};
else
    return pass(@args);
endif
.