ldmud-3.3.719/
ldmud-3.3.719/doc/
ldmud-3.3.719/doc/efun.de/
ldmud-3.3.719/doc/efun/
ldmud-3.3.719/doc/man/
ldmud-3.3.719/doc/other/
ldmud-3.3.719/mud/
ldmud-3.3.719/mud/heaven7/
ldmud-3.3.719/mud/lp-245/
ldmud-3.3.719/mud/lp-245/banish/
ldmud-3.3.719/mud/lp-245/doc/
ldmud-3.3.719/mud/lp-245/doc/examples/
ldmud-3.3.719/mud/lp-245/doc/sefun/
ldmud-3.3.719/mud/lp-245/log/
ldmud-3.3.719/mud/lp-245/obj/Go/
ldmud-3.3.719/mud/lp-245/players/lars/
ldmud-3.3.719/mud/lp-245/room/death/
ldmud-3.3.719/mud/lp-245/room/maze1/
ldmud-3.3.719/mud/lp-245/room/sub/
ldmud-3.3.719/mud/lp-245/secure/
ldmud-3.3.719/mud/sticklib/
ldmud-3.3.719/mud/sticklib/src/
ldmud-3.3.719/mudlib/deprecated/
ldmud-3.3.719/mudlib/uni-crasher/
ldmud-3.3.719/pkg/
ldmud-3.3.719/pkg/debugger/
ldmud-3.3.719/pkg/diff/
ldmud-3.3.719/pkg/misc/
ldmud-3.3.719/src/
ldmud-3.3.719/src/autoconf/
ldmud-3.3.719/src/ptmalloc/
ldmud-3.3.719/src/util/
ldmud-3.3.719/src/util/erq/
ldmud-3.3.719/src/util/indent/hosts/next/
ldmud-3.3.719/src/util/xerq/
ldmud-3.3.719/src/util/xerq/lpc/
ldmud-3.3.719/src/util/xerq/lpc/www/
ldmud-3.3.719/test/generic/
ldmud-3.3.719/test/inc/
ldmud-3.3.719/test/t-0000398/
ldmud-3.3.719/test/t-0000548/
ldmud-3.3.719/test/t-030925/
ldmud-3.3.719/test/t-040413/
ldmud-3.3.719/test/t-041124/
ldmud-3.3.719/test/t-language/
object listen_ob, player_ob;

void long() {
    write("A stethoscope.\n");
}

string short() {
    return "A stethoscope";
}

int id(string str) {
    return str == "stethoscope";
}

int query_weight() {
    return 1;
}

int query_value() {
    return 15;
}

void init() {
    add_action("apply", "apply");
    add_action("apply", "use");
    add_action("listen", "listen");
}

int listen(string str) {
    write("You must apply stethoscope to something.\n");
    return 1;
}

int apply(string str) {
    string what;
    object ob;

    if (!str)
	return 0;
    if (environment() != this_player()) {
	write("You must have the stethoscope on you to use it.\n");
	return 1;
    }
    if (id(str) || sscanf(str, "stethoscope to %s", what) != 1) {
	write("On what ?\n");
	return 1;
    }
    ob = present(what, this_player());
    if (!ob)
	ob = present(what, environment(this_player()));
    if (!ob)
	return 0;
    if (living(ob) || ob->use_stethoscope(this_object())) {
	write("You listen to the " + what + ".\n");
	listen_ob = ob;
	player_ob = this_player();
	set_heart_beat(1);
	return 1;
    }
    return 0;
}

/*
 * Detect if the playe leaves the object.
 */
void heart_beat() {
    if (!present(listen_ob,environment(player_ob)) ||
	environment() != player_ob) {
	listen_ob = 0;
	set_heart_beat(0);
	return;
    }
    if (living(listen_ob))
	tell_object(player_ob, "Dunk dunk\n");
}

object query_listening() {
    return listen_ob;
}

int get() {
    return 1;
}