ldmud-3.4.1/doc/
ldmud-3.4.1/doc/efun.de/
ldmud-3.4.1/doc/efun/
ldmud-3.4.1/doc/man/
ldmud-3.4.1/doc/other/
ldmud-3.4.1/mud/
ldmud-3.4.1/mud/heaven7/
ldmud-3.4.1/mud/lp-245/
ldmud-3.4.1/mud/lp-245/banish/
ldmud-3.4.1/mud/lp-245/doc/
ldmud-3.4.1/mud/lp-245/doc/examples/
ldmud-3.4.1/mud/lp-245/doc/sefun/
ldmud-3.4.1/mud/lp-245/log/
ldmud-3.4.1/mud/lp-245/obj/Go/
ldmud-3.4.1/mud/lp-245/players/lars/
ldmud-3.4.1/mud/lp-245/room/death/
ldmud-3.4.1/mud/lp-245/room/maze1/
ldmud-3.4.1/mud/lp-245/room/sub/
ldmud-3.4.1/mud/lp-245/secure/
ldmud-3.4.1/mud/morgengrauen/
ldmud-3.4.1/mud/morgengrauen/lib/
ldmud-3.4.1/mud/sticklib/
ldmud-3.4.1/mud/sticklib/src/
ldmud-3.4.1/mudlib/uni-crasher/
ldmud-3.4.1/pkg/
ldmud-3.4.1/pkg/debugger/
ldmud-3.4.1/pkg/diff/
ldmud-3.4.1/pkg/misc/
ldmud-3.4.1/src/autoconf/
ldmud-3.4.1/src/hosts/
ldmud-3.4.1/src/hosts/GnuWin32/
ldmud-3.4.1/src/hosts/amiga/
ldmud-3.4.1/src/hosts/win32/
ldmud-3.4.1/src/ptmalloc/
ldmud-3.4.1/src/util/
ldmud-3.4.1/src/util/erq/
ldmud-3.4.1/src/util/indent/hosts/next/
ldmud-3.4.1/src/util/xerq/
ldmud-3.4.1/src/util/xerq/lpc/
ldmud-3.4.1/src/util/xerq/lpc/www/
ldmud-3.4.1/test/t-030925/
ldmud-3.4.1/test/t-040413/
ldmud-3.4.1/test/t-041124/
#include "../std.h"

int rope;

#undef EXTRA_INIT
#define EXTRA_INIT\
    add_action("go_up", "up");

#undef EXTRA_LONG
#define EXTRA_LONG\
    if ("room/mine/tunnel3"->query_rope())\
	write("There is a rope hanging down through the hole.\n");

TWO_EXIT("room/mine/tunnel10", "west",
	 "room/mine/tunnel14", "east",
	 "Hole in ceiling",
	 "There is a big hole in the ceiling.\n", 0)

int go_up()
{
    if (!"room/mine/tunnel3"->query_rope()) {
        write("You can't go stright up with some kind of support.\n");
	return 1;
    }
    this_player()->move_player("up#room/mine/tunnel8");
    return 1;
}

int tie(string str)
{
    if (str != "ring" && str != "rings")
        return 0;
    rope = 1;
    return 1;
}

int id(string str) {
    return str == "ring" || str == "rings";
}

int untie(string str) {
    rope = 0;
    return 1;
}