/* -*- LPC -*- */
/*
* $Locker: $
* $Id: death.c,v 1.1 1998/01/06 04:39:52 ceres Exp $
* $Log: death.c,v $
* Revision 1.1 1998/01/06 04:39:52 ceres
* Initial revision
*
*/
inherit "/std/effect_shadow";
int second_life() {
mixed *bit;
int ret;
bit = arg();
if (functionp(bit)) {
ret = evaluate(bit, player);
} else if (pointerp(bit)) {
ret = call_other(bit[0], bit[1], player);
}
if (!pointerp(bit) || sizeof(bit) < 3 || !bit[2]) {
ret = player->second_life();
}
remove_this_effect();
return ret;
} /* second_life() */
