/* -*- LPC -*- */
/*
* $Locker: $
* $Id: store_ritual_new.c,v 1.1 1998/01/06 04:19:27 ceres Exp $
* $Log: store_ritual_new.c,v $
* Revision 1.1 1998/01/06 04:19:27 ceres
* Initial revision
*
*/
/**
* This is the effect skelton docs. This effect
* has a classification of "faith.store_ritual".
* <p>
* Describe the arguments in here.
* <p>
* This effect has a shadow associated with it.
* @classification faith.store_ritual
* @see help::effects
*/
#include "path.h"
/** @ignore yes */
string query_classification() { return "faith.store_ritual"; }
/** @ignore yes */
string query_shadow_ob() { return SHADOWS +"store_ritual_new"; }
int query_indefinite() { return 1; }
/* args are ({ "ritual name", "ritual object", bonus }) */
/** @ignore yes */
mixed *beginning( object thing, mixed *args, int id ) {
if ( environment( thing ) )
tell_object( environment( thing ), "A pale shimmering aura surrounds "+
(string)thing->the_short() +".\n" );
if ( thing->query_do_use_save() )
thing->remove_do_use_save();
thing->add_extra_look( this_object() );
return args;
} /* beginning() */
void restart( object thing, mixed *args, int id ) {
thing->add_extra_look( this_object() );
} /* restart() */
/** @ignore yes */
void end( object thing, mixed *args, int id ) {
object shadow;
if ( environment( thing ) )
tell_object( environment( thing ), "The aura surrounding "+
(string)thing->the_short() +" fades away.\n" );
thing->remove_extra_look( this_object() );
shadow = clone_object( SHADOWS + "after_store" );
shadow->setup_shadow( thing );
} /* end() */
string extra_look( object thing ) {
int *enums;
enums = (int *)thing->effects_matching( "faith.store_ritual" );
if ( !sizeof( enums ) )
return "";
return "The shimmering aura around this "+ thing->short()
+" tells you it can be used to cast the ritual "+
thing->query_ritual_name() +".\n";
} /* extra_look() */
