/* Wolf race object. Maniac, June 1994.
* Copied to dog race ob by Turrican for now.
* Modified to use new attacks by Ceres. */
inherit "/std/races/carnivore";
void setup() {
set_name( "dog" );
set_long( "A street dog. I wouldn't stay too near, it could bite.\n" );
set_desc( "a nasty dog" );
set_height( 50 );
set_weight( 700 );
set_stats( ({ 4, 10, -2, 6, -4 }) );
} /* setup() */
void new_set_level( mixed *args ) {
int level;
object thing;
if( sizeof(args) < 2 || !args[1] )
return;
level = args[ 0 ];
thing = args[ 1 ];
thing->add_ac( "blunt", "blunt", 40 );
thing->add_ac( "sharp", "sharp", 20 );
thing->add_ac( "pierce", "pierce", 10 );
thing->add_skill_level( "other.perception", 200 );
} /* setup() */
void set_unarmed_attacks( object thing ) {
int number;
number = (int)thing->query_skill_bonus( "fighting.combat.melee.unarmed" );
number = sqrt( number );
thing->remove_attack( "hands" );
thing->remove_attack( "feet" );
thing->remove_attack( "claws" );
thing->remove_attack( "bite" );
thing->add_attack( "claws", 100, ({ ( 3 * number ) / 2, 5, number } ),
"sharp", "unarmed", 0 );
thing->add_attack( "bite", 50, ({ 3 * number, 2, number }),
"pierce", "unarmed", 0 );
thing->tactics( "response dodge" );
} /* set_unarmed_attacks() */
