I thought I would be easy and include this too. :)
Check out what I did with spello.
Chris Voutsis
---------- Forwarded message ----------
Date: Fri, 26 Jul 1996 22:49:19 +1000
From: System Adminisitrator <root@Linux.slip.cc.uq.oz.au>
To: s337239@student.uq.edu.au
/* ************************************************************************
* File: spell_parser.c Part of CircleMUD *
* Usage: top-level magic routines; outside points of entry to magic sys. *
* *
* All rights reserved. See license.doc for complete information. *
* *
* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University *
* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. *
************************************************************************ */
#include <stdio.h>
#include <string.h>
#include "structs.h"
#include "utils.h"
#include "interpreter.h"
#include "spells.h"
#include "handler.h"
#include "comm.h"
#include "db.h"
struct spell_info_type spell_info[TOP_SPELL_DEFINE + 1];
#define SINFO spell_info[spellnum]
extern struct room_data *world;
/*
* This arrangement is pretty stupid, but the number of skills is limited by
* the playerfile. We can arbitrarily increase the number of skills by
* increasing the space in the playerfile. Meanwhile, this should provide
* ample slots for skills.
*/
char *spells[] =
{
"!RESERVED!", /* 0 - reserved */
/* SPELLS */
"armor", /* 1 */
"teleport",
"bless",
"blindness",
"burning hands",
"call lightning",
"charm person",
"chill touch",
"clone",
"color spray", /* 10 */
"control weather",
"create food",
"create water",
"cure blind",
"cure critic",
"cure light",
"curse",
"detect alignment",
"detect invisibility",
"detect magic", /* 20 */
"detect poison",
"dispel evil",
"earthquake",
"enchant weapon",
"energy drain",
"fireball",
"harm",
"heal",
"invisibility",
"lightning bolt", /* 30 */
"locate object",
"magic missile",
"poison",
"protection from evil",
"remove curse",
"sanctuary",
"shocking grasp",
"sleep",
"strength",
"summon", /* 40 */
"ventriloquate",
"word of recall",
"remove poison",
"sense life",
"animate dead",
"dispel good",
"group armor",
"group heal",
"group recall",
"infravision", /* 50 */
"waterwalk",
"ice to flesh",
"stone to flesh",
"ice storm",
"fire storm",
"!UNUSED!",
"!UNUSED!",
"!UNUSED!",
"!UNUSED!",
"!UNUSED!", /* 60 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 65 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 70 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 75 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 80 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 85 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 90 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 95 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 100 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 105 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 110 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 115 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 120 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 125 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 130 */
/* SKILLS */
"backstab", /* 131 */
"bash",
"hide",
"kick",
"pick lock",
"punch",
"rescue",
"sneak",
"steal",
"track", /* 140 */
"dual wield",
"multiple attacks",
"weapon dagger",
"weapon short sword",
"weapon long sword", /* 145 */
"weapon two-handed sword",
"weapon one-handed blunt",
"weapon two-handed blunt",
"weapon one-handed chain",
"weapon two-handed chain", /* 150 */
"weapon one-handed axe",
"weapon two-handed axe",
"weapon whip",
"weapon spear",
"weapon polearm", /* 155 */
"weapon projectile",
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 160 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 165 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 170 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 175 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 180 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 185 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 190 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 195 */
"!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", "!UNUSED!", /* 200 */
/* OBJECT SPELLS AND NPC SPELLS/SKILLS */
"identify", /* 201 */
"fire breath",
"gas breath",
"frost breath",
"acid breath",
"lightning breath",
"petrify",
"protection: fire",
"protection: ice",
"protection: petrify",
"protection: magic",
"spell turning",
"\n" /* the end */
};
struct syllable {
char *org;
char *new;
};
struct syllable syls[] = {
{" ", " "},
{"ar", "abra"},
{"ate", "i"},
{"cau", "kada"},
{"blind", "nose"},
{"bur", "mosa"},
{"cu", "judi"},
{"de", "oculo"},
{"dis", "mar"},
{"ect", "kamina"},
{"en", "uns"},
{"gro", "cra"},
{"light", "dies"},
{"lo", "hi"},
{"magi", "kari"},
{"mon", "bar"},
{"mor", "zak"},
{"move", "sido"},
{"ness", "lacri"},
{"ning", "illa"},
{"per", "duda"},
{"ra", "gru"},
{"re", "candus"},
{"son", "sabru"},
{"tect", "infra"},
{"tri", "cula"},
{"ven", "nofo"},
{"word of", "inset"},
{"a", "i"}, {"b", "v"}, {"c", "q"}, {"d", "m"}, {"e", "o"}, {"f", "y"}, {"g", "t"},
{"h", "p"}, {"i", "u"}, {"j", "y"}, {"k", "t"}, {"l", "r"}, {"m", "w"}, {"n", "b"},
{"o", "a"}, {"p", "s"}, {"q", "d"}, {"r", "f"}, {"s", "g"}, {"t", "h"}, {"u", "e"},
{"v", "z"}, {"w", "x"}, {"x", "n"}, {"y", "l"}, {"z", "k"}, {"", ""}
};
/* say_spell erodes buf, buf1, buf2 */
void say_spell(struct char_data * ch, int spellnum, struct char_data * tch,
struct obj_data * tobj)
{
char lbuf[256];
struct char_data *i;
int j, ofs = 0;
*buf = '\0';
strcpy(lbuf, spells[spellnum]);
while (*(lbuf + ofs)) {
for (j = 0; *(syls[j].org); j++) {
if (!strncmp(syls[j].org, lbuf + ofs, strlen(syls[j].org))) {
strcat(buf, syls[j].new);
ofs += strlen(syls[j].org);
}
}
}
if (tch != NULL && tch->in_room == ch->in_room) {
if (tch == ch)
sprintf(lbuf, "$n closes $s eyes and utters the words, '%%s'.");
else
sprintf(lbuf, "$n stares at $N and utters the words, '%%s'.");
} else if (tobj != NULL &&
((tobj->in_room == ch->in_room) || (tobj->carried_by == ch)))
sprintf(lbuf, "$n stares at $p and utters the words, '%%s'.");
else
sprintf(lbuf, "$n utters the words, '%%s'.");
sprintf(buf1, lbuf, spells[spellnum]);
sprintf(buf2, lbuf, buf);
for (i = world[ch->in_room].people; i; i = i->next_in_room) {
if (i == ch || i == tch || !i->desc || !AWAKE(i))
continue;
if (GET_CLASS(ch) == GET_CLASS(i))
perform_act(buf1, ch, tobj, tch, i);
else
perform_act(buf2, ch, tobj, tch, i);
}
if (tch != NULL && tch != ch && tch->in_room == ch->in_room) {
sprintf(buf1, "$n stares at you and utters the words, '%s'.",
GET_CLASS(ch) == GET_CLASS(tch) ? spells[spellnum] : buf);
act(buf1, FALSE, ch, NULL, tch, TO_VICT);
}
}
int find_skill_num(char *name)
{
int index = 0, ok;
char *temp, *temp2;
char first[256], first2[256];
while (*spells[++index] != '\n') {
if (is_abbrev(name, spells[index]))
return index;
ok = 1;
temp = an
y_one_arg(spells[index], first);
temp2 = any_one_arg(name, first2);
while (*first && *first2 && ok) {
if (!is_abbrev(first, first2))
ok = 0;
temp = any_one_arg(temp, first);
temp2 = any_one_arg(temp2, first2);
}
if (ok && !*first2)
return index;
}
return -1;
}
/*
* This function is the very heart of the entire magic system. All
* invocations of all types of magic -- objects, spoken and unspoken PC
* and NPC spells, the works -- all come through this function eventually.
* This is also the entry point for non-spoken or unrestricted spells.
* Spellnum 0 is legal but silently ignored here, to make callers simpler.
*/
int call_magic(struct char_data * caster, struct char_data * cvict,
struct obj_data * ovict, int spellnum, int level, int casttype, int objcast)
{
void check_killer(struct char_data *ch, struct char_data *vict);
struct char_data *temp_ch, *next_temp;
int found, savetype;
if (spellnum < 1 || spellnum > TOP_SPELL_DEFINE)
return 0;
if (!objcast) {
if (ROOM_FLAGGED(caster->in_room, ROOM_NOMAGIC)) {
send_to_char("Your magic fizzles out and dies.\r\n", caster);
act("$n's magic fizzles out and dies.", FALSE, caster, 0, 0, TO_ROOM);
return 0;
}
if (IS_SET(ROOM_FLAGS(caster->in_room), ROOM_PEACEFUL) &&
(SINFO.violent || IS_SET(SINFO.routines, MAG_DAMAGE))) {
send_to_char("A flash of white light fills the room, dispelling your "
"violent magic!\r\n", caster);
act("White light from no particular source suddenly fills the room, "
"then vanishes.", FALSE, caster, 0, 0, TO_ROOM);
return 0;
}
}
if (cvict) {
if (IS_NPC(caster))
if ((MOB_FLAGGED(caster, MOB_NOKILL)) && (SINFO.violent || IS_SET(SINFO.routines, MAG_DAMAGE))) {
act("Stop provoking fights with $N!!", FALSE, caster, 0, cvict, TO_CHAR);
return 0;
}
if (IS_NPC(cvict))
if ((MOB_FLAGGED(cvict, MOB_NOKILL)) && (SINFO.violent || IS_SET(SINFO.routines, MAG_DAMAGE))) {
act("Cast that on $N ?? No way !!!!", FALSE, caster, 0, cvict, TO_CHAR);
return 0;
}
if (caster != cvict) {
if (IS_AFFECTED(cvict, AFF_SPELL_TURNING)) {
if (IS_AFFECTED(caster, AFF_SPELL_TURNING)) {
/* must still deduct mana cost !!!!! */
act("An invisible aura around $N deflects your magics away!",
FALSE, caster, 0, cvict, TO_CHAR);
act("An invisible aura around $N deflects $n's magics away!",
FALSE, caster, 0, cvict, TO_NOTVICT);
act("$n's magics are deflected away from you!", FALSE, caster,
0, cvict, TO_VICT);
if (SINFO.violent || IS_SET(SINFO.routines, MAG_DAMAGE))
check_killer(caster, cvict);
return 1;
} else {
/* must still deduct mana cost !!!!! */
act("An invisible aura around $N deflects the magics back at you!",
FALSE, caster, 0, cvict, TO_CHAR);
act("An invisible aura around $N deflects $n's magics back at $m!",
FALSE, caster, 0, cvict, TO_NOTVICT);
act("You deflect $n's magics back upon $m!", FALSE, caster, 0,
cvict, TO_VICT);
if (SINFO.violent || IS_SET(SINFO.routines, MAG_DAMAGE))
check_killer(caster, cvict);
call_magic(cvict, caster, ovict, spellnum, level, casttype, objcast);
return 1;
}
}
}
found = 0;
for (temp_ch = world[cvict->in_room].people; temp_ch; temp_ch = next_temp) {
next_temp = temp_ch->next_in_room;
if ((IS_AFFECTED(temp_ch, AFF_ANTI_MAGIC)) && (caster != temp_ch))
if ((IS_NPC(temp_ch)) || (cvict == temp_ch))
found = 1;
/* that means npc !magic flags block all magic in room, pc !magic flags
block magic on that individual person but not the entire room */
}
if (found) {
send_to_char("Your magic fizzles out and dies.\r\n", caster);
act("$n's magic fizzles out and dies.", FALSE, caster, 0, 0, TO_ROOM);
return 0;
}
}
/* determine the type of saving throw */
switch (casttype) {
case CAST_STAFF:
case CAST_SCROLL:
case CAST_POTION:
case CAST_WAND:
savetype = SAVING_ROD;
break;
case CAST_SPELL: /* only from players, objs and weapon spells */
savetype = SAVING_SPELL;
break;
default:
savetype = SAVING_BREATH;
break;
}
if (IS_SET(SINFO.routines, MAG_DAMAGE))
mag_damage(level, caster, cvict, spellnum, savetype);
if (IS_SET(SINFO.routines, MAG_AFFECTS))
mag_affects(level, caster, cvict, spellnum, savetype);
if (IS_SET(SINFO.routines, MAG_UNAFFECTS))
mag_unaffects(level, caster, cvict, spellnum, savetype);
if (IS_SET(SINFO.routines, MAG_POINTS))
mag_points(level, caster, cvict, spellnum, savetype);
if (IS_SET(SINFO.routines, MAG_ALTER_OBJS))
mag_alter_objs(level, caster, ovict, spellnum, savetype);
if (IS_SET(SINFO.routines, MAG_GROUPS))
mag_groups(level, caster, spellnum, savetype);
if (IS_SET(SINFO.routines, MAG_MASSES))
mag_masses(level, caster, spellnum, savetype);
if (IS_SET(SINFO.routines, MAG_AREAS))
mag_areas(level, caster, spellnum, savetype);
if (IS_SET(SINFO.routines, MAG_SUMMONS))
mag_summons(level, caster, ovict, spellnum, savetype);
if (IS_SET(SINFO.routines, MAG_CREATIONS))
mag_creations(level, caster, spellnum);
if (IS_SET(SINFO.routines, MAG_MANUAL))
switch (spellnum) {
case SPELL_ENCHANT_WEAPON: MANUAL_SPELL(spell_enchant_weapon); break;
case SPELL_CHARM: MANUAL_SPELL(spell_charm); break;
case SPELL_WORD_OF_RECALL: MANUAL_SPELL(spell_recall); break;
case SPELL_IDENTIFY: MANUAL_SPELL(spell_identify); break;
case SPELL_SUMMON: MANUAL_SPELL(spell_summon); break;
case SPELL_LOCATE_OBJECT: MANUAL_SPELL(spell_locate_object); break;
case SPELL_DETECT_POISON: MANUAL_SPELL(spell_detect_poison); break;
case SPELL_ICE_TO_FLESH: MANUAL_SPELL(spell_ice_to_flesh); break;
case SPELL_STONE_TO_FLESH: MANUAL_SPELL(spell_stone_to_flesh); break;
case SPELL_PETRIFY: MANUAL_SPELL(spell_petrify); break;
case SPELL_FIRE_BREATH: MANUAL_SPELL(spell_fire_breath); break;
case SPELL_GAS_BREATH: MANUAL_SPELL(spell_gas_breath); break;
case SPELL_FROST_BREATH: MANUAL_SPELL(spell_frost_breath); break;
case SPELL_ACID_BREATH: MANUAL_SPELL(spell_acid_breath); break;
case SPELL_LIGHTNING_BREATH: MANUAL_SPELL(spell_lightning_breath); break;
case SPELL_ICE_STORM: MANUAL_SPELL(spell_ice_storm); break;
case SPELL_FIRE_STORM: MANUAL_SPELL(spell_fire_storm); break;
}
return 1;
}
/*
* mag_objectmagic: This is the entry-point for all magic items.
*
* staff - [0] level [1] max charges [2] num charges [3] spell num
* wand - [0] level [1] max charges [2] num charges [3] spell num
* scroll - [0] level [1] spell num [2] spell num [3] spell num
* potion - [0] level [1] spell num [2] spell num [3] spell num
*
* Staves and wands will default to level 14 if the level is not specified.
*/
void mag_objectmagic(struct char_data * ch, struct obj_data * obj,
char *argument)
{
int i, k;
struct char_data *tch = NULL, *next_tch;
struct obj_data *tobj = NULL;
one_argument(argument, arg);
k = generic_find(arg, FIND_CHAR_ROOM | FIND_OBJ_INV | FIND_OBJ_ROOM |
FIND_OBJ_EQUIP, ch, &tch, &tobj);
if (obj->obj_flags.lev_restrict > GET_LEVEL(ch)) {
send_to_char("You cant seem to figure out how to do that - yet.\r\n", ch);
return;
}
switch (GET_OBJ_TYPE(obj)) {
case ITEM_STAFF:
act("You tap $p three times on the ground.", FALSE, ch, obj, 0, TO_CHAR);
if (obj->action_description)
act(obj->action_description, FALSE, ch, obj, 0, TO_ROOM);
else
act("$n taps $p three times on the ground.", FALSE, ch, obj, 0, TO_ROOM);
if (GET_OBJ_VAL(obj, 2) <= 0) {
act("It seems powerless.", FALSE, ch, obj, 0, TO_CHAR);
act("Nothing seems to happen.", FALSE, ch, obj, 0, TO_ROOM);
} else {
GET_OBJ_VAL(obj, 2)--;
WAIT_STATE(ch, PULSE_VIOLENCE);
for (tch = world[ch->in_room].people; tch; tch = next_tch) {
next_tch = tch->next_in_room;
if (ch == tch)
continue;
if (GET_OBJ_VAL(obj, 0))
call_magic(ch, tch, NULL, GET_OBJ_VAL(obj, 3),
GET_OBJ_VAL(obj, 0), CAST_STAFF, 0);
else
call_magic(ch, tch, NULL, GET_OBJ_VAL(obj, 3),
DEFAULT_STAFF_LVL, CAST_STAFF, 0);
}
}
break;
case ITEM_WAND:
if (k == FIND_CHAR_ROOM) {
if (tch == ch) {
act("You point $p at yourself.", FALSE, ch, obj, 0, TO_CHAR);
act("$n points $p at $mself.", FALSE, ch, obj, 0, TO_ROOM);
} else {
act("You point $p at $N.", FALSE, ch, obj, tch, TO_CHAR);
if (obj->action_description != NULL)
act(obj->action_description, FALSE, ch, obj, tch, TO_ROOM);
else
act("$n points $p at $N.", TRUE, ch, obj, tch, TO_ROOM);
}
} else if (tobj != NULL) {
act("You point $p at $P.", FALSE, ch, obj, tobj, TO_CHAR);
if (obj->action_description != NULL)
act(obj->action_description, FALSE, ch, obj, tobj, TO_ROOM);
else
act("$n points $p at $P.", TRUE, ch, obj, tobj, TO_ROOM);
} else {
act("At what should $p be pointed?", FALSE, ch, obj, NULL, TO_CHAR);
return;
}
if (GET_OBJ_VAL(obj, 2) <= 0) {
act("It seems powerless.", FALSE, ch, obj, 0, TO_CHAR);
act("Nothing seems to happen.", FALSE, ch, obj, 0, TO_ROOM);
return;
}
GET_OBJ_VAL(obj, 2)--;
WAIT_STATE(ch, PULSE_VIOLENCE);
if (GET_OBJ_VAL(obj, 0))
call_magic(ch, tch, tobj, GET_OBJ_VAL(obj, 3),
GET_OBJ_VAL(obj, 0), CAST_WAND, 0);
else
call_magic(ch, tch, tobj, GET_OBJ_VAL(obj, 3),
DEFAULT_WAND_LVL, CAST_WAND, 0);
break;
case ITEM_SCROLL:
if (*arg) {
if (!k) {
act("There is nothing to here to affect with $p.", FALSE,
ch, obj, NULL, TO_CHAR);
return;
}
} else
tch = ch;
act("You recite $p which dissolves.", TRUE, ch, obj, 0, TO_CHAR);
if (obj->action_description)
act(obj->action_description, FALSE, ch, obj, NULL, TO_ROOM);
else
act("$n recites $p.", FALSE, ch, obj, NULL, TO_ROOM);
WAIT_STATE(ch, PULSE_VIOLENCE);
for (i = 1; i < 4; i++)
if (!(call_magic(ch, tch, tobj, GET_OBJ_VAL(obj, i),
GET_OBJ_VAL(obj, 0), CAST_SCROLL, 0)))
break;
if (obj != NULL)
extract_obj(obj);
break;
case ITEM_POTION:
tch = ch;
act("You quaff $p.", FALSE, ch, obj, NULL, TO_CHAR);
if (obj->action_description)
act(obj->action_description, FALSE, ch, obj, NULL, TO_ROOM);
else
act("$n quaffs $p.", TRUE, ch, obj, NULL, TO_ROOM);
WAIT_STATE(ch, PULSE_VIOLENCE);
for (i = 1; i < 4; i++)
if (!(call_magic(ch, ch, NULL, GET_OBJ_VAL(obj, i),
GET_OBJ_VAL(obj, 0), CAST_POTION, 0)))
break;
if (obj != NULL)
extract_obj(obj);
break;
default:
log("SYSERR: Unknown object_type in mag_objectmagic");
break;
}
}
/*
* cast_spell is used generically to cast any spoken spell, assuming we
* already have the target char/obj and spell number. It checks all
* restrictions, etc., prints the words, etc.
*
* Entry point for NPC casts. Recommended entry point for spells cast
* by NPCs via specprocs.
*/
int cast_spell(struct char_data * ch, struct char_data * tch,
struct obj_data * tobj, int spellnum)
{
if (GET_POS(ch) < SINFO.min_position) {
switch (GET_POS(ch)) {
case POS_SLEEPING:
send_to_char("You dream about great magical powers.\r\n", ch);
break;
case POS_RESTING:
send_to_char("You cannot concentrate while resting.\r\n", ch);
break;
case POS_SITTING:
send_to_char("You can't do this sitting!\r\n", ch);
break;
case POS_FIGHTING:
send_to_char("Impossible! You can't concentrate enough!\r\n", ch);
break;
default:
send_to_char("You can't do much of anything like this!\r\n", ch);
break;
}
return 0;
}
if (IS_AFFECTED(ch, AFF_CHARM) && (ch->master == tch)) {
send_to_char("You are afraid you might hurt your master!\r\n", ch);
return 0;
}
if ((tch != ch) && IS_SET(SINFO.targets, TAR_SELF_ONLY)) {
send_to_char("You can only cast this spell upon yourself!\r\n", ch);
return 0;
}
if ((tch == ch) && IS_SET(SINFO.targets, TAR_NOT_SELF)) {
send_to_char("You cannot cast this spell upon yourself!\r\n", ch);
return 0;
}
if (IS_SET(SINFO.routines, MAG_GROUPS) && !IS_AFFECTED(ch, AFF_GROUP)) {
send_to_char("You can't cast this spell if you're not in a group!\r\n",ch);
return 0;
}
send_to_char(OK, ch);
say_spell(ch, spellnum, tch, tobj);
return (call_magic(ch, tch, tobj, spellnum, GET_LEVEL(ch), CAST_SPELL, 0));
}
/*
* do_cast is the entry point for PC-casted spells. It parses the arguments,
* determines the spell number and finds a target, throws the die to see if
* the spell can be cast, checks for sufficient mana and subtracts it, and
* passes control to cast_spell().
*/
ACMD(do_cast)
{
int has_magic_circle(struct char_data *ch, int circle);
int has_cleric_circle(struct char_data *ch, int circle);
void mob_initiate(struct char_data *ch, struct char_data *victim);
struct char_data *tch = NULL;
struct obj_data *tobj = NULL;
char *s, *t;
int spellnum, i, target = 0, ccircle = 0, mcircle = 0;
if (IS_NPC(ch))
return;
/* get: blank, spell name, target name */
s = strtok(argument, "'");
if (s == NULL) {
send_to_char("Cast what where?\r\n", ch);
return;
}
s = strtok(NULL, "'");
if (s == NULL) {
send_to_char("Spell names must be enclosed in the Holy Magic Symbols: '\r\n", ch);
return;
}
t = strtok(NULL, "\0");
/* spellnum = search_block(s, spells, 0); */
spellnum = find_skill_num(s);
if ((spellnum < 1) || (spellnum > MAX_SPELLS)) {
send_to_char("Cast what?!?\r\n", ch);
return;
}
ccircle = SPELL_CLERIC_CIRCLE(spellnum);
mcircle = SPELL_MAGIC_CIRCLE(spellnum);
if (!has_cleric_circle(ch, ccircle) &&
!has_magic_circle(ch, mcircle)) {
send_to_char("You do not know that spell!\r\n", ch);
return;
}
if (GET_SKILL(ch, spellnum) == 0) {
send_to_char("You are unfamiliar with that spell.\r\n", ch);
return;
}
/* Find the target */
if (t != NULL) {
one_argument(strcpy(arg, t), t);
skip_spaces(&t);
}
if (IS_SET(SINFO.targets, TAR_IGNORE)) {
target = TRUE;
} else if (t != NULL && *t) {
if (!target && (IS_SET(SINFO.targets, TAR_CHAR_ROOM))) {
if ((tch = get_char_room_vis(ch, t)) != NULL)
target = TRUE;
}
if (!target && IS_SET(SINFO.targets, TAR_CHAR_WORLD))
if ((tch = get_char_vis(ch, t)))
target = TRUE;
if (!target && IS_SET(SINFO.targets, TAR_OBJ_INV))
if ((tobj = get_obj_in_list_vis(ch, t, ch->carrying)))
target = TRUE;
if (!target && IS_SET(SINFO.targets, TAR_OBJ_EQUIP)) {
for (i = 0; !target && i < NUM_WEARS; i++)
if (GET_EQ(ch, i) && !str_cmp(t, GET_EQ(ch, i)->name)) {
tobj = GET_EQ(ch, i);
target = TRUE;
}
}
if (!target && IS_SET(SINFO.targets, TAR_OBJ_ROOM))
if ((tobj = get_obj_in_list_vis(ch, t, world[ch->in_room].contents)))
target = TRUE;
if (!target && IS_SET(SINFO.targets, TAR_OBJ_WORLD))
if ((tobj = get_obj_vis(ch, t)))
target = TRUE;
} else { /* if target string is empty */
if (!target && IS_SET(SINFO.targets, TAR_FIGHT_SELF))
if (FIGHTING(ch) != NULL) {
tch = ch;
target = TRUE;
}
if (!target && IS_SET(SINFO.targets, TAR_FIGHT_VICT))
if (FIGHTING(ch) != NULL) {
tch = FIGHTING(ch);
target = TRUE;
}
/* if no target specified, and the spell isn't violent, default to self */
if (!target && IS_SET(SINFO.targets, TAR_CHAR_ROOM) &&
!SINFO.violent) {
tch = ch;
target = TRUE;
}
if (!target) {
sprintf(buf, "Upon %s should the spell be cast?\r\n",
IS_SET(SINFO.targets, TAR_OBJ_ROOM | TAR_OBJ_INV | TAR_OBJ_WORLD) ?
"what" : "who");
send_to_char(buf, ch);
return;
}
}
if (target && (tch == ch) && SINFO.violent) {
send_to_char("You shouldn't cast that on yourself -- could be bad for your health!\r\n", ch);
return;
}
if (!target) {
send_to_char("Cannot find the target of your spell!\r\n", ch);
return;
}
if (has_cleric_circle(ch, ccircle) &&
has_magic_circle(ch, mci if the plr KNOWS the spell in both magical and clerical circles... */
if (ccircle < mcircle) {
/* always deduct spell from lowest circle */
if (GET_CCASTINGS(ch, ccircle) <= 0) {
send_to_char("You cannot cast any more spells of that circle at this time.\r\n", ch);
return;
} else
GET_CCASTINGS(ch, ccircle) -= 1;
} else {
if (GET_MCASTINGS(ch, mcircle) <= 0) {
send_to_char("You cannot cast any more spells of that circle at this time.\r\n", ch);
return;
} else
GET_MCASTINGS(ch, mcircle) -= 1;
}
} else if (has_cleric_circle(ch, ccircle)) {
/* its a clerical spell */
if (GET_CCASTINGS(ch, ccircle) <= 0) {
send_to_char("You cannot cast any more spells of that circle at this time.\r\n", ch);
return;
} else
GET_CCASTINGS(ch, ccircle) -= 1;
} else if (has_magic_circle(ch, mcircle)) {
/* its a magical spell */
if (GET_MCASTINGS(ch, mcircle) <= 0) {
send_to_char("You cannot cast any more spells of that circle at this time.\r\n", ch);
return;
} else
GET_MCASTINGS(ch, mcircle) -= 1;
}
/* You throws the dice and you takes your chances.. 101% is total failure */
if (number(0, 101) > GET_SKILL(ch, spellnum)) {
WAIT_STATE(ch, PULSE_VIOLENCE);
if (!tch || !skill_message(0, ch, tch, spellnum))
send_to_char("You lost your concentration!\r\n", ch);
if (SINFO.violent && tch && IS_NPC(tch))
mob_initiate(tch, ch);
} else { /* cast spell returns 1 on success; subtract mana & set waitstate */
if (cast_spell(ch, tch, tobj, spellnum))
WAIT_STATE(ch, PULSE_VIOLENCE);
}
}
/* Assign the spells on boot up */
void skillo(int spl, int mlev, int clev, int tlev, int wlev)
{
spell_info[spl].min_level[CLASS_MAGIC_USER] = mlev;
spell_info[spl].min_level[CLASS_CLERIC] = clev;
spell_info[spl].min_level[CLASS_THIEF] = tlev;
spell_info[spl].min_level[CLASS_WARRIOR] = wlev;
spell_info[spl].min_position = 0;
spell_info[spl].targets = 0;
spell_info[spl].violent = 0;
spell_info[spl].routines = 0;
}
void spello(int spl, int m_circle, int c_circle, int minpos,
int targets, int violent, int routines)
{
spell_info[spl].min_level[CLASS_MAGIC_USER] = 0;
spell_info[spl].min_level[CLASS_CLERIC] = 0;
spell_info[spl].min_level[CLASS_THIEF] = 0;
spell_info[spl].min_level[CLASS_WARRIOR] = 0;
spell_info[spl].cleric_circle = c_circle;
spell_info[spl].magic_circle = m_circle;
spell_info[spl].min_position = minpos;
spell_info[spl].targets = targets;
spell_info[spl].violent = violent;
spell_info[spl].routines = routines;
}
/*
* COMPLETE GARBAGE.. I WILL REWRITE THE BELOW WHEN I CAN BE BOTHERED
*
* spellnum: Number of the spell. Usually the symbolic name as defined in
* spells.h (such as SPELL_HEAL). levels : Minimum level (mage, cleric,
* thief, warrior) a player must be to cast this spell. Use 'X' for immortal
* only. maxmana : The maximum mana this spell will take (i.e., the mana it
* will take when the player first gets the spell). minmana : The minimum
* mana this spell will take, no matter how high level the caster is.
* manachng: The change in mana for the spell from level to level. This
* number should be positive, but represents the reduction in mana cost as
* the caster's level increases.
*
* minpos : Minimum position the caster must be in for the spell to work
* (usually fighting or standing). targets : A "list" of the valid targets
* for the spell, joined with bitwise OR ('|'). violent : TRUE or FALSE,
* depending on if this is considered a violent spell and should not be cast
* in PEACEFUL rooms or on yourself. routines: A list of magic routines
* which are associated with this spell. Also joined with bitwise OR ('|').
*
* See the CircleMUD documentation for a more detailed description of these
* fields.
*/
#define UU (LVL_IMPL+1)
#define M 0
#define C 0
#define UNUSED1 M,C,0,0,0,0
#define UNUSED2 UU,UU,UU,UU
#define X LVL_IMMORT
void mag_assign_spells(void)
{
int i;
for (i = 1; i <= MAX_SPELLS; i++)
spello(i, UNUSED1);
for (i = MAX_SPELLS+1; i <= MAX_SKILLS; i++)
skillo(i, UNUSED2);
for (i = MAX_SKILLS+1; i <= TOP_SPELL_DEFINE; i++)
spello(i, UNUSED1);
/* C L A S S E S M A N A */
/* Ma Cl Th Wa Max Min Chn */
spello(SPELL_ARMOR, M, 2,
POS_FIGHTING, TAR_CHAR_ROOM, FALSE, MAG_AFFECTS);
spello(SPELL_BLESS, M, 3,
POS_STANDING, TAR_CHAR_ROOM | TAR_OBJ_INV, FALSE, MAG_AFFECTS | MAG_ALTER_OBJS);
spello(SPELL_BLINDNESS, 4, C,
POS_STANDING, TAR_CHAR_ROOM | TAR_NOT_SELF, FALSE, MAG_AFFECTS);
spello(SPELL_BURNING_HANDS, 3, C,
POS_FIGHTING, TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE);
spello(SPELL_CALL_LIGHTNING, M, 6,
POS_FIGHTING, TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE);
spello(SPELL_CHARM, 6, C,
POS_FIGHTING, TAR_CHAR_ROOM | TAR_NOT_SELF, TRUE, MAG_MANUAL);
spello(SPELL_CHILL_TOUCH, 2, C,
POS_FIGHTING, TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE | MAG_AFFECTS);
/* C L A S S E S M A N A */
/* Ma Cl Th Wa Max Min Chn */
spello(SPELL_CLONE, M, C,
POS_STANDING, TAR_CHAR_ROOM | TAR_SELF_ONLY, FALSE, MAG_MANUAL);
spello(SPELL_COLOR_SPRAY, 5, C,
POS_FIGHTING, TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE);
spello(SPELL_CONTROL_WEATHER, M, 6,
POS_STANDING, TAR_IGNORE, FALSE, MAG_MANUAL);
spello(SPELL_CREATE_FOOD, M, 1,
POS_STANDING, TAR_IGNORE, FALSE, MAG_CREATIONS);
spello(SPELL_CREATE_WATER, M, 1,
POS_STANDING, TAR_OBJ_INV | TAR_OBJ_EQUIP, FALSE, MAG_CREATIONS);
spello(SPELL_CURE_BLIND, M, 2,
POS_STANDING, TAR_CHAR_ROOM, FALSE, MAG_UNAFFECTS);
/* Cure Serious Wounds would thus be circle 2 ... makes perfect sense */
spello(SPELL_CURE_CRITIC, M, 3,
POS_FIGHTING, TAR_CHAR_ROOM, FALSE, MAG_POINTS);
/* C L A S S E S M A N A */
/* Ma Cl Th Wa Max Min Chn */
spello(SPELL_CURE_LIGHT, M, 1,
POS_FIGHTING, TAR_CHAR_ROOM, FALSE, MAG_POINTS);
spello(SPELL_CURSE, 6, C,
POS_STANDING, TAR_CHAR_ROOM | TAR_OBJ_INV, TRUE, MAG_AFFECTS | MAG_ALTER_OBJS);
spello(SPELL_DETECT_ALIGN, M, 2,
POS_STANDING, TAR_CHAR_ROOM | TAR_SELF_ONLY, FALSE, MAG_AFFECTS);
spello(SPELL_DETECT_INVIS, 2, 3,
POS_STANDING, TAR_CHAR_ROOM | TAR_SELF_ONLY, FALSE, MAG_AFFECTS);
spello(SPELL_DETECT_MAGIC, 1, 1,
POS_STANDING, TAR_CHAR_ROOM | TAR_SELF_ONLY, FALSE, MAG_AFFECTS);
/* C L A S S E S M A N A */
/* Ma Cl Th Wa Max Min Chn */
spello(SPELL_DETECT_POISON, M, 2,
POS_STANDING, TAR_CHAR_ROOM | TAR_OBJ_INV | TAR_OBJ_ROOM, FALSE, MAG_MANUAL);
spello(SPELL_DISPEL_EVIL, M, 6,
POS_FIGHTING, TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE);
spello(SPELL_DISPEL_GOOD, M, 6,
POS_FIGHTING, TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE);
spello(SPELL_EARTHQUAKE, M, 5,
POS_FIGHTING, TAR_IGNORE, TRUE, MAG_AREAS);
spello(SPELL_ENCHANT_WEAPON, 8, C,
POS_STANDING, TAR_OBJ_INV | TAR_OBJ_EQUIP, FALSE, MAG_MANUAL);
spello(SPELL_ENERGY_DRAIN, 5, C,
POS_FIGHTING, TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE | MAG_MANUAL);
spello(SPELL_GROUP_ARMOR, M, 4,
POS_STANDING, TAR_IGNORE, FALSE, MAG_GROUPS);
/* C L A S S E S M A N A */
/* Ma Cl Th Wa Max Min Chn */
spello(SPELL_FIREBALL, 6, C,
POS_FIGHTING, TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE);
spello(SPELL_GROUP_HEAL, M, 8,
POS_STANDING, TAR_IGNORE, FALSE, MAG_GROUPS);
spello(SPELL_HARM, M, 7,
POS_FIGHTING, TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE);
spello(SPELL_HEAL, M, 6,
POS_FIGHTING, TAR_CHAR_ROOM, FALSE, MAG_POINTS | MAG_AFFECTS | MAG_UNAFFECTS);
spello(SPELL_INFRAVISION, 2, C,
POS_STANDING, TAR_CHAR_ROOM | TAR_SELF_ONLY, FALSE, MAG_AFFECTS);
spello(SPELL_INVISIBLE, 2, C,
POS_STANDING, TAR_CHAR_ROOM | TAR_OBJ_INV | TAR_OBJ_ROOM, FALSE, MAG_AFFECTS | MAG_ALTER_OBJS);
spello(SPELL_LIGHTNING_BOLT, 4, C,
POS_FIGHTING, TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE);
/* C L A S S E S M A N A */
/* Ma Cl Th Wa Max Min Chn */
spello(SPELL_LOCATE_OBJECT, 3, C,
POS_STANDING, TAR_OBJ_WORLD, FALSE, MAG_MANUAL);
spello
+-----------------------------------------------------------+
| Ensure that you have read the CircleMUD Mailing List FAQ: |
| http://cspo.queensu.ca/~fletcher/Circle/list_faq.html |
+-----------------------------------------------------------+
This archive was generated by hypermail 2b30 : 12/07/00 PST