// A test monster. It heals itself all the time. It's not dangerous but it
// can be kinda hard to kill.
// Mobydick, 10-7-92.

#include <mudlib.h>
#include <money.h>

inherit MONSTER ;

void create () {

	object money ;

	::create();
	seteuid(getuid()) ;
	set ("short", "a hypochondriac orc") ;
	set("long", "This orc thinks it always needs to be healed.\n") ;
	set ("id", ({ "orc", "hypochondriac" }) ) ;
	set ("mass", 3000) ;
	set ("bulk", 250) ;
	set ("capacity", 10000) ;
	set ("volume", 10000) ;
	set ("max_cap", 10000) ;
	set ("max_vol", 10000) ;
	set_name("orc") ;
	enable_commands() ;
	set_living_name("orc") ;
	set ("gender", "male") ;
	set ("hit_points", 18) ;
	set ("armor_class", 0) ;
	set ("max_hp",18) ;
	set ("attack_strength", 5) ;
	set ("damage", ({ 2,7 }) ) ;
	set ("weapon_name", "fists") ;
	set ("stat/strength", 4) ;
	set ("stat/dexterity", 6) ;
	set_skill("attack", 3, "strength") ;
	set_skill("defense", 8, "dexterity") ;
	set_verbs( ({ "poke at", "hide behind", "pummel" }) ) ;
	spell_cast("heal",95) ;
	money = clone_object(COINS) ;
	money->set_type("gold") ;
	money->set_number(25) ;
	money->move(this_object()) ;
}