void extra_create()
{
    set_name("pamela");
    add_alias("pam");
    set_short(SHORT);
    set("sdesc", SHORT);
    set_long("DOH!  What you are looking at probably has to "
          "be the finest specimen of human anatomy ever "
           "created.  Everything is in the right proportion "
           "and she knows how to use it.  The fact that she is "
           "naked almost drives you crazy, and you feel a "
           "sudden urge to stare at her.\n");
    set_race("human");
    set_gender("female");
    set_stat("str",120);
    set_stat("int",20);
    set_stat("wil",100);
    set_stat("con",250);
    set_stat("dex",100);
    set_stat("chr",300);
    set_proficiency("hands", 10 + random(5));
    set_aggressive(0);
    set_alignment("neutral");
    set_natural_ac(2);            //Silicone implants
    set(MonsterP, 1);
    set_chat_chance(95);
    set_chat_rate(random(10)+60);
    add_phrase("Pamela giggles.\n");
    add_phrase("Pamela wonders where the beach is.\n");
    add_phrase("Pamela looks at you.\n");
}

void create_object(void)
{
  set_name("andalf");
  add_id("fisherman");
  add_id("man");
  set_short("Andalf the Fisherman, sitting on a bench");
  set_level(4);
  set_hp(150);
  set_wc(5);
  set_new_ac(10);
  set_skill("combat",30);
  set_skill("unarmed",30);
  set_al(20);
  set_gender(1);
  set_race("human");
  set_long("This is Andalf the old fisherman of Newbie Island. He looks "+
           "just as old and grumpy as every other fisherman you will come "+
           "across in the kingdoms. He sure looks as if he could tell some "+
           "tales about fishing, though. Perhaps if you asked him about "+
           "fishing, he would tell you a fish tale?\n");

  load_chat(5,({"Andalf grumbles: Damn I'm sick of this island.\n",
                "Andalf grumbles: The most important thing for a fisherman "+
                "is the ability to tell a damn fish tale.\n",
                "Andalf grumbles something incomprehensible.\n",
                "Andalf grumbles: You can raise yer damn lore skill here.\n"
                }));

void configure() {
    ::configure();
    set_culture("Losthavener");
    set_race("phaethon");
    set_sex(Sex_Male);
    set_level(20);
    set_culture_name(({ "Agin", "Dragonclaw" }));

void configure() {
    ::configure();
    set_culture("Losthavener");
    set_race("dana");
    set_sex(Sex_Female);
    set_level(40);
    set_culture_name(({ "Auriel", "Tianamen" }));

set_guild(string hmm) {
  guild = hmm;
  name = RAND->gimme_a_male_name();
  set_name(name);
  set_short(CAP(name)+" the bartender");
  set_long(CAP(name)+" is the new bartender of the "+CAP(guild)+"'s Tavern.\n");
  set_level(1);
  set_alias("bartender");
  set_alt_name("std_bartender");
  set_gender(1);
  set_race("human");
  set_hp(50);
  set_al(0);
  set_wc(50);
  set_new_ac(9);
  set_skill("combat", 9);
  set_skill("unarmed", 9);
  set_skill("perception", 5);
  set_skill("resist", 5);
  add_money(25);
  load_chat(1, 
    ({
      CAP(name) + " says: I don't know what to say?\n",
      CAP(name) + " asks: Want some more alcohol?\n",
      CAP(name) + " says: Alcohol makes people smarter.\n",
      CAP(name) + " asks: Who needs brain cells?\n",
    })
  );

void create_object(void)
{
    set_short("Captain Hilary Rosen",1);
    set_long("Hilary is the captain of the Riaa. She rules it with an " +
             "iron hand. She has made it her mission in life to end piracy " +
             "and protect the bards who trust the Riaa to distribute " +
             "their goods around the world. She's not doing very well " +
             "at this particular moment.\n");
    set_name("hilary");
    add_id("captain"); //Added by Angelwings
    add_id("captain hilary");
    add_id("captain hilary rosen");
    add_id("hilary rosen");

    set_level(2);
    set_race("human");
    set_hp(80 + random(25));
    set_al(0);
    add_money(100 + random(20));
    set_gender(2);
    set_skill("combat",20 + random(10));

    make(PCWEAPON + "sword");
    make(PCARMOUR + "leather_armour");
    init_command("wield sword");
    init_command("wear armour");

    load_chat(10,({
        "Hilary says: Sign on to my crew and I'll make you rich and famous.\n",
        "Hilary says: All I do, I do for the bards.\n",
    }));

void create_object(void)
{
    set_short("Dithe the pirate shopkeeper",1);
    set_long("Dithe is a drunken slob of a shopkeeper. You feel your " +
             "trading skill increase every time he stumbles or bumps " +
             "into a shelf as he tries to move around his shop.\n");
    set_name("dithe");
    add_id("man");
    add_id("shopkeeper");
    add_id("dithe the shopkeeper");
    set_level(2);
    set_race("human");
    set_hp(80);
    set_al(0);
    set_gender(1);
    set_wc(1);
    set_ac(0);
    add_money(200);

    load_chat(1,({ "Dithe stumbles.\n",
                   "Dithe bumps into a shelf.\n",
                   "Dithe takes a small bottle from a pocket and drinks " +
                   "from it when he thinks you're not looking.\n",
                   "Dithe mumbles something incomprehensible.\n"
                 }));

void setup() {
   object obj;

   set_name("shayman");
   set_gender( "female" );
   add_adj("orc");
   add_ids("orc", "orc shayman");
   set_short("Orc shayman");
   set_long("An ugly orc shayman.  This thing looks wilder than your average " +
      "orc.");
   set_race("orc");
   set_level(10);
   set_aggressive(1);

   set_spell_chance(20);
   set_spell_damage(20);
   set_spell_message("The shayman casts a magic missile at $t.");

   set_hit_skill("combat/unarmed");
   set_skill("combat/unarmed", 50);
   set_skill("combat/defense", 100);

   obj = clone_object(DIR + "/obj/gold_staff.c");
   obj->setup();
   obj->move(this_object());
   obj = clone_object(DIR + "/obj/orc_slayer.c");
   obj->setup();
   obj->move(this_object());
   do_wield(obj);
}

void reset(int arg) {
  ::reset(arg);
  if( !arg ) {
    object crown;

    set_name("frog");
    set_alias("toad");
    set_short("a frog");
    set_long("It is your typical frog: small, green, and warty.  However,\n"+
	"perched atop its head is a tiny crown.  Perhaps it is a prince\n"+
	"or princess enchanted by some witch?\n");
    set_race("frog");
    set_level(1);
    set_frog(1);
    set_wc(4);

    crown = clone_object("/std/simple_armour");
    crown->set_name("crown");
    crown->add_alias("iron crown");
    crown->set_short("An iron crown");
    crown->set_long("Actually, it is made of iron and seems to only be "+
	"painted gold.\nIt is tiny and would barely fit you.\n");
    crown->set_class(1);
    crown->set_weight(2);
    crown->set_type("helmet"); /* Added by Banshee. 960118 */
    crown->set_value(18);
    move_object(crown, this_object());
    command("wear crown");
  }
}

void extra_create()
{
    set_name( "a beholder" );
    add_alias( "beholder" );
    set_short( "a beholder" );
    set_long( "This is a beholder. It is essentially a floating head "
      "with one single, cyclops-like eye surrounded by ten smaller eye "
      "stalks. Its massive, gaping maw is set in a permanent grin. "
      "It looks like a sphere covered in eyes, with extra eyes "
      "growing out of it. Little eye sprouts if you will." );
    set_gender( "unknown" );
    set_race( MON "beholder_race" );
    //set_guild()
    //set_specialization
    set_skill( "dodge", 50 );
    set_alignment( -4000 );
    set_stat( "str", random( 5000 ) );
    set_stat( "con", random( 5000 ) );
    set_proficiency( "hands", 50 );
    set_move_rate( 60 );
    set_move_chance( 50 );
    set_aggressive( 3 );
    add_combat_message( "smack", "smacks" );
    add_combat_message( "slup", "slurps" );
    add_combat_message( "grab", "grabs" );
    set_type( "blunt" );
    set_hit_bonus( 2 ); //So many eyes.
    set_heal_rate( 30 );
    set_heal_amount( random( THISO->query_max_hp() ) - random( 300 ) );
    set_natural_ac( 5 );
    set( "loot", 1 );
    add_money( random( 1000 ) );
    add_special_attack( "blastem", THISO, 10 );
}

void extra_create()
{
    set_name("ivy");
    add_alias("ivy");
    set_short("The Archive");


    set_long("some generic long");


    set_race("human");
    set_alignment("good");
    set_stat("str",15);
    set_stat("dex",15);
    set_stat("con",45+random(15));

    set_stat("int",275);
    set_stat("chr",15);
    set_stat("wil",15);
    set_skill("dodge", 15);
    set_percent_bonus_exp(10);
    set_max_damage(8);
    set_natural_ac(2);
    set_chat_chance(30);
    set_chat_rate(1);
    add_phrase("The ice around The Archive sweats.\n");
}

void create_object(void)
{
    set_short("Ferdirand Bumbleroot",1);
    set_long("Ferdirand Bumbleroot is a hobbit who operates the farm " +
             "that provides Hazeldown with most of the town's food. As " +
             "the major provider of such things, he's held in high regard " +
             "in the town. It is well deserved since he's good at what he " +
             "does. However, he currently has a problem with his farm. " +
             "Maybe he'd tell you about it if you would let him know " +
             "you're willing to <help> him with it?\n");
    set_name("ferdirand");
    add_id("ferdirand bumbleroot");
    add_id("hobbit");
    add_id("farmer");

    set_level(4);
    set_race("hobbit");
    set_al(300);
    add_money(100 + random(20));
    set_gender(1);

    load_chat(5,({
        "Ferdirand ponders deeply.\n",
        "Ferdirand mumbles: Everything must be perfect before Weeangel " +
        "gets here.\n",
        "Ferdirand says: Those damn crows...\n",
        "Ferdirand scratches his head.\n"
    }));

void configure() {
    ::configure();
    set_culture("Losthavener");
    set_race("thond");
    set_sex(Sex_Male);
    set_level(40);
    set_culture_name("Primbal" );
    set_alignment(({ 0, 0 }));

void configure() {
    ::configure();
    set_culture("Losthavener");
    set_race("human");
    set_sex(Sex_Male);
    set_level(15);
    set_culture_name("Darron");
    set_alignment(({ 0, 0 }));

void configure() {
    ::configure();
    set_culture("Losthavener");
    set_race("thond");
    set_sex(Sex_Male);
    set_level(40);
    set_culture_name("Dris", False, "Sergeant");
    set_alignment(({ 0, 0 }));

void configure() {
    ::configure();
    set_culture("Losthavener");
    set_race("lothar");
    set_sex(Sex_Male);
    set_level(50);
    set_culture_name("Drak");
    set_title("the bouncer");
    set_alignment(({ 0, 0 }));

void create()
{
 ::create();
set_name("minorra");
set_short("Minorra");
set_long("Minorra sells oils and different healing aids.");
set_race("gnoll");
set_gender("female");
set_id(({"minorra", "gnoll", "owner"}));

void setup(void) {
   set_name("rat");

   set_short("A small filthy rat");
   set_long("The rat smells awful.");

   set_race("rodent");
   set_level(1);
}

void setup(void) {
   set_race("gnome");
   set_name("bard");
   set_short("A bard");
   set_long("The bard is wearing brightly colored clothes " +
      "and is often the first to die.");
   set_level(1);
   set_max_hp(10);
   set_hp(10);
}