/* -*- LPC -*- */
/*
* $Locker: $
* $Id: wall.c,v 1.6 2002/06/10 15:30:28 vashti Exp $
*
* $Log: wall.c,v $
* Revision 1.6 2002/06/10 15:30:28 vashti
* Added the "no_drop" option.
*
* Revision 1.5 2002/06/10 00:57:05 vashti
* Added the "ghost_action" option.
*
*/
/**
* This is a wall object. It is added to rooms when you use the set_wall()
* function to add a climbable wall exit to a room. If you wish to have
* players climb somewhere this is the preferred method to use.
*
* @author Deutha
* @see climb
* @see /std/room.c
* @see /std/rooftop.c
*/
string *belows, death_mess, old_here;
mixed *bottom, *moves;
mixed ghost_action;
int no_drop;
object room;
/**
* @ignore yes
*/
void create() {
belows = ({ });
bottom = 0;
ghost_action = 0;
moves = ({ });
no_drop = 0;
death_mess = 0;
} /* create() */
/**
* @ignore yes
*/
void setup_shadow( object thing ) {
shadow( thing, 1 );
room = thing;
} /* setup_shadow() */
/**
* @ignore yes
*/
void destruct_shadow( object thing ) {
if ( thing == this_object() )
destruct( this_object() );
else
thing->destruct_shadow( thing );
} /* destruct_shadow() */
string *query_belows() { return copy( belows ); }
mixed *query_bottom() { return copy( bottom ); }
mixed query_ghost_action() { return copy( ghost_action ); }
mixed *query_moves() { return copy( moves ); }
int query_no_drop() { return copy( no_drop ); }
string query_death_mess() { return death_mess; }
int query_at_bottom() { return !bottom; }
mixed *query_move( string word ) {
int i;
i = member_array( word, moves );
if ( i == -1 )
return 0;
return moves[ i + 1 .. i + 3 ];
} /* query_move() */
void calc_co_ord() {
int i, delta, *co_ord;
string word, other;
room->calc_co_ord();
if ( co_ord )
return;
foreach ( word in ({ "down", "up" }) ) {
i = member_array( word, moves );
if ( i == -1 )
continue;
other = moves[ i + 2 ];
if ( !find_object( other ) )
continue;
co_ord = copy( (int *)other->query_co_ord() );
if ( !co_ord )
continue;
delta = (int)room->query_room_size_array()[2] +
(int)other->query_room_size_array()[2];
if ( word == "down" )
co_ord[ 2 ] += delta;
else
co_ord[ 2 ] -= delta;
room->set_co_ord( co_ord );
return;
}
} /* calc_co_ord() */
void set_wall( mixed *args ) {
int i, j;
mixed arg;
for ( i = sizeof( args ) - 2; i > -1; i -= 2 ) {
arg = args[ i + 1 ];
switch ( args[ i ] ) {
case "bottom" :
bottom = arg;
if ( ! no_drop ) {
old_here = room->query_property( "here" );
room->add_property( "here", "falling past you" );
}
break;
case "below" :
belows += arg;
break;
case "move" :
j = member_array( arg[ 0 ], moves );
if ( j == -1 )
moves += arg;
else
moves[ j + 1 .. j + 3 ] = arg[ 1 .. 3 ];
break;
case "death mess" :
case "death_mess" :
death_mess = arg;
break;
case "ghost action" :
case "ghost_action" :
ghost_action = arg;
break;
case "no drop" :
case "no_drop" :
no_drop = arg;
if ( bottom ) {
if ( old_here )
room->add_property( "here", old_here );
else
room->remove_property( "here" );
}
break;
}
}
} /* set_wall() */
/**
* @ignore yes
*/
void event_enter( object thing, string mess, object from ) {
room->event_enter( thing, mess, from );
if ( !living( thing ) && bottom && ( ! no_drop ) )
call_out( "fall_down", 0, thing );
} /* event_enter() */
void fall_down( object thing ) {
int damage;
string word;
if ( !thing )
return;
if ( environment( thing ) != room )
return;
damage = (int)room->query_room_size_array()[2];
if ( sizeof( belows ) )
foreach ( word in belows ) {
tell_room( find_object( word ), (string)thing->a_short() +
" $V$0=falls,fall$V$ past you and $V$0=is,are$V$ gone.\n" );
damage += 2 * (int)word->query_room_size_array()[2];
}
if ( stringp( bottom ) ) {
if ( living( thing ) )
thing->move_with_look( bottom,
"$N fall$s from above with a loud thump.",
"$N drop$s downwards out of sight." );
else
thing->move( bottom,
"$N fall$s from above with a loud thump.",
"$N drop$s downwards out of sight." );
return;
}
word = bottom[ 0 ];
damage += (int)word->query_room_size_array()[2];
if ( sizeof( bottom ) > 1 && stringp( bottom[ 1 ] ) )
if ( living( thing ) )
thing->move_with_look( word, call_other( word, bottom[ 1 ], thing,
room ), "$N drop$s downwards out of sight." );
else
thing->move( word, call_other( word, bottom[ 1 ], thing, room ),
"$N drop$s downwards out of sight." );
else
if ( living( thing ) ) {
thing->move_with_look( word,
"$N fall$s from above with a loud crunch.",
"$N drop$s downwards out of sight." );
damage *= bottom[ 1 ] * (int)thing->query_complete_weight();
damage /= 10000;
damage -= (int)thing->query_ac( "blunt", damage );
if ( damage > 0 ) {
if ( damage > thing->query_hp() ) {
tell_object( thing, !death_mess ? "You hit the ground "
"with a sickening crunch.\n" : death_mess );
thing->attack_by( room );
thing->adjust_hp(-damage, room);
} else {
thing->adjust_hp(-damage, room);
tell_object( thing, "Ouch, that hurt!\n" );
}
}
} else
thing->move( word,
"$N fall$s from above with a loud thump.",
"$N drop$s downwards out of sight." );
} /* fall_down() */
