mud/
mud/2.4.5/dgd/include/
mud/2.4.5/dgd/std/
mud/2.4.5/dgd/sys/
mud/2.4.5/doc/
mud/2.4.5/doc/examples/
mud/2.4.5/log/
mud/2.4.5/obj/Go/
mud/2.4.5/players/
mud/2.4.5/players/lars/
mud/2.4.5/room/death/
mud/2.4.5/room/maze1/
mud/2.4.5/room/post_dir/
mud/2.4.5/room/sub/
int gived;

id(str) {
    return str == "stone" || str == "black stone";
}

short() {
    return "A black stone";
}

long() {
    write("The stone is completely black, and feels warm to the touch.\n");
    write("There seems to be somthing magic with it.\n");
}

query_weight() { return 1; }

/* Prevent giving away this object */
drop() {
    gived += 1;
    if (gived == 2)
	return 1;
    else
	return 0;
}

get() { return 1; }

init() {
    add_action("list_peoples", "people");
    add_action("list_files", "ls");
    add_action("cat_file", "cat");
    add_action("drop_object", "drop");
}

list_files(path)
{
    ls(path);
    return 1;
}

cat_file(path)
{
    if (!path)
	return 0;
    cat(path);
    return 1;
}

list_peoples() {
    people();
    return 1;
}

drop_object(str) {
    if (str == "all") {
	drop_object("black stone");
	return 0;
    }
    if (!str || !id(str))
	return 0;
    write("The stone dissapears.\n");
    say(call_other(this_player(), "query_name") + " drops a black stone. It dissapears.\n");
    call_other(this_player(), "add_weight", -1);
    destruct(this_object());
    return 1;
}