/* -*- LPC -*- */ /* * $Locker: $ * $Id: magic_octogram.c,v 1.1 1998/01/06 04:15:00 ceres Exp $ * $Log: magic_octogram.c,v $ * Revision 1.1 1998/01/06 04:15:00 ceres * Initial revision * */ /** * This is the effect skelton docs. This effect * has a classification of "magic.octogram". * <p> * Describe the arguments in here. * @classification magic.octogram * @see help::effects */ #include <effect.h> /** @ignore yes */ string query_classification() { return "magic.octogram"; } /** @ignore yes */ void beginning( object thing, int number, int id ) { tell_room( thing, "An octogram begins to glow "+ (string)thing->query_property( "here" ) +".\n" ); thing->submit_ee( 0, number, EE_REMOVE ); thing->add_extra_look( this_object() ); /* * Something nasty until a better solution appears. */ thing->add_item( "octogram", "The octogram glows in eldritch fashion, " "and that has nothing to do with being oblong." ); } /* beginning() */ /** @ignore yes */ int merge_effect( object thing, int old_arg, int new_arg, int id ) { tell_room( thing, "The octogram pulses for a moment.\n" ); thing->submit_ee( 0, new_arg + (int)thing->expected_tt(), EE_REMOVE ); return old_arg + new_arg; } /* merge_effect() */ /** @ignore yes */ void end( object thing, int number, int id ) { if ( !sizeof( filter_array( previous_object( -1 ), (: $1->query_magic_spell() :) ) ) ) tell_room( thing, "The octogram flickers and disappears.\n" ); thing->remove_extra_look( this_object() ); } /* end() */ string extra_look( object thing ) { return "An octogram "+ (string)thing->query_property( "here" ) + " glows in eldritch fashion.\n"; } /* extra_look() */