/* -*- lpc -*-
* The basic object for summoned/created creatures that can be ordered around.
* heavily influenced by Mithal's elementals
*/
inherit NPC_OBJ;
int turn_chance;
object my_owner;
object my_enemy;
string leave_msg;
string enter_msg;
int summoned;
int set_enemy( object enemy );
object query_owner() { return my_owner; }
object query_enemy() { return my_enemy; }
int query_turn_chance() { return turn_chance; }
void set_leave_msg( string mess ) { leave_msg = mess; }
void set_enter_msg( string mess ) { enter_msg = mess; }
void set_summoned( int summ ) { summoned = summ; }
int query_summoned() { return summoned; }
void init() {
::init();
this_player()->add_command( "help", this_object(), "<direct:living:here>" );
this_player()->add_command( "order", this_object(),
"<direct:living:here> [to] {kill|attack} <indirect:living:here>" );
this_player()->add_command( "order", this_object(),
"<direct:living:here> [to] protect <indirect:living:here>" );
this_player()->add_command( "order", this_object(),
"<direct:living:here> [to] leave" );
} /* init() */
int do_order( object *indir, string indir_match, string dir_match,
mixed *args, string pattern ) {
if ( this_player() != my_owner )
return 0;
if ( pattern == "<direct:living:here> [to] leave" ) {
my_owner->add_succeeded_mess( this_object(),
"$D smiles happily.\n", ({ }) );
tell_object( my_owner,
(string)the_short() +" tells you: Thank you.\n");
my_owner = 0;
if ( summoned ) {
call_out( "go_away", 1 );
} else {
call_out( "run_away", 1 );
}
} else if ( pattern == "<direct:living:here> [to] protect <indirect:living:here>" ) {
if ( !indir ) {
my_owner->add_failed_mess( this_object(),
"$D asks you: Who do you want me to protect?\n", ({ }) );
return 0;
}
if ( pk_check( my_owner, indir[ 0 ] ) &&
( my_owner != indir[ 0 ] ) ) {
if ( turn_chance ) {
call_out( "set_enemy", 1, my_owner );
} else {
call_out( "go_away", 1);
}
return 0;
}
tell_object( indir[ 0 ], (string)this_object()->the_short() +" tells you: "+
(string)my_owner->the_short()
+" has asked me to protect you.\n" );
tell_object( my_owner, (string)this_object()->the_short()
+" tells you: Fine.\n" );
my_owner->add_succeeded_mess( this_object(),
"$N $V $D to protect $I.\n ", ({ indir[ 0 ] }) );
do_command( "protect "+ (string)indir[ 0 ]->query_name() );
} else {
if ( !indir ) {
my_owner->add_failed_mess( this_object(),
"$D asks you: Who do you want me to kill?\n", ({ }) );
return 0;
}
if ( !set_enemy( indir[ 0 ] ) ) {
return 0;
}
if( my_owner ) {
tell_object( my_enemy, (string)the_short() +" tells you: "+
(string)my_owner->the_short()
+" has asked me to kill you.\nPrepare to die!\n" );
tell_object( my_owner, the_short() +" tells you: Fine.\n" );
}
this_player()->add_succeeded_mess( this_object(),
"$N $V $D to attack $I.\n ", ({ indir[ 0 ] }) );
}
return 1;
} /* do_order() */
int do_help( object *indir, string indir_match, string dir_match,
mixed *args, string pattern ) {
if ( this_player() != my_owner )
return 0;
this_player()->add_succeeded_mess( this_object(),
"You can \"order\" "+ the_short()
+" to kill someone or to leave.\n ", ({ }) );
return 1;
} /* do_help() */
int set_enemy( object enemy ) {
object *list;
int i;
my_enemy = enemy;
if( my_enemy == my_owner ) {
my_owner = this_object();
list = query_attacker_list();
for( i = 0; i < sizeof(list); i++ ) {
this_object()->stop_fight( list[i] );
list[ i ]->stop_fight( this_object() );
if ( !pk_check( list[ i ], my_enemy ) ) {
list[ i ]->attack_ob( my_enemy );
my_enemy->attack_ob( list[ i ] );
tell_object( list[ i ], (string)the_short()
+" tells you: I will help you fight "+
(string)my_enemy->the_short() +".\n");
}
}
} else {
if ( pk_check( my_owner, my_enemy ) ) {
if ( turn_chance )
call_out( "set_enemy", 1, my_owner );
else {
my_owner->add_failed_mess( this_object(),
"You hear a fading voice tell you: "
"Up yours stupid, I'm outahere before the sky splits...\n",
({ }));
call_out( "go_away", 0);
}
return 0;
}
}
attack_ob( my_enemy );
call_out( "move_me", 1 );
return 1;
} /* set_enemy() */
int set_owner( object owner, int time, int turn) {
if( !owner ) {
if( my_owner && summoned )
call_out( "do_leave", 1 ) ;
my_owner = 0;
add_property( "player", 0 );
return 0;
}
my_owner = owner;
add_property( "player", userp( owner ) );
turn_chance = sizeof( filter_array( children( base_name(this_object())),
(: (object)$1->query_owner() == $(owner) :) ) );
turn_chance *= turn;
if(random(100) < turn_chance)
call_out("get_uppity", 2+random(10), owner);
if ( summoned )
call_out( "do_leave", time ) ;
call_out( "move_me", 1 );
return 1;
} /* set_owner() */
void get_uppity(object owner) {
object *elementals;
if(!owner)
return;
elementals = filter_array( children(base_name(this_object())),
(: (object)$1->query_owner() == $(owner) :) );
elementals -= ({ this_object() });
if(sizeof(elementals) <= 1)
return;
tell_room(environment(owner), query_multiple_short(elementals) +
" start bickering and fighting with each other.\n" );
elementals->set_owner( 0 );
}
void event_dest_me( object ob ) {
if ( ob == my_owner )
call_out( "go_away", 0 );
if ( ob == my_enemy ) {
if ( !my_owner )
call_out( "go_away", 0 );
if ( my_enemy )
tell_object( my_owner, (string)my_enemy->the_short() +" has left DiscWorld\n" );
my_enemy = 0;
call_out( "move_me",0);
}
} /* event_dest_me() */
void event_death( object ob ) {
if ( ob == my_enemy ) {
if ( !my_owner ) call_out( "go_away", 0 );
/* call_out to prevent the monster from bragging
* before the death message */
call_out( "do_tell", 0, my_owner, query_short() +" tells you: "+
my_enemy->the_short() +" has been killed!\n");
my_enemy = 0;
call_out( "move_me", 0 );
}
} /* event_death() */
void do_tell( object ob, string str ) {
tell_object( ob, str );
} /* do_tell() */
void move_me() {
if ( my_enemy ) {
if ( environment() == environment( my_enemy ) )
return;
move( environment( my_enemy ), enter_msg, leave_msg );
tell_object( my_enemy, the_short() +" says: You cannot escape me!\n" );
return;
}
if ( my_owner ) {
if ( environment() == environment( my_owner ) )
return;
move( environment( my_owner ), enter_msg, leave_msg );
do_command( "protect "+ (string)my_owner->query_name() );
do_command( "follow "+ (string)my_owner->query_name() );
return;
}
if ( summoned )
call_out( "go_away", 0 );
else
call_out( "run_away", 1 );
} /* move_me() */
int do_leave() {
if ( my_owner ) {
tell_object( my_owner, the_short()
+" tells you: It is time for me to leave.\n" );
say( the_short() +" smiles happily.\n" );
}
call_out( "go_away", 2 );
return 1;
} /* do_leave() */
/**************************** ATTACK / COMBAT ***************/
void attack_wildly() {
object *others, here;
string me;
int i;
here = environment();
if ( !here )
return;
me = explode( file_name( this_object() ), "#" )[ 0 ];
others = all_inventory( here );
i = sizeof( others );
while ( i-- ) {
if ( !living( others[ i ] ) ||
explode( file_name( others[ i ] ), "#" )[ 0 ] != me )
others -= ({ others[ i ] });
}
if ( !sizeof( others ) )
call_out( "go_away", 1 );
set_enemy( others[ random( sizeof( others ) ) ] );
} /* attack_wildly() */
int attack_by( object ob ) {
if ( summoned && !my_owner ) {
say( the_short() +" says: I will not fight without an owner!\n");
call_out( "go_away", 1 );
return 1;
}
if ( interactive( my_owner ) ) {
if ( ob == my_owner ) {
tell_object( my_owner, the_short() +" tells you: "
"I do not wish to kill you.\n" );
call_out( "go_away", 0 );
return 1;
}
if ( ( my_owner != ob ) && pk_check( my_owner, ob ) ) {
tell_object( my_owner, the_short() +" tells you: "
"This is too confusing.\n");
if ( random( 100 ) < ( turn_chance / 5 ) ) {
attack_wildly();
return 1;
}
if ( summoned ) {
call_out( "go_away", 1 );
return 1;
}
}
if ( random( 100 ) < ( turn_chance / 5 ) ) {
attack_wildly();
return 1;
}
}
return ::attack_by( ob );
} /* attack_by() */
void event_exit( object ob, string s, object from ) {
if( ob != my_owner && ob != my_enemy ) return;
call_out( "move_me", 1 );
}
void go_away() {
move( "/room/rubbish", "", leave_msg );
} /* dest_me() */
int second_life() {
my_enemy = 0;
my_owner = 0;
go_away();
return 1;
}
int query_death_xp() {
return 0;
} /* query_death_xp() */
