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.87 by root, Mon Oct 12 04:02:17 2009 UTC vs.
Revision 1.95 by elmex, Tue Jan 19 16:13:05 2010 UTC

… …
3 * 3 *
4 * Copyright (©) 2005,2006,2007,2008,2009 Marc Alexander Lehmann / Robin Redeker / the Deliantra team 4 * Copyright (©) 2005,2006,2007,2008,2009 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 * Deliantra is free software: you can redistribute it and/or modify 8 * Deliantra is free software: you can redistribute it and/or modify it under
9 * it under the terms of the GNU General Public License as published by 9 * the terms of the Affero GNU General Public License as published by the
10 * the Free Software Foundation, either version 3 of the License, or 10 * Free Software Foundation, either version 3 of the License, or (at your
11 * (at your option) any later version. 11 * 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,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of 14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
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 Affero GNU General Public License
19 * along with this program. If not, see <http://www.gnu.org/licenses/>. 19 * and the GNU General Public License along with this program. If not, see
20 * <http://www.gnu.org/licenses/>.
20 * 21 *
21 * The authors can be reached via e-mail to <support@deliantra.net> 22 * The authors can be reached via e-mail to <support@deliantra.net>
22 */ 23 */
23 24
24/* This file contains all the spell attack code. Grouping this code 25/* This file contains all the spell attack code. Grouping this code
… …
36/* this function checks to see if a spell pushes objects as well 37/* this function checks to see if a spell pushes objects as well
37 * as flies over and damages them (only used for cones for now) 38 * as flies over and damages them (only used for cones for now)
38 * but moved here so it could be applied to bolts too 39 * but moved here so it could be applied to bolts too
39 * op is the spell object. 40 * op is the spell object.
40 */ 41 */
41void 42static void
42check_spell_knockback (object *op) 43check_spell_knockback (object *op)
43{ 44{
44 int weight_move; 45 int weight_move;
45 int frictionmod = 2; /*poor man's physics - multipy targets weight by this amount */ 46 int frictionmod = 2; /*poor man's physics - multipy targets weight by this amount */
46 47
… …
107 ***************************************************************************/ 108 ***************************************************************************/
108 109
109/* Causes op to fork. op is the original bolt, tmp 110/* Causes op to fork. op is the original bolt, tmp
110 * is the first piece of the fork. 111 * is the first piece of the fork.
111 */ 112 */
112void 113static void
113forklightning (object *op, object *tmp) 114forklightning (object *op, object *tmp)
114{ 115{
115 int new_dir = 1; /* direction or -1 for left, +1 for right 0 if no new bolt */ 116 int new_dir = 1; /* direction or -1 for left, +1 for right 0 if no new bolt */
116 int t_dir; /* stores temporary dir calculation */ 117 int t_dir; /* stores temporary dir calculation */
117 maptile *m; 118 maptile *m;
… …
276 int mflags; 277 int mflags;
277 278
278 if (!spob->other_arch) 279 if (!spob->other_arch)
279 return 0; 280 return 0;
280 281
281 tmp = arch_to_object (spob->other_arch); 282 tmp = spob->other_arch->instance ();
282 if (tmp == NULL) 283 if (tmp == NULL)
283 return 0; 284 return 0;
284 285
285 /* peterm: level dependency for bolts */ 286 /* peterm: level dependency for bolts */
286 tmp->stats.dam = spob->stats.dam + SP_level_dam_adjust (caster, spob); 287 tmp->stats.dam = spob->stats.dam + SP_level_dam_adjust (caster, spob);
… …
388 389
389/* Causes an object to explode, eg, a firebullet, 390/* Causes an object to explode, eg, a firebullet,
390 * poison cloud ball, etc. op is the object to 391 * poison cloud ball, etc. op is the object to
391 * explode. 392 * explode.
392 */ 393 */
393void 394static void
394explode_bullet (object *op) 395explode_bullet (object *op)
395{ 396{
396 object *tmp, *owner; 397 object *tmp, *owner;
397 398
398 if (!op->other_arch) 399 if (!op->other_arch)
… …
438 if (op->destroyed ()) 439 if (op->destroyed ())
439 return; 440 return;
440 } 441 }
441 442
442 /* other_arch contains what this explodes into */ 443 /* other_arch contains what this explodes into */
443 tmp = arch_to_object (op->other_arch); 444 tmp = op->other_arch->instance ();
444 445
445 tmp->set_owner (op); 446 tmp->set_owner (op);
446 tmp->skill = op->skill; 447 tmp->skill = op->skill;
447 448
448 owner = op->owner; 449 owner = op->owner;
… …
659 return 0; 660 return 0;
660 } 661 }
661 662
662 tmp->map = newmap; 663 tmp->map = newmap;
663 664
665 // in case the bullet has direction 0 we explode it in place.
666 // direction 0 is possible for instance when a poison cloud trap springs.
667 if (tmp->direction == 0)
668 {
669 if (tmp->other_arch
670 && (tmp = tmp->insert_at (tmp, op))) // insert before explode cleanly
671 explode_bullet (tmp); // explode object will/should remove tmp
672 else
673 tmp->destroy ();
674
675 return 0;
676 }
677
664 if (OB_TYPE_MOVE_BLOCK (tmp, GET_MAP_MOVE_BLOCK (tmp->map, tmp->x, tmp->y))) 678 if (OB_TYPE_MOVE_BLOCK (tmp, GET_MAP_MOVE_BLOCK (tmp->map, tmp->x, tmp->y)))
665 { 679 {
666 if (!QUERY_FLAG (tmp, FLAG_REFLECTING)) 680 if (!QUERY_FLAG (tmp, FLAG_REFLECTING))
667 { 681 {
668 tmp->destroy (); 682 tmp->destroy ();
… …
686 * CONE RELATED FUNCTIONS 700 * CONE RELATED FUNCTIONS
687 * 701 *
688 *****************************************************************************/ 702 *****************************************************************************/
689 703
690/* drops an object based on what is in the cone's "other_arch" */ 704/* drops an object based on what is in the cone's "other_arch" */
691void 705static void
692cone_drop (object *op) 706cone_drop (object *op)
693{ 707{
694 object *new_ob = arch_to_object (op->other_arch); 708 object *new_ob = op->other_arch->instance ();
695 709
696 new_ob->level = op->level; 710 new_ob->level = op->level;
697 new_ob->set_owner (op->owner); 711 new_ob->set_owner (op->owner);
698 712
699 /* preserve skill ownership */ 713 /* preserve skill ownership */
… …
860 874
861 if ((movetype & GET_MAP_MOVE_BLOCK (m, sx, sy)) == movetype) 875 if ((movetype & GET_MAP_MOVE_BLOCK (m, sx, sy)) == movetype)
862 continue; 876 continue;
863 877
864 success = 1; 878 success = 1;
865 tmp = arch_to_object (spell->other_arch); 879 tmp = spell->other_arch->instance ();
866 tmp->set_owner (op); 880 tmp->set_owner (op);
867 set_spell_skill (op, caster, spell, tmp); 881 set_spell_skill (op, caster, spell, tmp);
868 tmp->level = casting_level (caster, spell); 882 tmp->level = casting_level (caster, spell);
869 tmp->attacktype = spell->attacktype; 883 tmp->attacktype = spell->attacktype;
870 884
… …
972 for (int i = 1; i < 9; i++) 986 for (int i = 1; i < 9; i++)
973 { 987 {
974 if (out_of_map (op->map, op->x + freearr_x[i], op->y + freearr_x[i])) 988 if (out_of_map (op->map, op->x + freearr_x[i], op->y + freearr_x[i]))
975 continue; 989 continue;
976 990
977 object *tmp = arch_to_object (at); 991 object *tmp = at->instance ();
978 tmp->direction = i; 992 tmp->direction = i;
979 tmp->range = op->range; 993 tmp->range = op->range;
980 tmp->stats.dam = op->stats.dam; 994 tmp->stats.dam = op->stats.dam;
981 tmp->duration = op->duration; 995 tmp->duration = op->duration;
982 tmp->attacktype = op->attacktype; 996 tmp->attacktype = op->attacktype;
… …
1016 new_draw_info (NDI_UNIQUE, 0, op, "There is something in the way."); 1030 new_draw_info (NDI_UNIQUE, 0, op, "There is something in the way.");
1017 return 0; 1031 return 0;
1018 } 1032 }
1019 } 1033 }
1020 1034
1021 tmp = arch_to_object (spell->other_arch); 1035 tmp = spell->other_arch->instance ();
1022 1036
1023 /* level dependencies for bomb */ 1037 /* level dependencies for bomb */
1024 tmp->range = spell->range + SP_level_range_adjust (caster, spell); 1038 tmp->range = spell->range + SP_level_range_adjust (caster, spell);
1025 tmp->stats.dam = spell->stats.dam + SP_level_dam_adjust (caster, spell); 1039 tmp->stats.dam = spell->stats.dam + SP_level_dam_adjust (caster, spell);
1026 tmp->duration = spell->duration + SP_level_duration_adjust (caster, spell); 1040 tmp->duration = spell->duration + SP_level_duration_adjust (caster, spell);
… …
1046 * dir is the direction to look in. 1060 * dir is the direction to look in.
1047 * range is how far out to look. 1061 * range is how far out to look.
1048 * type is the type of spell - either SPELL_MANA or SPELL_GRACE. 1062 * type is the type of spell - either SPELL_MANA or SPELL_GRACE.
1049 * this info is used for blocked magic/unholy spaces. 1063 * this info is used for blocked magic/unholy spaces.
1050 */ 1064 */
1051object * 1065static object *
1052get_pointed_target (object *op, int dir, int range, int type) 1066get_pointed_target (object *op, int dir, int range, int type)
1053{ 1067{
1054 object *target; 1068 object *target;
1055 sint16 x, y; 1069 sint16 x, y;
1056 int dist, mflags; 1070 int dist, mflags;
… …
1120 new_draw_info (NDI_UNIQUE, 0, op, "Your request is unheeded."); 1134 new_draw_info (NDI_UNIQUE, 0, op, "Your request is unheeded.");
1121 return 0; 1135 return 0;
1122 } 1136 }
1123 1137
1124 if (spell->other_arch) 1138 if (spell->other_arch)
1125 effect = arch_to_object (spell->other_arch); 1139 effect = spell->other_arch->instance ();
1126 else 1140 else
1127 return 0; 1141 return 0;
1128 1142
1129 /* tailor the effect by priest level and worshipped God */ 1143 /* tailor the effect by priest level and worshipped God */
1130 effect->level = casting_level (caster, spell); 1144 effect->level = casting_level (caster, spell);
… …
1243 * we do this by creating a force and inserting it in the 1257 * we do this by creating a force and inserting it in the
1244 * object. if time is 0, the object glows permanently. To truely 1258 * object. if time is 0, the object glows permanently. To truely
1245 * make this work for non-living objects, we would have to 1259 * make this work for non-living objects, we would have to
1246 * give them the capability to have an inventory. b.t. 1260 * give them the capability to have an inventory. b.t.
1247 */ 1261 */
1248int 1262static int
1249make_object_glow (object *op, int radius, int time) 1263make_object_glow (object *op, int radius, int time)
1250{ 1264{
1251 /* some things are unaffected... */ 1265 /* some things are unaffected... */
1252 if (op->path_denied & PATH_LIGHT) 1266 if (op->path_denied & PATH_LIGHT)
1253 return 0; 1267 return 0;
… …
1291 unordered_mapwalk (op, -range, -range, range, range) 1305 unordered_mapwalk (op, -range, -range, range, range)
1292 { 1306 {
1293 mapspace &ms = m->at (nx, ny); 1307 mapspace &ms = m->at (nx, ny);
1294 1308
1295 if (ms.flags () & P_IS_ALIVE) 1309 if (ms.flags () & P_IS_ALIVE)
1296 for (object *tmp = ms.bot; tmp; tmp = tmp->above) 1310 for (object *next, *tmp = ms.bot; tmp; tmp = next)
1311 {
1312 next = tmp->above;
1313
1297 if (tmp->flag [FLAG_ALIVE] || tmp->is_player ()) 1314 if (tmp->flag [FLAG_ALIVE] || tmp->is_player ())
1298 { 1315 {
1299 tmp = tmp->head_ (); 1316 tmp = tmp->head_ ();
1300 1317
1301 if ((friendly && !tmp->flag [FLAG_FRIENDLY] && !tmp->is_player ()) 1318 if ((friendly && !tmp->flag [FLAG_FRIENDLY] && !tmp->is_player ())
1302 || (!friendly && (tmp->flag [FLAG_FRIENDLY] || tmp->is_player ()))) 1319 || (!friendly && (tmp->flag [FLAG_FRIENDLY] || tmp->is_player ())))
1303 { 1320 {
1304 if (spell_ob->subtype == SP_DESTRUCTION) 1321 if (spell_ob->subtype == SP_DESTRUCTION)
1305 { 1322 {
1306 hit_player (tmp, dam, op, spell_ob->attacktype, 0); 1323 hit_player (tmp, dam, op, spell_ob->attacktype, 0);
1307 1324
1308 if (spell_ob->other_arch) 1325 if (spell_ob->other_arch)
1309 m->insert (arch_to_object (spell_ob->other_arch), nx, ny, op); 1326 m->insert (spell_ob->other_arch->instance (), nx, ny, op);
1310 } 1327 }
1311 else if (spell_ob->subtype == SP_FAERY_FIRE && tmp->resist [ATNR_MAGIC] != 100) 1328 else if (spell_ob->subtype == SP_FAERY_FIRE && tmp->resist [ATNR_MAGIC] != 100)
1312 { 1329 {
1313 if (make_object_glow (tmp, 1, dur) && spell_ob->other_arch) 1330 if (make_object_glow (tmp, 1, dur) && spell_ob->other_arch)
1314 m->insert (arch_to_object (spell_ob->other_arch), nx, ny, op); 1331 m->insert (spell_ob->other_arch->instance (), nx, ny, op);
1315 } 1332 }
1316 } 1333 }
1317 } 1334 }
1335 }
1318 } 1336 }
1319 1337
1320 op->skill = skill; 1338 op->skill = skill;
1321 return 1; 1339 return 1;
1322} 1340}
… …
1324/*************************************************************************** 1342/***************************************************************************
1325 * 1343 *
1326 * CURSE 1344 * CURSE
1327 * 1345 *
1328 ***************************************************************************/ 1346 ***************************************************************************/
1329
1330int 1347int
1331cast_curse (object *op, object *caster, object *spell_ob, int dir) 1348cast_curse (object *op, object *caster, object *spell_ob, int dir)
1332{ 1349{
1333 object *god = find_god (determine_god (op)); 1350 object *god = find_god (determine_god (op));
1334 object *tmp, *force; 1351 object *tmp, *force;
… …
1412 force->stats.wc = spell_ob->stats.wc; 1429 force->stats.wc = spell_ob->stats.wc;
1413 1430
1414 change_abil (tmp, force); /* Mostly to display any messages */ 1431 change_abil (tmp, force); /* Mostly to display any messages */
1415 insert_ob_in_ob (force, tmp); 1432 insert_ob_in_ob (force, tmp);
1416 tmp->update_stats (); 1433 tmp->update_stats ();
1434
1417 return 1; 1435 return 1;
1418
1419} 1436}
1420 1437
1421/********************************************************************** 1438/**********************************************************************
1422 * mood change 1439 * mood change
1423 * Arguably, this may or may not be an attack spell. But since it 1440 * Arguably, this may or may not be an attack spell. But since it
… …
1524 Ryo, august 14th 1541 Ryo, august 14th
1525 */ 1542 */
1526 if (head->level > level) 1543 if (head->level > level)
1527 continue; 1544 continue;
1528 1545
1529 if (random_roll (0, 100, caster, PREFER_LOW) >= (20 + MIN (50, 2 * (level - head->level)))) 1546 if (random_roll (0, 100, caster, PREFER_LOW) >= (20 + min (50, 2 * (level - head->level))))
1530 /* Failed, no effect */ 1547 /* Failed, no effect */
1531 continue; 1548 continue;
1532 } 1549 }
1533 1550
1534 /* Done with saving throw. Now start affecting the monster */ 1551 /* Done with saving throw. Now start affecting the monster */
… …
1576 head->stats.exp = 0; 1593 head->stats.exp = 0;
1577 } 1594 }
1578 1595
1579 /* If a monster was effected, put an effect in */ 1596 /* If a monster was effected, put an effect in */
1580 if (done_one && spell->other_arch) 1597 if (done_one && spell->other_arch)
1581 m->insert (arch_to_object (spell->other_arch), nx, ny, op); 1598 m->insert (spell->other_arch->instance (), nx, ny, op);
1582 } 1599 }
1583 1600
1584 return 1; 1601 return 1;
1585} 1602}
1586 1603
… …
1669 hit_map (op, j, op->attacktype, 1); 1686 hit_map (op, j, op->attacktype, 1);
1670 } 1687 }
1671 1688
1672 /* insert the other arch */ 1689 /* insert the other arch */
1673 if (op->other_arch && !(OB_TYPE_MOVE_BLOCK (op, GET_MAP_MOVE_BLOCK (m, hx, hy)))) 1690 if (op->other_arch && !(OB_TYPE_MOVE_BLOCK (op, GET_MAP_MOVE_BLOCK (m, hx, hy))))
1674 m->insert (arch_to_object (op->other_arch), hx, hy, op); 1691 m->insert (op->other_arch->instance (), hx, hy, op);
1675 } 1692 }
1676 1693
1677 /* restore to the center location and damage */ 1694 /* restore to the center location and damage */
1678 op->stats.dam = dam_save; 1695 op->stats.dam = dam_save;
1679 1696
… …
1895 return 0; 1912 return 0;
1896 } 1913 }
1897 } 1914 }
1898 1915
1899 /* ok, looks groovy to just insert a new light on the map */ 1916 /* ok, looks groovy to just insert a new light on the map */
1900 tmp = arch_to_object (spell->other_arch); 1917 tmp = spell->other_arch->instance ();
1901 if (!tmp) 1918 if (!tmp)
1902 { 1919 {
1903 LOG (llevError, "Error: spell arch for cast_light() missing.\n"); 1920 LOG (llevError, "Error: spell arch for cast_light() missing.\n");
1904 return 0; 1921 return 0;
1905 } 1922 }
… …
1971 { 1988 {
1972 /* search this square for a victim */ 1989 /* search this square for a victim */
1973 for (walk = GET_MAP_OB (m, x, y); walk; walk = walk->above) 1990 for (walk = GET_MAP_OB (m, x, y); walk; walk = walk->above)
1974 if (QUERY_FLAG (walk, FLAG_MONSTER) || (walk->type == PLAYER)) 1991 if (QUERY_FLAG (walk, FLAG_MONSTER) || (walk->type == PLAYER))
1975 { /* found a victim */ 1992 { /* found a victim */
1976 object *disease = arch_to_object (spell->other_arch); 1993 object *disease = spell->other_arch->instance ();
1977 1994
1978 disease->set_owner (op); 1995 disease->set_owner (op);
1979 set_spell_skill (op, caster, spell, disease); 1996 set_spell_skill (op, caster, spell, disease);
1980 disease->stats.exp = 0; 1997 disease->stats.exp = 0;
1981 disease->level = casting_level (caster, spell); 1998 disease->level = casting_level (caster, spell);
… …
2031 if (infect_object (walk, disease, 1)) 2048 if (infect_object (walk, disease, 1))
2032 { 2049 {
2033 new_draw_info_format (NDI_UNIQUE, 0, op, "You inflict %s on %s!", &disease->name, &walk->name); 2050 new_draw_info_format (NDI_UNIQUE, 0, op, "You inflict %s on %s!", &disease->name, &walk->name);
2034 2051
2035 disease->destroy (); /* don't need this one anymore */ 2052 disease->destroy (); /* don't need this one anymore */
2036 walk->map->insert (get_archetype ("detect_magic"), x, y, op); 2053 walk->map->insert (get_archetype (shstr_detect_magic), x, y, op);
2037 return 1; 2054 return 1;
2038 } 2055 }
2039 2056
2040 disease->destroy (); 2057 disease->destroy ();
2041 } 2058 }

Diff Legend

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