/* The base object for the pools that are in /domains/Standard/center * Beek - 090194 */ #include <std.h> inherit OBJECT; string adjective; string destination; get() { return 0; } create() { ::create(); set_name("pool"); set_short("an empty pool"); set_id( ({ "pool", "empty pool" }) ); set_long( "Somehow, this pool is completely empty." ); } init() { add_action("wade", "wade"); } wade(string str) { string which; if (!str || !sscanf(str, "in %s", which)) return notify_fail("Wade in what?\n"); if (which == "pool") return notify_fail("Wade in which pool?\n"); if (!id(which)) return notify_fail("You can't wade in " + which + ".\n"); if (!destination) { write("Tough to do with an empty pool.\n"); tell_room(this_object(), this_player()->query_cap_name()+" tries to wade in an empty pool.\n", this_player()); return 1; } write("You slowly wade deeper and deeper into the pool. Suddenly, the bottom disappears and you find yourself falling ....\n\n\n\n"); destination->pool_enter(); this_player()->move_player(destination, "#$N wades into the " + adjective + " pool, and disappears below the surface."); return 1; } set_adjective(string adj) { adjective = adj; set_name(adj+" pool"); set_id( ({ "pool", adj + " pool" }) ); set_short( "a " + adj + " pool" ); } set_destination(string dest) { destination = dest; } query_long() { write("As you look at the " + adjective + " pool, an image forms on the surface ...\n"); this_player()->move(destination); this_player()->describe_current_room(1); this_player()->move(environment()); return "\nbut then the image fades.\n"; }