inherit "inherit/monster";
reset(arg){
    ::reset(arg);
    if(arg) return;
    set_name("Dragonwarrior");
set_alias("warrior");
    set_short("Black Dragonwarrior");
    set_long(
      "This is a veteran fighter of the Black Dragon Army and personal Legion of\n"
      "Emperor Skullgar.  He seems to be standing at ready for a fight.\n");
    set_level(5);
    set_race("human");
    add_money(30+random(50));
    add_class("fighter");
    set_al(-500);
    set_ac(5);
    set_wc(9);
set_hp(80);
set_max_hp(80);
    load_chat(3,({"Warrior says:  You do not belong here.  Be gone.\n"}));
    load_a_chat(5,({"Warrior says:  You will pay for your insolence!\n"}));
    move_object(clone_object("/players/wrath/weap/drw_longsw.c"),this_object());
    init_command("wield longsword");
    move_object(clone_object("/players/wrath/arm/drarmor_black.c"),this_object());
    init_command("wear armour");
}