/* Filename : shore_w.c * Description : the shore of the lake - but how to cross it? * * written : 23-12-1996 - Gunner * last modified : 28-05-1998 - Gunner * HTML-Version : 06-02-2000 - Ghorwin */ #include <mudlib.h> inherit I_ROOM; #define FUNC "/doc/crashcourse/course11/shorefuncs" create() { ::create(); set_light(1); set_short("By the lake"); set_long("You are standing on the western shore of the lake. There's " "not much to see here, except the lake in front of you and " "the hill to the west.\n"); add_item(({"shore","western shore"}),"You're standing on it.\n"); add_item("hill","You can see the hill to the west of here.\n"); add_item(({"lake","frozen lake"}), "The lake is frozen solid. If you want to cross it, you'd " "better wait for the spring to defrost it, because there's " "no way you would survive a walk across it, without falling " "through and drowning.\n"); add_item("ice","There sure is a lot of it.\n"); add_item("sky","Give it a rest, will you? It's still up there.\n"); add_item("ground","You still expecting for it to vanish beneath you?\n"); add_property(({"cold","icy_lake","no_teleport"})); add_exit("./hill","west"); add_trigger("swim",(:call_other,FUNC,"lake_swim",this_object():)); add_hook("__enter_inv",({FUNC,"lake_enter"}),this_object()); replace_program(I_ROOM); }