/*
* The unique portions of SunderMud code as well as the integration efforts
* for code from other sources is based on the efforts of:
*
* Lotherius (elfren@aros.net)
*
* This code can only be used under the terms of the DikuMud, Merc,
* and ROM licenses. The same requirements apply to the changes that
* have been made.
*
* All other copyrights remain in place and in force.
*/
/***************************************************************************
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. *
* *
* Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael *
* Chastain, Michael Quan, and Mitchell Tse. *
* *
* In order to use any part of this Merc Diku Mud, you must comply with *
* both the original Diku license in 'license.doc' as well the Merc *
* license in 'license.txt'. In particular, you may not remove either of *
* these copyright notices. *
* *
* Much time and thought has gone into this software and you are *
* benefitting. We hope that you share your changes too. What goes *
* around, comes around. *
***************************************************************************/
#include "everything.h"
#include "magic.h"
/* command procedures needed */
DECLARE_DO_FUN(do_look );
DECLARE_DO_FUN(do_say );
DECLARE_DO_FUN(do_flee );
DECLARE_DO_FUN(do_help );
/* RT spells and skills show the players spells (or skills) */
void do_spells(CHAR_DATA *ch, char *argument)
{
char spell_list[LEVEL_HERO][MAX_STRING_LENGTH];
char spell_columns[LEVEL_HERO];
int sn,lev,mana;
bool found = FALSE;
char buf[MAX_STRING_LENGTH];
char outbuf[(MAX_SKILL+10) * 80];
outbuf[0]='\0';
if (IS_NPC(ch))
return;
/* initilize data */
for (lev = 0; lev < LEVEL_HERO; lev++)
{
spell_columns[lev] = 0;
spell_list[lev][0] = '\0';
}
for (sn = 0; sn < MAX_SKILL; sn++)
{
if (skill_table[sn].name == NULL)
break;
if (skill_table[sn].skill_level[ch->class] < LEVEL_HERO &&
skill_table[sn].spell_fun != spell_null )
{
found = TRUE;
lev = skill_table[sn].skill_level[ch->class];
if (ch->level < lev)
sprintf(buf,"%-18s n/a ", skill_table[sn].name);
else
{
mana = UMAX(skill_table[sn].min_mana,
100/(2 + ch->level - lev));
sprintf(buf,"%-18s %3d mana ",skill_table[sn].name,mana);
}
if (spell_list[lev][0] == '\0')
sprintf(spell_list[lev],"\n\rLevel %2d: %s",lev,buf);
else /* append */
{
if ( ++spell_columns[lev] % 2 == 0)
strcat(spell_list[lev],"\n\r ");
strcat(spell_list[lev],buf);
}
}
}
/* return results */
if (!found)
{
send_to_char("You know no spells.\n\r",ch);
return;
}
for (lev = 0; lev < LEVEL_HERO; lev++)
if (spell_list[lev][0] != '\0')
strcat(outbuf,spell_list[lev]);
strcat(outbuf,"\n\r");
page_to_char(outbuf,ch);
}
void do_skills(CHAR_DATA *ch, char *argument)
{
char skill_list[LEVEL_HERO][MAX_STRING_LENGTH];
char skill_columns[LEVEL_HERO];
int sn,lev,i;
bool found = FALSE;
char buf[MAX_STRING_LENGTH];
char outbuf[(MAX_SKILL+10) * 80];
outbuf[0]='\0';
if (IS_NPC(ch))
return;
/* initilize data */
for (lev = 0; lev < LEVEL_HERO; lev++)
{
skill_columns[lev] = 0;
skill_list[lev][0] = '\0';
}
for (sn = 0; sn < MAX_SKILL; sn++)
{
if (skill_table[sn].name == NULL )
break;
if ( (skill_available(sn, ch) == TRUE )
&& skill_table[sn].spell_fun == spell_null )
{
found = TRUE;
lev = skill_table[sn].skill_level[ch->class];
for (i = 0; i < 5; i++)
{
if ( (pc_race_table[ch->race].skills[i] == NULL)
|| (sn < 0) )
break;
if (sn == (skill_lookup(pc_race_table[ch->race].skills[i])) )
lev = 1;
}
if (ch->level < lev)
sprintf(buf,"%-18s n/a ", skill_table[sn].name);
else
sprintf(buf,"%-18s %3d%% ",skill_table[sn].name,
ch->pcdata->learned[sn]);
if (skill_list[lev][0] == '\0')
sprintf(skill_list[lev],"\n\rLevel %2d: %s",lev,buf);
else /* append */
{
if ( ++skill_columns[lev] % 2 == 0)
strcat(skill_list[lev],"\n\r ");
strcat(skill_list[lev],buf);
}
}
}
/* return results */
if (!found)
{
send_to_char("You know no skills.\n\r",ch);
return;
}
for (lev = 0; lev < LEVEL_HERO; lev++)
if (skill_list[lev][0] != '\0')
strcat(outbuf,skill_list[lev]);
strcat(outbuf,"\n\r");
page_to_char(outbuf,ch);
}
int exp_per_level(CHAR_DATA *ch, int points)
{
int expl,inc;
if (IS_NPC(ch))
return 1000;
expl = 1000;
inc = 500;
return 1500 * pc_race_table[ch->race].class_mult[ch->class]/100;
}
/* checks for skill improvement */
void check_improve( CHAR_DATA *ch, int sn, bool success, int multiplier )
{
int chance;
char buf[100];
if (IS_NPC(ch))
return;
if (ch->level < skill_table[sn].skill_level[ch->class]
|| ch->pcdata->learned[sn] == 0
|| ch->pcdata->learned[sn] == 100)
return; /* skill is not known or is max */
/* check to see if the character has a chance to learn */
chance = 10 * int_app[get_curr_stat(ch,STAT_INT)].learn;
chance /= ( multiplier
* 4);
chance += ch->level;
if (number_range(1,1000) > chance)
return;
/* now that the character has a CHANCE to learn, see if they really have */
if (success)
{
chance = URANGE(5,100 - ch->pcdata->learned[sn], 95);
if (number_percent() < chance)
{
sprintf(buf,"You have become better at %s!\n\r",
skill_table[sn].name);
send_to_char(buf,ch);
ch->pcdata->learned[sn]++;
gain_exp(ch,2);
}
}
else
{
chance = URANGE(5,ch->pcdata->learned[sn]/2,30);
if (number_percent() < chance)
{
sprintf(buf,
"You learn from your mistakes, and your %s skill improves.\n\r",
skill_table[sn].name);
send_to_char(buf,ch);
ch->pcdata->learned[sn] += number_range(1,3);
ch->pcdata->learned[sn] = UMIN(ch->pcdata->learned[sn],100);
gain_exp(ch,2);
}
}
}
/*
* Lookup a skill by name.
*/
int skill_lookup( const char *name )
{
int sn;
for ( sn = 0; sn < MAX_SKILL; sn++ )
{
if ( skill_table[sn].name == NULL )
break;
if ( LOWER(name[0]) == LOWER(skill_table[sn].name[0])
&& !str_prefix( name, skill_table[sn].name ) )
return sn;
}
return -1;
}
/*
* Lookup a skill by slot number.
* Used for object loading.
*/
int slot_lookup( int slot )
{
extern bool fBootDb;
int sn;
if ( slot <= 0 )
return -1;
for ( sn = 0; sn < MAX_SKILL; sn++ )
{
if ( slot == skill_table[sn].slot )
return sn;
}
if ( fBootDb )
{
bug( "Slot_lookup: bad slot %d.", slot );
abort( );
}
return -1;
}
/*
* Utter mystical words for an sn.
*/
void say_spell( CHAR_DATA *ch, int sn )
{
char buf [MAX_STRING_LENGTH];
char buf2 [MAX_STRING_LENGTH];
CHAR_DATA *rch;
char *pName;
int iSyl;
int length;
struct syl_type
{
char * old;
char * new;
};
static const struct syl_type syl_table[] =
{
{ " ", " " },
{ "ar", "asta" },
{ "au", "kera" },
{ "bless", "dise" },
{ "blind", "vosi" },
{ "bur", "mosa" },
{ "cu", "judi" },
{ "de", "oculo" },
{ "en", "unso" },
{ "light", "dies" },
{ "lo", "hi" },
{ "mor", "zak" },
{ "move", "sido" },
{ "ness", "lacri" },
{ "ning", "illa" },
{ "per", "duda" },
{ "ra", "gru" },
{ "fresh", "ima" },
{ "re", "candus" },
{ "son", "sabru" },
{ "tect", "infra" },
{ "tri", "cula" },
{ "ven", "nofo" },
{ "a", "a" }, { "b", "b" }, { "c", "q" }, { "d", "e" },
{ "e", "z" }, { "f", "y" }, { "g", "o" }, { "h", "p" },
{ "i", "u" }, { "j", "y" }, { "k", "t" }, { "l", "r" },
{ "m", "w" }, { "n", "i" }, { "o", "a" }, { "p", "s" },
{ "q", "d" }, { "r", "f" }, { "s", "g" }, { "t", "h" },
{ "u", "j" }, { "v", "z" }, { "w", "x" }, { "x", "n" },
{ "y", "l" }, { "z", "k" },
{ "", "" }
};
buf[0] = '\0';
for ( pName = skill_table[sn].name; *pName != '\0'; pName += length )
{
for ( iSyl = 0; (length = strlen(syl_table[iSyl].old)) != 0; iSyl++ )
{
if ( !str_prefix( syl_table[iSyl].old, pName ) )
{
strcat( buf, syl_table[iSyl].new );
break;
}
}
if ( length == 0 )
length = 1;
}
sprintf( buf2, "$n utters the words, '%s'.", buf );
sprintf( buf, "$n utters the words, '%s'.", skill_table[sn].name );
for ( rch = ch->in_room->people; rch; rch = rch->next_in_room )
{
if ( rch != ch )
act( ch->class==rch->class ? buf : buf2, ch, NULL, rch, TO_VICT );
}
return;
}
/*
* Compute a saving throw.
* Negative apply's make saving throw better.
*/
bool saves_spell( int level, CHAR_DATA *victim )
{
int save;
save = 50 + ( victim->level - level - victim->saving_throw ) * 5;
if (IS_AFFECTED(victim,AFF_BERSERK))
save += victim->level/2;
save = URANGE( 5, save, 95 );
return number_percent( ) < save;
}
/* RT save for dispels */
bool saves_dispel( int dis_level, int spell_level, int duration)
{
int save;
if (duration == -1)
spell_level += 2;
/* very hard to dispel permanent effects */
save = 50 + (spell_level - dis_level) * 5;
save = URANGE( 5, save, 95 );
return number_percent( ) < save;
}
/* co-routine for dispel magic and cancellation */
bool check_dispel( int dis_level, CHAR_DATA *victim, int sn)
{
AFFECT_DATA *af;
if (is_affected(victim, sn))
{
for ( af = victim->affected; af != NULL; af = af->next )
{
if ( af->type == sn )
{
if (!saves_dispel(dis_level,af->level,af->duration))
{
affect_strip(victim,sn);
if ( skill_table[sn].msg_off )
{
send_to_char( skill_table[sn].msg_off, victim );
send_to_char( "\n\r", victim );
}
return TRUE;
}
else
af->level--;
}
}
}
return FALSE;
}
/* for finding mana costs -- temporary version */
int mana_cost (CHAR_DATA *ch, int min_mana, int level)
{
if (ch->level + 2 == level)
return 1000;
return UMAX(min_mana,(100/(2 + ch->level - level)));
}
/*
* The kludgy global is for spells who want more stuff from command line.
*/
char *target_name;
void do_cast( CHAR_DATA *ch, char *argument )
{
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
OBJ_DATA *component = NULL;
CHAR_DATA *victim;
OBJ_DATA *obj;
void *vo;
int mana;
int sn;
/*
* Switched NPC's can cast spells, but others can't.
*/
if ( IS_NPC(ch) && ch->desc == NULL)
return;
target_name = one_argument( argument, arg1 );
one_argument( target_name, arg2 );
if ( arg1[0] == '\0' )
{
send_to_char( "Cast which what where?\n\r", ch );
return;
}
if ( ( sn = skill_lookup( arg1 ) ) < 0
|| ( !IS_NPC(ch) && ch->level < skill_table[sn].skill_level[ch->class] )
|| (ch->pcdata->learned[sn] < 1) )
{
send_to_char( "You don't know any spells of that name.\n\r", ch );
return;
}
if (skill_table[sn].spell_fun == spell_null)
{
send_to_char( "That's not a spell!\n\r", ch );
return;
}
if (is_affected(ch, skill_lookup("mute")) &&
sn != skill_lookup("cancellation") &&
!is_affected(ch, skill_lookup("vocalize")) )
{
send_to_char ("Mute people may only cast 'cancellation'.\n\r",ch);
return;
}
if ( ch->position < skill_table[sn].minimum_position )
{
send_to_char( "You can't concentrate enough.\n\r", ch );
return;
}
if ( str_cmp(skill_table[sn].component,"") )
component = get_obj_carry(ch, skill_table[sn].component);
if ( ( str_cmp(skill_table[sn].component,"") ) && (!component) )
{
char cbuf[80];
sprintf(cbuf,"You need to have the component '%s' to cast this.\n\r",
skill_table[sn].component );
send_to_char(cbuf,ch);
return;
}
if ( str_cmp(skill_table[sn].component,"") &&
(component->item_type != ITEM_COMPONENT) )
{
char cbuf[80];
sprintf(cbuf,"Your '%s' is not the correct component.\n\r",
component->short_descr );
send_to_char(cbuf,ch);
return;
}
if (ch->level + 2 == skill_table[sn].skill_level[ch->class])
mana = 50;
else
mana = UMAX(
skill_table[sn].min_mana,
100 / ( 2 + ch->level - skill_table[sn].skill_level[ch->class] ) );
/*
* Locate targets.
*/
victim = NULL;
obj = NULL;
vo = NULL;
switch ( skill_table[sn].target )
{
default:
bug( "Do_cast: bad target for sn %d.", sn );
return;
case TAR_IGNORE:
break;
case TAR_CHAR_OFFENSIVE:
if (IS_AFFECTED(ch, AFF_FEAR))
{
send_to_char ("You are too scared to attack anyone...\n\r",ch);
return;
}
if ( arg2[0] == '\0' )
{
if ( ( victim = ch->fighting ) == NULL )
{
send_to_char( "Cast the spell on whom?\n\r", ch );
return;
}
}
else
{
if ( ( victim = get_char_room( ch, arg2 ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
}
/*
if ( ch == victim )
{
send_to_char( "You can't do that to yourself.\n\r", ch );
return;
}
*/
if ( !IS_NPC(ch) )
{
if (is_safe_spell(ch,victim,FALSE) && victim != ch)
{
send_to_char("Not on that target.\n\r",ch);
return;
}
if (!IS_NPC(victim) && !can_murder(ch, victim))
{
send_to_char ("That character is outside your pkill range.\n\r",ch);
return;
}
}
if ( IS_AFFECTED(ch, AFF_CHARM) && ch->master == victim )
{
send_to_char( "You can't do that to your good friend...\n\r",
ch );
return;
}
vo = (void *) victim;
break;
case TAR_CHAR_DEFENSIVE:
if ( arg2[0] == '\0' )
{
victim = ch;
}
else
{
if ( ( victim = get_char_room( ch, arg2 ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
}
vo = (void *) victim;
break;
case TAR_CHAR_SELF:
if ( arg2[0] != '\0' && !is_name( arg2, ch->name ) )
{
send_to_char( "You cannot cast this spell on another.\n\r", ch );
return;
}
victim = ch;
vo = (void *) ch;
break;
case TAR_OBJ_INV:
if ( arg2[0] == '\0' )
{
send_to_char( "What should the spell be cast upon?\n\r", ch );
return;
}
if ( ( obj = get_obj_carry( ch, arg2 ) ) == NULL )
{
send_to_char( "You are not carrying that.\n\r", ch );
return;
}
vo = (void *) obj;
break;
}
if ( !IS_NPC(ch) && ch->mana < mana )
{
send_to_char( "You don't have enough mana.\n\r", ch );
return;
}
if ( str_cmp( skill_table[sn].name, "ventriloquate" ) &&
!is_affected(ch, skill_lookup("mute")) )
say_spell( ch, sn );
WAIT_STATE( ch, skill_table[sn].beats );
if ( !IS_NPC(ch) && number_percent( ) > ch->pcdata->learned[sn] )
{
send_to_char( "You lost your concentration.\n\r", ch );
check_improve(ch,sn,FALSE,1);
ch->mana -= mana / 2;
if (str_cmp(skill_table[sn].component,""))
{
send_to_char("Your component is consumed by the spell.\n\r",ch);
extract_obj(component);
}
}
else
{
ch->mana -= mana;
if (str_cmp(skill_table[sn].component,""))
{
send_to_char("Your component is consumed by the spell.\n\r",ch);
extract_obj(component);
}
if ( (skill_table[sn].target == TAR_CHAR_OFFENSIVE) &&
IS_AFFECTED(victim, AFF_ABSORB) &&
(skill_lookup("dispel magic") != sn) )
{
if ( (number_percent() - 5*(ch->level - victim->level)) > ch->pcdata->learned[sn]/2 )
{
char messbuf[80];
sprintf (messbuf, "You absorb the magic of %s's offensive spell!\n\r",ch->name);
send_to_char (messbuf,victim);
sprintf (messbuf, "%s absorbs your offensive spell!\n\r",PERS(victim, ch));
send_to_char (messbuf, ch);
}
else
(*skill_table[sn].spell_fun) ( sn, ch->level, ch, vo );
}
else
(*skill_table[sn].spell_fun) ( sn, ch->level, ch, vo );
check_improve(ch,sn,TRUE,1);
}
if ( skill_table[sn].target == TAR_CHAR_OFFENSIVE
&& victim != ch
&& victim->master != ch)
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
for ( vch = ch->in_room->people; vch; vch = vch_next )
{
vch_next = vch->next_in_room;
if ( victim == vch && victim->fighting == NULL && skill_lookup("fear") != sn)
{
multi_hit( victim, ch, TYPE_UNDEFINED );
break;
}
}
}
return;
}
/*
* Cast spells at targets using a magical object.
*/
void obj_cast_spell( int sn, int level, CHAR_DATA *ch, CHAR_DATA *victim, OBJ_DATA *obj )
{
void *vo;
if ( sn <= 0 )
return;
if ( sn >= MAX_SKILL || skill_table[sn].spell_fun == 0 )
{
bug( "Obj_cast_spell: bad sn %d.", sn );
return;
}
switch ( skill_table[sn].target )
{
default:
bug( "Obj_cast_spell: bad target for sn %d.", sn );
return;
case TAR_IGNORE:
vo = NULL;
break;
case TAR_CHAR_OFFENSIVE:
if ( victim == NULL )
victim = ch->fighting;
if ( victim == NULL )
{
send_to_char( "You can't do that.\n\r", ch );
return;
}
if (is_safe_spell(ch,victim,FALSE) && ch != victim)
{
send_to_char("Something isn't right...\n\r",ch);
return;
}
vo = (void *) victim;
break;
case TAR_CHAR_DEFENSIVE:
if ( victim == NULL )
victim = ch;
vo = (void *) victim;
break;
case TAR_CHAR_SELF:
vo = (void *) ch;
break;
case TAR_OBJ_INV:
if ( obj == NULL )
{
send_to_char( "You can't do that.\n\r", ch );
return;
}
vo = (void *) obj;
break;
}
target_name = "";
(*skill_table[sn].spell_fun) ( sn, level, ch, vo );
if ( skill_table[sn].target == TAR_CHAR_OFFENSIVE
&& victim != ch
&& victim->master != ch )
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
for ( vch = ch->in_room->people; vch; vch = vch_next )
{
vch_next = vch->next_in_room;
if ( victim == vch && victim->fighting == NULL )
{
multi_hit( victim, ch, TYPE_UNDEFINED );
break;
}
}
}
return;
}
/*
* Spell functions.
*/
void spell_absorb_magic( int sn, int level, CHAR_DATA *ch, void *vo )
{
AFFECT_DATA af;
if ( IS_AFFECTED(ch, AFF_ABSORB) )
{
send_to_char("You are already able to absorb magic.\n\r",ch);
return;
}
af.type = sn;
af.level = level;
af.duration = number_fuzzy( level / 6 );
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_ABSORB;
affect_to_char( ch, &af );
act( "$n is surrounded my a strange mystical aura.", ch, NULL, NULL, TO_ROOM );
send_to_char( "You are surrounded by a mystical absorbing aura.\n\r", ch );
return;
}
void spell_acid_blast( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
int dam;
dam = dice( level, 12 );
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn,DAM_ACID );
return;
}
void spell_entropy (int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
if ( !saves_spell ( level, victim ) )
{
check_damage_obj (victim, NULL, 100); /* gotcher equipment sucker! */
act("A blast of chaotic magic surronds $N.",
ch,NULL,victim,TO_ROOM);
act("You release a blast of entropy to $N.",
ch,NULL,victim,TO_CHAR);
act("A blast of chaotic energy screaches from $n's hand and surrounds you!",
ch,NULL,victim,TO_VICT);
return;
}
else
{
check_damage_obj (ch, NULL, 15);
act ("$N fails yet another spell.", ch,NULL,victim,TO_ROOM);
send_to_char("Your spell fails. Again.\n\r",ch);
act("A blast of chaotic energy screaches from $n's hand, but fails to reach you.",
ch,NULL,victim,TO_VICT);
return;
}
return;
}
void spell_animate( int sn, int level, CHAR_DATA *ch, void *vo)
{
OBJ_DATA *obj;
CHAR_DATA *mob;
int i;
int number;
int type;
int bonus;
obj = get_obj_here( ch, target_name );
if ( obj == NULL )
{
send_to_char( "Resurrect what?\n\r", ch );
return;
}
/* Nothing but NPC corpses. */
if( obj->item_type != ITEM_CORPSE_NPC )
{
if( obj->item_type == ITEM_CORPSE_PC )
send_to_char( "You can't resurrect players.\n\r", ch );
else
send_to_char( "It would serve no purpose...\n\r", ch );
return;
}
if( obj->level > (ch->level + 2) )
{
send_to_char( "You couldn't call forth such a great zombie.\n\r", ch );
return;
}
if( ch->pet != NULL )
{
send_to_char( "You already have a pet.\n\r", ch );
return;
}
/* Chew on the zombie a little bit, recalculate level-dependant stats */
mob = create_mobile( get_mob_index( MOB_VNUM_ZOMBIE ) );
mob->level = obj->level;
mob->max_hit = mob->level * 8 + number_range(
mob->level * mob->level/4,
mob->level * mob->level);
mob->max_hit *= .9;
mob->hit = mob->max_hit;
mob->max_mana = 100 + dice(mob->level,10);
mob->mana = mob->max_mana;
for (i = 0; i < 3; i++)
mob->armor[i] = interpolate(mob->level,100,-100);
mob->armor[3] = interpolate(mob->level,100,0);
number = UMIN(mob->level/4 + 1, 5);
type = (mob->level + 7)/number;
bonus = UMAX(0, mob->level*9/4 - number*type);
mob->damage[DICE_NUMBER] = number;
mob->damage[DICE_TYPE] = type;
mob->damage[DICE_BONUS] = bonus;
for (i = 0; i < MAX_STATS; i++)
mob->perm_stat[i] = 11 + mob->level/4;
/* You rang? */
char_to_room( mob, ch->in_room );
act( "$p springs to life as a hideous zombie!", ch, obj, NULL, TO_ROOM );
act( "$p springs to life as a hideous zombie!", ch, obj, NULL, TO_CHAR );
extract_obj(obj);
/* Yessssss, massssssster... */
SET_BIT(mob->affected_by, AFF_CHARM);
SET_BIT(mob->act, ACT_FOLLOWER);
mob->comm = COMM_NOTELL|COMM_NOSHOUT|COMM_NOCHANNELS;
add_follower( mob, ch );
mob->leader = ch;
ch->pet = mob;
/* For a little flavor... */
do_say( mob, "How may I serve you, master?" );
return;
}
void spell_minor_creation( int sn, int leve, CHAR_DATA *ch, void *vo)
{
OBJ_DATA *obj;
/* Minor Creation totally by elfren
run through tons of if checks... sloppy but simple.
rather use case but didn't wanna bother... just add another
if check if you need to add a new item.
*/
if (!str_cmp(target_name, "boat") )
{
obj = create_object (get_obj_index (OBJ_VNUM_BOAT), 0);
obj->cost=0;
obj_to_room (obj, ch->in_room);
act ("$n mutters some words and $p materializes from thin air.",ch,obj,NULL,TO_ROOM);
send_to_char("A boat materializes before you.\n\r",ch);
return;
}
if (!str_cmp(target_name, "bag") )
{
obj = create_object (get_obj_index (OBJ_VNUM_BAG), 0);
obj->cost=0;
obj_to_room (obj, ch->in_room);
act ("$n mutters some words and $p materializes from thin air.",ch,obj,NULL,TO_ROOM);
send_to_char("A bag materializes before you.\n\r",ch);
return;
}
/* item not found */
send_to_char("You don't know how to make that kind of object.",ch);
return;
}
void spell_soul_blade( int sn, int level, CHAR_DATA *ch, void *vo)
{
OBJ_DATA *obj;
OBJ_DATA *sblade;
int number,type;
obj = get_obj_here( ch, target_name );
if ( obj == NULL )
{
send_to_char( "Cast Soul Blade on What?\n\r", ch );
return;
}
/* Nothing but NPC corpses. */
if( obj->item_type != ITEM_CORPSE_NPC )
{
if( obj->item_type == ITEM_CORPSE_PC )
send_to_char( "The player wishes to keep their soul.\n\r", ch );
else
send_to_char( "It would serve no purpose...\n\r", ch );
return;
}
if( obj->level > (ch->level + 2) )
{
send_to_char( "You cannot forge such a soul into a blade.\n\r", ch );
return;
}
/* Create the soulblade */
sblade = create_object ( get_obj_index (OBJ_VNUM_SOULBLADE), 0);
sblade->level = obj->level;
number = UMIN(sblade->level/4 + 1, 5);
type = (sblade->level + 7)/number;
sblade->value[1] = number;
sblade->value[2] = type;
sblade->timer = (sblade->level +10)/2;
/* Action! */
obj_to_room( sblade, ch->in_room );
act( "$n waves dramatically and $p appears.", ch, sblade, NULL, TO_ROOM );
act( "You wave dramatically and $p appears.", ch, sblade, NULL, TO_CHAR );
extract_obj(obj);
return;
}
void spell_armor( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( is_affected( victim, sn ) )
{
if (victim == ch)
send_to_char("You are already protected.\n\r",ch);
else
act("$N is already armored.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = 24;
af.modifier = -20;
af.location = APPLY_AC;
af.bitvector = 0;
affect_to_char( victim, &af );
send_to_char( "You feel someone protecting you.\n\r", victim );
if ( ch != victim )
act("$N is protected by your magic.",ch,NULL,victim,TO_CHAR);
return;
}
void spell_bless( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( victim->position == POS_FIGHTING || is_affected( victim, sn ) )
{
if (victim == ch)
send_to_char("You are already blessed.\n\r",ch);
else
act("$N already has divine favor.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = 6+level;
af.location = APPLY_HITROLL;
af.modifier = level / 8;
af.bitvector = 0;
affect_to_char( victim, &af );
af.location = APPLY_SAVING_SPELL;
af.modifier = 0 - level / 8;
affect_to_char( victim, &af );
send_to_char( "You feel righteous.\n\r", victim );
if ( ch != victim )
act("You grant $N the favor of your god.",ch,NULL,victim,TO_CHAR);
return;
}
void spell_blindness( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( IS_AFFECTED(victim, AFF_BLIND) || saves_spell( level, victim ) )
return;
af.type = sn;
af.level = level;
af.location = APPLY_HITROLL;
af.modifier = -4;
af.duration = 1+level;
af.bitvector = AFF_BLIND;
affect_to_char( victim, &af );
send_to_char( "You are blinded!\n\r", victim );
act("$n appears to be blinded.",victim,NULL,NULL,TO_ROOM);
return;
}
void spell_burning_hands( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
static const sh_int dam_each[] =
{
0,
0, 0, 0, 0, 14, 17, 20, 23, 26, 29,
29, 29, 30, 30, 31, 31, 32, 32, 33, 33,
34, 34, 35, 35, 36, 36, 37, 37, 38, 38,
39, 39, 40, 40, 41, 41, 42, 42, 43, 43,
44, 44, 45, 45, 46, 46, 47, 47, 48, 48
};
int dam;
level = UMIN(level, sizeof(dam_each)/sizeof(dam_each[0]) - 1);
level = UMAX(0, level);
dam = number_range( dam_each[level] / 2, dam_each[level] * 2 );
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn, DAM_FIRE );
return;
}
void spell_call_lightning( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
int dam;
if ( !IS_OUTSIDE(ch) )
{
send_to_char( "You must be out of doors.\n\r", ch );
return;
}
if ( weather_info.sky < SKY_RAINING )
{
send_to_char( "You need bad weather.\n\r", ch );
return;
}
dam = dice(level/2, 8);
send_to_char( "Mota's lightning strikes your foes!\n\r", ch );
act( "$n calls Mota's lightning to strike $s foes!",
ch, NULL, NULL, TO_ROOM );
for ( vch = char_list; vch != NULL; vch = vch_next )
{
vch_next = vch->next;
if ( vch->in_room == NULL )
continue;
if ( vch->in_room == ch->in_room )
{
if ( vch != ch && ( IS_NPC(ch) ? !IS_NPC(vch) : IS_NPC(vch) ) )
damage( ch, vch, saves_spell( level,vch ) ? dam / 2 : dam, sn,
DAM_LIGHTNING );
continue;
}
if ( vch->in_room->area == ch->in_room->area
&& IS_OUTSIDE(vch)
&& IS_AWAKE(vch) )
send_to_char( "Lightning flashes in the sky.\n\r", vch );
}
return;
}
/* RT calm spell stops all fighting in the room */
void spell_calm( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *vch;
int mlevel = 0;
int count = 0;
int high_level = 0;
int chance;
AFFECT_DATA af;
/* get sum of all mobile levels in the room */
for (vch = ch->in_room->people; vch != NULL; vch = vch->next_in_room)
{
if (vch->position == POS_FIGHTING)
{
count++;
if (IS_NPC(vch))
mlevel += vch->level;
else
mlevel += vch->level/2;
high_level = UMAX(high_level,vch->level);
}
}
/* compute chance of stopping combat */
chance = 4 * level - high_level + 2 * count;
if (IS_IMMORTAL(ch)) /* always works */
mlevel = 0;
if (number_range(0, chance) >= mlevel) /* hard to stop large fights */
{
for (vch = ch->in_room->people; vch != NULL; vch = vch->next_in_room)
{
if (IS_NPC(vch) && (IS_SET(vch->imm_flags,IMM_MAGIC) ||
IS_SET(vch->act,ACT_UNDEAD)))
return;
if (IS_AFFECTED(vch,AFF_CALM) || IS_AFFECTED(vch,AFF_BERSERK)
|| is_affected(vch,skill_lookup("frenzy")))
return;
send_to_char("A wave of calm passes over you.\n\r",vch);
if (vch->fighting || vch->position == POS_FIGHTING)
stop_fighting(vch,FALSE);
af.type = sn;
af.level = level;
af.duration = level/4;
af.location = APPLY_HITROLL;
if (!IS_NPC(vch))
af.modifier = -5;
else
af.modifier = -2;
af.bitvector = AFF_CALM;
affect_to_char(vch,&af);
af.location = APPLY_DAMROLL;
affect_to_char(vch,&af);
}
}
}
void spell_cancellation( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
bool found = FALSE;
level += 2;
if ((!IS_NPC(ch) && IS_NPC(victim) &&
!(IS_AFFECTED(ch, AFF_CHARM) && ch->master == victim) ) ||
(IS_NPC(ch) && !IS_NPC(victim)) )
{
send_to_char("You failed, try dispel magic.\n\r",ch);
return;
}
/* unlike dispel magic, the victim gets NO save */
/* begin running through the spells */
if (check_dispel(level,victim,skill_lookup("absorb magic")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("spirit armor")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("regeneration")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("armor")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("bless")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("blindness")))
{
found = TRUE;
act("$n is no longer blinded.",victim,NULL,NULL,TO_ROOM);
}
if (check_dispel(level,victim,skill_lookup("calm")))
{
found = TRUE;
act("$n no longer looks so peaceful...",victim,NULL,NULL,TO_ROOM);
}
if (check_dispel(level,victim,skill_lookup("change sex")))
{
found = TRUE;
act("$n looks more like $mself again.",victim,NULL,NULL,TO_ROOM);
send_to_char("You feel more like yourself again.\n\r",victim);
}
if (check_dispel(level,victim,skill_lookup("charm person")))
{
found = TRUE;
act("$n regains $s free will.",victim,NULL,NULL,TO_ROOM);
}
if (check_dispel(level,victim,skill_lookup("chill touch")))
{
found = TRUE;
act("$n looks warmer.",victim,NULL,NULL,TO_ROOM);
}
if (check_dispel(level,victim,skill_lookup("curse")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("detect evil")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("detect good")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("detect hidden")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("detect invis")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("detect hidden")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("detect magic")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("faerie fire")))
{
act("$n's outline fades.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("fear")))
{
act("$n no longer looks so scared.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("fly")))
{
act("$n falls to the ground!",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("frenzy")))
{
act("$n no longer looks so wild.",victim,NULL,NULL,TO_ROOM);;
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("giant strength")))
{
act("$n no longer looks so mighty.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("haste")))
{
act("$n is no longer moving so quickly.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("infravision")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("invis")))
{
act("$n fades into existance.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("mask self")))
{
act("$n suddenly appears as $s mask vanishes.",victim,NULL,NULL,TO_ROOM);
undo_mask(victim);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("mass invis")))
{
act("$n fades into existance.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("mind meld")))
{
act("$n has regained $s senses.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("mute")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("pass door")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("protection evil")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("protection good")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("sanctuary")))
{
act("The white aura around $n's body vanishes.",
victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("shield")))
{
act("The shield protecting $n vanishes.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("sleep")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("stone skin")))
{
act("$n's skin regains its normal texture.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("vocalize")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("weaken")))
{
act("$n looks stronger.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (found)
send_to_char("Ok.\n\r",ch);
else
send_to_char("Spell failed.\n\r",ch);
}
void spell_cause_light( int sn, int level, CHAR_DATA *ch, void *vo )
{
damage( ch, (CHAR_DATA *) vo, dice(1, 8) + level / 3, sn, DAM_HARM );
return;
}
void spell_cause_critical( int sn, int level, CHAR_DATA *ch, void *vo )
{
damage( ch, (CHAR_DATA *) vo, dice(3, 8) + level - 6, sn, DAM_HARM );
return;
}
void spell_cause_serious( int sn, int level, CHAR_DATA *ch, void *vo )
{
damage( ch, (CHAR_DATA *) vo, dice(2, 8) + level / 2, sn, DAM_HARM );
return;
}
void spell_youth(int sn, int level, CHAR_DATA *ch, void *vo)
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
if ( IS_NPC(victim) )
{
send_to_char("This spell only affects players.", ch);
return;
}
send_to_char( "You feel a great weight lifted off your shoulders.\n\r", victim );
act("$n's skin takes on a youthful glow.",victim,NULL,NULL,TO_ROOM);
victim->pcdata->age_mod += number_range ( 1, 3 );
return;
}
void spell_age(int sn, int level, CHAR_DATA *ch, void *vo)
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
if ( IS_NPC(victim) )
{
send_to_char("This spell only affects players.", ch);
return;
}
send_to_char( "Your skin crawls as your life is sucked away\n\r",victim );
act("$n appears to grow old before your eyes.",victim,NULL,NULL,TO_ROOM);
victim->pcdata->age_mod -= number_range ( 1, 5 );
return;
}
void spell_chain_lightning(int sn, int level, CHAR_DATA *ch, void *vo)
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
CHAR_DATA *tmp_vict,*last_vict,*next_vict;
bool found;
int dam;
/* first strike */
act("A lightning bolt leaps from $n's hand and arcs to $N.",
ch,NULL,victim,TO_ROOM);
act("A lightning bolt leaps from your hand and arcs to $N.",
ch,NULL,victim,TO_CHAR);
act("A lightning bolt leaps from $n's hand and hits you!",
ch,NULL,victim,TO_VICT);
dam = dice(level,6);
if (saves_spell(level,victim))
dam /= 3;
damage(ch,victim,dam,sn,DAM_LIGHTNING);
last_vict = victim;
level -= 4; /* decrement damage */
/* new targets */
while (level > 0)
{
found = FALSE;
for (tmp_vict = ch->in_room->people;
tmp_vict != NULL;
tmp_vict = next_vict)
{
next_vict = tmp_vict->next_in_room;
if (!is_safe_spell(ch,tmp_vict,TRUE) && tmp_vict != last_vict)
{
found = TRUE;
last_vict = tmp_vict;
act("The bolt arcs to $n!",tmp_vict,NULL,NULL,TO_ROOM);
act("The bolt hits you!",tmp_vict,NULL,NULL,TO_CHAR);
dam = dice(level,6);
if (saves_spell(level,tmp_vict))
dam /= 3;
damage(ch,tmp_vict,dam,sn,DAM_LIGHTNING);
level -= 4; /* decrement damage */
}
} /* end target searching loop */
if (!found) /* no target found, hit the caster */
{
if (ch == NULL)
return;
if (last_vict == ch) /* no double hits */
{
act("The bolt seems to have fizzled out.",ch,NULL,NULL,TO_ROOM);
act("The bolt grounds out through your body.",
ch,NULL,NULL,TO_CHAR);
return;
}
last_vict = ch;
act("The bolt arcs to $n...whoops!",ch,NULL,NULL,TO_ROOM);
send_to_char("You are struck by your own lightning!\n\r",ch);
dam = dice(level,6);
if (saves_spell(level,ch))
dam /= 3;
damage(ch,ch,dam,sn,DAM_LIGHTNING);
level -= 4; /* decrement damage */
if (ch == NULL)
return;
}
/* now go back and find more targets */
}
}
void spell_change_sex( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( is_affected( victim, sn ))
{
if (victim == ch)
send_to_char("You've already been changed.\n\r",ch);
else
act("$N has already had $s(?) sex changed.",ch,NULL,victim,TO_CHAR);
return;
}
if (saves_spell(level , victim))
return;
af.type = sn;
af.level = level;
af.duration = 2 * level;
af.location = APPLY_SEX;
do
{
af.modifier = number_range( 0, 2 ) - victim->sex;
}
while ( af.modifier == 0 );
af.bitvector = 0;
affect_to_char( victim, &af );
send_to_char( "You feel different.\n\r", victim );
act("$n doesn't look like $mself anymore...",victim,NULL,NULL,TO_ROOM);
return;
}
void spell_charm_person( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( victim == ch )
{
send_to_char( "You like yourself even better!\n\r", ch );
return;
}
if ( IS_AFFECTED(victim, AFF_CHARM)
|| IS_AFFECTED(ch, AFF_CHARM)
|| level < victim->level
|| IS_SET(victim->imm_flags,IMM_CHARM)
|| saves_spell( level, victim ) )
return;
if (IS_SET(victim->in_room->room_flags,ROOM_LAW))
{
send_to_char(
"The mayor does not allow charming in the city limits.\n\r",ch);
return;
}
if ( victim->master )
stop_follower( victim );
add_follower( victim, ch );
victim->leader = ch;
af.type = sn;
af.level = level;
af.duration = number_fuzzy( level / 4 );
af.location = 0;
af.modifier = 0;
af.bitvector = AFF_CHARM;
affect_to_char( victim, &af );
act( "Isn't $n just so nice?", ch, NULL, victim, TO_VICT );
if ( ch != victim )
act("$N looks at you with adoring eyes.",ch,NULL,victim,TO_CHAR);
return;
}
void spell_chill_touch( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
static const sh_int dam_each[] =
{
0,
0, 0, 6, 7, 8, 9, 12, 13, 13, 13,
14, 14, 14, 15, 15, 15, 16, 16, 16, 17,
17, 17, 18, 18, 18, 19, 19, 19, 20, 20,
20, 21, 21, 21, 22, 22, 22, 23, 23, 23,
24, 24, 24, 25, 25, 25, 26, 26, 26, 27
};
AFFECT_DATA af;
int dam;
level = UMIN(level, sizeof(dam_each)/sizeof(dam_each[0]) - 1);
level = UMAX(0, level);
dam = number_range( dam_each[level] / 2, dam_each[level] * 2 );
if ( !saves_spell( level, victim ) )
{
act("$n turns blue and shivers.",victim,NULL,NULL,TO_ROOM);
af.type = sn;
af.level = level;
af.duration = 6;
af.location = APPLY_STR;
af.modifier = -1;
af.bitvector = 0;
affect_join( victim, &af );
}
else
{
dam /= 2;
}
damage( ch, victim, dam, sn, DAM_COLD );
return;
}
void spell_colour_spray( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
static const sh_int dam_each[] =
{
0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
30, 35, 40, 45, 50, 55, 55, 55, 56, 57,
58, 58, 59, 60, 61, 61, 62, 63, 64, 64,
65, 66, 67, 67, 68, 69, 70, 70, 71, 72,
73, 73, 74, 75, 76, 76, 77, 78, 79, 79
};
int dam;
level = UMIN(level, sizeof(dam_each)/sizeof(dam_each[0]) - 1);
level = UMAX(0, level);
dam = number_range( dam_each[level] / 2, dam_each[level] * 2 );
if ( saves_spell( level, victim ) )
dam /= 2;
else
spell_blindness(skill_lookup("blindness"),level/2,ch,(void *) victim);
damage( ch, victim, dam, sn, DAM_LIGHT );
return;
}
/*
void spell_darkness( int sn, int level, CHAR_DATA *ch, void *vo )
{
int chance;
chance = number_percent();
if (chance >=5)
{
--ch->in_room->light;
}
}
*/
void spell_continual_light( int sn, int level, CHAR_DATA *ch, void *vo )
{
OBJ_DATA *light;
light = create_object( get_obj_index( OBJ_VNUM_LIGHT_BALL ), 0 );
obj_to_room( light, ch->in_room );
act( "$n twiddles $s thumbs and $p appears.", ch, light, NULL, TO_ROOM );
act( "You twiddle your thumbs and $p appears.", ch, light, NULL, TO_CHAR );
return;
}
void spell_control_weather( int sn, int level, CHAR_DATA *ch, void *vo )
{
if ( !str_cmp( target_name, "better" ) )
weather_info.change += dice( level / 3, 4 );
else if ( !str_cmp( target_name, "worse" ) )
weather_info.change -= dice( level / 3, 4 );
else
send_to_char ("Do you want it to get better or worse?\n\r", ch );
send_to_char( "Ok.\n\r", ch );
return;
}
void spell_create_food( int sn, int level, CHAR_DATA *ch, void *vo )
{
OBJ_DATA *mushroom;
mushroom = create_object( get_obj_index( OBJ_VNUM_MUSHROOM ), 0 );
mushroom->value[0] = 5 + level;
obj_to_room( mushroom, ch->in_room );
act( "$p suddenly appears.", ch, mushroom, NULL, TO_ROOM );
act( "$p suddenly appears.", ch, mushroom, NULL, TO_CHAR );
return;
}
void spell_create_buffet( int sn, int level, CHAR_DATA *ch, void *vo)
{
OBJ_DATA *mushroom;
int counter=0;
for(counter=0; counter<level/5+1; counter++)
{
mushroom = create_object( get_obj_index( OBJ_VNUM_MUSHROOM ), 0 );
mushroom->value[0] = level / 2;
mushroom->value[1] = level;
obj_to_room( mushroom, ch->in_room );
act( "$p suddenly appears.", ch, mushroom, NULL, TO_ROOM );
act( "$p suddenly appears.", ch, mushroom, NULL, TO_CHAR );
}
return;
}
void spell_create_spring( int sn, int level, CHAR_DATA *ch, void *vo )
{
OBJ_DATA *spring;
spring = create_object( get_obj_index( OBJ_VNUM_SPRING ), 0 );
spring->timer = level;
obj_to_room( spring, ch->in_room );
act( "$p flows from the ground.", ch, spring, NULL, TO_ROOM );
act( "$p flows from the ground.", ch, spring, NULL, TO_CHAR );
return;
}
void spell_create_water( int sn, int level, CHAR_DATA *ch, void *vo )
{
OBJ_DATA *obj = (OBJ_DATA *) vo;
int water;
if ( obj->item_type != ITEM_DRINK_CON )
{
send_to_char( "It is unable to hold water.\n\r", ch );
return;
}
if ( obj->value[2] != LIQ_WATER && obj->value[1] != 0 )
{
send_to_char( "It contains some other liquid.\n\r", ch );
return;
}
water = UMIN(
level * (weather_info.sky >= SKY_RAINING ? 4 : 2),
obj->value[0] - obj->value[1]
);
if ( water > 0 )
{
obj->value[2] = LIQ_WATER;
obj->value[1] += water;
if ( !is_name( "water", obj->name ) )
{
char buf[MAX_STRING_LENGTH];
sprintf( buf, "%s water", obj->name );
free_string( obj->name );
obj->name = str_dup( buf );
}
act( "$p is filled.", ch, obj, NULL, TO_CHAR );
}
return;
}
void spell_cure_blindness( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
if ( !is_affected( victim, gsn_blindness ) )
{
if (victim == ch)
send_to_char("You aren't blind.\n\r",ch);
else
act("$N doesn't appear to be blinded.",ch,NULL,victim,TO_CHAR);
return;
}
if (check_dispel(level,victim,gsn_blindness))
{
send_to_char( "Your vision returns!\n\r", victim );
act("$n is no longer blinded.",victim,NULL,NULL,TO_ROOM);
}
else
send_to_char("Spell failed.\n\r",ch);
}
void spell_cure_critical( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
int heal;
heal = dice(3, 8) + level - 6;
victim->hit = UMIN( victim->hit + heal, victim->max_hit );
update_pos( victim );
send_to_char( "You feel better!\n\r", victim );
if ( ch != victim )
send_to_char( "Ok.\n\r", ch );
return;
}
/* RT added to cure plague */
void spell_cure_disease( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
if ( !is_affected( victim, gsn_plague ) )
{
if (victim == ch)
send_to_char("You aren't ill.\n\r",ch);
else
act("$N doesn't appear to be diseased.",ch,NULL,victim,TO_CHAR);
return;
}
if (check_dispel(level,victim,gsn_plague))
{
send_to_char("Your sores vanish.\n\r",victim);
act("$n looks relieves as $s sores vanish.",victim,NULL,NULL,TO_ROOM);
}
else
send_to_char("Spell failed.\n\r",ch);
}
void spell_cure_light( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
int heal;
heal = dice(1, 8) + level / 3;
victim->hit = UMIN( victim->hit + heal, victim->max_hit );
update_pos( victim );
send_to_char( "You feel better!\n\r", victim );
if ( ch != victim )
send_to_char( "Ok.\n\r", ch );
return;
}
void spell_cure_poison( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
if ( !is_affected( victim, gsn_poison ) )
{
if (victim == ch)
send_to_char("You aren't poisoned.\n\r",ch);
else
act("$N doesn't appear to be poisoned.",ch,NULL,victim,TO_CHAR);
return;
}
if (check_dispel(level,victim,gsn_poison))
{
send_to_char("A warm feeling runs through your body.\n\r",victim);
act("$n looks much better.",victim,NULL,NULL,TO_ROOM);
}
else
send_to_char("Spell failed.\n\r",ch);
}
void spell_cure_serious( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
int heal;
heal = dice(2, 8) + level /2 ;
victim->hit = UMIN( victim->hit + heal, victim->max_hit );
update_pos( victim );
send_to_char( "You feel better!\n\r", victim );
if ( ch != victim )
send_to_char( "Ok.\n\r", ch );
return;
}
void spell_curse( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( IS_AFFECTED(victim, AFF_CURSE) || saves_spell( level, victim ) )
return;
af.type = sn;
af.level = level;
af.duration = 2*level;
af.location = APPLY_HITROLL;
af.modifier = -1 * (level / 8);
af.bitvector = AFF_CURSE;
affect_to_char( victim, &af );
af.location = APPLY_SAVING_SPELL;
af.modifier = level / 8;
affect_to_char( victim, &af );
send_to_char( "You feel unclean.\n\r", victim );
if ( ch != victim )
act("$N looks very uncomfortable.",ch,NULL,victim,TO_CHAR);
return;
}
/* elfren Exorcism, good version of Demonfire */
void spell_exorcism(int sn, int level, CHAR_DATA *ch, void *vo)
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
int dam;
if ( !IS_NPC(ch) && !IS_GOOD(ch) )
{
victim = ch;
send_to_char("The Angels turn to attack you!\n\r",ch);
}
ch->alignment = UMAX(1000, ch->alignment + 50);
if (victim != ch)
{
act("$n invokes the wrath of his God on $N!",
ch,NULL,victim,TO_ROOM);
act("$n has called forth the Angels of heaven to exorcise you!",
ch,NULL,victim,TO_VICT);
send_to_char("You call forth Angels of God!\n\r",ch);
}
dam = dice( level, 10 );
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn, DAM_HOLY );
}
/* RT replacement demonfire spell */
void spell_demonfire(int sn, int level, CHAR_DATA *ch, void *vo)
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
int dam;
if ( !IS_NPC(ch) && !IS_EVIL(ch) )
{
victim = ch;
send_to_char("The demons turn upon you!\n\r",ch);
}
ch->alignment = UMAX(-1000, ch->alignment - 50);
if (victim != ch)
{
act("$n calls forth the demons of Hell upon $N!",
ch,NULL,victim,TO_ROOM);
act("$n has assailed you with the demons of Hell!",
ch,NULL,victim,TO_VICT);
send_to_char("You conjure forth the demons of hell!\n\r",ch);
}
dam = dice( level, 10 );
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn, DAM_NEGATIVE );
}
void spell_detect_evil( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( IS_AFFECTED(victim, AFF_DETECT_EVIL) )
{
if (victim == ch)
send_to_char("You can already sense evil.\n\r",ch);
else
act("$N can already detect evil.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = level;
af.modifier = 0;
af.location = APPLY_NONE;
af.bitvector = AFF_DETECT_EVIL;
affect_to_char( victim, &af );
send_to_char( "Your eyes tingle.\n\r", victim );
if ( ch != victim )
send_to_char( "Ok.\n\r", ch );
return;
}
void spell_detect_good( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( is_affected(victim, skill_lookup("detect good")) )
{
if (victim == ch)
send_to_char("You can already sense good.\n\r",ch);
else
act("$N can already detect good.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = level;
af.modifier = 0;
af.location = APPLY_NONE;
af.bitvector = 0;
affect_to_char( victim, &af );
send_to_char( "Your eyes tingle.\n\r", victim );
if ( ch != victim )
send_to_char( "Ok.\n\r", ch );
return;
}
void spell_detect_hidden( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( IS_AFFECTED(victim, AFF_DETECT_HIDDEN) )
{
if (victim == ch)
send_to_char("You are already as alert as you can be. \n\r",ch);
else
act("$N can already sense hidden lifeforms.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = level;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_DETECT_HIDDEN;
affect_to_char( victim, &af );
send_to_char( "Your awareness improves.\n\r", victim );
if ( ch != victim )
send_to_char( "Ok.\n\r", ch );
return;
}
void spell_detect_invis( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( IS_AFFECTED(victim, AFF_DETECT_INVIS) )
{
if (victim == ch)
send_to_char("You can already see invisible.\n\r",ch);
else
act("$N can already see invisible things.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = level;
af.modifier = 0;
af.location = APPLY_NONE;
af.bitvector = AFF_DETECT_INVIS;
affect_to_char( victim, &af );
send_to_char( "Your eyes tingle.\n\r", victim );
if ( ch != victim )
send_to_char( "Ok.\n\r", ch );
return;
}
void spell_detect_magic( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( IS_AFFECTED(victim, AFF_DETECT_MAGIC) )
{
if (victim == ch)
send_to_char("You can already sense magical auras.\n\r",ch);
else
act("$N can already detect magic.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = level;
af.modifier = 0;
af.location = APPLY_NONE;
af.bitvector = AFF_DETECT_MAGIC;
affect_to_char( victim, &af );
send_to_char( "Your eyes tingle.\n\r", victim );
if ( ch != victim )
send_to_char( "Ok.\n\r", ch );
return;
}
void spell_detect_poison( int sn, int level, CHAR_DATA *ch, void *vo )
{
OBJ_DATA *obj = (OBJ_DATA *) vo;
if ( obj->item_type == ITEM_DRINK_CON || obj->item_type == ITEM_FOOD )
{
if ( obj->value[3] != 0 )
send_to_char( "You smell poisonous fumes.\n\r", ch );
else
send_to_char( "It looks delicious.\n\r", ch );
}
else
{
send_to_char( "It doesn't look poisoned.\n\r", ch );
}
return;
}
void spell_dispel_evil( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
int dam;
if ( !IS_NPC(ch) && IS_EVIL(ch) )
victim = ch;
if ( IS_GOOD(victim) )
{
act( "Dispel evil has no effect upon $N.", ch, NULL, victim, TO_ROOM );
return;
}
if ( IS_NEUTRAL(victim) )
{
act( "$N does not seem to be affected.", ch, NULL, victim, TO_CHAR );
return;
}
if (victim->hit > (ch->level * 4))
dam = dice( level, 4 );
else
dam = UMAX(victim->hit, dice(level,4));
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn, DAM_HOLY );
return;
}
void spell_dispel_good( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
int dam;
if ( !IS_NPC(ch) && IS_GOOD(ch) )
victim = ch;
if ( IS_EVIL(victim) )
{
act( "Dispel good has no effect upon $N.", ch, NULL, victim, TO_ROOM );
return;
}
if ( IS_NEUTRAL(victim) )
{
act( "$N does not seem to be affected.", ch, NULL, victim, TO_CHAR );
return;
}
if (victim->hit > (ch->level * 4))
dam = dice( level, 4 );
else
dam = UMAX(victim->hit, dice(level,4));
if ( saves_spell( level, victim ) )
dam /= 2;
log_string ("before damage call");
damage( ch, victim, dam, sn, DAM_NEGATIVE );
log_string ("after damage call");
return;
}
/* modified for enhanced use */
void spell_dispel_magic( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
bool found = FALSE;
if (saves_spell(level, victim))
{
send_to_char( "You feel a brief tingling sensation.\n\r",victim);
send_to_char( "You failed.\n\r", ch);
return;
}
/* begin running through the spells */
if (check_dispel(level,victim,skill_lookup("absorb magic")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("spirit armor")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("regeneration")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("armor")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("bless")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("blindness")))
{
found = TRUE;
act("$n is no longer blinded.",victim,NULL,NULL,TO_ROOM);
}
if (check_dispel(level,victim,skill_lookup("calm")))
{
found = TRUE;
act("$n no longer looks so peaceful...",victim,NULL,NULL,TO_ROOM);
}
if (check_dispel(level,victim,skill_lookup("change sex")))
{
found = TRUE;
act("$n looks more like $mself again.",victim,NULL,NULL,TO_ROOM);
}
if (check_dispel(level,victim,skill_lookup("charm person")))
{
found = TRUE;
act("$n regains $s free will.",victim,NULL,NULL,TO_ROOM);
}
if (check_dispel(level,victim,skill_lookup("chill touch")))
{
found = TRUE;
act("$n looks warmer.",victim,NULL,NULL,TO_ROOM);
}
if (check_dispel(level,victim,skill_lookup("curse")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("detect evil")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("detect good")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("detect hidden")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("detect invis")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("detect hidden")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("detect magic")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("faerie fire")))
{
act("$n's outline fades.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("fear")))
{
act("$n no longer looks so scared.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("fly")))
{
act("$n falls to the ground!",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("frenzy")))
{
act("$n no longer looks so wild.",victim,NULL,NULL,TO_ROOM);;
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("giant strength")))
{
act("$n no longer looks so mighty.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("haste")))
{
act("$n is no longer moving so quickly.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("infravision")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("invis")))
{
act("$n fades into existance.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("mass invis")))
{
act("$n fades into existance.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("mask self")))
{
act("$n suddenly appears as $s mask vanishes.",victim,NULL,NULL,TO_ROOM);
undo_mask(victim);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("mind meld")))
{
act("$n has regained $s senses.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("mute")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("pass door")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("protection_good")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("protection_evil")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("sanctuary")))
{
act("The white aura around $n's body vanishes.",
victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (IS_AFFECTED(victim,AFF_SANCTUARY)
&& !saves_dispel(level, victim->level,-1)
&& !is_affected(victim,skill_lookup("sanctuary")))
{
REMOVE_BIT(victim->affected_by,AFF_SANCTUARY);
act("The white aura around $n's body vanishes.",
victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("shield")))
{
act("The shield protecting $n vanishes.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("sleep")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("stone skin")))
{
act("$n's skin regains its normal texture.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (check_dispel(level,victim,skill_lookup("vocalize")))
found = TRUE;
if (check_dispel(level,victim,skill_lookup("weaken")))
{
act("$n looks stronger.",victim,NULL,NULL,TO_ROOM);
found = TRUE;
}
if (found)
send_to_char("Ok.\n\r",ch);
else
send_to_char("Spell failed.\n\r",ch);
}
void spell_earthquake( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
send_to_char( "The earth trembles beneath your feet!\n\r", ch );
act( "$n makes the earth tremble and shiver.", ch, NULL, NULL, TO_ROOM );
for ( vch = char_list; vch != NULL; vch = vch_next )
{
vch_next = vch->next;
if ( vch->in_room == NULL )
continue;
if ( vch->in_room == ch->in_room )
{
if ( vch != ch && !is_safe_spell(ch,vch,TRUE))
if (IS_AFFECTED(vch,AFF_FLYING))
damage(ch,vch,0,sn,DAM_BASH);
else
damage( ch, vch, level + dice(2, 8), sn, DAM_BASH );
continue;
}
if ( vch->in_room->area == ch->in_room->area )
send_to_char( "The earth trembles and shivers.\n\r", vch );
}
return;
}
void spell_enchant_armor( int sn, int level, CHAR_DATA *ch, void *vo )
{
OBJ_DATA *obj = (OBJ_DATA *) vo;
AFFECT_DATA *paf;
int result, fail;
int ac_bonus, added;
bool ac_found = FALSE;
if (obj->item_type != ITEM_ARMOR)
{
send_to_char("That isn't an armor.\n\r",ch);
return;
}
if (obj->wear_loc != -1)
{
send_to_char("The item must be carried to be enchanted.\n\r",ch);
return;
}
/* this means they have no bonus */
ac_bonus = 0;
fail = 25; /* base 25% chance of failure */
/* find the bonuses */
if (!obj->enchanted)
for ( paf = obj->pIndexData->affected; paf != NULL; paf = paf->next )
{
if ( paf->location == APPLY_AC )
{
ac_bonus = paf->modifier;
ac_found = TRUE;
fail += 5 * (ac_bonus * ac_bonus);
}
else /* things get a little harder */
fail += 20;
}
for ( paf = obj->affected; paf != NULL; paf = paf->next )
{
if ( paf->location == APPLY_AC )
{
ac_bonus = paf->modifier;
ac_found = TRUE;
fail += 5 * (ac_bonus * ac_bonus);
}
else /* things get a little harder */
fail += 20;
}
/* apply other modifiers */
fail -= level;
if (IS_OBJ_STAT(obj,ITEM_BLESS))
fail -= 15;
if (IS_OBJ_STAT(obj,ITEM_GLOW))
fail -= 5;
fail = URANGE(5,fail,95);
result = number_percent();
/* the moment of truth */
if (result < (fail / 5)) /* item destroyed */
{
act("$p flares blindingly... and evaporates!",ch,obj,NULL,TO_CHAR);
act("$p flares blindingly... and evaporates!",ch,obj,NULL,TO_ROOM);
extract_obj(obj);
return;
}
if (result < (fail / 2)) /* item disenchanted */
{
AFFECT_DATA *paf_next;
act("$p glows brightly, then fades...oops.",ch,obj,NULL,TO_CHAR);
act("$p glows brightly, then fades.",ch,obj,NULL,TO_ROOM);
obj->enchanted = TRUE;
/* remove all affects */
for (paf = obj->affected; paf != NULL; paf = paf_next)
{
paf_next = paf->next;
paf->next = affect_free;
affect_free = paf;
}
obj->affected = NULL;
/* clear all flags */
obj->extra_flags = 0;
return;
}
if ( result <= fail ) /* failed, no bad result */
{
send_to_char("Nothing seemed to happen.\n\r",ch);
return;
}
/* okay, move all the old flags into new vectors if we have to */
if (!obj->enchanted)
{
AFFECT_DATA *af_new;
obj->enchanted = TRUE;
for (paf = obj->pIndexData->affected; paf != NULL; paf = paf->next)
{
if (affect_free == NULL)
af_new = alloc_perm(sizeof(*af_new));
else
{
af_new = affect_free;
affect_free = affect_free->next;
}
af_new->next = obj->affected;
obj->affected = af_new;
af_new->type = UMAX(0,paf->type);
af_new->level = paf->level;
af_new->duration = paf->duration;
af_new->location = paf->location;
af_new->modifier = paf->modifier;
af_new->bitvector = paf->bitvector;
}
}
if (result <= (100 - level/5)) /* success! */
{
act("$p shimmers with a gold aura.",ch,obj,NULL,TO_CHAR);
act("$p shimmers with a gold aura.",ch,obj,NULL,TO_ROOM);
SET_BIT(obj->extra_flags, ITEM_MAGIC);
added = -1;
}
else /* exceptional enchant */
{
act("$p glows a brillant gold!",ch,obj,NULL,TO_CHAR);
act("$p glows a brillant gold!",ch,obj,NULL,TO_ROOM);
SET_BIT(obj->extra_flags,ITEM_MAGIC);
SET_BIT(obj->extra_flags,ITEM_GLOW);
added = -2;
}
/* now add the enchantments */
if (obj->level < LEVEL_HERO)
obj->level = UMIN(LEVEL_HERO - 1,obj->level + 1);
if (ac_found)
{
for ( paf = obj->affected; paf != NULL; paf = paf->next)
{
if ( paf->location == APPLY_AC)
{
paf->type = sn;
paf->modifier += added;
paf->level = UMAX(paf->level,level);
}
}
}
else /* add a new affect */
{
if (affect_free == NULL)
paf = alloc_perm(sizeof(*paf));
else
{
paf = affect_free;
affect_free = affect_free->next;
}
paf->type = sn;
paf->level = level;
paf->duration = -1;
paf->location = APPLY_AC;
paf->modifier = added;
paf->bitvector = 0;
paf->next = obj->affected;
obj->affected = paf;
}
}
void spell_brand (int sn, int level, CHAR_DATA *ch, void *vo)
{
OBJ_DATA *obj = (OBJ_DATA *) vo;
int roll;
int all_brand=WEAPON_LIGHTNING+WEAPON_ACID+WEAPON_FLAMING+WEAPON_FROST;
if (obj->item_type != ITEM_WEAPON)
{
send_to_char ("That isn't a weapon.\n\r",ch);
return;
}
if (obj->wear_loc != -1)
{
send_to_char("The item must be carried to be enchanted.\n\r",ch);
return;
}
if ((obj->value[4]&all_brand)!=0) /*Already branded*/
{
send_to_char("This weapon is already branded.\n\r",ch);
return;
}
roll = number_percent();
if (roll <= 5) /*oops, destroy weapon*/
{
extract_obj(obj);
send_to_char ("{mKaboom!{x The weapon explodes! *sigh*\n\r",ch);
act("$p shivers violently and explodes!",ch,obj,NULL,TO_ROOM);
return;
}
if (roll > (get_curr_stat(ch,STAT_INT)-18)*2 + 5 + ((int)(ch->level/3))) /*spell failed*/
{
send_to_char ("Spell failed.\n\r",ch);
return;
}
else /*spell worked!*/
{
int which=number_percent();
int brand=0;
char buf[80];
if (which <= 25)
{
brand=WEAPON_FLAMING;
strcpy (buf, "You have created a {rFLAME{x brand!\n\r");
}
else if (which <= 50)
{
brand=WEAPON_FROST;
strcpy (buf, "You have created a {bFROST{x brand!\n\r");
}
else if (which <= 75)
{
brand=WEAPON_ACID;
strcpy (buf, "You have created an {gACID{x brand!\n\r");
}
else
{
brand=WEAPON_LIGHTNING;
strcpy (buf, "You have created a {yLIGHTNING{x brand!\n\r");
}
/*set new brand on weapon*/
obj->value[4]+=brand;
obj->valueorig[4]+=brand;
send_to_char(buf,ch);
}
} /*end*/
void spell_enchant_weapon( int sn, int level, CHAR_DATA *ch, void *vo )
{
OBJ_DATA *obj = (OBJ_DATA *) vo;
AFFECT_DATA *paf;
int result, fail;
int hit_bonus, dam_bonus, added;
bool hit_found = FALSE, dam_found = FALSE;
if (obj->item_type != ITEM_WEAPON)
{
send_to_char("That isn't a weapon.\n\r",ch);
return;
}
if (obj->wear_loc != -1)
{
send_to_char("The item must be carried to be enchanted.\n\r",ch);
return;
}
/* this means they have no bonus */
hit_bonus = 0;
dam_bonus = 0;
fail = 25; /* base 25% chance of failure */
/* find the bonuses */
if (!obj->enchanted)
for ( paf = obj->pIndexData->affected; paf != NULL; paf = paf->next )
{
if ( paf->location == APPLY_HITROLL )
{
hit_bonus = paf->modifier;
hit_found = TRUE;
fail += 2 * (hit_bonus * hit_bonus);
}
else if (paf->location == APPLY_DAMROLL )
{
dam_bonus = paf->modifier;
dam_found = TRUE;
fail += 2 * (dam_bonus * dam_bonus);
}
else /* things get a little harder */
fail += 25;
}
for ( paf = obj->affected; paf != NULL; paf = paf->next )
{
if ( paf->location == APPLY_HITROLL )
{
hit_bonus = paf->modifier;
hit_found = TRUE;
fail += 2 * (hit_bonus * hit_bonus);
}
else if (paf->location == APPLY_DAMROLL )
{
dam_bonus = paf->modifier;
dam_found = TRUE;
fail += 2 * (dam_bonus * dam_bonus);
}
else /* things get a little harder */
fail += 25;
}
/* apply other modifiers */
fail -= 3 * level/2;
if (IS_OBJ_STAT(obj,ITEM_BLESS))
fail -= 15;
if (IS_OBJ_STAT(obj,ITEM_GLOW))
fail -= 5;
fail = URANGE(5,fail,95);
result = number_percent();
/* the moment of truth */
if (result < (fail / 5)) /* item destroyed */
{
act("$p shivers violently and explodes!",ch,obj,NULL,TO_CHAR);
act("$p shivers violently and explodes!",ch,obj,NULL,TO_ROOM);
extract_obj(obj);
return;
}
if (result < (fail / 2)) /* item disenchanted */
{
AFFECT_DATA *paf_next;
act("$p glows brightly, then fades...oops.",ch,obj,NULL,TO_CHAR);
act("$p glows brightly, then fades.",ch,obj,NULL,TO_ROOM);
obj->enchanted = TRUE;
/* remove all affects */
for (paf = obj->affected; paf != NULL; paf = paf_next)
{
paf_next = paf->next;
paf->next = affect_free;
affect_free = paf;
}
obj->affected = NULL;
/* clear all flags */
obj->extra_flags = 0;
return;
}
if ( result <= fail ) /* failed, no bad result */
{
send_to_char("Nothing seemed to happen.\n\r",ch);
return;
}
/* okay, move all the old flags into new vectors if we have to */
if (!obj->enchanted)
{
AFFECT_DATA *af_new;
obj->enchanted = TRUE;
for (paf = obj->pIndexData->affected; paf != NULL; paf = paf->next)
{
if (affect_free == NULL)
af_new = alloc_perm(sizeof(*af_new));
else
{
af_new = affect_free;
affect_free = affect_free->next;
}
af_new->next = obj->affected;
obj->affected = af_new;
af_new->type = UMAX(0,paf->type);
af_new->level = paf->level;
af_new->duration = paf->duration;
af_new->location = paf->location;
af_new->modifier = paf->modifier;
af_new->bitvector = paf->bitvector;
}
}
if (result <= (100 - level/5)) /* success! */
{
act("$p glows blue.",ch,obj,NULL,TO_CHAR);
act("$p glows blue.",ch,obj,NULL,TO_ROOM);
SET_BIT(obj->extra_flags, ITEM_MAGIC);
added = 1;
}
else /* exceptional enchant */
{
act("$p glows a brillant blue!",ch,obj,NULL,TO_CHAR);
act("$p glows a brillant blue!",ch,obj,NULL,TO_ROOM);
SET_BIT(obj->extra_flags,ITEM_MAGIC);
SET_BIT(obj->extra_flags,ITEM_GLOW);
added = 2;
}
/* now add the enchantments */
if (obj->level < LEVEL_HERO - 1)
obj->level = UMIN(LEVEL_HERO - 1,obj->level + 1);
if (dam_found)
{
for ( paf = obj->affected; paf != NULL; paf = paf->next)
{
if ( paf->location == APPLY_DAMROLL)
{
paf->type = sn;
paf->modifier += added;
paf->level = UMAX(paf->level,level);
if (paf->modifier > 4)
SET_BIT(obj->extra_flags,ITEM_HUM);
}
}
}
else /* add a new affect */
{
if (affect_free == NULL)
paf = alloc_perm(sizeof(*paf));
else
{
paf = affect_free;
affect_free = affect_free->next;
}
paf->type = sn;
paf->level = level;
paf->duration = -1;
paf->location = APPLY_DAMROLL;
paf->modifier = added;
paf->bitvector = 0;
paf->next = obj->affected;
obj->affected = paf;
}
if (hit_found)
{
for ( paf = obj->affected; paf != NULL; paf = paf->next)
{
if ( paf->location == APPLY_HITROLL)
{
paf->type = sn;
paf->modifier += added;
paf->level = UMAX(paf->level,level);
if (paf->modifier > 4)
SET_BIT(obj->extra_flags,ITEM_HUM);
}
}
}
else /* add a new affect */
{
if (affect_free == NULL)
paf = alloc_perm(sizeof(*paf));
else
{
paf = affect_free;
affect_free = affect_free->next;
}
paf->type = sn;
paf->level = level;
paf->duration = -1;
paf->location = APPLY_HITROLL;
paf->modifier = added;
paf->bitvector = 0;
paf->next = obj->affected;
obj->affected = paf;
}
}
/*
* Drain XP, MANA, HP.
* Caster gains HP.
*/
void spell_energy_drain( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
int dam;
if ( saves_spell( level, victim ) )
{
send_to_char("You feel a momentary chill.\n\r",victim);
return;
}
ch->alignment = UMAX(-1000, ch->alignment - 50);
if ( victim->level <= 2 )
{
dam = ch->hit + 1;
}
else
{
gain_exp( victim, 0 - 5 * number_range( level/2, 3 * level / 2 ) );
victim->mana /= 2;
victim->move /= 2;
dam = dice(1, level);
ch->hit = UMIN (ch->max_hit, (ch->hit+dam));
}
send_to_char("You feel your life slipping away!\n\r",victim);
send_to_char("Wow....what a rush!\n\r",ch);
damage( ch, victim, dam, sn, DAM_NEGATIVE );
return;
}
void spell_fireball( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
static const sh_int dam_each[] =
{
0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 30, 35, 40, 45, 50, 55,
60, 65, 70, 75, 80, 82, 84, 86, 88, 90,
92, 94, 96, 98, 100, 102, 104, 106, 108, 110,
112, 114, 116, 118, 120, 122, 124, 126, 128, 130
};
int dam;
level = UMIN(level, sizeof(dam_each)/sizeof(dam_each[0]) - 1);
level = UMAX(0, level);
dam = number_range( dam_each[level] / 2, dam_each[level] * 2 );
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn, DAM_FIRE );
return;
}
void spell_fire_shield (int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if (is_affected(victim, sn))
{
send_to_char ("That target already has a fire shield.\n\r",ch);
return;
}
af.type = sn;
af.level = level;
af.duration = level;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = 0;
affect_to_char( victim, &af );
send_to_char( "A small shield of living flame pops up before you.\n\r", victim );
act( "$n is suddenly defended by a small shield of living flame.", victim, NULL, NULL, TO_ROOM );
return;
}
void spell_flamestrike( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
int dam;
dam = dice(6, 8);
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn, DAM_FIRE );
return;
}
void spell_faerie_fire( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( IS_AFFECTED(victim, AFF_FAERIE_FIRE) )
return;
af.type = sn;
af.level = level;
af.duration = level;
af.location = APPLY_AC;
af.modifier = 2 * level;
af.bitvector = AFF_FAERIE_FIRE;
affect_to_char( victim, &af );
send_to_char( "You are surrounded by a pink outline.\n\r", victim );
act( "$n is surrounded by a pink outline.", victim, NULL, NULL, TO_ROOM );
return;
}
void spell_faerie_fog( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *ich;
act( "$n conjures a cloud of purple smoke.", ch, NULL, NULL, TO_ROOM );
send_to_char( "You conjure a cloud of purple smoke.\n\r", ch );
for ( ich = ch->in_room->people; ich != NULL; ich = ich->next_in_room )
{
if ( !IS_NPC(ich) && IS_SET(ich->act, PLR_WIZINVIS) )
continue;
if ( ich == ch || saves_spell( level, ich ) )
continue;
affect_strip ( ich, gsn_invis );
affect_strip ( ich, gsn_mass_invis );
affect_strip ( ich, gsn_sneak );
REMOVE_BIT ( ich->affected_by, AFF_HIDE );
REMOVE_BIT ( ich->affected_by, AFF_INVISIBLE );
REMOVE_BIT ( ich->affected_by, AFF_SNEAK );
act( "$n is revealed!", ich, NULL, NULL, TO_ROOM );
send_to_char( "You are revealed!\n\r", ich );
}
return;
}
void spell_fear (int sn, int level, CHAR_DATA *ch, void *vo)
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if (victim->fighting == NULL)
{
send_to_char ("Fear can only be cast upon a fighting creature.\n\r",ch);
return;
}
if (IS_AFFECTED(victim, AFF_FEAR))
{
send_to_char ("That target is already scared sh*tless...\n\r",ch);
return;
}
if (!saves_spell(level, victim))
{
if (!IS_NPC(victim))
send_to_char ("You feel very vulnerable and scared!\n\r",victim);
do_say(victim, "Please, don't hurt me!");
af.type = sn;
af.level = level;
af.duration = level / 6;
af.location = 0;
af.modifier = 0;
af.bitvector = AFF_FEAR;
affect_to_char( victim, &af );
do_flee(victim, "");
stop_fighting(victim, TRUE);
return;
}
else
{
if (!IS_NPC(victim))
send_to_char ("For just a moment, an intense feeling of fear washes over you.\n\r",victim);
send_to_char ("Spell failed.\n\r",ch);
return;
}
}
void spell_fly( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( IS_AFFECTED(victim, AFF_FLYING) )
{
if (victim == ch)
send_to_char("You are already airborne.\n\r",ch);
else
act("$N doesn't need your help to fly.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = level + 3;
af.location = 0;
af.modifier = 0;
af.bitvector = AFF_FLYING;
affect_to_char( victim, &af );
send_to_char( "Your feet rise off the ground.\n\r", victim );
act( "$n's feet rise off the ground.", victim, NULL, NULL, TO_ROOM );
return;
}
/* RT clerical berserking spell */
void spell_frenzy(int sn, int level, CHAR_DATA *ch, void *vo)
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if (is_affected(victim,sn) || IS_AFFECTED(victim,AFF_BERSERK))
{
if (victim == ch)
send_to_char("You are already in a frenzy.\n\r",ch);
else
act("$N is already in a frenzy.",ch,NULL,victim,TO_CHAR);
return;
}
if (is_affected(victim,skill_lookup("calm")))
{
if (victim == ch)
send_to_char("Why don't you just relax for a while?\n\r",ch);
else
act("$N doesn't look like $e wants to fight anymore.",
ch,NULL,victim,TO_CHAR);
return;
}
if ((IS_GOOD(ch) && !IS_GOOD(victim)) ||
(IS_NEUTRAL(ch) && !IS_NEUTRAL(victim)) ||
(IS_EVIL(ch) && !IS_EVIL(victim))
)
{
act("Your god doesn't seem to like $N",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = level / 3;
af.modifier = level / 6;
af.bitvector = 0;
af.location = APPLY_HITROLL;
affect_to_char(victim,&af);
af.location = APPLY_DAMROLL;
affect_to_char(victim,&af);
af.modifier = 10 * (level / 6);
af.location = APPLY_AC;
affect_to_char(victim,&af);
send_to_char("You are filled with holy wrath!\n\r",victim);
act("$n gets a wild look in $s eyes!",victim,NULL,NULL,TO_ROOM);
}
/* RT ROM-style gate */
void spell_gate( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim;
bool gate_pet;
if ( ( victim = get_char_world( ch, target_name ) ) == NULL
|| victim == ch
|| victim->in_room == NULL
|| !can_see_room(ch,victim->in_room)
|| IS_SET(victim->in_room->room_flags, ROOM_SAFE)
|| IS_SET(victim->in_room->room_flags, ROOM_PRIVATE)
|| IS_SET(victim->in_room->room_flags, ROOM_SOLITARY)
|| IS_SET(victim->in_room->room_flags, ROOM_NO_RECALL)
|| IS_SET(ch->in_room->room_flags, ROOM_NO_RECALL)
|| victim->level >= level + 3
|| (!IS_NPC(victim) && victim->level >= LEVEL_HERO) /* NOT trust */
|| (IS_NPC(victim) && IS_SET(victim->imm_flags,IMM_SUMMON))
|| (!IS_NPC(victim) && IS_SET(victim->act,PLR_NOSUMMON))
|| (IS_NPC(victim) && saves_spell( level, victim ) ) )
{
send_to_char( "You failed.\n\r", ch );
return;
}
if (ch->pet != NULL && ch->in_room == ch->pet->in_room)
gate_pet = TRUE;
else
gate_pet = FALSE;
act("$n steps through a gate and vanishes.",ch,NULL,NULL,TO_ROOM);
send_to_char("You step through a gate and vanish.\n\r",ch);
char_from_room(ch);
char_to_room(ch,victim->in_room);
act("$n has arrived through a gate.",ch,NULL,NULL,TO_ROOM);
do_look(ch,"auto");
if (gate_pet)
{
act("$n steps through a gate and vanishes.",ch->pet,NULL,NULL,TO_ROOM);
send_to_char("You step through a gate and vanish.\n\r",ch->pet);
char_from_room(ch->pet);
char_to_room(ch->pet,victim->in_room);
act("$n has arrived through a gate.",ch->pet,NULL,NULL,TO_ROOM);
do_look(ch->pet,"auto");
}
}
void spell_giant_strength( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( is_affected( victim, sn ) )
{
if (victim == ch)
send_to_char("You are already as strong as you can get!\n\r",ch);
else
act("$N can't get any stronger.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = level;
af.location = APPLY_STR;
af.modifier = 1 + (level >= 18) + (level >= 25) + (level >= 32);
af.bitvector = 0;
affect_to_char( victim, &af );
send_to_char( "Your muscles surge with heightened power!\n\r", victim );
act("$n's muscles surge with heightened power.",victim,NULL,NULL,TO_ROOM);
return;
}
void spell_harm( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
int dam;
dam = UMAX( 20, victim->hit - dice(1,4) );
if ( saves_spell( level, victim ) )
dam = UMIN( 50, dam / 2 );
dam = UMIN( 100, dam );
damage( ch, victim, dam, sn, DAM_HARM );
return;
}
/* RT haste spell */
void spell_haste( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( is_affected( victim, sn ) || IS_AFFECTED(victim,AFF_HASTE)
|| IS_SET(victim->off_flags,OFF_FAST))
{
if (victim == ch)
send_to_char("You can't move any faster!\n\r",ch);
else
act("$N is already moving as fast as $e can.",
ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
if (victim == ch)
af.duration = level/2;
else
af.duration = level/4;
af.location = APPLY_DEX;
af.modifier = 1 + (level >= 18) + (level >= 25) + (level >= 32);
af.bitvector = AFF_HASTE;
affect_to_char( victim, &af );
send_to_char( "You feel yourself moving more quickly.\n\r", victim );
act("$n is moving more quickly.",victim,NULL,NULL,TO_ROOM);
if ( ch != victim )
send_to_char( "Ok.\n\r", ch );
return;
}
void spell_heal( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
victim->hit = UMIN( victim->hit + 100, victim->max_hit );
update_pos( victim );
send_to_char( "A warm feeling fills your body.\n\r", victim );
if ( ch != victim )
send_to_char( "Ok.\n\r", ch );
return;
}
/* RT really nasty high-level attack spell */
void spell_holy_word(int sn, int level, CHAR_DATA *ch, void *vo)
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
int dam;
int bless_num, curse_num, frenzy_num;
bless_num = skill_lookup("bless");
curse_num = skill_lookup("curse");
frenzy_num = skill_lookup("frenzy");
act("$n utters a word of divine power!",ch,NULL,NULL,TO_ROOM);
send_to_char("You utter a word of divine power.\n\r",ch);
for ( vch = ch->in_room->people; vch != NULL; vch = vch_next )
{
vch_next = vch->next_in_room;
if ((IS_GOOD(ch) && IS_GOOD(vch)) ||
(IS_EVIL(ch) && IS_EVIL(vch)) ||
(IS_NEUTRAL(ch) && IS_NEUTRAL(vch)) )
{
send_to_char("You feel full more powerful.\n\r",vch);
spell_frenzy(frenzy_num,level,ch,(void *) vch);
spell_bless(bless_num,level,ch,(void *) vch);
}
else if ((IS_GOOD(ch) && IS_EVIL(vch)) ||
(IS_EVIL(ch) && IS_GOOD(vch)) )
{
if (!is_safe_spell(ch,vch,TRUE))
{
spell_curse(curse_num,level,ch,(void *) vch);
send_to_char("You are struck down!\n\r",vch);
dam = dice(level,6);
damage(ch,vch,dam,sn,DAM_ENERGY);
}
}
else if (IS_NEUTRAL(ch))
{
if (!is_safe_spell(ch,vch,TRUE))
{
spell_curse(curse_num,level/2,ch,(void *) vch);
send_to_char("You are struck down!\n\r",vch);
dam = dice(level,4);
damage(ch,vch,dam,sn,DAM_ENERGY);
}
}
}
send_to_char("You feel drained.\n\r",ch);
gain_exp( ch, -1 * number_range(1,10) * 10);
ch->move = 0;
ch->hit /= 2;
}
void spell_identify( int sn, int level, CHAR_DATA *ch, void *vo )
{
OBJ_DATA *obj = (OBJ_DATA *) vo;
char buf[MAX_STRING_LENGTH];
AFFECT_DATA *paf;
sprintf( buf,
"Object '%s' is type: [%s]\n\rextra flags: [%s]\n\rspecial flags: [%s]\n\rmaterial: [%s]\n\rWeight is %d, value is %d, level is %d.\n\r",
obj->name,
item_type_name( obj ),
extra_bit_name( obj->extra_flags ),
weapon_bit_name( obj->value[4] ),
material_name(obj->material),
obj->weight,
obj->cost,
obj->level
);
send_to_char( buf, ch );
switch ( obj->item_type )
{
case ITEM_SCROLL:
case ITEM_POTION:
case ITEM_PILL:
sprintf( buf, "Level %d spells of:", obj->value[0] );
send_to_char( buf, ch );
if ( obj->value[1] >= 0 && obj->value[1] < MAX_SKILL )
{
send_to_char( " '", ch );
send_to_char( skill_table[obj->value[1]].name, ch );
send_to_char( "'", ch );
}
if ( obj->value[2] >= 0 && obj->value[2] < MAX_SKILL )
{
send_to_char( " '", ch );
send_to_char( skill_table[obj->value[2]].name, ch );
send_to_char( "'", ch );
}
if ( obj->value[3] >= 0 && obj->value[3] < MAX_SKILL )
{
send_to_char( " '", ch );
send_to_char( skill_table[obj->value[3]].name, ch );
send_to_char( "'", ch );
}
send_to_char( ".\n\r", ch );
break;
case ITEM_WAND:
case ITEM_STAFF:
sprintf( buf, "Has %d(%d) charges of level %d",
obj->value[1], obj->value[2], obj->value[0] );
send_to_char( buf, ch );
if ( obj->value[3] >= 0 && obj->value[3] < MAX_SKILL )
{
send_to_char( " '", ch );
send_to_char( skill_table[obj->value[3]].name, ch );
send_to_char( "'", ch );
}
send_to_char( ".\n\r", ch );
break;
case ITEM_WEAPON:
send_to_char("Weapon type is ",ch);
switch (obj->value[0])
{
case(WEAPON_EXOTIC) : send_to_char("exotic.\n\r",ch); break;
case(WEAPON_SWORD) : send_to_char("sword.\n\r",ch); break;
case(WEAPON_DAGGER) : send_to_char("dagger.\n\r",ch); break;
case(WEAPON_SPEAR) : send_to_char("spear/staff.\n\r",ch); break;
case(WEAPON_MACE) : send_to_char("mace/club.\n\r",ch); break;
case(WEAPON_AXE) : send_to_char("axe.\n\r",ch); break;
case(WEAPON_FLAIL) : send_to_char("flail.\n\r",ch); break;
case(WEAPON_WHIP) : send_to_char("whip.\n\r",ch); break;
case(WEAPON_POLEARM): send_to_char("polearm.\n\r",ch); break;
default : send_to_char("unknown.\n\r",ch); break;
}
if (obj->pIndexData->new_format)
sprintf(buf,"Damage is %dd%d (average %d).\n\r",
obj->value[1],obj->value[2],
(1 + obj->value[2]) * obj->value[1] / 2);
else
sprintf( buf, "Damage is %d to %d (average %d).\n\r",
obj->value[1], obj->value[2],
( obj->value[1] + obj->value[2] ) / 2 );
send_to_char( buf, ch );
break;
case ITEM_ARMOR:
sprintf( buf,
"Armor class is %d pierce, %d bash, %d slash, and %d vs. magic.\n\r",
obj->value[0], obj->value[1], obj->value[2], obj->value[3] );
send_to_char( buf, ch );
break;
}
if (!obj->enchanted)
for ( paf = obj->pIndexData->affected; paf != NULL; paf = paf->next )
{
if ( paf->location != APPLY_NONE && paf->modifier != 0 )
{
sprintf( buf, "Affects %s by %d.\n\r",
affect_loc_name( paf->location ), paf->modifier );
send_to_char( buf, ch );
}
}
for ( paf = obj->affected; paf != NULL; paf = paf->next )
{
if ( paf->location != APPLY_NONE && paf->modifier != 0 )
{
sprintf( buf, "Affects %s by %d.\n\r",
affect_loc_name( paf->location ), paf->modifier );
send_to_char( buf, ch );
}
}
return;
}
void spell_infravision( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( IS_AFFECTED(victim, AFF_INFRARED) )
{
if (victim == ch)
send_to_char("You can already see in the dark.\n\r",ch);
else
act("$N already has infravision.\n\r",ch,NULL,victim,TO_CHAR);
return;
}
act( "$n's eyes glow red.\n\r", ch, NULL, NULL, TO_ROOM );
af.type = sn;
af.level = level;
af.duration = 2 * level;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_INFRARED;
affect_to_char( victim, &af );
send_to_char( "Your eyes glow red.\n\r", victim );
return;
}
void spell_invis( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( IS_AFFECTED(victim, AFF_INVISIBLE) )
return;
act( "$n fades out of existence.", victim, NULL, NULL, TO_ROOM );
af.type = sn;
af.level = level;
af.duration = 24;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_INVISIBLE;
affect_to_char( victim, &af );
send_to_char( "You fade out of existence.\n\r", victim );
return;
}
void spell_know_alignment( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
char *msg;
int ap;
ap = victim->alignment;
if ( ap > 700 ) msg = "$N has a pure and good aura.";
else if ( ap > 350 ) msg = "$N is of excellent moral character.";
else if ( ap > 100 ) msg = "$N is often kind and thoughtful.";
else if ( ap > -100 ) msg = "$N doesn't have a firm moral commitment.";
else if ( ap > -350 ) msg = "$N lies to $S friends.";
else if ( ap > -700 ) msg = "$N is a black-hearted murderer.";
else msg = "$N is the embodiment of pure evil!.";
act( msg, ch, NULL, victim, TO_CHAR );
return;
}
void spell_lightning_bolt( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
static const sh_int dam_each[] =
{
0,
0, 0, 0, 0, 0, 0, 0, 0, 25, 28,
31, 34, 37, 40, 40, 41, 42, 42, 43, 44,
44, 45, 46, 46, 47, 48, 48, 49, 50, 50,
51, 52, 52, 53, 54, 54, 55, 56, 56, 57,
58, 58, 59, 60, 60, 61, 62, 62, 63, 64
};
int dam;
level = UMIN(level, sizeof(dam_each)/sizeof(dam_each[0]) - 1);
level = UMAX(0, level);
dam = number_range( dam_each[level] / 2, dam_each[level] * 2 );
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn, DAM_LIGHTNING );
return;
}
void spell_locate_object( int sn, int level, CHAR_DATA *ch, void *vo )
{
char buf[MAX_INPUT_LENGTH];
char buffer[4*MAX_STRING_LENGTH];
OBJ_DATA *obj;
OBJ_DATA *in_obj;
bool found;
int number = 0, max_found;
found = FALSE;
number = 0;
buffer[0] = '\0';
max_found = IS_IMMORTAL(ch) ? 200 : 2 * level;
for ( obj = object_list; obj != NULL; obj = obj->next )
{
if ( !can_see_obj( ch, obj ) || !is_name( target_name, obj->name )
|| (!IS_IMMORTAL(ch) && number_percent() > 2 * level)
|| ch->level < obj->level)
continue;
found = TRUE;
number++;
for ( in_obj = obj; in_obj->in_obj != NULL; in_obj = in_obj->in_obj )
;
if ( in_obj->carried_by != NULL && can_see && !IS_IMMORTAL(in_obj->carried_by) )
{
sprintf( buf, "%s carried by %s\n\r",
obj->short_descr, PERS(in_obj->carried_by, ch) );
}
else
{
if (IS_IMMORTAL(ch) && in_obj->in_room != NULL)
sprintf( buf, "[{Y%s{x] in [{Y%s{x] Room [{Y%d{x] Level [{Y%d{x]\n\r",
obj->short_descr,
in_obj->in_room->name,
in_obj->in_room->vnum,
obj->level);
else
sprintf( buf, "%s in %s\n\r",
obj->short_descr, in_obj->in_room == NULL
? "somewhere" : in_obj->in_room->name );
}
buf[0] = UPPER(buf[0]);
strcat(buffer,buf);
if (number >= max_found)
break;
}
if ( !found )
send_to_char( "Nothing like that in heaven or earth.\n\r", ch );
else if (ch->lines)
page_to_char(buffer,ch);
else
send_to_char(buffer,ch);
return;
}
void spell_magic_missile( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
static const sh_int dam_each[] =
{
0,
3, 3, 4, 4, 5, 6, 6, 6, 6, 6,
7, 7, 7, 7, 7, 8, 8, 8, 8, 8,
9, 9, 9, 9, 9, 10, 10, 10, 10, 10,
11, 11, 11, 11, 11, 12, 12, 12, 12, 12,
13, 13, 13, 13, 13, 14, 14, 14, 14, 14
};
int dam;
level = UMIN(level, sizeof(dam_each)/sizeof(dam_each[0]) - 1);
level = UMAX(0, level);
dam = number_range( dam_each[level] / 2, dam_each[level] * 2 );
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn, DAM_ENERGY );
return;
}
void spell_mass_healing(int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *gch;
int heal_num, refresh_num;
heal_num = skill_lookup("heal");
refresh_num = skill_lookup("refresh");
for ( gch = ch->in_room->people; gch != NULL; gch = gch->next_in_room )
{
if ((IS_NPC(ch) && IS_NPC(gch)) ||
(!IS_NPC(ch) && !IS_NPC(gch)))
{
spell_heal(heal_num,level,ch,(void *) gch);
spell_refresh(refresh_num,level,ch,(void *) gch);
}
}
}
void spell_mass_invis( int sn, int level, CHAR_DATA *ch, void *vo )
{
AFFECT_DATA af;
CHAR_DATA *gch;
for ( gch = ch->in_room->people; gch != NULL; gch = gch->next_in_room )
{
if ( !is_same_group( gch, ch ) || IS_AFFECTED(gch, AFF_INVISIBLE) )
continue;
act( "$n slowly fades out of existence.", gch, NULL, NULL, TO_ROOM );
send_to_char( "You slowly fade out of existence.\n\r", gch );
af.type = sn;
af.level = level/2;
af.duration = 24;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_INVISIBLE;
affect_to_char( gch, &af );
}
send_to_char( "Ok.\n\r", ch );
return;
}
void spell_mute (int sn, int level, CHAR_DATA *ch, void *vo)
{
CHAR_DATA *victim=(CHAR_DATA *)vo;
AFFECT_DATA af;
if (is_affected(victim, sn))
{
send_to_char ("That character is already mute.\n\r",ch);
return;
}
if (saves_spell(level, victim))
{
send_to_char ("Spell failed.\n\r",ch);
return;
}
af.type = sn;
af.level = level;
af.duration = level/7;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = 0;
affect_to_char( victim, &af );
send_to_char ("Mute spell successful.\n\r",ch);
send_to_char ("You have been muted!\n\r",victim);
}
void spell_negate_alignment (int sn, int level, CHAR_DATA *ch, void *vo)
{
OBJ_DATA *obj=(OBJ_DATA *)vo;
int flags_to_rm=0;
int risk=10;
if (ch->alignment >350) /*good*/
{
if (IS_SET(obj->extra_flags, ITEM_EVIL))
flags_to_rm+=ITEM_EVIL;
if (IS_SET(obj->extra_flags, ITEM_ANTI_GOOD))
flags_to_rm+=ITEM_ANTI_GOOD;
}
if ((ch->alignment <=350) && (ch->alignment >=-350)) /*neutral*/
{
if (IS_SET(obj->extra_flags, ITEM_ANTI_NEUTRAL))
flags_to_rm+=ITEM_ANTI_NEUTRAL;
}
else
{
if (IS_SET(obj->extra_flags, ITEM_ANTI_EVIL))
flags_to_rm+=ITEM_ANTI_EVIL;
}
if (!flags_to_rm)
{
send_to_char ("Your gods find nothing offensive about this item.\n\r",ch);
return;
}
if ((obj->level) > (ch->level+10)) /*risky*/
risk+=5*((obj->level) - (ch->level+10));
if (number_percent() <= risk)
{
extract_obj(obj);
send_to_char ("{rYou have offended your gods! {mKaboom!{x {rThe item explodes! *sigh*{x\n\r",ch);
act("{r$p shivers violently and explodes!{x",ch,obj,NULL,TO_ROOM);
return;
}
if (number_percent() < (ch->level*2/3 + (get_curr_stat(ch,STAT_WIS)-20)))
{
send_to_char ("{cYour gods have favored you...they negate the alignment of the item. {x\n\r",ch);
act("{c$p glows with the color of neutrality{c",ch,obj,NULL,TO_ROOM);
obj->extra_flags-=flags_to_rm;
return;
}
else
{
send_to_char ("The item resists your efforts at negation.\n\r",ch);
return;
}
} /*end spell*/
void spell_null( int sn, int level, CHAR_DATA *ch, void *vo )
{
send_to_char( "That's not a spell!\n\r", ch );
return;
}
void spell_pass_door( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( IS_AFFECTED(victim, AFF_PASS_DOOR) )
{
if (victim == ch)
send_to_char("You are already out of phase.\n\r",ch);
else
act("$N is already shifted out of phase.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = number_fuzzy( level / 4 );
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_PASS_DOOR;
affect_to_char( victim, &af );
act( "$n turns translucent.", victim, NULL, NULL, TO_ROOM );
send_to_char( "You turn translucent.\n\r", victim );
return;
}
/* RT plague spell, very nasty */
void spell_plague( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if (saves_spell(level,victim) ||
(IS_NPC(victim) && IS_SET(victim->act,ACT_UNDEAD)))
{
if (ch == victim)
send_to_char("You feel momentarily ill, but it passes.\n\r",ch);
else
act("$N seems to be unaffected.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level * 3/4;
af.duration = level;
af.location = APPLY_STR;
af.modifier = -5;
af.bitvector = AFF_PLAGUE;
affect_join(victim,&af);
send_to_char
("You scream in agony as plague sores erupt from your skin.\n\r",victim);
act("$n screams in agony as plague sores erupt from $s skin.",
victim,NULL,NULL,TO_ROOM);
}
void spell_poison( int sn, int level, CHAR_DATA *ch, void *vo)
{
CHAR_DATA *victim;
AFFECT_DATA af;
victim = (CHAR_DATA *) vo;
if ( saves_spell( level, victim ) )
{
act("$n turns slightly green, but it passes.",victim,NULL,NULL,TO_ROOM);
send_to_char("You feel momentarily ill, but it passes.\n\r",victim);
return;
}
af.type = sn;
af.level = level;
af.duration = level;
af.location = APPLY_STR;
af.modifier = -2;
af.bitvector = AFF_POISON;
affect_join( victim, &af );
send_to_char( "You feel very sick.\n\r", victim );
act("$n looks very ill.",victim,NULL,NULL,TO_ROOM);
return;
}
void spell_portal (int sn, int level, CHAR_DATA *ch, void *vo )
{
char arg1[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
char *remainder;
CHAR_DATA *victim;
OBJ_DATA *portal1;
OBJ_DATA *portal2;
int portal_level;
if (target_name == NULL || target_name[0] == '\0')
{
send_to_char ("You failed.\n\r",ch);
return;
}
remainder = one_argument(target_name, arg1);
if (remainder != NULL && remainder[0] != '\0' && is_number(remainder))
portal_level = atoi(remainder);
else
portal_level = level;
if (portal_level > level)
portal_level = level;
target_name = arg1;
if ( ( victim = get_char_world( ch, target_name ) ) == NULL
|| victim == ch
|| victim->in_room == NULL
|| !can_see_room(ch,victim->in_room)
|| IS_SET(victim->in_room->room_flags, ROOM_SAFE)
|| IS_SET(victim->in_room->room_flags, ROOM_PRIVATE)
|| IS_SET(victim->in_room->room_flags, ROOM_SOLITARY)
|| IS_SET(victim->in_room->room_flags, ROOM_NO_RECALL)
|| IS_SET(ch->in_room->room_flags, ROOM_NO_RECALL)
|| victim->level >= level + 3
|| (!IS_NPC(victim) && victim->level >= LEVEL_HERO) /* NOT trust */
|| (IS_NPC(victim) && IS_SET(victim->imm_flags,IMM_SUMMON))
|| (!IS_NPC(victim) && IS_SET(victim->act,PLR_NOSUMMON))
|| (IS_NPC(victim) && saves_spell( level, victim ) ) )
{
send_to_char( "You failed.\n\r", ch );
return;
}
/* caster room messages */
send_to_char ("You swirl magic in front of you to create a mystical portal!\n\r",ch);
act ("$n swirls mystic energy together to form a portal!",ch,NULL,NULL,TO_ROOM);
/* victim room message */
act ("A sudden swirl of magical energy transforms into a portal!", victim, NULL, NULL, TO_ROOM);
/*create the portals now*/
portal1 = create_object (get_obj_index(OBJ_VNUM_PORTAL), portal_level);
portal1->level = portal_level;
portal1->timer = level / 5;
portal1->value[0] = victim->in_room->vnum;
portal1->value[1] = OBJ_VNUM_PORTAL;
free_string (portal1->description);
sprintf (buf, "A portal leading to %s is hovering here.",
victim->in_room->name);
portal1->description = strdup (buf);
portal2 = create_object (get_obj_index(OBJ_VNUM_PORTAL), portal_level);
portal2->level = portal_level;
portal2->timer = level / 5;
portal2->value[0] = ch->in_room->vnum;
portal2->value[1] = OBJ_VNUM_PORTAL;
free_string (portal2->description);
sprintf (buf, "A portal leading to %s is hovering here.",
ch->in_room->name);
portal2->description = strdup(buf);
/* put portals in rooms */
obj_to_room (portal1, ch->in_room);
obj_to_room (portal2, victim->in_room);
return;
}
void spell_protection_evil ( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( IS_AFFECTED(victim, AFF_PROTECTE) ||
IS_AFFECTED(victim, AFF_PROTECTG) )
{
if (victim == ch)
send_to_char("You are already protected.\n\r",ch);
else
act("$N is already protected.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = 24;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_PROTECTE;
affect_to_char( victim, &af );
send_to_char( "You feel protected from evil.\n\r", victim );
if ( ch != victim )
act("$N is protected from harm.",ch,NULL,victim,TO_CHAR);
return;
}
void spell_protection_good ( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( IS_AFFECTED(victim, AFF_PROTECTE) ||
IS_AFFECTED(victim, AFF_PROTECTG) )
{
if (victim == ch)
send_to_char("You are already protected.\n\r",ch);
else
act("$N is already protected.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = 24;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_PROTECTG;
affect_to_char( victim, &af );
send_to_char( "You feel protected from good.\n\r", victim );
if ( ch != victim )
act("$N is protected from harm.",ch,NULL,victim,TO_CHAR);
return;
}
void spell_psychic_anchor (int sn, int level, CHAR_DATA *ch, void *vo)
{
if (IS_AFFECTED (ch, AFF_MELD))
{
send_to_char ("Your head is too scrambled to concentrate on this spell.\n\r",ch);
return;
}
if ( IS_SET(ch->in_room->room_flags, ROOM_PRIVATE) )
{
send_to_char ("You cannot make a private room your recall point.\n\r",ch);
return;
}
send_to_char ("You focus your thoughts and form a perfect mental image of this room.\n\r",ch);
send_to_char ("Word of recall will now bring you to this room.\n\r",ch);
ch->recall_temp=ch->in_room->vnum;
}
void spell_mask_self ( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim=(CHAR_DATA *)vo;
AFFECT_DATA af;
if ( IS_AFFECTED(ch, AFF_POLY) )
{
send_to_char ("You are already masked.\n\r",ch);
return;
}
if (victim == ch)
{
send_to_char ("You must specify a target creature.\n\r",ch);
return;
}
if (ch->level <= HERO && !IS_NPC(victim))
{
send_to_char ("You can only mask yourself to look like mobs.\n\r",ch);
return;
}
af.type = sn;
af.level = level;
af.duration = level;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_POLY;
affect_to_char( ch, &af );
send_to_char( "You reshape yourself into the likeness of your target.\n\r", ch );
/*save old descriptions*/
free_string(ch->description_orig);
free_string(ch->short_descr_orig);
free_string(ch->long_descr_orig);
ch->description_orig = str_dup (ch->description);
ch->short_descr_orig = str_dup (ch->short_descr);
ch->long_descr_orig = str_dup (ch->long_descr);
/*apply poly descriptions*/
free_string(ch->description);
free_string(ch->short_descr);
free_string(ch->long_descr);
ch->description = str_dup (victim->description);
if (IS_NPC(victim))
ch->short_descr = str_dup (victim->short_descr);
else
ch->short_descr = str_dup (victim->name);
ch->long_descr = str_dup (victim->long_descr);
free_string(ch->poly_name);
ch->poly_name = str_dup (victim->name);
ch->start_pos = victim->start_pos;
}
void spell_refresh( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
victim->move = UMIN( victim->move + level, victim->max_move );
if (victim->max_move == victim->move)
send_to_char("You feel fully refreshed!\n\r",victim);
else
send_to_char( "You feel less tired.\n\r", victim );
if ( ch != victim )
send_to_char( "Ok.\n\r", ch );
return;
}
void spell_regeneration( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if (IS_AFFECTED (victim, AFF_REGENERATION))
{
send_to_char ("That target is already regenerating.\n\r",ch);
return;
}
af.type = sn;
af.level = level;
af.duration = 24;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_REGENERATION;
affect_to_char( victim, &af );
send_to_char( "You feel yourself healing your wounds more quickly.\n\r", victim );
act("$n is healing much more quickly.",victim,NULL,NULL,TO_ROOM);
return;
}
void spell_remove_curse( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
bool found = FALSE;
OBJ_DATA *obj;
int iWear;
if (check_dispel(level,victim,gsn_curse))
{
send_to_char("You feel better.\n\r",victim);
act("$n looks more relaxed.",victim,NULL,NULL,TO_ROOM);
}
for ( iWear = 0; (iWear < MAX_WEAR && !found); iWear ++)
{
if ((obj = get_eq_char(victim,iWear)) == NULL)
continue;
if (IS_OBJ_STAT(obj,ITEM_NODROP) || IS_OBJ_STAT(obj,ITEM_NOREMOVE))
{ /* attempt to remove curse */
if (!saves_dispel(level,obj->level,0))
{
found = TRUE;
REMOVE_BIT(obj->extra_flags,ITEM_NODROP);
REMOVE_BIT(obj->extra_flags,ITEM_NOREMOVE);
act("$p glows blue.",victim,obj,NULL,TO_CHAR);
act("$p glows blue.",victim,obj,NULL,TO_ROOM);
}
}
}
for (obj = victim->carrying; (obj != NULL && !found); obj = obj->next_content)
{
if (IS_OBJ_STAT(obj,ITEM_NODROP) || IS_OBJ_STAT(obj,ITEM_NOREMOVE))
{ /* attempt to remove curse */
if (!saves_dispel(level,obj->level,0))
{
found = TRUE;
REMOVE_BIT(obj->extra_flags,ITEM_NODROP);
REMOVE_BIT(obj->extra_flags,ITEM_NOREMOVE);
act("Your $p glows blue.",victim,obj,NULL,TO_CHAR);
act("$n's $p glows blue.",victim,obj,NULL,TO_ROOM);
}
}
}
}
void spell_remove_fear( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
if (check_dispel(level,victim,skill_lookup("fear")) )
{
act("$n no longer looks terrified.",victim,NULL,NULL,TO_ROOM);
}
else
send_to_char ("Spell failed.\n\r",ch);
}
void spell_remove_invis( int sn, int level, CHAR_DATA *ch, void *vo)
{
OBJ_DATA *obj=(OBJ_DATA *)vo;
int risk=5;
if (!IS_SET(obj->extra_flags, ITEM_INVIS))
{
send_to_char ("Strange, everyone else can already see that item.\n\r",ch);
send_to_char ("Spell failed.\n\r",ch);
return;
}
if ((obj->level) > (ch->level+5)) /*risky*/
risk+=4*((obj->level) - (ch->level+10));
/* hack, remove invis now so act's will show it properly */
obj->extra_flags -= ITEM_INVIS;
if (number_percent() <= risk)
{
extract_obj(obj);
send_to_char ("Just as the item starts to appear...{mKaboom!{x It {mexplodes!{x\n\r",ch);
act("$p appears suddenly...then shivers violently and {mexplodes{!{x",ch,obj,NULL,TO_ROOM);
return;
}
if (number_percent() < (ch->level*2/3 + (get_curr_stat(ch,STAT_INT)-20)))
{
send_to_char ("{cA bright flash of light appears and fades, revealing the item to all.{x\n\r",ch);
act("{cA bright flash of light appears and fades, revealing $p.{x",ch,obj,NULL,TO_ROOM);
send_to_char ("Spell successful.\n\r",ch);
return;
}
else
{
send_to_char ("The item resists your efforts at removing its invisibility.\n\r",ch);
obj->extra_flags += ITEM_INVIS;
return;
}
} /*end spell*/
void spell_sanctuary( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( IS_AFFECTED(victim, AFF_SANCTUARY) )
{
if (victim == ch)
send_to_char("You are already in sanctuary.\n\r",ch);
else
act("$N is already in sanctuary.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = number_fuzzy( level / 6 );
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_SANCTUARY;
affect_to_char( victim, &af );
act( "$n is surrounded by a white aura.", victim, NULL, NULL, TO_ROOM );
send_to_char( "You are surrounded by a white aura.\n\r", victim );
return;
}
void spell_shield( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( is_affected( victim, sn ) )
{
if (victim == ch)
send_to_char("You are already shielded from harm.\n\r",ch);
else
act("$N is already protected by a shield.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = 8 + level;
af.location = APPLY_AC;
af.modifier = -20;
af.bitvector = 0;
affect_to_char( victim, &af );
act( "$n is surrounded by a force shield.", victim, NULL, NULL, TO_ROOM );
send_to_char( "You are surrounded by a force shield.\n\r", victim );
return;
}
void spell_shocking_grasp( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
static const int dam_each[] =
{
0,
0, 0, 0, 0, 0, 0, 20, 25, 29, 33,
36, 39, 39, 39, 40, 40, 41, 41, 42, 42,
43, 43, 44, 44, 45, 45, 46, 46, 47, 47,
48, 48, 49, 49, 50, 50, 51, 51, 52, 52,
53, 53, 54, 54, 55, 55, 56, 56, 57, 57
};
int dam;
level = UMIN(level, sizeof(dam_each)/sizeof(dam_each[0]) - 1);
level = UMAX(0, level);
dam = number_range( dam_each[level] / 2, dam_each[level] * 2 );
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn, DAM_LIGHTNING );
return;
}
void spell_sleep( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( IS_AFFECTED(victim, AFF_SLEEP)
|| (IS_NPC(victim) && IS_SET(victim->act,ACT_UNDEAD))
|| level < victim->level
|| saves_spell( level, victim ) )
return;
af.type = sn;
af.level = level;
af.duration = 4 + level;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = AFF_SLEEP;
affect_join( victim, &af );
if ( IS_AWAKE(victim) )
{
send_to_char( "You feel very sleepy ..... zzzzzz.\n\r", victim );
act( "$n goes to sleep.", victim, NULL, NULL, TO_ROOM );
victim->position = POS_SLEEPING;
}
return;
}
void spell_stone_skin( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( is_affected( ch, sn ) )
{
if (victim == ch)
send_to_char("Your skin is already as hard as a rock.\n\r",ch);
else
act("$N is already as hard as can be.",ch,NULL,victim,TO_CHAR);
return;
}
af.type = sn;
af.level = level;
af.duration = level;
af.location = APPLY_AC;
af.modifier = -40;
af.bitvector = 0;
affect_to_char( victim, &af );
act( "$n's skin turns to stone.", victim, NULL, NULL, TO_ROOM );
send_to_char( "Your skin turns to stone.\n\r", victim );
return;
}
void spell_summon( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim;
if ( ( victim = get_char_world( ch, target_name ) ) == NULL
|| victim == ch
|| victim->in_room == NULL
|| IS_SET(victim->in_room->room_flags, ROOM_SAFE)
|| IS_SET(victim->in_room->room_flags, ROOM_PRIVATE)
|| IS_SET(victim->in_room->room_flags, ROOM_SOLITARY)
|| IS_SET(victim->in_room->room_flags, ROOM_NO_RECALL)
|| (IS_NPC(victim) && IS_SET(victim->act,ACT_AGGRESSIVE))
|| victim->level >= level + 3
|| (!IS_NPC(victim) && victim->level >= LEVEL_HERO)
|| victim->fighting != NULL
|| (IS_NPC(victim) && IS_SET(victim->imm_flags,IMM_SUMMON))
|| (!IS_NPC(victim) && IS_SET(victim->act,PLR_NOSUMMON))
|| (IS_NPC(victim) && saves_spell( level, victim ) ) )
{
send_to_char( "You failed.\n\r", ch );
return;
}
act( "$n disappears suddenly.", victim, NULL, NULL, TO_ROOM );
char_from_room( victim );
char_to_room( victim, ch->in_room );
act( "$n arrives suddenly.", victim, NULL, NULL, TO_ROOM );
act( "$n has summoned you!", ch, NULL, victim, TO_VICT );
do_look( victim, "auto" );
return;
}
void spell_teleport( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
ROOM_INDEX_DATA *pRoomIndex;
if ( victim->in_room == NULL
|| IS_SET(victim->in_room->room_flags, ROOM_NO_RECALL)
|| ( !IS_NPC(ch) && victim->fighting != NULL )
|| ( victim != ch
&& ( saves_spell( level, victim ) || saves_spell( level, victim ) ) ) )
{
send_to_char( "You failed.\n\r", ch );
return;
}
for ( ; ; )
{
pRoomIndex = get_room_index( number_range( 0, 65535 ) );
if ( pRoomIndex != NULL )
if ( can_see_room(ch,pRoomIndex)
&& !IS_SET(pRoomIndex->room_flags, ROOM_PRIVATE)
&& !IS_SET(pRoomIndex->room_flags, ROOM_SOLITARY) )
break;
}
if (victim != ch)
send_to_char("You have been teleported!\n\r",victim);
act( "$n vanishes!", victim, NULL, NULL, TO_ROOM );
char_from_room( victim );
char_to_room( victim, pRoomIndex );
act( "$n slowly fades into existence.", victim, NULL, NULL, TO_ROOM );
do_look( victim, "auto" );
return;
}
void spell_ventriloquate( int sn, int level, CHAR_DATA *ch, void *vo )
{
char buf1[MAX_STRING_LENGTH];
char buf2[MAX_STRING_LENGTH];
char speaker[MAX_INPUT_LENGTH];
CHAR_DATA *vch;
target_name = one_argument( target_name, speaker );
sprintf( buf1, "%s says '%s'.\n\r", speaker, target_name );
sprintf( buf2, "Someone makes %s say '%s'.\n\r", speaker, target_name );
buf1[0] = UPPER(buf1[0]);
for ( vch = ch->in_room->people; vch != NULL; vch = vch->next_in_room )
{
if ( !is_name( speaker, vch->name ) )
send_to_char( saves_spell( level, vch ) ? buf2 : buf1, vch );
}
return;
}
void spell_vocalize ( int sn, int level, CHAR_DATA *ch, void *vo)
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if (is_affected(victim, sn))
{
send_to_char ("That target already has the benefit of vocalize.\n\r",ch);
return;
}
af.type = sn;
af.level = level;
af.duration = level / 7;
af.location = APPLY_NONE;
af.modifier = 0;
af.bitvector = 0;
affect_to_char( victim, &af );
send_to_char ("Vocalize spell successful.\n\r",ch);
send_to_char ("You feel you can cast spells without speaking.\n\r",victim);
return;
}
void spell_weaken( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
if ( is_affected( victim, sn ) || saves_spell( level, victim ) )
return;
af.type = sn;
af.level = level;
af.duration = level / 2;
af.location = APPLY_STR;
af.modifier = -1 * (level / 5);
af.bitvector = AFF_WEAKEN;
affect_to_char( victim, &af );
send_to_char( "You feel weaker.\n\r", victim );
act("$n looks tired and weak.",victim,NULL,NULL,TO_ROOM);
return;
}
/* RT recall spell is back */
void spell_word_of_recall( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
ROOM_INDEX_DATA *location;
if (IS_NPC(victim))
return;
/* Zeran - changeable recall room */
if ((location = get_room_index( ch->recall_temp )) == NULL)
{
if ((location = get_room_index( ch->recall_perm )) == NULL)
{
send_to_char("You are completely lost.\n\r",victim);
return;
}
}
if (IS_SET(victim->in_room->room_flags,ROOM_NO_RECALL) ||
IS_AFFECTED(victim,AFF_CURSE))
{
send_to_char("Spell failed.\n\r",victim);
return;
}
if (victim->fighting != NULL)
stop_fighting(victim,TRUE);
ch->move /= 2;
act("$n disappears.",victim,NULL,NULL,TO_ROOM);
char_from_room(victim);
char_to_room(victim,location);
act("$n appears in the room.",victim,NULL,NULL,TO_ROOM);
do_look(victim,"auto");
}
/*
* NPC spells.
*/
void spell_acid_breath( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
OBJ_DATA *obj_lose;
OBJ_DATA *obj_next;
OBJ_DATA *t_obj,*n_obj;
int dam;
int hpch;
int i;
if ( number_percent( ) < 2 * level && !saves_spell( level, victim ) )
{
for ( obj_lose = victim->carrying; obj_lose != NULL; obj_lose = obj_next )
{
int iWear;
obj_next = obj_lose->next_content;
if ( number_bits( 2 ) != 0 )
continue;
switch ( obj_lose->item_type )
{
case ITEM_ARMOR:
if ( obj_lose->value[0] > 0 )
{
act( "$p is pitted and etched!",
victim, obj_lose, NULL, TO_CHAR );
if ( ( iWear = obj_lose->wear_loc ) != WEAR_NONE )
for (i = 0; i < 4; i ++)
victim->armor[i] -= apply_ac( obj_lose, iWear, i );
for (i = 0; i < 4; i ++)
obj_lose->value[i] -= 1;
obj_lose->cost = 0;
if ( iWear != WEAR_NONE )
for (i = 0; i < 4; i++)
victim->armor[i] += apply_ac( obj_lose, iWear, i );
}
break;
case ITEM_CONTAINER:
act( "$p fumes and dissolves, destroying some of the contents.",
victim, obj_lose, NULL, TO_CHAR );
/* save some of the contents */
for (t_obj = obj_lose->contains; t_obj != NULL; t_obj = n_obj)
{
n_obj = t_obj->next_content;
obj_from_obj(t_obj);
if (number_bits(2) == 0 || victim->in_room == NULL)
extract_obj(t_obj);
else
obj_to_room(t_obj,victim->in_room);
}
extract_obj( obj_lose );
break;
}
}
}
hpch = UMAX( 10, ch->hit );
dam = number_range( hpch/16+1, hpch/8 );
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn, DAM_ACID );
return;
}
void spell_fire_breath( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
OBJ_DATA *obj_lose;
OBJ_DATA *obj_next;
OBJ_DATA *t_obj, *n_obj;
int dam;
int hpch;
if ( number_percent( ) < 2 * level && !saves_spell( level, victim ) )
{
for ( obj_lose = victim->carrying; obj_lose != NULL;
obj_lose = obj_next )
{
char *msg;
obj_next = obj_lose->next_content;
if ( number_bits( 2 ) != 0 )
continue;
switch ( obj_lose->item_type )
{
default: continue;
case ITEM_CONTAINER: msg = "$p ignites and burns!"; break;
case ITEM_POTION: msg = "$p bubbles and boils!"; break;
case ITEM_SCROLL: msg = "$p crackles and burns!"; break;
case ITEM_STAFF: msg = "$p smokes and chars!"; break;
case ITEM_WAND: msg = "$p sparks and sputters!"; break;
case ITEM_FOOD: msg = "$p blackens and crisps!"; break;
case ITEM_PILL: msg = "$p melts and drips!"; break;
}
act( msg, victim, obj_lose, NULL, TO_CHAR );
if (obj_lose->item_type == ITEM_CONTAINER)
{
/* save some of the contents */
for (t_obj = obj_lose->contains; t_obj != NULL; t_obj = n_obj)
{
n_obj = t_obj->next_content;
obj_from_obj(t_obj);
if (number_bits(2) == 0 || ch->in_room == NULL)
extract_obj(t_obj);
else
obj_to_room(t_obj,ch->in_room);
}
}
extract_obj( obj_lose );
}
}
hpch = UMAX( 10, ch->hit );
dam = number_range( hpch/16+1, hpch/8 );
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn, DAM_FIRE );
return;
}
void spell_frost_breath( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
OBJ_DATA *obj_lose;
OBJ_DATA *obj_next;
int dam;
int hpch;
if ( number_percent( ) < 2 * level && !saves_spell( level, victim ) )
{
for ( obj_lose = victim->carrying; obj_lose != NULL;
obj_lose = obj_next )
{
char *msg;
obj_next = obj_lose->next_content;
if ( number_bits( 2 ) != 0 )
continue;
switch ( obj_lose->item_type )
{
default: continue;
case ITEM_DRINK_CON:
case ITEM_POTION: msg = "$p freezes and shatters!"; break;
}
act( msg, victim, obj_lose, NULL, TO_CHAR );
extract_obj( obj_lose );
}
}
hpch = UMAX( 10, ch->hit );
dam = number_range( hpch/16+1, hpch/8 );
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn, DAM_COLD );
return;
}
void spell_gas_breath( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
int dam;
int hpch;
for ( vch = ch->in_room->people; vch != NULL; vch = vch_next )
{
vch_next = vch->next_in_room;
if ( !is_safe_spell(ch,vch,TRUE))
{
hpch = UMAX( 10, ch->hit );
dam = number_range( hpch/16+1, hpch/8 );
if ( saves_spell( level, vch ) )
dam /= 2;
damage( ch, vch, dam, sn, DAM_POISON );
}
}
return;
}
void spell_lightning_breath( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
int dam;
int hpch;
hpch = UMAX( 10, ch->hit );
dam = number_range( hpch/16+1, hpch/8 );
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn, DAM_LIGHTNING );
return;
}
/*
* Spells for mega1.are from Glop/Erkenbrand.
*/
void spell_general_purpose( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
int dam;
dam = number_range( 25, 100 );
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn, DAM_PIERCE );
return;
}
void spell_high_explosive( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
int dam;
dam = number_range( 30, 120 );
if ( saves_spell( level, victim ) )
dam /= 2;
damage( ch, victim, dam, sn, DAM_PIERCE );
return;
}
/* psionics begin here */
void spell_mind_meld ( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
AFFECT_DATA af;
int dam;
if ( IS_AFFECTED( victim, AFF_MELD ) || saves_spell( level, victim ) )
{
send_to_char( "Your efforts fail to produce melding.\n\r", ch );
return;
}
af.type = sn;
af.level = level;
af.duration = 2 + level;
af.location = APPLY_INT;
af.modifier = -5;
af.bitvector = AFF_MELD;
affect_to_char( victim, &af );
dam = dice( 6, level );
damage( ch, victim, dam, sn, DAM_MENTAL );
act( "$N has been Mind Melded.", ch, NULL, victim, TO_CHAR );
send_to_char( "You feel an immense pain in your head!\n\r", victim );
act( "$N grimaces in pain!", ch, NULL, victim, TO_NOTVICT );
return;
}
void spell_chaos(int sn, int level, CHAR_DATA *ch, void *vo)
{
CHAR_DATA *victim = (CHAR_DATA *) vo;
CHAR_DATA *tmp_vict,*last_vict,*next_vict;
bool found;
int dam;
int damtype;
char buf[MAX_STRING_LENGTH];
/* this spell uses a bit of OLC code. nasty, but it was the quickest way
* to get the damage names from numbers into text form.
* It started out based on chain lightning, but has got much more advanced.
* Spell Chaos by Lotherius (elfren@aros.net)
*/
damtype = number_range (4, 17);
act("A cracking sound fills the room as $n bursts into energy, sending an arc of pure magical force into $N.",
ch,NULL,victim,TO_ROOM);
if (IS_NPC(victim) )
{
buf[0] = '\0';
sprintf(buf, "With a crack, your %s hits %s!\n\r",
flag_string( damage_type, damtype ),
victim->short_descr );
send_to_char(buf, ch);
}
else
{
buf[0] = '\0';
sprintf(buf, "With a crack, your %s hits %s!\n\r",
flag_string( damage_type, damtype ),
victim->name );
send_to_char(buf, ch);
buf[0] = '\0';
sprintf(buf, "You are hit by %s's %s!\n\r",
ch->name,
flag_string( damage_type, damtype ) );
send_to_char(buf, victim);
}
dam = dice(level,6);
if (saves_spell(level,victim))
dam /= 3;
damage(ch,victim,dam,sn,damtype);
last_vict = victim;
level -= 3; /* decrement damage */
/* new targets */
while (level > 0)
{
found = FALSE;
for (tmp_vict = ch->in_room->people;
tmp_vict != NULL;
tmp_vict = next_vict)
{
next_vict = tmp_vict->next_in_room;
if (!is_safe_spell(ch,tmp_vict,TRUE) && tmp_vict != last_vict)
{
found = TRUE;
last_vict = tmp_vict;
act("$n is enveloped by the raw power!",tmp_vict,NULL,NULL,TO_ROOM);
dam = dice(level,6);
if (saves_spell(level,tmp_vict))
dam /= 3;
damtype = number_range (4, 17);
if (IS_NPC(victim) )
{
buf[0] = '\0';
sprintf(buf, "Your %s hits %s!\n\r",
flag_string( damage_type, damtype ),
victim->short_descr );
send_to_char(buf, ch);
}
else
{
buf[0] = '\0';
sprintf(buf, "Your %s hits %s!\n\r",
flag_string( damage_type, damtype ),
victim->name );
send_to_char(buf, ch);
buf[0] = '\0';
sprintf(buf, "You are hit by %s's %s!\n\r",
ch->name,
flag_string( damage_type, damtype ) );
send_to_char(buf, victim);
}
damage(ch,tmp_vict,dam,sn,damtype);
level -= 4; /* decrement damage */
}
} /* end target searching loop */
if (!found) /* no target found, hit the caster */
{
if (ch == NULL)
return;
if (last_vict == ch) /* no double hits */
{
act("The energy flows back into the ether.",ch,NULL,NULL,TO_ROOM);
act("The energy returns to you, somewhat spent.",
ch,NULL,NULL,TO_CHAR);
return;
}
last_vict = ch;
act("The magic backfires on $n...whoops!",ch,NULL,NULL,TO_ROOM);
damtype = number_range (4, 17);
buf[0] = '\0';
sprintf(buf, "Your %s hits YOU!\n\r",
flag_string( damage_type, damtype ) );
send_to_char(buf, ch);
dam = dice(level,6);
if (saves_spell(level,ch))
dam /= 3;
damage(ch,ch,dam,sn,damtype);
level -= 4; /* decrement damage */
if (ch == NULL)
return;
}
/* now go back and find more targets */
}
}
void spell_psi_twister( int sn, int level, CHAR_DATA *ch, void *vo )
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
send_to_char( "You release your mental powers to do its will in the room!\n\r", ch );
act( "$n levitates amid a swirl of psychic energy.", ch, NULL, NULL, TO_ROOM );
for ( vch = char_list; vch != NULL; vch = vch_next )
{
vch_next = vch->next;
if ( vch->in_room == NULL )
continue;
if ( vch->in_room == ch->in_room )
{
if ( vch != ch && !is_safe_spell(ch,vch,TRUE))
if (saves_spell(level,vch))
damage( ch, vch, 1, sn, DAM_MENTAL );
else
damage( ch, vch, level + dice(3, 8), sn, DAM_MENTAL );
continue;
}
}
return;
}
void do_brew (CHAR_DATA *ch, char *argument)
{
OBJ_DATA *obj = NULL;
int sn;
char messbuf[128];
char typebuf[128];
int chance;
int mana;
char arg1[MAX_INPUT_LENGTH];
char *spell;
one_argument (argument, arg1);
/*
* Switched NPC's can brew spells, but others can't.
*/
if ( IS_NPC(ch) && ch->desc == NULL)
return;
if (ch->class != class_lookup("avenger"))
{
send_to_char ("Only Avengers or Defilers may brew potions.\n\r",ch);
return;
}
if ( arg1[0] == '\0' )
{
send_to_char( "Brew what?\n\r", ch );
return;
}
if ( ( sn = skill_lookup( arg1 ) ) < 0
|| ( !IS_NPC(ch) && ch->level < skill_table[sn].skill_level[ch->class] )
|| (ch->pcdata->learned[sn] < 1) )
{
send_to_char( "You don't know any spells of that name.\n\r", ch );
return;
}
if (skill_table[sn].spell_fun == spell_null)
{
send_to_char( "That's not a spell!\n\r", ch );
return;
}
/* See if spell is brewable */
/* need a new routine here since I removed the "brew chart" */
/* Verify character has mana and components. */
/* need to add vial or jar here later */
if (ch->level + 2 == skill_table[sn].skill_level[ch->class])
mana = 50;
else
mana = 1.5 * (UMAX(
skill_table[sn].min_mana,
100 / ( 2 + ch->level - skill_table[sn].skill_level[ch->class])));
if (ch->mana < mana)
{
send_to_char ("You do not have enough mana to brew that.\n\r",ch);
return;
}
if ( str_cmp (skill_table[sn].component,"")
&& ( obj = get_obj_carry (ch, skill_table[sn].component) ) == NULL)
{
sprintf (messbuf, "You need '%s' to brew that potion.\n\r",
skill_table[sn].component);
send_to_char (messbuf, ch);
return;
}
/* Ok, checks done, lets whip up a potion! */
ch->mana -= mana;
if (obj != NULL)
extract_obj (obj);
chance = ch->level/2 + ch->pcdata->learned[sn]/2;
if (number_percent() > chance)
{
send_to_char ("Oops, you misread the recipe.\n\r",ch);
return;
}
obj = create_object ( (get_obj_index(OBJ_POTION)), 0);
obj->value[0] = ch->level;
obj->value[1] = sn;
obj->level = 1;
obj->timer = UMAX(24,(ch->level*2));
free_string (obj->name);
free_string (obj->short_descr);
free_string (obj->description);
spell = skill_table[sn].name;
sprintf (typebuf, "potion %s", spell);
obj->name = strdup (typebuf);
sprintf (typebuf, "a potion of %s", spell);
obj->short_descr = strdup (typebuf);
sprintf (typebuf, "A potion of %s is just lying here.", spell);
obj->description = strdup (typebuf);
/* Zeran - make waitstate *before* obj is put in room, so brewers don't
have their new creations stolen while they are stuck in a waitstate. */
if (!IS_IMMORTAL(ch))
WAIT_STATE (ch, PULSE_VIOLENCE/2); /*lets not brew at lightspeed*/
obj_to_room (obj, ch->in_room);
send_to_char ("You whip up a fantastic concoction!\n\r",ch);
act( "$n grabs a kettle and whips up a potion.", ch, NULL, NULL, TO_ROOM );
}
void do_scribe (CHAR_DATA *ch, char *argument)
{
OBJ_DATA *obj = NULL;
OBJ_DATA *obj2 = NULL;
int sn;
char messbuf[128];
char typebuf[128];
int chance;
char arg1[MAX_INPUT_LENGTH];
char *spell;
int gold=0;
int mana=0;
one_argument (argument, arg1);
/*
* Switched NPC's can scribe spells, but others can't.
*/
if ( IS_NPC(ch) && ch->desc == NULL)
return;
if (ch->class != class_lookup("mage")
&& ch->class != class_lookup("chaosmage") )
{
send_to_char ("Only mages or chaosmages may scribe spells.\n\r",ch);
return;
}
if ( arg1[0] == '\0' )
{
send_to_char( "Scribe what?\n\r", ch );
return;
}
if ( ( sn = skill_lookup( arg1 ) ) < 0
|| ( !IS_NPC(ch) && ch->level < skill_table[sn].skill_level[ch->class] )
|| (ch->pcdata->learned[sn] < 1) )
{
send_to_char( "You don't know any spells of that name.\n\r", ch );
return;
}
if (skill_table[sn].spell_fun == spell_null)
{
send_to_char( "That's not a spell!\n\r", ch );
return;
}
gold = skill_table[sn].skill_level[ch->class] * 10;
mana = UMAX( skill_table[sn].min_mana,
100 / ( 2 + ch->level - skill_table[sn].skill_level[ch->class] ) )*1.5;
/* Verify character has necessary gold, mana, and components. */
if (ch->gold < gold)
{
send_to_char ("You do not have enough gold to scribe that.\n\r",ch);
return;
}
if (ch->mana < mana)
{
send_to_char ("You do not have enough mana to scribe that.\n\r",ch);
return;
}
if ( (obj = get_obj_carry (ch, "vellum")) == NULL)
{
send_to_char ("You need vellum to write on.\n\r",ch);
return;
}
if ( str_cmp (skill_table[sn].component,"")
&& ( obj2 = get_obj_carry (ch, skill_table[sn].component) ) == NULL)
{
sprintf (messbuf, "You need '%s' to scribe that spell.\n\r",
skill_table[sn].component);
send_to_char (messbuf, ch);
return;
}
/* Ok, checks done, lets whip up a potion! */
ch->gold -= gold;
ch->mana -= mana;
extract_obj (obj); /*vellum sheet*/
if (obj2!=NULL)
extract_obj (obj2); /*extra component*/
chance = ch->level/2 + ch->pcdata->learned[sn]/2;
if (number_percent() > chance)
{
send_to_char ("Oops, you damaged the vellum, scroll ruined.\n\r",ch);
return;
}
obj = create_object ( (get_obj_index(OBJ_SCROLL)), 0);
obj->value[0] = ch->level;
obj->value[1] = sn;
obj->level = 1;
obj->timer = UMAX(24,(ch->level*2));
free_string (obj->name);
free_string (obj->short_descr);
free_string (obj->description);
spell = skill_table[sn].name;
sprintf (typebuf, "scroll %s", spell);
obj->name = strdup (typebuf);
sprintf (typebuf, "a scroll of %s", spell);
obj->short_descr = strdup (typebuf);
sprintf (typebuf, "A tightly rolled scroll of %s is lying here.", spell);
obj->description = strdup (typebuf);
/* Zeran - make waitstate *before* obj is put in room, so scribers don't
have their new creations stolen while they are stuck in a waitstate. */
if (!IS_IMMORTAL(ch))
WAIT_STATE (ch, PULSE_VIOLENCE/2); /*lets not scribe at lightspeed*/
obj_to_room (obj, ch->in_room);
send_to_char ("You painstakingly fill the scroll with mystical runes!\n\r",ch);
act( "$n writes a scroll with strange symbols on it.", ch, NULL, NULL, TO_ROOM );
}