/*    /spells/restoration.c
 *    From Dead Souls LPMud
 *    Created by BillGates of Money 961204
 *    Version: @(#) restoration.c 1.2@(#)
 *    Last modified: 96/12/04
 */

#include <lib.h>
#include <magic.h>
#include <damage_types.h>

inherit LIB_SPELL;

static void create() {
    spell::create();
    SetSpell("restoration");
    SetRules("", "LIV");
    SetSpellType(SPELL_OTHER);
    SetRequiredMagic(75);
    SetRequiredStamina(50);
    SetReligions("Lintokh", "Talima", "Monodeism");
    SetSkills(([ "faith" : 15 ]));
    SetMagicCost(10);    
    SetDifficulty(40);
    SetMorality(5);
    SetHelp("Syntax: <cast refresh>\n"
      "        <cast refresh on LIVING>\n\n"
      "This spell allows the caster to \"refresh\" his "
      "or her target's stamina.  The amount of stamina "
      "refreshed depends solely on the magical powers of "
      "the caster.\n\n");
}

varargs int CanCast(object who, int level, string limb, object array targs) {
    object target = targs[0];
    string targ_rel, my_rel;

    targ_rel = target->GetReligion(1);
    my_rel = who->GetReligion(1);
    if( !(int)target->GetUndead() ) {
	who->eventPrint((string)target->GetName() + " is not undead!");
	return 0;
    }
    if( (int)who->ClassMember("cleric") ) return 1;
    if( targ_rel != my_rel ) {
	send_messages("are", "$target_name $target_verb not of ",
	  "$agent_possessive faith.",
	  who, target);
	return 0;
    }
    return spell::CanCast(who, level, limb, targs);
}

varargs int eventCast(object who, int level, string limb, object array targs) {
    object target = targs[0];
    //int chance = level + random((int)who->GetSkillLevel("healing"));

    if( level < (30 + random(30)) ) {
	target->AddStaminaPoints(-(int)target->GetStaminaPoints());
	who->AddStaminaPoints(-(int)who->GetStaminaPoints());
	who->eventPrint("You feel utterly drained as your "
	  "spell of restoration goes awry.", target);
	target->eventPrint("You feel a draining effect as " +
	  possessive_noun(who) + " attempt to resurrect you "
	  "goes awry.", who);
	environment(who)->eventPrint( (string)who->GetCapName()+" and "+
	  (string)target->GetCapName()+" both double over in pain "
	  "as "+possessive_noun(who)+" spell fails.",
	  ({ who, target }) );      
	who->AddMagicPoints(-(int)who->GetMagicPoints());
	return 0;
    }

    send_messages(({ "bring" }), "$agent_name $agent_verb "
      "$target_name back from the dead.",
      who, target, environment(who));
    target->eventRevive();
    who->AddMagicPoints(-(int)who->GetMagicPoints());
    return 1;
}

int GetMagicCost() {
    return (int)this_player()->GetMagicPoints();
}