ldmud-3.2.9/doc/
ldmud-3.2.9/doc/efun/
ldmud-3.2.9/mud/
ldmud-3.2.9/mud/heaven7/
ldmud-3.2.9/mud/heaven7/lib/
ldmud-3.2.9/mud/lp-245/
ldmud-3.2.9/mud/lp-245/banish/
ldmud-3.2.9/mud/lp-245/doc/
ldmud-3.2.9/mud/lp-245/doc/examples/
ldmud-3.2.9/mud/lp-245/doc/sefun/
ldmud-3.2.9/mud/lp-245/log/
ldmud-3.2.9/mud/lp-245/obj/Go/
ldmud-3.2.9/mud/lp-245/players/lars/
ldmud-3.2.9/mud/lp-245/room/death/
ldmud-3.2.9/mud/lp-245/room/maze1/
ldmud-3.2.9/mud/lp-245/room/sub/
ldmud-3.2.9/mud/lp-245/secure/
ldmud-3.2.9/mud/morgengrauen/
ldmud-3.2.9/mud/morgengrauen/lib/
ldmud-3.2.9/mud/sticklib/
ldmud-3.2.9/mud/sticklib/src/
ldmud-3.2.9/mudlib/uni-crasher/
ldmud-3.2.9/pkg/
ldmud-3.2.9/pkg/debugger/
ldmud-3.2.9/pkg/diff/
ldmud-3.2.9/pkg/misc/
ldmud-3.2.9/src/autoconf/
ldmud-3.2.9/src/bugs/
ldmud-3.2.9/src/bugs/MudCompress/
ldmud-3.2.9/src/bugs/b-020916-files/
ldmud-3.2.9/src/bugs/doomdark/
ldmud-3.2.9/src/bugs/ferrycode/ferry/
ldmud-3.2.9/src/bugs/ferrycode/obj/
ldmud-3.2.9/src/bugs/psql/
ldmud-3.2.9/src/done/
ldmud-3.2.9/src/done/order_alist/
ldmud-3.2.9/src/done/order_alist/obj/
ldmud-3.2.9/src/done/order_alist/room/
ldmud-3.2.9/src/gcc/
ldmud-3.2.9/src/gcc/2.7.0/
ldmud-3.2.9/src/gcc/2.7.1/
ldmud-3.2.9/src/hosts/
ldmud-3.2.9/src/hosts/GnuWin32/
ldmud-3.2.9/src/hosts/amiga/NetIncl/
ldmud-3.2.9/src/hosts/amiga/NetIncl/netinet/
ldmud-3.2.9/src/hosts/amiga/NetIncl/sys/
ldmud-3.2.9/src/hosts/i386/
ldmud-3.2.9/src/hosts/msdos/byacc/
ldmud-3.2.9/src/hosts/msdos/doc/
ldmud-3.2.9/src/hosts/os2/
ldmud-3.2.9/src/hosts/win32/
ldmud-3.2.9/src/util/
ldmud-3.2.9/src/util/erq/
ldmud-3.2.9/src/util/indent/hosts/next/
ldmud-3.2.9/src/util/xerq/
ldmud-3.2.9/src/util/xerq/lpc/
ldmud-3.2.9/src/util/xerq/lpc/www/
#include "../std.h"

int west_door_open;

#undef EXTRA_RESET
#define EXTRA_RESET\
    west_door_open = 1;

#undef EXTRA_MOVE1
#define EXTRA_MOVE1\
    if (west_door_open == 1) {\
	write("The door is closed.\n");\
	return 1;\
    }

#undef EXTRA_MOVE2
#define EXTRA_MOVE2\
    if (west_door_open == 0) {\
	write("The door is closed.\n");\
	return 1;\
    }

#undef EXTRA_INIT
#define EXTRA_INIT\
    add_action("open", "close");\
    add_action("close", "close");

TWO_EXIT("room/well", "east",
	 "room/sub/after_trap", "west",
	 "Room with black walls",
	 "A room with black walls. There is a door to the east,\n" +
	 "and a door to the west.\n", 0)

open(str) {
    if (str != "door" && str != "west door" && str != "east door")
	return 0;
    write("There is no handle, and you can't push it up.\n");
    return 1;
}

close(str) {
    if (str != "door" && str != "west door" && str != "east door")
	return 0;
    write("There is no handle, and you can't push it closed.\n");
    return 1;
}

toggle_door() {
    write("You move the lever.\n");
    say(this_player()->query_name() + " pulled the lever.\n");
    if (west_door_open) {
	tell_room(this_object(), "The west door closed.\n" +
	    "The east door opened.\n");
	tell_room(environment(this_player()), "The west door opened.\n");
	west_door_open = 0;
    } else {
	tell_room(this_object(), "The west door opens.\n" +
	    "The east door closed.\n");
	tell_room(environment(this_player()), "The west door closed.\n");
	west_door_open = 1;
    }
}

query_west_door() {
    return west_door_open;
}