/* Vulture race object. Made by Presto. Most of this stuff was nicked
from the chicken object, except for the parts nicked from the caterpillar,
and except for the parts Deutha put in. Well, one or two of these lines are
mine, anyway! :-b */
inherit "/std/races/bird_base";
void setup() {
set_name( "vulture" );
set_long( "A largish, rather scruffy-looking bird with an ugly, "
"featherless head and a big crooked beak.\n" );
set_desc( "a somewhat evil-looking old vulture\n" );
set_height( 40 );
set_weight( 200 );
set_stats( ({ 0, 14, -4, 2, -6 }) );
} /* 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", level / 2 );
thing->add_ac( "pierce", "pierce", level );
thing->add_ac( "sharp", "sharp", level );
} /* new_set_level() */
void set_unarmed_attacks( object thing ) {
int number;
number = (int)thing->query_skill_bonus( "fighting.combat.melee.unarmed" );
number = sqrt( number ) / 2;
thing->remove_attack( "hands" );
thing->remove_attack( "feet" );
thing->remove_attack( "beak" );
thing->remove_attack( "claws" );
thing->add_attack( "beak", 50, ({ number / 2, 2, number / 2 }),
"pierce", "unarmed", 0 );
thing->add_attack( "claws", 75, ({ number, 5, number / 2 }),
"sharp", "unarmed", 0 );
thing->set_combat_response("dodge");
} /* set_unarmed_attacks() */
void eat_bit( mixed main_bits, object corpse, object race_obj, object
eater ) {
int which_bit;
mixed *sub_bits;
object new_bit;
if( !eater )
return;
which_bit = 3 * random( sizeof( main_bits ) / 3 );
sub_bits = main_bits[ which_bit + 2 ];
if( sizeof( sub_bits ) > 3 ) {
call_out( "eat_bit", 0, race_obj->query_bit( sub_bits[ random( sizeof(
sub_bits ) - 3 ) + 3 ] ), corpse, race_obj, eater );
return;
}
if( member_array( main_bits[ which_bit ],
(mixed *)corpse->query_bits_left() ) == -1 ) {
eater->remove_property( "busy" );
return;
}
new_bit = corpse->make_bit( main_bits[which_bit] );
corpse->add_bit_gone( main_bits[ which_bit ] );
if( !( race_obj->query_eat( main_bits[ which_bit ] ) ) ) {
tell_room( environment( eater ), "The " + (string)eater->short() +
" rips " + add_a( main_bits[ which_bit ] ) + " from " +
(string)corpse->the_short() + " and drops it.\n" );
new_bit->move( environment(eater) );
eater->remove_property( "busy" );
return;
}
tell_room( environment( eater ), "The " + (string)eater->short() +
" tears " + add_a( main_bits[ which_bit ] ) + " from " +
(string)corpse->the_short() + " and begins eating.\n" );
new_bit->dest_me();
call_out( "finish_eating", 30 * sub_bits[ 1 ] +
random( 60 * sub_bits[ 1 ] ) + random( 30 ), eater );
} /* eat_bit() */
void finish_eating( object eater ) {
if( !eater )
return;
eater->remove_property( "busy", 1 );
} /* finish_eating() */
void player_heart_beat( string word, object eater ) {
int i;
object race_obj, *stuff;
if( !environment( eater ) ) return;
if( eater->query_property( "busy" ) ) return;
stuff = all_inventory( environment( eater ) ) - ({ eater });
if( !sizeof( stuff ) ) return;
for( i = 0; i < sizeof( stuff ); i++ )
if( !( stuff[ i ]->id( "corpse" ) ) ) {
stuff -= ({ stuff[ i ] });
i--;
}
if( !sizeof( stuff ) ) return;
eater->add_property( "busy", 1 );
i = random( sizeof( stuff ) );
race_obj = stuff[ i ]->query_race_ob();
call_out( "eat_bit", 0, race_obj->query_bits(), stuff[ i ], race_obj,
eater );
} /* player_heart_beat() */
