/*    /lib/magic.c
 *    From Nightmare LPMud
 *    A module for allowing living beings to cast magic spells.
 *    Created by Descartes of Borg 961027
 *    Version: @(#) magic.c 1.13@(#)
 *    Last modified: 96/11/03
 */

#include <daemons.h>
#include <rounds.h>
#include <magic.h>

private mapping SpellBook = ([]);

// abstract methods
int GetInCombat();
int GetMagicPoints();
string GetName();
int GetParalyzed();
varargs mixed eventPrint(string msg, mixed args...);
int GetSkillLevel(string skill);
int GetStaminaPoints();
void SetAttack(object array e, function f, int type);
// end abstract methods

static varargs void eventCast(object spell, string limb, object array targs);
static void eventTrainSpell(object spell);

mapping GetSpellBook() {
    return copy(SpellBook);
}

static void SetSpellBook(mapping book) {
    SpellBook = book;
}

int GetSpellLevel(string spell) {
    return SpellBook[spell];
}

varargs mixed CanCast(object spell) {
    string tmp;

    if( GetParalyzed() ) {
	return "You cannot do anything.";
    }
    if( environment()->GetProperty("no magic") ) {
	return "Supernatural forces prevent your magic.";
    }
    if( !spell ) {
	return "No such spell exists in this reality.";
    }
    if( spell->GetVerb() == "pray" ) {
	tmp = "prayer";
    }
    else {
	tmp = "spell";
    }
    if( !SpellBook[spell->GetSpell()] ) {
	return "You have never heard of that " + tmp + " before.";
    }
    if( GetMagicPoints() < spell->GetRequiredMagic() ) {
	return "You do not have the power required.";
    }
    if( GetStaminaPoints() < spell->GetRequiredStamina() ) {
	return "You are too tired.";
    }
    foreach(string skill in spell->GetSkills()) {
	if( GetSkillLevel(skill) < spell->GetSkillRequired(skill) ) {
	    return "That " + tmp + " is beyond your comprehension.";
	}
    }
    return 1;
}

varargs mixed eventPrepareCast(string verb, mixed array args...) {
    object spell = SPELLS_D->GetSpell(verb = lower_case(verb));
    object array targets, send_to;
    string special, arg;
    mixed tmp;
    int type;

    tmp = spell->eventParse(this_object(), args...);
    if( !arrayp(tmp) ) {
	if( stringp(tmp) ) {
	    eventPrint(tmp);
	}
	else {
	    eventPrint("You are confused.");
	}
	return 1;
    }
    args = tmp;
    targets = spell->GetTargets(this_object(), args...);
    args = filter(args, (: stringp :));
    if( spell->GetAutoHeal() == 0 ) {
	if( !sizeof(args) ) {
	    object array existing = filter(targets, (: $1 :));
	    
	    if( sizeof(existing) != 1 ) {
		error("This spell was poorly constructed.");
	    }
	    arg = existing[0]->GetRandomLimb("torso");
	}
	else {
	    arg = args[0];
	}
    }
    else {
	if( !sizeof(args) ) {
	    arg = 0;
	}
	else {
	    arg = args[0];
	}
    }
    if( spell->GetVerb() == "pray" ) {
	special = "a prayer";
    }
    else {
	special = "an incantation";
    }
    if( targets ) {
	send_to = filter(targets, (: environment($1) == environment() :));
    }
    else {
	send_to = 0;
    }
    send_messages(({ "close", "begin" }),
		  "$agent_name $agent_verb $agent_possessive eyes and "
		  "$agent_verb uttering " + special + ".", this_object(),
		  send_to, environment());
    type = spell->GetSpellType();
    if( GetInCombat() || (type == SPELL_COMBAT) ) {
	if( type == SPELL_COMBAT ) {
	    SetAttack(targets, (: eventCast($(spell), $(arg), $(targets)) :),
		      ROUND_MAGIC);
	}
	else {
	    SetAttack(0, (: eventCast($(spell), $(arg), $(targets)) :),
		      ROUND_MAGIC);
	}
    }
    else {
	eventCast(spell, arg, targets);
    }
    return 1;
}

static varargs void eventCast(object spell, string limb, object array targs) {
    string name = spell->GetSpell();
    
    if( SpellBook[name] < 100 ) {
	eventTrainSpell(spell);
    }
    if( spell->CanCast(this_object(), SpellBook[name], limb, targs) ) {
	spell->eventCast(this_object(), SpellBook[name], limb, targs);
    }
}

mixed eventLearnSpell(string spell) {
    object magic = SPELLS_D->GetSpell(spell = lower_case(spell));

    foreach(string skill in magic->GetSkills()) {
	if( magic->GetRequiredSkill(skill) > GetSkillLevel(skill) ) {
	    return 0;
	}
    }
    if( !SpellBook[spell] ) {
	SpellBook[spell] = 1;
    }
    return 1;
}

static void eventTrainSpell(object spell) {
    string name = spell->GetSpell();
    int x = SpellBook[name] + 1;
    
    foreach(string skill in spell->GetSkills() ) {
	if( (5 * GetSkillLevel(skill)) < x ) {
	    return;
	}
    }
    SpellBook[name] = x;
}