#include <mudlib.h> #define YOUR_CLIMB random((int)this_player()->query_climb()) #define CLIMB_CHANCE (random(6)+1) /* 1 to 6 */ #define NAME (string)this_player()->query_name() inherit ROOM; void reset(status arg) { if(arg) return; set_short("Skol island"); set_long( "A wreck of a ship lies here against the shore, while the waves \n"+ "crash against it, eroding and decaying it further. The beach \n"+ "makes its way back down the coast of skol island to the east. \n"); set_weather(1, 4, 6); set_exits(({ "room/island/beach5", "east", })); set_listen("You hear the soothing sounds of the waves against the wreck.\n"); set_smell("Sea salt is strong in the air here.\n"); set_items(({ "sand", "Soft, yellow sand. It feels wonderful beneath your feet", "beach", "A small beach which extends down the coast of the island", "waves#wave", "Strong waves crash against the hull of the wreck", "wreck", "A tall sailing ship which must have come to rest here after \n"+ "some stormy sea years and years ago. Now, it is a simple wreck", "hull", "As the waves crash against the hull of the wreck you notice \n"+ "a hole in its side. Perhaps you could enter inside?", })); set_search_array(({ "sand#beach", "All you find is sand. Did you expect to find anything else?\n", "wreck#hull", "You won't find anything from here!\n", })); } void init() { ::init(); add_action("enter", "enter"); } status enter(string str) { if(!str) { write("Enter what?\n"); return 1; } if(str != "hole" && str != "wreck" && str != "hull") return 0; if(CLIMB_CHANCE >YOUR_CLIMB) { write( "You don't seem to be skilled enough in climbing to \n"+ "climb up into the hole, and slide back down.\n"); say(NAME+" tries to climb into the wrecks hull, but slides back down.\n", this_player()); return 1; } if(!this_player()->add_weight(5)) { write("You can't fit through the breach in the hull.\n"+ "Perhaps you're carrying too much?\n"); return 1; } write("You wriggle through the breach in the hull.\n"); this_player()->move_player("into the breach in the hull#room/island/wreck1"); return 1; }