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

Comparing deliantra/server/server/spell_util.C (file contents):
Revision 1.99 by root, Mon Oct 12 14:00:59 2009 UTC vs.
Revision 1.110 by root, Fri Mar 26 00:59:22 2010 UTC

1/* 1/*
2 * This file is part of Deliantra, the Roguelike Realtime MMORPG. 2 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
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 (©) 2001,2007 Mark Wedel & Crossfire Development Team 5 * Copyright (©) 2001 Mark Wedel & Crossfire Development Team
6 * Copyright (©) 1992,2007 Frank Tore Johansen 6 * Copyright (©) 1992 Frank Tore Johansen
7 * 7 *
8 * Deliantra is free software: you can redistribute it and/or modify it under 8 * Deliantra is free software: you can redistribute it and/or modify it under
9 * the terms of the Affero GNU General Public License as published by the 9 * the terms of the Affero GNU General Public License as published by the
10 * Free Software Foundation, either version 3 of the License, or (at your 10 * Free Software Foundation, either version 3 of the License, or (at your
11 * option) any later version. 11 * option) any later version.
… …
83 */ 83 */
84void 84void
85spell_effect (object *spob, int x, int y, maptile *map, object *originator) 85spell_effect (object *spob, int x, int y, maptile *map, object *originator)
86{ 86{
87 if (spob->other_arch) 87 if (spob->other_arch)
88 map->insert (arch_to_object (spob->other_arch), x, y, originator); 88 map->insert (spob->other_arch->instance (), x, y, originator);
89} 89}
90 90
91static int 91static int
92attuned_bonus (object *caster, object *spell, int level) 92attuned_bonus (object *caster, object *spell, int level)
93{ 93{
… …
149 int sp, grace, level = casting_level (caster, spell); 149 int sp, grace, level = casting_level (caster, spell);
150 150
151 if (settings.spellpoint_level_depend == TRUE) 151 if (settings.spellpoint_level_depend == TRUE)
152 { 152 {
153 if (spell->stats.sp && spell->stats.maxsp) 153 if (spell->stats.sp && spell->stats.maxsp)
154 {
155 sp = (int) (spell->stats.sp * (1.0 + MAX (0, (float) (level - spell->level) / (float) spell->stats.maxsp))); 154 sp = spell->stats.sp * (1.f + max (0.f, float (level - spell->level) / spell->stats.maxsp));
156 }
157 else 155 else
158 sp = spell->stats.sp; 156 sp = spell->stats.sp;
159 157
160 sp *= (int) PATH_SP_MULT (caster, spell); 158 sp *= (int) PATH_SP_MULT (caster, spell);
161 if (!sp && spell->stats.sp) 159 if (!sp && spell->stats.sp)
162 sp = 1; 160 sp = 1;
163 161
164 if (spell->stats.grace && spell->stats.maxgrace) 162 if (spell->stats.grace && spell->stats.maxgrace)
165 {
166 grace = (int) (spell->stats.grace * (1.0 + MAX (0, (float) (level - spell->level) / (float) spell->stats.maxgrace))); 163 grace = spell->stats.grace * (1.0 + max (0, float (level - spell->level) / spell->stats.maxgrace));
167 }
168 else 164 else
169 grace = spell->stats.grace; 165 grace = spell->stats.grace;
170 166
171 grace *= (int) PATH_SP_MULT (caster, spell); 167 grace *= PATH_SP_MULT (caster, spell);
172 if (spell->stats.grace && !grace) 168 if (spell->stats.grace && !grace)
173 grace = 1; 169 grace = 1;
174 } 170 }
175 else 171 else
176 { 172 {
… …
182 if (spell->stats.grace && !grace) 178 if (spell->stats.grace && !grace)
183 grace = 1; 179 grace = 1;
184 } 180 }
185 181
186 if (flags == SPELL_HIGHEST) 182 if (flags == SPELL_HIGHEST)
187 return MAX (sp, grace); 183 return max (sp, grace);
188 else if (flags == SPELL_GRACE) 184 else if (flags == SPELL_GRACE)
189 return grace; 185 return grace;
190 else if (flags == SPELL_MANA) 186 else if (flags == SPELL_MANA)
191 return sp; 187 return sp;
192 else 188 else
… …
536 ****************************************************************************/ 532 ****************************************************************************/
537void 533void
538regenerate_rod (object *rod) 534regenerate_rod (object *rod)
539{ 535{
540 if (rod->stats.hp < rod->stats.maxhp) 536 if (rod->stats.hp < rod->stats.maxhp)
541 rod->stats.hp = min (rod->stats.maxhp, rod->stats.hp + 1 + rod->stats.maxhp / 10); 537 rod->stats.hp = min (rod->stats.maxhp, rod->stats.hp + 1 + rod->stats.maxhp / 20);
542} 538}
543 539
544void 540void
545drain_rod_charge (object *rod) 541drain_rod_charge (object *rod)
546{ 542{
… …
638 634
639/* put_a_monster: puts a monster named monstername near by 635/* put_a_monster: puts a monster named monstername near by
640 * op. This creates the treasures for the monsters, and 636 * op. This creates the treasures for the monsters, and
641 * also deals with multipart monsters properly. 637 * also deals with multipart monsters properly.
642 */ 638 */
643void 639static void
644put_a_monster (object *op, const char *monstername) 640put_a_monster (object *op, const char *monstername)
645{ 641{
646 object *tmp, *head = NULL, *prev = NULL; 642 object *tmp, *head = NULL, *prev = NULL;
647 archetype *at; 643 archetype *at;
648 int dir; 644 int dir;
… …
663 * insert multipart monsters properly 659 * insert multipart monsters properly
664 */ 660 */
665 //TODO: use expand_tail + ... 661 //TODO: use expand_tail + ...
666 while (at != NULL) 662 while (at != NULL)
667 { 663 {
668 tmp = arch_to_object (at); 664 tmp = at->instance ();
669 tmp->x = op->x + freearr_x[dir] + at->x; 665 tmp->x = op->x + freearr_x[dir] + at->x;
670 tmp->y = op->y + freearr_y[dir] + at->y; 666 tmp->y = op->y + freearr_y[dir] + at->y;
671 tmp->map = op->map; 667 tmp->map = op->map;
672 if (head) 668 if (head)
673 { 669 {
… …
784 * at casting a prayer. 780 * at casting a prayer.
785 * op is the player. 781 * op is the player.
786 * failure is basically how much grace they had. 782 * failure is basically how much grace they had.
787 * power is how much grace the spell would normally take to cast. 783 * power is how much grace the spell would normally take to cast.
788 */ 784 */
789void 785static void
790prayer_failure (object *op, int failure, int power) 786prayer_failure (object *op, int failure, int power)
791{ 787{
792 const char *godname; 788 const char *godname;
793 object *tmp; 789 object *tmp;
794 790
… …
887 tmp->insert_at (op); 883 tmp->insert_at (op);
888 } 884 }
889 } 885 }
890} 886}
891 887
892int 888static int
893cast_party_spell (object *op, object *caster, int dir, object *spell_ob, char *spellparam) 889cast_party_spell (object *op, object *caster, int dir, object *spell_ob, char *spellparam)
894{ 890{
895 if (!spell_ob->other_arch) 891 if (!spell_ob->other_arch)
896 { 892 {
897 LOG (llevError, "cast_party_spell: empty other arch\n"); 893 LOG (llevError, "cast_party_spell: empty other arch\n");
898 return 0; 894 return 0;
899 } 895 }
900 896
901 object *spell = arch_to_object (spell_ob->other_arch); 897 object *spell = spell_ob->other_arch->instance ();
902 898
903 /* Always cast spell on caster */ 899 /* Always cast spell on caster */
904 int success = cast_spell (op, caster, dir, spell, spellparam); 900 int success = cast_spell (op, caster, dir, spell, spellparam);
905 901
906 if (!op->contr || !op->contr->party) 902 if (!op->contr || !op->contr->party)
… …
1054 } 1050 }
1055 } 1051 }
1056 1052
1057 /* player/monster is trying to cast the spell. might fumble it */ 1053 /* player/monster is trying to cast the spell. might fumble it */
1058 if (spell_ob->stats.grace && random_roll (0, 99, op, PREFER_HIGH) < 1054 if (spell_ob->stats.grace && random_roll (0, 99, op, PREFER_HIGH) <
1059 (spell_ob->level / (float) MAX (1, op->level) * cleric_chance[op->stats.Wis])) 1055 (spell_ob->level / (float) max (1, op->level) * cleric_chance[op->stats.Wis]))
1060 { 1056 {
1061 op->contr->play_sound (sound_find ("fumble_spell")); 1057 op->contr->play_sound (sound_find ("fumble_spell"));
1062 op->failmsg ("You fumble the prayer."); 1058 op->failmsg ("You fumble the prayer.");
1063 1059
1064 op->stats.grace -= random_roll (1, SP_level_spellpoint_cost (caster, spell_ob, SPELL_GRACE), op, PREFER_LOW); 1060 op->stats.grace -= random_roll (1, SP_level_spellpoint_cost (caster, spell_ob, SPELL_GRACE), op, PREFER_LOW);
… …
1130 * the player any time. 1126 * the player any time.
1131 * Ignore casting time for firewalls 1127 * Ignore casting time for firewalls
1132 */ 1128 */
1133 if (caster == op && caster->type != FIREWALL) 1129 if (caster == op && caster->type != FIREWALL)
1134 { 1130 {
1135 op->speed_left -= spell_ob->casting_time * PATH_TIME_MULT (op, spell_ob) * FABS (op->speed); 1131 op->speed_left -= spell_ob->casting_time * PATH_TIME_MULT (op, spell_ob) * op->speed;
1136 /* Other portions of the code may also decrement the speed of the player, so 1132 /* Other portions of the code may also decrement the speed of the player, so
1137 * put a lower limit so that the player isn't stuck here too long 1133 * put a lower limit so that the player isn't stuck here too long
1138 */ 1134 */
1139 if ((spell_ob->casting_time > 0) && op->speed_left < -spell_ob->casting_time * PATH_TIME_MULT (op, spell_ob) * FABS (op->speed)) 1135 if ((spell_ob->casting_time > 0) && op->speed_left < -spell_ob->casting_time * PATH_TIME_MULT (op, spell_ob) * op->speed)
1140 op->speed_left = -spell_ob->casting_time * PATH_TIME_MULT (op, spell_ob) * FABS (op->speed); 1136 op->speed_left = -spell_ob->casting_time * PATH_TIME_MULT (op, spell_ob) * op->speed;
1141 } 1137 }
1142 else if (caster->type == WAND || caster->type == HORN || caster->type == ROD || caster->type == POTION || caster->type == SCROLL) 1138 else if (caster->type == WAND || caster->type == HORN || caster->type == ROD || caster->type == POTION || caster->type == SCROLL)
1143 op->speed_left -= 2 * FABS (op->speed); 1139 op->speed_left -= 2 * op->speed;
1144 1140
1145 if (op->type == PLAYER && op == caster) 1141 if (op->type == PLAYER && op == caster)
1146 { 1142 {
1147 op->stats.grace -= SP_level_spellpoint_cost (caster, spell_ob, SPELL_GRACE); 1143 op->stats.grace -= SP_level_spellpoint_cost (caster, spell_ob, SPELL_GRACE);
1148 op->stats.sp -= SP_level_spellpoint_cost (caster, spell_ob, SPELL_MANA); 1144 op->stats.sp -= SP_level_spellpoint_cost (caster, spell_ob, SPELL_MANA);
… …
1446 move_aura (op); 1442 move_aura (op);
1447 break; 1443 break;
1448 } 1444 }
1449} 1445}
1450 1446
1451/* this checks to see if something special should happen if
1452 * something runs into the object.
1453 */
1454void
1455check_spell_effect (object *op)
1456{
1457 switch (op->subtype)
1458 {
1459 case SP_BOLT:
1460 move_bolt (op);
1461 return;
1462
1463 case SP_BULLET:
1464 check_bullet (op);
1465 return;
1466 }
1467}
1468
1469/* This is called by move_apply. Basically, if someone 1447/* This is called by move_apply. Basically, if someone
1470 * moves onto a spell effect and the walk_on or fly_on flags 1448 * moves onto a spell effect and the walk_on or fly_on flags
1471 * are set, this is called. This should only be called for 1449 * are set, this is called. This should only be called for
1472 * objects of the appropriate type. 1450 * objects of the appropriate type.
1473 */ 1451 */
… …
1475apply_spell_effect (object *spell, object *victim) 1453apply_spell_effect (object *spell, object *victim)
1476{ 1454{
1477 switch (spell->subtype) 1455 switch (spell->subtype)
1478 { 1456 {
1479 case SP_CONE: 1457 case SP_CONE:
1480 if (QUERY_FLAG (victim, FLAG_ALIVE) && spell->speed && spell->attacktype) 1458 if (QUERY_FLAG (victim, FLAG_ALIVE) && spell->has_active_speed () && spell->attacktype)
1481 hit_player (victim, spell->stats.dam, spell, spell->attacktype, 0); 1459 hit_player (victim, spell->stats.dam, spell, spell->attacktype, 0);
1482 break; 1460 break;
1483 1461
1484 case SP_MAGIC_MISSILE: 1462 case SP_MAGIC_MISSILE:
1485 if (QUERY_FLAG (victim, FLAG_ALIVE)) 1463 if (QUERY_FLAG (victim, FLAG_ALIVE))
… …
1490 break; 1468 break;
1491 1469
1492 case SP_MOVING_BALL: 1470 case SP_MOVING_BALL:
1493 if (QUERY_FLAG (victim, FLAG_ALIVE)) 1471 if (QUERY_FLAG (victim, FLAG_ALIVE))
1494 hit_player (victim, spell->stats.dam, spell, spell->attacktype, 1); 1472 hit_player (victim, spell->stats.dam, spell, spell->attacktype, 1);
1495 else if (victim->materialname) 1473 else if (victim->material != MATERIAL_NULL)
1496 save_throw_object (victim, spell->attacktype, spell); 1474 save_throw_object (victim, spell->attacktype, spell);
1497 1475
1498 break; 1476 break;
1499 } 1477 }
1500} 1478}

Diff Legend

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