/* /lib/magic.c * From Dead Souls 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); } 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 if( spell->GetVerb() == "perform" ){ tmp = "feat"; } else { tmp = "spell"; } if( !this_object()->GetSpellBook()[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; if(!spell) spell = SPELLS_D->GetPrayer(verb = lower_case(verb)); if(spell) 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 if( spell->GetVerb() == "perform" ){ special = "a mantra"; } 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( this_object()->GetSpellBook()[name] < 100 ){ eventTrainSpell(spell); } if( spell->CanCast(this_object(), this_object()->GetSpellBook()[name], limb, targs) ){ spell->eventCast(this_object(), this_object()->GetSpellBook()[name], limb, targs); } } mixed eventLearnSpell(string spell){ object magic = SPELLS_D->GetSpell(spell = lower_case(spell)); if(!magic){ write("That's not a spell being offered to you for learning."); return 0; } foreach(string skill in magic->GetSkills()){ if( magic->GetRequiredSkill(skill) > GetSkillLevel(skill) ){ return 0; } } if( !this_object()->GetSpellBook()[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; }