#include <mudlib.h>
inherit MONSTER;

static object bag, fruit;
static int i;
void reset(status arg) {

  ::reset(arg);
  if(arg) return;

  set_name("merchant");
  set_race("orc");
  set_short("An orc merchant");
  set_long(
     "This orc is attempting to fit into normal society, tsking his \n"+
     "wares to the local market place to sell there.\n");
  set_level(3);
  set_hp(50 + random(15)); /* bit of randomness */
  add_money(5 + random(35));
  set_gender(1);
  set_al(100);   /* yes an honest orc */
  set_ac(4);
  set_wc(6);
  add_class("cleric");
  load_spells(10, ({ "cure wounds", }));   /* so he can heal himself */
  
  bag = clone_object(CONTAINER);
  bag -> set_name("bag");
  bag -> set_short("A bag");
  bag -> set_weight(1);
  bag -> set_value(10);
  move_object(bag, this_object());

  for(i=0; i<3; i++) {
    fruit = clone_object(FOOD);
    fruit -> set_name("berries");
    fruit -> set_strength(2);
    fruit -> set_value(10);
    fruit -> set_weight(1);
    fruit -> set_eater_mess("Yuck! Only an orc could love such a fruit!\n");
    fruit -> set_short("A cluster of Bha-ghakan berries");
    fruit -> set_long("This fruit bears a resemblance to putrified berries.\n"+
                    "Apparently it is an orcish delicasy.\n");
    move_object(fruit, bag);
  }

  set_heart_ob(this_object());

  load_chat(6, ({ "Orc says: Hullo there.\n",
     "Orc asks: Do you know the way to the markets?\n",
     "Orc looks about himself.\n",
     "Orc asks: There arn't any bandits here are there?\n",
     "Orc smiles happily.\n",
     "Orc smiles sadly.\n",
     "Orc shakes you hand.\n",
     "Orc whistles a merry tune.\n"
  }));

  load_a_chat(5, ({ "Orc shouts: Help! Thief! Assassin! Murderer!\n",
     "Orc exclaims: You criminal!\n",
     "Orc bursts into tears.\n",
     "Orc says: Why attack a poor honest merchant?\n",
     "Orc says: Please dont hurt me.\n"
  }));
  load_l_chat(9, "orc", ({ "You haven't seen the bandits have you friend?",
     "I wish the bendits would leave us poor honest merchants alone",
     "I hear the bandits congregate to train under the city somewhere",
     "Someone told me to look in Skandles Downfall, the local pub" }));
}

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

  bandit = all_inventory(environment());

  for(i=0; i<sizeof(bandit); i++) { /* this will be a little NPC combat fun */
    if(bandit[i] -> id("bandit") && living(bandit[i])) {
      bandit[i] -> hit_player(0);
      tell_room(environment(),
          "Orc shouts: Help! Stay away you bandit, robber, thief!\n");
    }

    if(bandit[i] ->id("corpse")) {
      tell_room(environment(), "Orc takes corpse.\n");
      move_object(present("corpse"), this_object());
    }
  }
}

void catch_tell(string str) {
  string tmp1, tmp2;
  if(sscanf(str, "%s says: hullo%s\n", tmp1, tmp2)) {
      tell_room(environment(), "Orc says: Hullo "+ tmp1 +".\n");
  }
  if(sscanf(str, "%s leaves %s\n", tmp1, tmp2))
    command(tmp2, this_object());
}