// hobgoblin.c
// A moving killer monster.
// A very nasty thing, since it will seek (move around) and
// destroy (attack any living object it finds. Will eat up much CPU
// if allowed to. This is here more for demonstration than because you
// would actually want to turn one loose. But, it does die quickly, so
// if you feel you need one of these, go ahead and clone it.
// Mobydick takes responsibility for turning it loose.
// Comments on monster properties are found in /obj/foobird.c
// Mobydick, 6-16-93.

#include <mudlib.h>
inherit MONSTER ;


void create () {

	object ob1, ob2, ob3 ;

	::create() ;
	seteuid(getuid()) ;
	set ("short", "a nasty hobgoblin") ;
	set ("long", "This dirty, smelly, and impolite monster seems to be rushing about in a\nmad, mad mood.\n") ;
	set ("id", ({ "goblin", "hobgoblin" }) ) ;
	set ("aggressive", 1) ;
	set ("moving", 1) ;
	set ("speed", 6) ;
	set ("capacity", 10000) ;
	set ("max_cap", 10000) ;
	set ("max_vol", 10000) ;
	set ("volume", 10000) ;
        set ("mass", 3000) ;
        set ("bulk", 250) ;
	set_name ("hobgoblin") ;
	set ("gender", "neuter") ;
	enable_commands() ;
	ob1 = clone_object ("/obj/sword") ;
	ob1 -> move (this_object()) ;
	wield_weapon(ob1) ;
	ob2 = clone_object("/obj/shield") ;
	ob2 -> move (this_object()) ;
	equip_armor (ob2) ;
	set_living_name("hobgoblin") ;
	set ("hit_points", 10) ;
	set ("max_hp",10) ;
	set ("attack_strength", 1) ;
	set ("damage", ({ 1,4 }) ) ;
	set ("weapon_name", "paws") ;
	set ("stat/strength", 16) ;
	set ("stat/dexterity", 12) ;
	set_skill("attack", 6, "strength") ;
	set_skill("defense", 10, "dexterity") ;
	set_verbs( ({ "poke at", "swing at", "swipe at" }) ) ;
}