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.44 by root, Sun Jul 22 14:17:58 2007 UTC vs.
Revision 1.51 by root, Sun Apr 20 23:25:43 2008 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{
… …
405 return; 405 return;
406 } 406 }
407 407
408 if (op->env) 408 if (op->env)
409 { 409 {
410 object *env = object_get_env_recursive (op); 410 object *env = op->outer_env ();
411
411 if (env->map == NULL || out_of_map (env->map, env->x, env->y)) 412 if (!env->map || out_of_map (env->map, env->x, env->y))
412 { 413 {
413 LOG (llevError, "BUG: explode_bullet(): env out of map\n"); 414 LOG (llevError, "BUG: explode_bullet(): env out of map\n");
414 op->destroy (); 415 op->destroy ();
415 return; 416 return;
416 } 417 }
… …
483 484
484 /* Prevent recursion */ 485 /* Prevent recursion */
485 op->move_on = 0; 486 op->move_on = 0;
486 487
487 tmp->insert_at (op, op); 488 tmp->insert_at (op, op);
489 tmp->play_sound (tmp->sound);
490
488 /* remove the firebullet */ 491 /* remove the firebullet */
489 op->destroy (); 492 op->destroy ();
490} 493}
491 494
492/* checks to see what op should do, given the space it is on 495/* checks to see what op should do, given the space it is on
… …
935 * op is the original bomb object. 938 * op is the original bomb object.
936 */ 939 */
937void 940void
938animate_bomb (object *op) 941animate_bomb (object *op)
939{ 942{
940 int i;
941 object *env, *tmp;
942
943 if (op->state != NUM_ANIMATIONS (op) - 1) 943 if (op->state != NUM_ANIMATIONS (op) - 1)
944 return; 944 return;
945 945
946 env = object_get_env_recursive (op); 946 object *env = op->outer_env ();
947 947
948 if (op->env) 948 if (op->env)
949 { 949 {
950 if (env->map == NULL) 950 if (env->map == NULL)
951 return; 951 return;
… …
970 * but using the cast_bullet isn't really feasible, 970 * but using the cast_bullet isn't really feasible,
971 * so just set up the appropriate values. 971 * so just set up the appropriate values.
972 */ 972 */
973 if (archetype *at = archetype::find (SPLINT)) 973 if (archetype *at = archetype::find (SPLINT))
974 { 974 {
975 for (i = 1; i < 9; i++) 975 for (int i = 1; i < 9; i++)
976 { 976 {
977 if (out_of_map (op->map, op->x + freearr_x[i], op->y + freearr_x[i])) 977 if (out_of_map (op->map, op->x + freearr_x[i], op->y + freearr_x[i]))
978 continue; 978 continue;
979 979
980 tmp = arch_to_object (at); 980 object *tmp = arch_to_object (at);
981 tmp->direction = i; 981 tmp->direction = i;
982 tmp->range = op->range; 982 tmp->range = op->range;
983 tmp->stats.dam = op->stats.dam; 983 tmp->stats.dam = op->stats.dam;
984 tmp->duration = op->duration; 984 tmp->duration = op->duration;
985 tmp->attacktype = op->attacktype; 985 tmp->attacktype = op->attacktype;
… …
999} 999}
1000 1000
1001int 1001int
1002create_bomb (object *op, object *caster, int dir, object *spell) 1002create_bomb (object *op, object *caster, int dir, object *spell)
1003{ 1003{
1004
1005 object *tmp; 1004 object *tmp;
1006 int mflags; 1005 int mflags;
1007 sint16 dx = op->x + freearr_x[dir], dy = op->y + freearr_y[dir]; 1006 sint16 dx = op->x + freearr_x[dir], dy = op->y + freearr_y[dir];
1008 maptile *m; 1007 maptile *m;
1009 1008
… …
1011 if ((mflags & P_OUT_OF_MAP) || (GET_MAP_MOVE_BLOCK (m, dx, dy) & MOVE_WALK)) 1010 if ((mflags & P_OUT_OF_MAP) || (GET_MAP_MOVE_BLOCK (m, dx, dy) & MOVE_WALK))
1012 { 1011 {
1013 new_draw_info (NDI_UNIQUE, 0, op, "There is something in the way."); 1012 new_draw_info (NDI_UNIQUE, 0, op, "There is something in the way.");
1014 return 0; 1013 return 0;
1015 } 1014 }
1015
1016 tmp = arch_to_object (spell->other_arch); 1016 tmp = arch_to_object (spell->other_arch);
1017 1017
1018 /* level dependencies for bomb */ 1018 /* level dependencies for bomb */
1019 tmp->range = spell->range + SP_level_range_adjust (caster, spell); 1019 tmp->range = spell->range + SP_level_range_adjust (caster, spell);
1020 tmp->stats.dam = spell->stats.dam + SP_level_dam_adjust (caster, spell); 1020 tmp->stats.dam = spell->stats.dam + SP_level_dam_adjust (caster, spell);
… …
1171 /* ok, tell it where to be, and insert! */ 1171 /* ok, tell it where to be, and insert! */
1172 effect->insert_at (target, op); 1172 effect->insert_at (target, op);
1173 1173
1174 return 1; 1174 return 1;
1175} 1175}
1176
1177 1176
1178/**************************************************************************** 1177/****************************************************************************
1179 * 1178 *
1180 * MAGIC MISSILE code. 1179 * MAGIC MISSILE code.
1181 * note that the fire_bullet is used to fire the missile. The 1180 * note that the fire_bullet is used to fire the missile. The
… …
1372 { 1371 {
1373 new_draw_info (NDI_UNIQUE, 0, op, "There is no one in that direction to curse."); 1372 new_draw_info (NDI_UNIQUE, 0, op, "There is no one in that direction to curse.");
1374 return 0; 1373 return 0;
1375 } 1374 }
1376 1375
1376 tmp = tmp->head_ ();
1377
1377 /* If we've already got a force of this type, don't add a new one. */ 1378 /* If we've already got a force of this type, don't add a new one. */
1378 for (force = tmp->inv; force != NULL; force = force->below) 1379 for (force = tmp->inv; force; force = force->below)
1379 { 1380 {
1380 if (force->type == FORCE && force->subtype == FORCE_CHANGE_ABILITY) 1381 if (force->type == FORCE && force->subtype == FORCE_CHANGE_ABILITY)
1381 { 1382 {
1382 if (force->name == spell_ob->name) 1383 if (force->name == spell_ob->name)
1383 { 1384 {
… …
1389 return 0; 1390 return 0;
1390 } 1391 }
1391 } 1392 }
1392 } 1393 }
1393 1394
1394 if (force == NULL) 1395 if (!force)
1395 { 1396 {
1396 force = get_archetype (FORCE_NAME); 1397 force = get_archetype (FORCE_NAME);
1397 force->subtype = FORCE_CHANGE_ABILITY; 1398 force->subtype = FORCE_CHANGE_ABILITY;
1399
1398 if (spell_ob->race) 1400 if (spell_ob->race)
1399 force->name = spell_ob->race; 1401 force->name = spell_ob->race;
1400 else 1402 else
1401 force->name = spell_ob->name; 1403 force->name = spell_ob->name;
1402 1404
… …
1412 { 1414 {
1413 force->duration = duration; 1415 force->duration = duration;
1414 new_draw_info (NDI_UNIQUE, 0, op, "You recast the spell while in effect."); 1416 new_draw_info (NDI_UNIQUE, 0, op, "You recast the spell while in effect.");
1415 } 1417 }
1416 else 1418 else
1417 {
1418 new_draw_info (NDI_UNIQUE, 0, op, "Recasting the spell had no effect."); 1419 new_draw_info (NDI_UNIQUE, 0, op, "Recasting the spell had no effect.");
1419 } 1420
1420 return 1; 1421 return 1;
1421 } 1422 }
1423
1422 force->duration = spell_ob->duration + SP_level_duration_adjust (caster, spell_ob) * 50; 1424 force->duration = spell_ob->duration + SP_level_duration_adjust (caster, spell_ob) * 50;
1423 force->speed = 1.f; 1425 force->speed = 1.f;
1424 force->speed_left = -1.f; 1426 force->speed_left = -1.f;
1425 SET_FLAG (force, FLAG_APPLIED); 1427 SET_FLAG (force, FLAG_APPLIED);
1426 1428
… …
1957 1959
1958 m->insert (tmp, x, y, op); 1960 m->insert (tmp, x, y, op);
1959 return 1; 1961 return 1;
1960} 1962}
1961 1963
1962
1963
1964
1965/* cast_cause_disease: this spell looks along <dir> from the 1964/* cast_cause_disease: this spell looks along <dir> from the
1966 * player and infects someone. 1965 * player and infects someone.
1967 * op is the player/monster, caster is the object, dir is the direction 1966 * op is the player/monster, caster is the object, dir is the direction
1968 * to cast, disease_arch is the specific disease, and type is the spell number 1967 * to cast, disease_arch is the specific disease, and type is the spell number
1969 * perhaps this should actually be in disease.c? 1968 * perhaps this should actually be in disease.c?
1970 */ 1969 */
1971
1972int 1970int
1973cast_cause_disease (object *op, object *caster, object *spell, int dir) 1971cast_cause_disease (object *op, object *caster, object *spell, int dir)
1974{ 1972{
1975 sint16 x, y; 1973 sint16 x, y;
1976 int i, mflags, range, dam_mod, dur_mod; 1974 int i, mflags, range, dam_mod, dur_mod;
… …
1983 /* If casting from a scroll, no direction will be available, so refer to the 1981 /* If casting from a scroll, no direction will be available, so refer to the
1984 * direction the player is pointing. 1982 * direction the player is pointing.
1985 */ 1983 */
1986 if (!dir) 1984 if (!dir)
1987 dir = op->facing; 1985 dir = op->facing;
1986
1988 if (!dir) 1987 if (!dir)
1989 return 0; /* won't find anything if casting on ourself, so just return */ 1988 return 0; /* won't find anything if casting on ourself, so just return */
1990 1989
1991 /* Calculate these once here */ 1990 /* Calculate these once here */
1992 range = spell->range + SP_level_range_adjust (caster, spell); 1991 range = spell->range + SP_level_range_adjust (caster, spell);
… …
2026 /* do level adjustments */ 2025 /* do level adjustments */
2027 if (disease->stats.wc) 2026 if (disease->stats.wc)
2028 disease->stats.wc += dur_mod / 2; 2027 disease->stats.wc += dur_mod / 2;
2029 2028
2030 if (disease->magic > 0) 2029 if (disease->magic > 0)
2031 disease->magic += dur_mod / 4; 2030 disease->magic += dur_mod / 8;
2032 2031
2033 if (disease->stats.maxhp > 0) 2032 if (disease->stats.maxhp > 0)
2034 disease->stats.maxhp += dur_mod; 2033 disease->stats.maxhp += dur_mod;
2035 2034
2036 if (disease->stats.maxgrace > 0) 2035 if (disease->stats.maxgrace > 0)

Diff Legend

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