// magic_scroll.c
// This scroll contains a spell, which a player can learn by casting
// the read spell on the scroll.
// Mobydick@TMI-2, 3-24-93.

#include <mudlib.h> 

inherit OBJECT ;

void create() {
    ::create();
    set ("id", ({ "scroll" }) ) ;
    set ("short", "a magical scroll") ;
    set ("long",
            "This is a magic scroll on which spells can be written. At the moment
            "+"it is blank.\n") ;
    set ("mass", 10) ;
    set ("bulk", 4) ;
}

void init() {
    add_action ("write_scroll", "write") ;
    add_action ("read_scroll", "read") ;
    add_action ("help", "help") ;
}

void set_spell (string str) {
    //if (member_array(str,SPELLS)==-1) {
    //		write ("Error: tried to set an unknown spell.\n") ;
    //		return ;
    //	}
    //	set ("spell", str) ;
    //	set ("short", "A scroll of "+str) ;
    set ("long",
            "This is a magic scroll with the "+str+" spell written on it.\n") ;
}

int write_scroll (string str) {

    string *known ;

    //	known = this_player()->query("spells") ;
    //	if (member_array(str,known)==-1) {
    //		notify_fail ("You don't know any "+str+" spell to write.\n") ;
    //		return 0 ;
    //	}
    write ("You write the "+str+" spell onto the scroll.\n") ;
    //	set_spell(str) ;
    return 1 ;
}

int read_scroll (string str) {
    if (!query("spell")) {
        write("You haven't written any spells on the scroll.\n");
        return 1;
    }
    //	if (str!="scroll" && str!="scroll of "+query("spell")) return 0 ;
    //	write ("You begin reading the scroll....\n") ;
    //	write ("You begin casting the "+query("spell")+" spell!\n") ;
    //	write ("On whom do you wish to cast it? (CR for yourself or current attacker) : ") ;
    //	input_to ("cast_args") ;
    return 1 ;
}

int cast_args (string str) {

    string name ;

    //	if (!str || str == "") str="NONE" ;
    //	name = PATH+query("spell")+EXTENSION ;
    //	name->cast(str, 1) ;
    //	remove() ;
    return 1 ;
}

int help (string str) {
    if (str!="scroll") return 0 ;
    write ("If you know the read spell, you can cast it on the scroll and\n"+
            "you will learn the spell written on the scroll, if there is one.\n"+
            "If you don't know the read spell, you should find someone who can\n"+
            "teach it to you.\n"+
            "You can also simply \"read\" the scroll and cast the spell written\n"+
            "on it, but if you do that you will not learn the spell.\n") ;
    return 1 ;
}