30 lines
550 B
C
30 lines
550 B
C
#include <lib.h>
|
|
|
|
inherit LIB_DAEMON;
|
|
|
|
void eventDecay();
|
|
|
|
static void create() {
|
|
daemon::create();
|
|
SetNoClean(1);
|
|
call_out("eventDecay", 30);
|
|
}
|
|
|
|
static void eventDecay() {
|
|
object *limbs;
|
|
object *corpses;
|
|
|
|
call_out("eventDecay", 30);
|
|
|
|
limbs = filter(findobs(LIB_LIMB), (: clonep($1) :) );
|
|
corpses = filter(findobs(LIB_CORPSE), (: clonep($1) :) );
|
|
|
|
corpses += find_inheritors(LIB_CORPSE);
|
|
limbs += find_inheritors(LIB_LIMB);
|
|
|
|
catch( limbs->eventDecay() );
|
|
catch( corpses->eventDecay() );
|
|
|
|
return;
|
|
}
|