/* -*- LPC -*- */
/*
* $Locker: $
* $Id: spell_effects.c,v 1.1 1998/01/06 04:39:52 ceres Exp $
* $Log: spell_effects.c,v $
* Revision 1.1 1998/01/06 04:39:52 ceres
* Initial revision
*
*/
inherit "/std/effect_shadow";
void do_spell_effects(object ob) {
mixed *bit;
int ret;
bit = arg();
if (functionp(bit)) {
ret = evaluate(bit, player, ob);
} else if (pointerp(bit)) {
ret = call_other(bit[0], bit[1], player, ob);
}
player->do_spell_effects(ob);
} /* do_spell_effects() */