#include <mudlib.h>
inherit ROOM;

static object elf;
void make_items();

void reset(status arg) {
  reset_doors(arg);
  load_door(({
     "file",   "room/city/pub/pub",        
     "direction", "east door",
     "key id", "city key",
     "long",
          "A large wooden door with a peep hole in the center.\n",
  }));
  if(!find_living("earothas") || !elf) {
    elf = clone_object(MONSTER);
    elf -> set_name("earothas");
    elf -> set_short("Lieutenant Earothas of the city guard");
    elf -> set_long(
       "The lieutenant is a strong, sturdy elf of about 22 human years, \n"+
       "with the muscle many warriors would be jealous of. He is here   \n"+
       "to make sure that no one gets into any trouble.\n");
    elf -> set_al(1000); /* what a nice guy */
    elf -> set_race("elf");
    elf -> set_wander(75, 120);
    elf -> add_spell_immunity("charm");
    elf -> add_spell_immunity("fire");
    elf -> set_gender(1);
    elf -> load_chat(10, ({ "Earothas says: Move along quietly then.\n",
       "Earothas asks: What are you doing here, fair stranger?\n",
       "Earothas polishes his longsword.\n",
       "Earothas polishes his breastplate.\n",
       "Earothas watches your movements closely.\n",
       "Earothas says: Make no trouble while you stay in Tempus.\n",
       "Earothas says: Hello fair traveller.\n",
    }));
    elf -> load_a_chat(8,({
       "Earothas exclaims: Foul beast!\n",
       "Earothas frowns.\n",
       "Earothas you dare make me an enemy!\n",
       "Earothas says: You shall die, pittiful beast.\n",
       "Earothas defends against your blow.\n",
       "Earothas deflects your blow.\n",
       "Earothas parries your attack.\n",
    }));
    elf -> add_class("mage");
    elf -> add_class("fighter");
    elf -> load_spells(20,({ 
       "fire shield", "burning hands", "comet", "chill touch", 
       "ice storm", "stoneskin", "chain lightning", "death spell",
       "hold person", "pws", "pwk", "meteor swarm",
    }));
    elf -> set_level(30);
    elf -> set_hp(2500);
    elf -> add_money(100 + random(500));
    elf -> set_magic_resist(25 + random(50));
    elf -> set_heart_ob(this_object());
    move_object(elf, this_object());
  }
  make_items();
  if(arg) return;
  set_short("Market Street");
  set_long(
     "\tMarket Street\n"+
     "Fine grey cobblestones line the way up and down the long \n"+
     "busy market street; a place where all kinds of business  \n"+
     "takes place.  The wall of the city gardens opens at its  \n"+
     "east gate here, and the city inn stands to the east.     \n");

  set_night_desc(
     "The light from the inn shines down on the grey cobblestones \n"+
     "highlighting their excelent workmanship.\n");
  set_day_desc(
     "The street is still a little messy from last nights drinking.\n");
 
  set_night_items(({
     "light",
          "A light from one of the inn's windows",
     "window",
          "There is a woman at the window, peering out into the street",
     "woman",
          "She is very beautiful",
  }));
  set_day_items(({
     "mess",
          "A few bottles lie on the street, waiting to be cleaned up",
  }));
  set_items(({
     "cobblestone#cobblestones",
          "The cobblestones are excelently chiseled, possibly from \n"+
          "the dwarvish mines to the far north",
     "wall",
          "The walls to the city gardens are to the west",
     "inn",
          "Skandles Downfall; the city inn",
  }));
  set_weather(1,1,0);
  set_exits(({
     "room/city/market3",        "north",
     "room/city/market5",        "south",
     "room/city/garden/e_gate",  "west",
  }));
}


void monster_heart_beat() {
  int i;
  object *bandit;

  bandit = all_inventory(environment(elf));
  for(i=0; i<sizeof(bandit); i++) { /* this will be a little NPC combat fun */
    if(bandit[i] -> id("orc") && living(bandit[i])) {
      if(!bandit[i]->add_secondary_attacker(elf))
        bandit[i]->hit_player(10);
      if(!random(5))
        tell_room(environment(elf),
          "Earothas exclaims: Putrid orc!\n"); /* he hates orcs */
    }

    if(bandit[i] -> query_alignment() < -10) {
      tell_room(environment(elf), "Earothas exclaims: Evil scum!\n");
      bandit[i] -> hit_player(random(5)); /* ouch! */
    }

    if(bandit[i] ->id("corpse")) {
      tell_room(environment(elf), "Earothas takes the corpse.\n");
      move_object(bandit[i], elf);
    }
  }
}

void make_items() {
  object obj, obj2;
  
  if(!present("sword"), elf)
    move_object(clone_object("room/city/obj/lsword"),elf);
  if(!present("armour"),elf)
    move_object(clone_object("room/city/obj/plate"),elf);
  if(!present("shield"),elf) {
    obj = clone_object(ARMOUR);
    obj -> set_name("shield");
    obj -> set_type("shield");
    obj -> set_ac(2); /* because he is so tough */
    obj -> set_weight(2);
    obj -> set_value(600);
    obj -> set_short("A silver shield");
    obj -> set_long(
               "This shield bears elvish designs across its middle.\n"+
               "The crest on the front is the design of the Tempus \n"+
               "city guards.");
    move_object(obj,elf);
  }
  command("wear shield",elf);
  command("wear armour",elf);
  command("wield sword",elf);
  elf -> set_wc(30);
  elf -> set_ac(20);
}