Difference for server/spell_effect.c from version 1.103 to 1.104

version 1.103

version 1.104

Line 1

* static char *rcsid_spell_effect_c =

* "$Id: spell_effect.c,v 1.103 2003/03/19 08:04:52 mwedel Exp $";

* "$Id: spell_effect.c,v 1.104 2003/03/21 08:01:09 mwedel Exp $";

Line 1482

return 1;

}

int

/* This is used for the spells that gain stats. There are no spells

cast_change_attr(object *op,object *caster,int dir,int spell_type) {

* right now that icnrease wis/int/pow on a temp basis, so no

* good comments for those.

static char *no_gain_msgs[NUM_STATS] = {

"You grow no stronger.",

"You grow no more agile.",

"You don't feel any healthier.",

"no wis",

"You are no easier to look at.",

"no int",

"no pow"

};

int cast_change_attr(object *op,object *caster,int dir,int spell_type) {

object *tmp = op;

object *tmp2=NULL;

object *force=NULL;

int is_refresh=0;

int atnr=0, path=0; /* see protection spells */

int i;

int i,stat=-1;

/* if dir = 99 op defaults to tmp, eat_special_food() requires this. */

if(dir!=99) {

Line 1528

Line 1541

i=0; /* (-> protection spells) */

switch(spell_type) {

case SP_RAGE:

{

if(tmp->type!=PLAYER)

break;

/* Str, Dex, Con */

Line 1541

Line 1553

cast_change_attr(op,caster,dir,SP_REGENERATION);

/* weapon class */

force->stats.wc += SP_level_dam_adjust(op,caster,SP_BLESS);

break;

}

case SP_STRENGTH:

if(tmp->type!=PLAYER)

break;

if(!(random_roll(0, (MAX(1,(10 - MAX_STAT + tmp->stats.Str)))-1, op, PREFER_LOW))) {

for(i=20,force->stats.Str=1;i>tmp->stats.Str;i-=2)

force->stats.Str++; }

else { new_draw_info(NDI_UNIQUE, 0,op,"You grow no stronger."); force->stats.Str=0; }

break;

case SP_DEXTERITY:

if(tmp->type!=PLAYER)

break;

if(!(random_roll(0, (MAX(1,(10 - MAX_STAT + tmp->stats.Dex)))-1, op, PREFER_LOW))) {

for(i=20,force->stats.Dex=1;i>tmp->stats.Dex;i-=2)

force->stats.Dex++; }

else { new_draw_info(NDI_UNIQUE, 0,op,"You grow no more agile."); force->stats.Dex=0; }

break;

case SP_CONSTITUTION:

if(tmp->type!=PLAYER)

break;

if(!(random_roll(0, (MAX(1,(10 - MAX_STAT + tmp->stats.Con)))-1, op, PREFER_LOW))) {

for(i=20,force->stats.Con=1;i>tmp->stats.Con;i-=2)

force->stats.Con++;}

else { new_draw_info(NDI_UNIQUE, 0,op,"You don't feel any healthier."); force->stats.Con=0; }

case SP_STRENGTH: if (stat==-1) stat = STR;

case SP_DEXTERITY: if (stat==-1) stat = DEX;

case SP_CONSTITUTION: if (stat==-1) stat = CON;

case SP_CHARISMA: if (stat==-1) stat = CHA;

/* This area is common to all the stat change stuff above */

/* If we are refreshing this stat, don't do any of the below - if we do, we get odd

* results - the first one gets maximum benefit, but then the next one isn't as

* good because the player stat is now higher, so give less a bonus to the force,

* then the third one may be more effective again.

if(tmp->type!=PLAYER || is_refresh)

break;

case SP_CHARISMA:

if(!(random_roll(0, (MAX(1,(10 - MAX_STAT + get_attr_value(&tmp->stats,stat))))-1, op, PREFER_LOW))) {

if(tmp->type!=PLAYER)

set_attr_value(&force->stats, stat, 1);

break;

if(!(random_roll(0, (MAX(1,(10 - MAX_STAT + tmp->stats.Cha)))-1, op, PREFER_LOW))) {

for(i=20,force->stats.Cha=1;i>tmp->stats.Cha;i-=2)

force->stats.Cha++;}

else { new_draw_info(NDI_UNIQUE, 0,op,"You are no easier to look at."); force->stats.Cha=0; }

for(i=20;i>get_attr_value(&tmp->stats, stat);i-=2)

change_attr_value(&force->stats, stat, 1);

} else {

new_draw_info(NDI_UNIQUE, 0,op,no_gain_msgs[stat]);

set_attr_value(&force->stats, stat, 0);

}

break;

case SP_IRONWOOD_SKIN:

case SP_ARMOUR: {

/* armour MAY be used multiple times. */

Line 1597

Line 1598

new_draw_info(NDI_UNIQUE, 0,tmp,"A force shimmers around you.");

break;

}

case SP_CONFUSION:

force->attacktype |= (AT_CONFUSION|AT_PHYSICAL);

force->resist[ATNR_CONFUSION] = 50; /*??? It was here before PR */

break;

case SP_HEROISM:

if (tmp->type != PLAYER)

break;

Line 1608

Line 1611

cast_change_attr(op,caster,dir,SP_DEXTERITY);

cast_change_attr(op,caster,dir,SP_CONSTITUTION);

break;

case SP_HOLY_POSSESSION: {

object *god = find_god(determine_god(op));

int i;

if(god) {

if(!god) {

new_draw_info(NDI_UNIQUE, 0,op,"Your blessing seems empty.");

} else {

force->attacktype|=god->attacktype | AT_PHYSICAL;

if(god->slaying) force->slaying = add_string(god->slaying);

Line 1628

Line 1634

force->path_attuned|=god->path_attuned;

new_draw_info_format(NDI_UNIQUE, 0,tmp,

"You are possessed by the essence of %s!",god->name);

} else

}

new_draw_info(NDI_UNIQUE, 0,op,"Your blessing seems empty.");

if(tmp!=op && op->type==PLAYER && tmp->type==PLAYER) {

new_draw_info_format(NDI_UNIQUE, 0, op,

"You bless %s mightily!", tmp->name);

new_draw_info_format(NDI_UNIQUE, 0, tmp,

"%s blessed you mightily!", op->name);

}

force->stats.wc += SP_level_dam_adjust(op, caster,SP_HOLY_POSSESSION);

force->stats.wc = SP_level_dam_adjust(op, caster,SP_HOLY_POSSESSION);

force->stats.ac += SP_level_dam_adjust(op, caster,SP_HOLY_POSSESSION);

force->stats.ac = SP_level_dam_adjust(op, caster,SP_HOLY_POSSESSION);

break; }

case SP_REGENERATION:

force->stats.hp = 1 + SP_level_dam_adjust(op, caster,SP_REGENERATION);

break;

case SP_CURSE: {

}

object *god = find_god(determine_god(op));

if(god) {

force->path_repelled|=god->path_repelled;

force->path_denied|=god->path_denied;

new_draw_info_format(NDI_UNIQUE, 0,tmp,

"You are a victim of %s's curse!",god->name);

} else

new_draw_info(NDI_UNIQUE, 0,op,"Your curse seems empty.");

if(tmp!=op && caster->type==PLAYER)

new_draw_info_format(NDI_UNIQUE, 0, caster, "You curse %s!",tmp->name);

force->stats.ac -= SP_level_dam_adjust(op, caster,SP_CURSE);

force->stats.wc -= SP_level_dam_adjust(op, caster,SP_CURSE);

break; }

case SP_BLESS: {

object *god = find_god(determine_god(op));

if(god) {

Line 1680

Line 1670

new_draw_info_format(NDI_UNIQUE, 0, op, "You bless %s.", tmp->name);

new_draw_info_format(NDI_UNIQUE, 0, tmp, "%s blessed you.", op->name);

}

force->stats.wc += SP_level_dam_adjust(op, caster,SP_BLESS);

force->stats.wc = SP_level_dam_adjust(op, caster,SP_BLESS);

force->stats.ac += SP_level_dam_adjust(op, caster,SP_BLESS);

force->stats.ac = SP_level_dam_adjust(op, caster,SP_BLESS);

break; }

break;

}

case SP_REGENERATION:

force->stats.hp = 1 + SP_level_dam_adjust(op, caster,SP_REGENERATION);

break;

case SP_CURSE: {

object *god = find_god(determine_god(op));

if(god) {

force->path_repelled|=god->path_repelled;

force->path_denied|=god->path_denied;

new_draw_info_format(NDI_UNIQUE, 0,tmp,

"You are a victim of %s's curse!",god->name);

} else

new_draw_info(NDI_UNIQUE, 0,op,"Your curse seems empty.");

if(tmp!=op && caster->type==PLAYER)

new_draw_info_format(NDI_UNIQUE, 0, caster, "You curse %s!",tmp->name);

force->stats.ac = -SP_level_dam_adjust(op, caster,SP_CURSE);

force->stats.wc = -SP_level_dam_adjust(op, caster,SP_CURSE);

break;

}

case SP_DARK_VISION:

SET_FLAG(force,FLAG_SEE_IN_DARK);

break;

/* attacktype-protection spells: */

case SP_PROT_COLD:

if (!i) atnr=ATNR_COLD, path=PATH_FROST, i=1;

case SP_PROT_FIRE:

if (!i) atnr=ATNR_FIRE, path=PATH_FIRE, i=1;

case SP_PROT_ELEC:

if (!i) atnr=ATNR_ELECTRICITY, path=PATH_ELEC, i=1;

case SP_PROT_POISON:

if (!i) atnr=ATNR_POISON, i=1;

case SP_PROT_SLOW:

if (!i) atnr=ATNR_SLOW, i=1;

case SP_PROT_PARALYZE:

if (!i) atnr=ATNR_PARALYZE, path=PATH_MIND, i=1;

case SP_PROT_DRAIN:

if (!i) atnr=ATNR_DRAIN, path=PATH_DEATH, i=1;

case SP_PROT_ATTACK:

if (!i) atnr=ATNR_PHYSICAL, path=PATH_PROT, i=1;

case SP_PROT_MAGIC:

if (!i) atnr=ATNR_MAGIC, i=1;

case SP_PROT_CONFUSE:

if (!i) atnr=ATNR_CONFUSION, path=PATH_MIND, i=1;

case SP_PROT_CANCEL:

if (!i) atnr=ATNR_CANCELLATION, i=1;

case SP_PROT_DEPLETE:

if (!i) atnr=ATNR_DEPLETE, path=PATH_DEATH, i=1;

/* The amount of prot. granted depends on caster's skill-level and

* on attunement to spellpath, if there is a related one: */

* on attunement to spellpath, if there is a related one:

force->resist[atnr] = (20 + 30*SK_level(caster)/100

+ ((caster->path_attuned & path) ? 10 : 0)

- ((caster->path_repelled & path) ? 10 : 0))

/ ((caster->path_denied & path) ? 2 : 1);

break;

case SP_LEVITATE:

SET_FLAG(force, FLAG_FLYING);

break;

/* The following immunity spells are obsolete... -AV */

case SP_IMMUNE_COLD:

force->resist[ATNR_COLD]=100;

break;

case SP_IMMUNE_FIRE:

force->resist[ATNR_FIRE]=100;

break;

case SP_IMMUNE_ELEC:

force->resist[ATNR_ELECTRICITY]=100;

break;

case SP_IMMUNE_POISON:

force->resist[ATNR_POISON]=100;

break;

case SP_IMMUNE_SLOW:

force->resist[ATNR_SLOW]=100;

break;

case SP_IMMUNE_PARALYZE:

force->resist[ATNR_PARALYZE]=100;

break;

case SP_IMMUNE_DRAIN:

force->resist[ATNR_DRAIN]=100;

break;

case SP_IMMUNE_ATTACK:

force->resist[ATNR_PHYSICAL]=100;

break;

case SP_IMMUNE_MAGIC:

force->resist[ATNR_MAGIC]=100;

break;

Line 1755

Line 1791

case SP_PROTECTION:

/* Don't give them everything, so can't do a simple loop.

* Added holyword & blind with PR's - they seemed to be

* misising before.

* missing before.

* Note: These Spells shouldn't be used. Especially not on players! -AV

if (spell_type == SP_INVULNERABILITY) i=100;

else i=30;

force->resist[ATNR_PHYSICAL]=i;

force->resist[ATNR_MAGIC]=i;

force->resist[ATNR_FIRE]=i;

Line 1785

Line 1822

if(op->speed > 0.2 * SP_level_strength_adjust(op,caster,SP_HASTE))

force->stats.exp=0;

break;

case SP_XRAY:

SET_FLAG(force,FLAG_XRAYS);

break;

}

force->speed_left= -1-SP_level_strength_adjust(op, caster,spell_type)*0.1;

Line 1796

Line 1833

SET_FLAG(force, FLAG_APPLIED);

force = insert_ob_in_ob(force,tmp);

}

/* Perhaps we should only do this is !is_refresh above? */

change_abil(tmp,force); /* Mostly to display any messages */

fix_player(tmp); /* This takes care of some stuff that change_abil() */

/* unfortunately is incapable off. */

Legend:

line(s) removed in v.1.103
line(s) changed
	line(s) added in v.1.104

File made using version 1.98 of cvs2html by leaf at 2011-07-21 17:48