/* -*- LPC -*- */
/*
* $Locker: $
* $Id: magic_scroll.c,v 1.8 1999/11/08 23:10:48 pinkfish Exp $
* $Log: magic_scroll.c,v $
* Revision 1.8 1999/11/08 23:10:48 pinkfish
* Fix up the reaction to ue the correct environment.
*
* Revision 1.7 1999/11/04 01:56:46 pinkfish
* Fix up the scroll code to work with the new inheritable.
*
* Revision 1.6 1999/11/04 01:52:01 pinkfish
* Stuff!
*
* Revision 1.5 1999/10/28 02:09:21 ceres
* Can't remember
*
* Revision 1.4 1999/04/05 03:02:24 ceres
* Modified to use store_Ritual
*
* Revision 1.3 1999/03/19 17:43:40 ceres
* Fixed power of exploding scrolls
*
* Revision 1.2 1999/03/05 09:43:05 ceres
* Tweaked
*
* Revision 1.1 1998/01/06 04:40:23 ceres
* Initial revision
*
*/
#include <tasks.h>
inherit "/std/effect_shadow";
inherit "/std/basic/scroll_base";
string long( string word, int dark ) {
return player->long(word, dark) + "$C$" +
player->the_short() +
" appears to be a magic scroll containing the spell "+
scroll_base::long(word, dark) + ".\n";
} /* long() */
void clear_spell( int award ) {
::clear_spell(award);
remove_this_effect();
} /* clear_spell() */
varargs int move( mixed dest, string messin, string messout ) {
// prevent pks killing non-pks by handing them a dangerous scroll
if(query_verb() != "give" && query_verb() != "slip" &&
query_verb() != "plant") {
call_out("check_react", random(5), player);
}
return player->move(dest, messin, messout);
} /* move() */
void destroy_this_scroll() {
player->dest_me();
} /* destroy_this_scroll() */
