inherit "/std/vendor";

create() {
    ::create();
   set_name("horace");
   set_id( ({ "horace", "vendor", "shop keeper", "keeper", "shopkeeper", "nerd" }) );
    set_short("Horace, the shop keeper of the adventurer's supply shop");
   set_aggressive( 0);
  set_level(12);
    set_long("He buys and sells goods for adventuring.\n"+
	"<help shop> will get you a list of shop commands.\n");
    set_languages( ({ "eltherian" }) );
   set_gender("male");
   set_alignment(40);
   set_race( "elf");
   set_hp(480);
   add_money("electrum", random(200));
    set_body_type("human");
    set_currency("electrum");
    set_item_types("treasure");
    set_storage_room("/domains/Praxis/storage");
   set_skill("melee",100);
    set_skill("bargaining", 150);
    set_property("no bump", 1);
}

int is_invincible() {
    set_sp(query_max_sp());
    this_object()->force_me("shout in eltherian Help!! I am being attacked by "+
      (string)previous_object()->query_cap_name());
    return 0;
}