ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/spell_attack.C
(Generate patch)

Comparing deliantra/server/server/spell_attack.C (file contents):
Revision 1.42 by root, Sun Jul 1 05:00:20 2007 UTC vs.
Revision 1.49 by root, Thu Nov 8 19:43:28 2007 UTC

1/* 1/*
2 * This file is part of Crossfire TRT, the Roguelike Realtime MORPG. 2 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
3 * 3 *
4 * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team 4 * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5 * Copyright (©) 2002-2003,2007 Mark Wedel & Crossfire Development Team 5 * Copyright (©) 2002-2003,2007 Mark Wedel & Crossfire Development Team
6 * Copyright (©) 1992,2007 Frank Tore Johansen 6 * Copyright (©) 1992,2007 Frank Tore Johansen
7 * 7 *
8 * Crossfire TRT is free software: you can redistribute it and/or modify 8 * Deliantra is free software: you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by 9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation, either version 3 of the License, or 10 * the Free Software Foundation, either version 3 of the License, or
11 * (at your option) any later version. 11 * (at your option) any later version.
12 * 12 *
13 * This program is distributed in the hope that it will be useful, 13 * This program is distributed in the hope that it will be useful,
… …
16 * GNU General Public License for more details. 16 * GNU General Public License for more details.
17 * 17 *
18 * You should have received a copy of the GNU General Public License 18 * You should have received a copy of the GNU General Public License
19 * along with this program. If not, see <http://www.gnu.org/licenses/>. 19 * along with this program. If not, see <http://www.gnu.org/licenses/>.
20 * 20 *
21 * The authors can be reached via e-mail to <crossfire@schmorp.de> 21 * The authors can be reached via e-mail to <support@deliantra.net>
22 */ 22 */
23 23
24/* This file contains all the spell attack code. Grouping this code 24/* This file contains all the spell attack code. Grouping this code
25 * together should hopefully make it easier to find the relevent bits 25 * together should hopefully make it easier to find the relevent bits
26 * of code 26 * of code
… …
343 * BULLET/BALL CODE 343 * BULLET/BALL CODE
344 * 344 *
345 ***************************************************************************/ 345 ***************************************************************************/
346 346
347/* expands an explosion. op is a piece of the 347/* expands an explosion. op is a piece of the
348 * explosion - this expans it in the different directions. 348 * explosion - this expands it in the different directions.
349 * At least that is what I think this does. 349 * At least that is what I think this does.
350 */ 350 */
351void 351void
352explosion (object *op) 352explosion (object *op)
353{ 353{
… …
483 483
484 /* Prevent recursion */ 484 /* Prevent recursion */
485 op->move_on = 0; 485 op->move_on = 0;
486 486
487 tmp->insert_at (op, op); 487 tmp->insert_at (op, op);
488 tmp->play_sound (tmp->sound);
489
488 /* remove the firebullet */ 490 /* remove the firebullet */
489 op->destroy (); 491 op->destroy ();
490} 492}
491 493
492/* checks to see what op should do, given the space it is on 494/* checks to see what op should do, given the space it is on
… …
1085 * op = player 1087 * op = player
1086 * caster = object casting the spell. 1088 * caster = object casting the spell.
1087 * dir = direction being cast 1089 * dir = direction being cast
1088 * spell = spell object 1090 * spell = spell object
1089 */ 1091 */
1090
1091int 1092int
1092cast_smite_spell (object *op, object *caster, int dir, object *spell) 1093cast_smite_spell (object *op, object *caster, int dir, object *spell)
1093{ 1094{
1094 object *effect, *target; 1095 object *effect, *target;
1095 object *god = find_god (determine_god (op)); 1096 object *god = find_god (determine_god (op));
… …
1173 effect->insert_at (target, op); 1174 effect->insert_at (target, op);
1174 1175
1175 return 1; 1176 return 1;
1176} 1177}
1177 1178
1178
1179/**************************************************************************** 1179/****************************************************************************
1180 * 1180 *
1181 * MAGIC MISSILE code. 1181 * MAGIC MISSILE code.
1182 * note that the fire_bullet is used to fire the missile. The 1182 * note that the fire_bullet is used to fire the missile. The
1183 * code here is just to move the missile. 1183 * code here is just to move the missile.
… …
1253 * we do this by creating a force and inserting it in the 1253 * we do this by creating a force and inserting it in the
1254 * object. if time is 0, the object glows permanently. To truely 1254 * object. if time is 0, the object glows permanently. To truely
1255 * make this work for non-living objects, we would have to 1255 * make this work for non-living objects, we would have to
1256 * give them the capability to have an inventory. b.t. 1256 * give them the capability to have an inventory. b.t.
1257 */ 1257 */
1258
1259int 1258int
1260make_object_glow (object *op, int radius, int time) 1259make_object_glow (object *op, int radius, int time)
1261{ 1260{
1262 object *tmp;
1263
1264 /* some things are unaffected... */ 1261 /* some things are unaffected... */
1265 if (op->path_denied & PATH_LIGHT) 1262 if (op->path_denied & PATH_LIGHT)
1266 return 0; 1263 return 0;
1267 1264
1268 tmp = get_archetype (FORCE_NAME); 1265 object *tmp = get_archetype (FORCE_NAME);
1269 tmp->speed = 0.01; 1266 tmp->speed = 0.01;
1270 tmp->stats.food = time; 1267 tmp->stats.food = time;
1271 SET_FLAG (tmp, FLAG_IS_USED_UP); 1268 SET_FLAG (tmp, FLAG_IS_USED_UP);
1272 tmp->glow_radius = radius; 1269 tmp->glow_radius = radius;
1273 if (tmp->glow_radius > MAX_LIGHT_RADII) 1270 if (tmp->glow_radius > MAX_LIGHT_RADII)
1274 tmp->glow_radius = MAX_LIGHT_RADII; 1271 tmp->glow_radius = MAX_LIGHT_RADII;
1275 1272
1276 tmp->x = op->x;
1277 tmp->y = op->y;
1278 if (tmp->speed < MIN_ACTIVE_SPEED)
1279 tmp->speed = MIN_ACTIVE_SPEED; /* safety */
1280 tmp = insert_ob_in_ob (tmp, op); 1273 tmp = insert_ob_in_ob (tmp, op);
1274
1281 if (tmp->glow_radius > op->glow_radius) 1275 if (tmp->glow_radius > op->glow_radius)
1282 op->glow_radius = tmp->glow_radius; 1276 op->glow_radius = tmp->glow_radius;
1283 1277
1284 if (!tmp->env || op != tmp->env)
1285 {
1286 LOG (llevError, "make_object_glow() failed to insert glowing force in %s\n", &op->name);
1287 return 0;
1288 }
1289 return 1; 1278 return 1;
1290} 1279}
1291 1280
1292int 1281int
1293cast_destruction (object *op, object *caster, object *spell_ob) 1282cast_destruction (object *op, object *caster, object *spell_ob)
… …
1384 { 1373 {
1385 new_draw_info (NDI_UNIQUE, 0, op, "There is no one in that direction to curse."); 1374 new_draw_info (NDI_UNIQUE, 0, op, "There is no one in that direction to curse.");
1386 return 0; 1375 return 0;
1387 } 1376 }
1388 1377
1378 tmp = tmp->head_ ();
1379
1389 /* If we've already got a force of this type, don't add a new one. */ 1380 /* If we've already got a force of this type, don't add a new one. */
1390 for (force = tmp->inv; force != NULL; force = force->below) 1381 for (force = tmp->inv; force; force = force->below)
1391 { 1382 {
1392 if (force->type == FORCE && force->subtype == FORCE_CHANGE_ABILITY) 1383 if (force->type == FORCE && force->subtype == FORCE_CHANGE_ABILITY)
1393 { 1384 {
1394 if (force->name == spell_ob->name) 1385 if (force->name == spell_ob->name)
1395 { 1386 {
… …
1401 return 0; 1392 return 0;
1402 } 1393 }
1403 } 1394 }
1404 } 1395 }
1405 1396
1406 if (force == NULL) 1397 if (!force)
1407 { 1398 {
1408 force = get_archetype (FORCE_NAME); 1399 force = get_archetype (FORCE_NAME);
1409 force->subtype = FORCE_CHANGE_ABILITY; 1400 force->subtype = FORCE_CHANGE_ABILITY;
1401
1410 if (spell_ob->race) 1402 if (spell_ob->race)
1411 force->name = spell_ob->race; 1403 force->name = spell_ob->race;
1412 else 1404 else
1413 force->name = spell_ob->name; 1405 force->name = spell_ob->name;
1414 1406
… …
1424 { 1416 {
1425 force->duration = duration; 1417 force->duration = duration;
1426 new_draw_info (NDI_UNIQUE, 0, op, "You recast the spell while in effect."); 1418 new_draw_info (NDI_UNIQUE, 0, op, "You recast the spell while in effect.");
1427 } 1419 }
1428 else 1420 else
1429 {
1430 new_draw_info (NDI_UNIQUE, 0, op, "Recasting the spell had no effect."); 1421 new_draw_info (NDI_UNIQUE, 0, op, "Recasting the spell had no effect.");
1431 } 1422
1432 return 1; 1423 return 1;
1433 } 1424 }
1425
1434 force->duration = spell_ob->duration + SP_level_duration_adjust (caster, spell_ob) * 50; 1426 force->duration = spell_ob->duration + SP_level_duration_adjust (caster, spell_ob) * 50;
1435 force->speed = 1.f; 1427 force->speed = 1.f;
1436 force->speed_left = -1.f; 1428 force->speed_left = -1.f;
1437 SET_FLAG (force, FLAG_APPLIED); 1429 SET_FLAG (force, FLAG_APPLIED);
1438 1430
… …
1969 1961
1970 m->insert (tmp, x, y, op); 1962 m->insert (tmp, x, y, op);
1971 return 1; 1963 return 1;
1972} 1964}
1973 1965
1974
1975
1976
1977/* cast_cause_disease: this spell looks along <dir> from the 1966/* cast_cause_disease: this spell looks along <dir> from the
1978 * player and infects someone. 1967 * player and infects someone.
1979 * op is the player/monster, caster is the object, dir is the direction 1968 * op is the player/monster, caster is the object, dir is the direction
1980 * to cast, disease_arch is the specific disease, and type is the spell number 1969 * to cast, disease_arch is the specific disease, and type is the spell number
1981 * perhaps this should actually be in disease.c? 1970 * perhaps this should actually be in disease.c?
1982 */ 1971 */
1983
1984int 1972int
1985cast_cause_disease (object *op, object *caster, object *spell, int dir) 1973cast_cause_disease (object *op, object *caster, object *spell, int dir)
1986{ 1974{
1987 sint16 x, y; 1975 sint16 x, y;
1988 int i, mflags, range, dam_mod, dur_mod; 1976 int i, mflags, range, dam_mod, dur_mod;
… …
1995 /* If casting from a scroll, no direction will be available, so refer to the 1983 /* If casting from a scroll, no direction will be available, so refer to the
1996 * direction the player is pointing. 1984 * direction the player is pointing.
1997 */ 1985 */
1998 if (!dir) 1986 if (!dir)
1999 dir = op->facing; 1987 dir = op->facing;
1988
2000 if (!dir) 1989 if (!dir)
2001 return 0; /* won't find anything if casting on ourself, so just return */ 1990 return 0; /* won't find anything if casting on ourself, so just return */
2002 1991
2003 /* Calculate these once here */ 1992 /* Calculate these once here */
2004 range = spell->range + SP_level_range_adjust (caster, spell); 1993 range = spell->range + SP_level_range_adjust (caster, spell);
… …
2038 /* do level adjustments */ 2027 /* do level adjustments */
2039 if (disease->stats.wc) 2028 if (disease->stats.wc)
2040 disease->stats.wc += dur_mod / 2; 2029 disease->stats.wc += dur_mod / 2;
2041 2030
2042 if (disease->magic > 0) 2031 if (disease->magic > 0)
2043 disease->magic += dur_mod / 4; 2032 disease->magic += dur_mod / 8;
2044 2033
2045 if (disease->stats.maxhp > 0) 2034 if (disease->stats.maxhp > 0)
2046 disease->stats.maxhp += dur_mod; 2035 disease->stats.maxhp += dur_mod;
2047 2036
2048 if (disease->stats.maxgrace > 0) 2037 if (disease->stats.maxgrace > 0)

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines