void extra_create()
{ 
  set_no_teleport(1); 
  set_short( "Cellaria's dungeon, torture chamber" );
  set_long(wrap("The air here reeks with the scent of decay. Bodies have "+
  "been thrown all over, in various states of decomposition. The room is "+
  "tiled in white, and it would be pretty if not for the copious bloodstains "+
  "all over everything. It is quickly apparent where they come from: all "+
  "over the room are torture devices. Dried rivulets of blood lead from each "+
  "one to the center of the room, where a depression in the floor is "+
  "stained almost black with what must be liters of dried blood. This place "+
  "makes you sick to your stomach and you wish to leave immediately.\n"));
  set_light(-30);
  set_item_desc(([
  "bodies" : "The bodies are of all different races, but most seem to be "+
  "humans, elves, or dwarves. You wonder if they might have been Vaerlon "+
  "citizens, and what they did to deserve such a fate. Some bodies have been "+
  "so disfigured that you aren't even sure what they were in the first place. "+
  "The owner of this chamber of killing must have been cruel indeed.\n", 
  ({ "torture devices", "devices"}) : "All manner of cruel instruments adorn "+
  "the room: iron maidens, piles of thumb screws, fire pits with cold iron "+
  "brands resting in them, and others whose usage you don't even want to "+
  "guess at. You notice that next to each device, there is a small weapons "+
  "rack that looks like it would hold some sort of long, thin weapon.\n",

void create_object(void)
{
    set_short("A boathouse down by the river");
    set_long("You are in a boathouse in the village. The walls in this " +
             "house are covered with nets, lines, holders for oars and " +
             "shelves with boating equipment. There are only three walls " +
             "here, and where the east wall is supposed to be is a big " +
             "opening through which a slide leads straight down into the " +
             "river. The river flows swiftly past this point, and on the " +
             "other side you see the forest.\n");
    set_new_light(10);
    add_property("indoors");

    add_item("boathouse","You are in it. It's a house down by the river " +
             "where boats and boating equipment is kept");
    add_item("wall|walls","They are covered with various fishing equipment");
    add_item("nets","Nets hung up to dry");
    add_item("lines","Ropes and fishing lines");
    add_item("holders","Holders for oars");
    add_func_item("oars","#query_oar_taken",({
                  "Hmm, most of the oars seem to be in pretty bad shape. " +
                  "However, you do spot one oar that may be usable",
                  "The oars are in pretty bad shape, none of them are " +
                  "usable" }));

void create_object(void)
{
    set_short("Lallan the apothecary",1);
    set_long("Lallan is a man in his fifties with graying hair and blue " +
             "eyes.\n");
    set_name("apothecary");
    add_id("lallan");
    add_id("man");
    set_level(4);
    set_race("human");
    set_hp(100);
    set_al(200);
    set_gender(1);
    set_wc(6);
    set_ac(1);
    set_unarmed(1);
    add_property("no_flee");
    add_money(200 + random(200));

    load_chat(10,({ "Lallan says: Take my advice, leave while you still " +
                    "can.\n",
                    "Lallan says: If you're staying here, you'll be needing " +
                    "my wares.\n"
                  }));

void create() {
    ::create();
    set_guild("blacksails");
    set_name("Hold of the Black Trident");
    set_short("Hold of the Black Trident");
    set_long("%^BOLD%^%^BLACK%^The hold of the ship, the very bottom of the vessel. This is where all the pirate's loot is kept. Piles of gold and gems cover the floor A few chests are lined up against the wall, holding trinkets and other valubales. A large scroll has been nailed to the wall, detailing every last coin that has been put down here.%^RESET%^"
    );
    set_exits(([
	"up":BLACKSAILS"hall",
        "west":BLACKSAILS"bow",
      ]));
    set_properties(([
	"light":1,
	"night light":1,
	"no teleport":1,
	"no kill":1,
	"no bump":1,
	"no steal":1,
        "indoors":1,
      ]));
  set_smell("default", "The room smells like seawater and metal.");

  set_listen("default", "Theboards creak and groan under the pressure of the water..");
}

void create_object(void)
{
    set_short("The second floor of the sanatarium");
    set_long("You are on the second floor of the sanatarium. This is a " +
             "dark, smelly room with a small barred window on the west " +
             "wall. There is no furniture in this room, only a bed of " +
             "straw in one corner of the room. You shiver when you think " +
             "about what it would be like to get locked inside a room " +
             "like this.\n");
    set_skip_obvious(1);
    set_new_light(10);
    add_property("indoors");

    add_item("window","A small barred window overlooking the road");
    add_item("bars|bar","Strong iron bars");
    add_item("road","You look out the window, but decide that you'd get a " +
             "better look of the road if you'd go down there");
    add_item("bed","Well, it's just a heap of straw, really");
    add_item("heap|straw","A heap of straw. It's a sorry excuse for a bed");
    add_item("%|%urin|%decay|%room","BLAEH! The room reeks of urin and decay");

    (ROOM + "sanatarium4")->load_doors();
    reset(0);
}

void extra_create()
{
    set_name("glitch");
    set_race("/usr/muffins/proj/toy/wiztoy");
    add_alias("orb");
    set_short("Glitch the wiztoy");
    set_long("This is a small glowing orb, about the size of a baseball. It"+
      " seems to be made of solid ruby, and is perfetly smooth. It pulsates with a"+
      " red light and you get the feeling like it might be alive. You decide it may"+
      " be best to leave it alone.\n");
    set_natural_ac(50);
    set_type("psionic");
    set_alignment(-2000);
    set_gender("other");
    set_offensive_level(800);
    set_defensive_level(800);
    set_toughness(500);
    set_max_hp(5000);
    set_max_fatigue(5000);
    set_max_mana(5000);
    set_damage_bonus(3);


}

void extra_create()
{
    set_name( "a goblin digger" );
    add_alias( "goblin" );
    add_alias( "goblin digger" );
    add_alias( "digger" );
    set_short( "a goblin digger" );
    set_long( "This ugly goblin looks really worn out. "
      "It's dressed in just a loin cloth. It's nails are "
      "yellow with fungus, and dirt is lodged underneath them. "
      "It toils away digging for something valuable." );
    
    if( random( 2 ) )
      set_gender( "male" );
    else
     set_gender( "female" );

    set_race( "goblin" );
    set_alignment( random( -4000 ) );
    if( random( 2 ) )
        set_alignment( random(4000 ) );
    set_stat( "str", 100 + random( 100 ) );
    set_stat( "wil", 150 + random( 100 ) );
    set_stat( "int", random( 100 ) );
    set_stat( "con", 140 + random( 40 ) );
    set_skill( "dodge", 40 );
    set_proficiency( "hands", 60 );
    set_aggressive( 0 );
    switch( random( 3 ) + 1 )
    {
      case 1 : THISO->ogre(); break;
      case 2 : THISO->body(); break;
      case 3 : break;
      default : break;
    }
}

void create_object(void)
{
    set_short("A road through the forest");
    set_long("You have entered the forest again. The road continues to the " +
             "east and the road is slowly beginning to slope upwards again. " +
             "The forest is closing in to the road and the branches of the " +
             "trees are reaching out over the road. The castle is no longer " +
             "in view and you feel relieved to have escaped it's attention. " +
             "Some distance to the west is the bridge crossing the river.\n");
    set_new_light(3);

    add_item("forest","A forest of oak trees. Dark and silent around you");
    add_item("road","The road continues to the east and to the west");
    add_item("ground","The ground is beginning to slope upwards as you " +
             "approach the east side of the valley");
    add_item("side|valley","You are now on the east side of the valley");
    add_item("branch|branches","All the branches seem thick and healthy");
    add_item("trees|tree|oak|oaks","All the trees in this forest seem to " +
             "be tall, majestic oaks");
    add_item("bridge|river","It is some distance to the west");

    add_exit(ROOM + "castle_road1","west");
    add_exit(ROOM + "castle_road3","east");
}

void create_object(void)
{
    set_short("A small, round cave");
    set_long("A small, round cave with a low ceiling. It is difficult to " +
             "stand up straight in here without bumping your head. The " +
             "gray stone walls are rough, and a bit to close to each " +
             "other for you to feel completely at ease. To the northeast " +
             "is another, larger cave. A disgusting smell is coming from " +
             "that direction. South is an opening that will take you out " +
             "into the open air again. The smell and cramped nature of " +
             "this cave makes that opening look very inviting\n");
    set_new_light(0);
    add_property("indoors");
    
    add_item("cave","A small, round cave with rough stone walls, floor and " +
             "ceiling. You feel cramped in here, and you'd rather leave");
    add_item("floor|ceiling","Rough, gray stone");
    add_item("wall|walls","The rough stone walls seem to close in on " +
             "you, giving you a most unpleasant feeling");
    add_item("opening","It will take you back out into the quarry");    
    
    add_exit(ROOM + "stone_quarry","out");
    add_exit(ROOM + "dgcave_dump","northeast");
}