/* -*- LPC -*- */
/*
* $Locker: $
* $Id: foyer.c,v 1.11 2000/06/26 16:16:12 wyvyrn Exp $
*/
#include "path.h"
#include <library.h>
#include <config.h>
inherit "/std/room/basic_room";
inherit PATH+"common";
object womble;
string format_sign(string message);
void setup() {
add_property("no teleport", 1);
set_zone( "Newbie" );
set_short( "Discworld foyer" );
set_light( 75 );
set_long("This is a cavernous, circular room that echoes the shape of "
"the Discworld itself. At its centre is a large round table upon "
"which is what appears to be a map of Discworld, complete with "
"Great A'Tuin swimming slowly through space carrying Berilia, "
"Tubul, Great T'Phon and Jerakeen, the four giant elephants upon "
"whose shoulders the disc of the world rests. The walls are "
"decorated with murals showing scenes from the disc. Dark doorways "
"ring the perimeter of the room, leading away in all directions.\n"
"There is a large white sign on one wall labelled 'Discworld'. "
"You may 'look' at a sign or 'read' a sign.\n");
add_item(({ "map", "disc", "Disc" }), "Upon closer examination you are not "
"quite so certain that this is just a map of the Disc. "
"The detail is incredible, from the sharp spire of Cori "
"Celesti at the centre, to the surrounding Circle Sea, "
"the deserts of Klatch, the watery world of Krull, and the "
"mysterious Counterweight Continent. A spectacular rimbow "
"sparkles where the seas pour over the edge of the Disc. As "
"you study the map's details, you are sure you saw one of the "
"elephants move.");
add_item("rimbow", "It's like a rainbow except that it's caused by the "
"water pouring off the edge of the disc.");
add_item("elephant", "These are the four elephants that bear the weight"
" of the Disc.");
add_item( "table", "The table is made of a single piece of green granite, "
"heavily carved with small figures. The top of the table is "
"mostly covered by the map of Discworld, although you can see "
"a few squares of black and white marble underneath, rather "
"like a chessboard. There seems to be writing scratched into "
"one square.");
add_item(({ "writing", "words", "scratches" }), "The faint, spidery "
"writing says: \"Offler has bad breath!\".");
add_item(({ "figure", "carving" }), "The tiny, carved figures are "
"extremely detailed. You can make out what appears to be "
"some trolls, a handful of dwarfs, three witches, and what "
"surely must be the ugliest cat ever. Looking at the cat "
"carving, you are sure you catch a whiff of something vile, "
"much like fermented carpets.");
add_item("floor", "The floor is made of polished marble so smooth that "
"you can see your face in it - yeuch!");
add_item("wall", "The walls are covered in murals showing scenes from "
"the disc.");
add_item( "ceiling", "The ceiling, if there is one, disappears into the "
"lofty gloom overhead.");
add_item(({ "doorway", "door" }), "The doorways are dark, yet somehow "
"inviting. Or at least not threatening.");
add_item("mural", "On one wall there is a painting of a seedy looking inn "
"with a sign of a drum hanging outside. On another a small castle "
"set high in a mountainous region where the peaks are snow "
"capped. You can almost feel the biting wind. On another an "
"oasis in an otherwise hot, dry desert. The final one is the "
"most peculiar being a strange bone covered landscape with a "
"massive sphinx in the centre.");
add_sign("This is a simple white sign marked \"Discworld\".\n",
format_sign("This mud is based on the books written by Terry "
"Pratchett. While it is not necessary to have read "
"the Discworld books you may find it helpful for some "
"of the quests and in knowing more about the "
"characters and places in the game."),
0, ({ "sign","discworld","Discworld" }) )->add_property(
"determinate","the ");
room_chat(({60, 120, ({"There is a sound like the rattle and fall of a "
"pair of dice.",
"You hear a hushed chuckle far above your head.",
"A pleasant voice says: Another game?"
})}));
add_exit("helpme", PATH+"help", "door");
add_exit("communication", PATH +"communication", "door");
add_exit("hints", PATH +"hints", "door");
add_exit("guilds", PATH+"guilds_foyer", "door");
add_exit("commerce", PATH+"shop", "door");
add_exit("align", PATH+"align", "door");
add_exit("advancement", PATH+"advancement", "door");
add_exit("combat", PATH+"combat","door");
/*
add_alias("east", "communication");
add_alias("southeast", "hints");
add_alias("south", "guilds");
add_alias("southwest", "commerce");
add_alias("west", "align");
add_alias("northwest", "helpme");
add_alias("north", "advancement");
add_alias("northeast", "combat");
*/
/* Make it so you cannot godmother out of here */
add_property("no godmother", 1);
add_exit("out", CONFIG_START_LOCATION, "path" );
modify_exit( "out", ({ "function", "check_allow" }) );
} /* setup() */
int check_allow( string str, object ob, string special_mess ) {
if( LIBRARY->query_quest_done( ob->query_name(), "womble's brooch" ))
return 1;
tell_object( ob,
"You haven't completed the womble's quest yet.\n"
"Complete that quest and you can enter the game.\n"
"HINT: Find the womble's brooch and give it to her.\n");
return notify_fail( "" );
} /* check_allow() */
void init() {
::init();
womble = find_object( PATH +"womble" );
if ( !womble || !environment( womble ) )
( PATH +"womble" )->move( this_object(), "$N womble$s in." );
} /* init() */
/* Function to prettily format a sign. */
string format_sign(string message) {
int i;
string *bits;
string ret, bit;
bits = explode(sprintf("%-="+(SIGN_WIDTH-2)+"s", message), "\n");
ret = " ";
for(i=0; i<SIGN_WIDTH; i++)
ret += "_";
ret += "\n";
ret +=" //";
for(i=0; i<SIGN_WIDTH; i++)
ret += " ";
ret += "\\\n";
foreach(bit in bits) {
ret += " || " + bit;
for(i=sizeof(bit); i<SIGN_WIDTH-1; i++)
ret += " ";
ret += "|\n";
}
ret += " \\\\";
for(i=0; i<SIGN_WIDTH; i++)
ret += "_";
ret += "/\n";
return ret;
}
