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

Comparing deliantra/server/server/spell_effect.C (file contents):
Revision 1.25 by root, Sat Dec 23 09:58:23 2006 UTC vs.
Revision 1.42 by root, Wed Mar 14 04:12:29 2007 UTC

1/* 1/*
2 CrossFire, A Multiplayer game for X-windows 2 * CrossFire, A Multiplayer game for X-windows
3 3 *
4 * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team
4 Copyright (C) 2002 Mark Wedel & Crossfire Development Team 5 * Copyright (C) 2002 Mark Wedel & Crossfire Development Team
5 Copyright (C) 1992 Frank Tore Johansen 6 * Copyright (C) 1992 Frank Tore Johansen
6 7 *
7 This program is free software; you can redistribute it and/or modify 8 * This program is free software; you can redistribute it and/or modify
8 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
9 the Free Software Foundation; either version 2 of the License, or 10 * the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version. 11 * (at your option) any later version.
11 12 *
12 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,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of 14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details. 16 * GNU General Public License for more details.
16 17 *
17 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
18 along with this program; if not, write to the Free Software 19 * along with this program; if not, write to the Free Software
19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 20 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20 21 *
21 The authors can be reached via e-mail at <crossfire@schmorp.de> 22 * The authors can be reached via e-mail at <crossfire@schmorp.de>
22*/ 23 */
23 24
24#include <global.h> 25#include <global.h>
25#include <object.h> 26#include <object.h>
26#include <living.h> 27#include <living.h>
27#ifndef __CEXTRACT__
28# include <sproto.h> 28#include <sproto.h>
29#endif
30#include <spells.h> 29#include <spells.h>
31#include <sounds.h> 30#include <sounds.h>
32 31
33/* cast_magic_storm: This is really used mostly for spell 32/* cast_magic_storm: This is really used mostly for spell
34 * fumbles at the like. tmp is the object to propogate. 33 * fumbles at the like. tmp is the object to propogate.
… …
37void 36void
38cast_magic_storm (object *op, object *tmp, int lvl) 37cast_magic_storm (object *op, object *tmp, int lvl)
39{ 38{
40 if (!tmp) 39 if (!tmp)
41 return; /* error */ 40 return; /* error */
41
42 tmp->level = op->level; 42 tmp->level = op->level;
43 tmp->x = op->x;
44 tmp->y = op->y;
45 tmp->range += lvl / 5; /* increase the area of destruction */ 43 tmp->range += lvl / 5; /* increase the area of destruction */
46 tmp->duration += lvl / 5; 44 tmp->duration += lvl / 5;
47 45
48 /* Put a cap on duration for this - if the player fails in their 46 /* Put a cap on duration for this - if the player fails in their
49 * apartment, don't want it to go on so long that it kills them 47 * apartment, don't want it to go on so long that it kills them
50 * multiple times. Also, damge already increases with level, 48 * multiple times. Also, damge already increases with level,
51 * so don't really need to increase the duration as much either. 49 * so don't really need to increase the duration as much either.
52 */ 50 */
53 if (tmp->duration >= 40) 51 if (tmp->duration >= 40)
54 tmp->duration = 40; 52 tmp->duration = 40;
53
55 tmp->stats.dam = lvl; /* nasty recoils! */ 54 tmp->stats.dam = lvl; /* nasty recoils! */
56 tmp->stats.maxhp = tmp->count; /* tract single parent */ 55 tmp->stats.maxhp = tmp->count; /* tract single parent */
57 insert_ob_in_map (tmp, op->map, op, 0);
58 56
57 tmp->insert_at (op, op);
59} 58}
60
61 59
62int 60int
63recharge (object *op, object *caster, object *spell_ob) 61recharge (object *op, object *caster, object *spell_ob)
64{ 62{
65 object *wand, *tmp; 63 object *wand, *tmp;
… …
77 play_sound_map (op->map, op->x, op->y, SOUND_OB_EXPLODE); 75 play_sound_map (op->map, op->x, op->y, SOUND_OB_EXPLODE);
78 esrv_del_item (op->contr, wand->count); 76 esrv_del_item (op->contr, wand->count);
79 wand->destroy (); 77 wand->destroy ();
80 tmp = get_archetype ("fireball"); 78 tmp = get_archetype ("fireball");
81 tmp->stats.dam = (spell_ob->stats.dam + SP_level_dam_adjust (caster, spell_ob)) / 10; 79 tmp->stats.dam = (spell_ob->stats.dam + SP_level_dam_adjust (caster, spell_ob)) / 10;
80
82 if (!tmp->stats.dam) 81 if (!tmp->stats.dam)
83 tmp->stats.dam = 1; 82 tmp->stats.dam = 1;
83
84 tmp->stats.hp = tmp->stats.dam / 2; 84 tmp->stats.hp = tmp->stats.dam / 2;
85
85 if (tmp->stats.hp < 2) 86 if (tmp->stats.hp < 2)
86 tmp->stats.hp = 2; 87 tmp->stats.hp = 2;
87 tmp->x = op->x; 88
88 tmp->y = op->y; 89 tmp->insert_at (op);
89 insert_ob_in_map (tmp, op->map, NULL, 0);
90 return 1; 90 return 1;
91 } 91 }
92 92
93 ncharges = (spell_ob->stats.dam + SP_level_dam_adjust (caster, spell_ob)); 93 ncharges = (spell_ob->stats.dam + SP_level_dam_adjust (caster, spell_ob));
94
94 if (wand->inv && wand->inv->level) 95 if (wand->inv && wand->inv->level)
95 ncharges /= wand->inv->level; 96 ncharges /= wand->inv->level;
96 else 97 else
97 { 98 {
98 new_draw_info_format (NDI_UNIQUE, 0, op, "Your %s is broken.", query_name (wand)); 99 new_draw_info_format (NDI_UNIQUE, 0, op, "Your %s is broken.", query_name (wand));
99 return 0; 100 return 0;
100 } 101 }
102
101 if (!ncharges) 103 if (!ncharges)
102 ncharges = 1; 104 ncharges = 1;
103 105
104 wand->stats.food += ncharges; 106 wand->stats.food += ncharges;
105 new_draw_info_format (NDI_UNIQUE, 0, op, "The %s glows with power.", query_name (wand)); 107 new_draw_info_format (NDI_UNIQUE, 0, op, "The %s glows with power.", query_name (wand));
108
106 if (wand->arch && QUERY_FLAG (&wand->arch->clone, FLAG_ANIMATE)) 109 if (wand->arch && QUERY_FLAG (&wand->arch->clone, FLAG_ANIMATE))
107 { 110 {
108 SET_FLAG (wand, FLAG_ANIMATE); 111 SET_FLAG (wand, FLAG_ANIMATE);
109 wand->speed = wand->arch->clone.speed; 112 wand->set_speed (wand->arch->clone.speed);
110 update_ob_speed (wand);
111 } 113 }
114
112 return 1; 115 return 1;
113} 116}
114 117
115/* Create a missile (nonmagic - magic +4). Will either create bolts or arrows 118/* Create a missile (nonmagic - magic +4). Will either create bolts or arrows
116 * based on whether a crossbow or bow is equiped. If neither, it defaults to 119 * based on whether a crossbow or bow is equiped. If neither, it defaults to
… …
370 * normal applies. 373 * normal applies.
371 */ 374 */
372int 375int
373cast_invisible (object *op, object *caster, object *spell_ob) 376cast_invisible (object *op, object *caster, object *spell_ob)
374{ 377{
375 object *tmp;
376
377 if (op->invisible > 1000) 378 if (op->invisible > 1000)
378 { 379 {
379 new_draw_info (NDI_UNIQUE, 0, op, "You can not extend the duration of your invisibility any further"); 380 new_draw_info (NDI_UNIQUE, 0, op, "You can not extend the duration of your invisibility any further");
380 return 0; 381 return 0;
381 } 382 }
… …
397 else 398 else
398 op->contr->tmp_invis = 1; 399 op->contr->tmp_invis = 1;
399 400
400 op->contr->hidden = 0; 401 op->contr->hidden = 0;
401 } 402 }
403
402 if (makes_invisible_to (op, op)) 404 if (makes_invisible_to (op, op))
403 new_draw_info (NDI_UNIQUE, 0, op, "You can't see your hands!"); 405 new_draw_info (NDI_UNIQUE, 0, op, "You can't see your hands!");
404 else 406 else
405 new_draw_info (NDI_UNIQUE, 0, op, "You feel more transparent!"); 407 new_draw_info (NDI_UNIQUE, 0, op, "You feel more transparent!");
406 408
407 update_object (op, UP_OBJ_FACE); 409 update_object (op, UP_OBJ_CHANGE);
408 410
409 /* Only search the active objects - only these should actually do 411 /* Only search the active objects - only these should actually do
410 * harm to the player. 412 * harm to the player.
411 */ 413 */
412 for (tmp = active_objects; tmp != NULL; tmp = tmp->active_next) 414 for_all_actives (tmp)
413 if (tmp->enemy == op) 415 if (tmp->enemy == op)
414 tmp->enemy = NULL; 416 tmp->enemy = 0;
417
415 return 1; 418 return 1;
416} 419}
417 420
418/* earth to dust spell. Basically destroys earthwalls in the area. 421/* earth to dust spell. Basically destroys earthwalls in the area.
419 */ 422 */
… …
447 next = tmp->above; 450 next = tmp->above;
448 if (QUERY_FLAG (tmp, FLAG_TEAR_DOWN)) 451 if (QUERY_FLAG (tmp, FLAG_TEAR_DOWN))
449 hit_player (tmp, 9998, op, AT_PHYSICAL, 0); 452 hit_player (tmp, 9998, op, AT_PHYSICAL, 0);
450 } 453 }
451 } 454 }
455
452 return 1; 456 return 1;
453} 457}
454
455 458
456void 459void
457execute_word_of_recall (object *op) 460execute_word_of_recall (object *op)
458{ 461{
459 object *wor = op; 462 if (object *pl = op->in_player ())
460 463 {
461 while (op != NULL && op->type != PLAYER) 464 if (pl->ms ().flags () & P_NO_CLERIC && !QUERY_FLAG (pl, FLAG_WIZCAST))
462 op = op->env;
463
464 if (op != NULL && op->map)
465 if ((get_map_flags (op->map, NULL, op->x, op->y, NULL, NULL) & P_NO_CLERIC) && (!QUERY_FLAG (op, FLAG_WIZCAST)))
466 new_draw_info (NDI_UNIQUE, 0, op, "You feel something fizzle inside you."); 465 new_draw_info (NDI_UNIQUE, 0, pl, "You feel something fizzle inside you.");
467 else 466 else
467 {
468 // remove first so we do not call update_stats
469 op->remove ();
468 enter_exit (op, wor); 470 pl->enter_exit (op);
471 }
472 }
469 473
470 wor->destroy (); 474 op->destroy ();
471} 475}
472 476
473/* Word of recall causes the player to return 'home'. 477/* Word of recall causes the player to return 'home'.
474 * we put a force into the player object, so that there is a 478 * we put a force into the player object, so that there is a
475 * time delay effect. 479 * time delay effect.
… …
494 { 498 {
495 new_draw_info (NDI_UNIQUE, 0, op, "Oops, program error!"); 499 new_draw_info (NDI_UNIQUE, 0, op, "Oops, program error!");
496 LOG (llevError, "cast_word_of_recall: get_archetype(force) failed!\n"); 500 LOG (llevError, "cast_word_of_recall: get_archetype(force) failed!\n");
497 return 0; 501 return 0;
498 } 502 }
503
499 time = spell_ob->duration - SP_level_duration_adjust (caster, spell_ob); 504 time = spell_ob->duration - SP_level_duration_adjust (caster, spell_ob);
500 if (time < 1) 505 if (time < 1)
501 time = 1; 506 time = 1;
502 507
503 /* value of speed really doesn't make much difference, as long as it is 508 /* value of speed really doesn't make much difference, as long as it is
504 * positive. Lower value may be useful so that the problem doesn't 509 * positive. Lower value may be useful so that the problem doesn't
505 * do anything really odd if it say a -1000 or something. 510 * do anything really odd if it say a -1000 or something.
506 */ 511 */
507 dummy->speed = 0.002; 512 dummy->set_speed (0.002);
508 update_ob_speed (dummy);
509 dummy->speed_left = -dummy->speed * time; 513 dummy->speed_left = -dummy->speed * time;
510 dummy->type = SPELL_EFFECT; 514 dummy->type = SPELL_EFFECT;
511 dummy->subtype = SP_WORD_OF_RECALL; 515 dummy->subtype = SP_WORD_OF_RECALL;
512 516
513 /* If we could take advantage of enter_player_savebed() here, it would be 517 /* If we could take advantage of enter_player_savebed() here, it would be
514 * nice, but until the map load fails, we can't. 518 * nice, but until the map load fails, we can't.
515 */ 519 */
516 EXIT_PATH (dummy) = op->contr->savebed_map; 520 EXIT_PATH (dummy) = op->contr->savebed_map;
517 EXIT_X (dummy) = op->contr->bed_x; 521 EXIT_X (dummy) = op->contr->bed_x;
518 EXIT_Y (dummy) = op->contr->bed_y; 522 EXIT_Y (dummy) = op->contr->bed_y;
519 523
520 (void) insert_ob_in_ob (dummy, op); 524 op->insert (dummy);
525
521 new_draw_info (NDI_UNIQUE, 0, op, "You feel a force starting to build up inside you."); 526 new_draw_info (NDI_UNIQUE, 0, op, "You feel a force starting to build up inside you.");
527
522 return 1; 528 return 1;
523} 529}
524 530
525/* cast_wonder 531/* cast_wonder
526 * wonder is really just a spell that will likely cast another 532 * wonder is really just a spell that will likely cast another
… …
598 for (tmp = op->inv; tmp != NULL; tmp = tmp->below) 604 for (tmp = op->inv; tmp != NULL; tmp = tmp->below)
599 { 605 {
600 if (tmp->type == FORCE && !strcmp (tmp->arch->name, "dragon_ability_force")) 606 if (tmp->type == FORCE && !strcmp (tmp->arch->name, "dragon_ability_force"))
601 { 607 {
602 if (tmp->stats.exp == 0) 608 if (tmp->stats.exp == 0)
603 {
604 sprintf (buf, "Your metabolism isn't focused on anything."); 609 sprintf (buf, "Your metabolism isn't focused on anything.");
605 }
606 else 610 else
607 {
608 sprintf (buf, "Your metabolism is focused on %s.", change_resist_msg[tmp->stats.exp]); 611 sprintf (buf, "Your metabolism is focused on %s.", change_resist_msg[tmp->stats.exp]);
609 } 612
610 new_draw_info (NDI_UNIQUE, 0, op, buf); 613 new_draw_info (NDI_UNIQUE, 0, op, buf);
611 break; 614 break;
612 } 615 }
613 } 616 }
614 } 617 }
618
615 return 1; 619 return 1;
616} 620}
617 621
618/* int cast_create_town_portal (object *op, object *caster, int dir) 622/* int cast_create_town_portal (object *op, object *caster, int dir)
619 * 623 *
… …
633 * Code by Tchize (david.delbecq@usa.net) 637 * Code by Tchize (david.delbecq@usa.net)
634 */ 638 */
635int 639int
636cast_create_town_portal (object *op, object *caster, object *spell, int dir) 640cast_create_town_portal (object *op, object *caster, object *spell, int dir)
637{ 641{
638 object *dummy, *force, *old_force, *tmp; 642 object *dummy, *force, *old_force;
639 archetype *perm_portal; 643 archetype *perm_portal;
640 char portal_name[1024], portal_message[1024]; 644 char portal_name[1024], portal_message[1024];
641 sint16 exitx, exity;
642 maptile *exitmap; 645 maptile *exitmap;
643 int op_level; 646 int op_level;
644 647
645 /* Check to see if the map the player is currently on is a per player unique 648 /* Check to see if the map the player is currently on is a per player unique
646 * map. This can be determined in that per player unique maps have the 649 * map. This can be determined in that per player unique maps have the
… …
716 * If it has the good name, we destruct it. 719 * If it has the good name, we destruct it.
717 * -We destruct the force indicating that portal. 720 * -We destruct the force indicating that portal.
718 */ 721 */
719 while ((old_force = check_inv_recursive (op, dummy))) 722 while ((old_force = check_inv_recursive (op, dummy)))
720 { 723 {
721 exitx = EXIT_X (old_force); 724 exitmap = maptile::find_sync (old_force->race, op->map);
722 exity = EXIT_Y (old_force);
723 LOG (llevDebug, "Trying to kill a portal in %s (%d,%d)\n", &old_force->race, exitx, exity);
724
725 if (!strncmp (old_force->race, settings.localdir, strlen (settings.localdir)))
726 exitmap = ready_map_name (old_force->race, MAP_PLAYER_UNIQUE);
727 else
728 exitmap = ready_map_name (old_force->race, 0);
729 725
730 if (exitmap) 726 if (exitmap)
731 { 727 {
728 exitmap->load_sync ();
729
730 int exitx = EXIT_X (old_force);
731 int exity = EXIT_Y (old_force);
732
732 tmp = present_arch (perm_portal, exitmap, exitx, exity); 733 for (object *tmp = present_arch (perm_portal, exitmap, exitx, exity); tmp; tmp = tmp->above)
733 while (tmp)
734 { 734 {
735 if (tmp->name == old_force->name) 735 if (tmp->name == old_force->name)
736 { 736 {
737 tmp->destroy (); 737 tmp->destroy ();
738 break; 738 break;
739 } 739 }
740
741 tmp = tmp->above;
742 } 740 }
743 } 741 }
744 742
745 old_force->destroy (); 743 old_force->destroy ();
746 LOG (llevDebug, "\n");
747 } 744 }
748 745
749 dummy->destroy (); 746 dummy->destroy ();
750 747
751 /* Creating the portals. 748 /* Creating the portals.
… …
757 * 'force' is the destination of the town portal, which we got 754 * 'force' is the destination of the town portal, which we got
758 * from the players inventory above. 755 * from the players inventory above.
759 */ 756 */
760 757
761 /* Ensure exit map is loaded */ 758 /* Ensure exit map is loaded */
762 if (!strncmp (force->name, settings.localdir, strlen (settings.localdir))) 759 exitmap = maptile::find_sync (force->name);
763 exitmap = ready_map_name (force->name, MAP_PLAYER_UNIQUE);
764 else
765 exitmap = ready_map_name (force->name, 0);
766 760
767 /* If we were unable to load (ex. random map deleted), warn player */ 761 /* If we were unable to load (ex. random map deleted), warn player */
768 if (exitmap == NULL) 762 if (!exitmap)
769 { 763 {
770 new_draw_info (NDI_UNIQUE | NDI_NAVY, 0, op, "Something strange happens.\nYou can't remember where to go!?"); 764 new_draw_info (NDI_UNIQUE | NDI_NAVY, 0, op, "Something strange happens.\nYou can't remember where to go!?");
771 force->destroy (); 765 force->destroy ();
772 return 1; 766 return 1;
773 } 767 }
768
769 exitmap->load_sync ();
774 770
775 op_level = caster_level (caster, spell); 771 op_level = caster_level (caster, spell);
776 if (op_level < 15) 772 if (op_level < 15)
777 snprintf (portal_message, 1024, 773 snprintf (portal_message, 1024,
778 "\nThe air moves around you and\na huge smell of ammonia\nsurounds you as you pass\nthrough %s's tiny portal\nPouah!\n", 774 "\nThe air moves around you and\na huge smell of ammonia\nsurounds you as you pass\nthrough %s's tiny portal\nPouah!\n",
… …
788 784
789 /* Create a portal in front of player 785 /* Create a portal in front of player
790 * dummy contain the portal and 786 * dummy contain the portal and
791 * force contain the track to kill it later 787 * force contain the track to kill it later
792 */ 788 */
793
794 snprintf (portal_name, 1024, "%s's portal to %s", &op->name, &force->name); 789 snprintf (portal_name, 1024, "%s's portal to %s", &op->name, &force->name);
795 dummy = get_archetype (spell->slaying); /*The portal */ 790 dummy = get_archetype (spell->slaying); /*The portal */
796 if (dummy == NULL) 791 if (dummy == NULL)
797 { 792 {
798 new_draw_info (NDI_UNIQUE, 0, op, "Oops, program error!"); 793 new_draw_info (NDI_UNIQUE, 0, op, "Oops, program error!");
… …
810 805
811 /* Now we need to to create a town portal marker inside the player 806 /* Now we need to to create a town portal marker inside the player
812 * object, so on future castings, we can know that he has an active 807 * object, so on future castings, we can know that he has an active
813 * town portal. 808 * town portal.
814 */ 809 */
815 tmp = get_archetype (spell->race); 810 object *tmp = get_archetype (spell->race);
816 if (tmp == NULL) 811
812 if (!tmp)
817 { 813 {
818 new_draw_info (NDI_UNIQUE, 0, op, "Oops, program error!"); 814 new_draw_info (NDI_UNIQUE, 0, op, "Oops, program error!");
819 LOG (llevError, "object::create failed (force) in cast_create_town_portal for %s!\n", &op->name); 815 LOG (llevError, "object::create failed (force) in cast_create_town_portal for %s!\n", &op->name);
820 return 0; 816 return 0;
821 } 817 }
822 818
823 tmp->race = op->map->path; 819 tmp->race = op->map->path;
824 tmp->name = portal_name; 820 tmp->name = portal_name;
825 EXIT_X (tmp) = dummy->x; 821 EXIT_X (tmp) = dummy->x;
826 EXIT_Y (tmp) = dummy->y; 822 EXIT_Y (tmp) = dummy->y;
827 insert_ob_in_ob (tmp, op); 823 op->insert (tmp);
828 824
829 /* Create a portal in the destination map 825 /* Create a portal in the destination map
830 * dummy contain the portal and 826 * dummy contain the portal and
831 * force the track to kill it later 827 * force the track to kill it later
832 * the 'force' variable still contains the 'reminder' of 828 * the 'force' variable still contains the 'reminder' of
833 * where this portal goes to. 829 * where this portal goes to.
834 */ 830 */
835 snprintf (portal_name, 1024, "%s's portal to %s", &op->name, op->map->path); 831 snprintf (portal_name, 1024, "%s's portal to %s", &op->name, &op->map->path);
836 dummy = get_archetype (spell->slaying); /*The portal */ 832 dummy = get_archetype (spell->slaying); /*The portal */
837 if (dummy == NULL) 833 if (dummy == NULL)
838 { 834 {
839 new_draw_info (NDI_UNIQUE, 0, op, "Oops, program error!"); 835 new_draw_info (NDI_UNIQUE, 0, op, "Oops, program error!");
840 LOG (llevError, "object::create failed (perm_magic_portal) in cast_create_town_portal for %s!\n", &op->name); 836 LOG (llevError, "object::create failed (perm_magic_portal) in cast_create_town_portal for %s!\n", &op->name);
… …
844 EXIT_PATH (dummy) = op->map->path; 840 EXIT_PATH (dummy) = op->map->path;
845 EXIT_X (dummy) = op->x; 841 EXIT_X (dummy) = op->x;
846 EXIT_Y (dummy) = op->y; 842 EXIT_Y (dummy) = op->y;
847 dummy->name = dummy->name_pl = portal_name; 843 dummy->name = dummy->name_pl = portal_name;
848 dummy->msg = portal_message; 844 dummy->msg = portal_message;
849 dummy->x = EXIT_X (force);
850 dummy->y = EXIT_Y (force);
851 dummy->race = op->name; /*Save the owner of the portal */ 845 dummy->race = op->name; /*Save the owner of the portal */
852 insert_ob_in_map (dummy, exitmap, op, 0); 846 exitmap->insert (dummy, EXIT_X (force), EXIT_Y (force), op);
853 847
854 /* Now we create another town portal marker that 848 /* Now we create another town portal marker that
855 * points back to the one we just made 849 * points back to the one we just made
856 */ 850 */
857 tmp = get_archetype (spell->race); 851 tmp = get_archetype (spell->race);
… …
880 * within some reason. 874 * within some reason.
881 */ 875 */
882int 876int
883magic_wall (object *op, object *caster, int dir, object *spell_ob) 877magic_wall (object *op, object *caster, int dir, object *spell_ob)
884{ 878{
885 object *tmp, *tmp2; 879 object *tmp;
886 int i, posblocked, negblocked, maxrange; 880 int i, posblocked, negblocked, maxrange;
887 sint16 x, y; 881 sint16 x, y;
888 maptile *m; 882 maptile *m;
889 const char *name; 883 const char *name;
890 archetype *at; 884 archetype *at;
… …
923 { 917 {
924 LOG (llevError, "summon_wall: Unable to find archetype %s\n", buf1); 918 LOG (llevError, "summon_wall: Unable to find archetype %s\n", buf1);
925 new_draw_info (NDI_UNIQUE, 0, op, "This spell is broken."); 919 new_draw_info (NDI_UNIQUE, 0, op, "This spell is broken.");
926 return 0; 920 return 0;
927 } 921 }
922
928 tmp = arch_to_object (at); 923 tmp = arch_to_object (at);
929 } 924 }
930 else 925 else
931 { 926 {
932 LOG (llevError, "magic_wall: spell %s lacks other_arch\n", &spell_ob->name); 927 LOG (llevError, "magic_wall: spell %s lacks other_arch\n", &spell_ob->name);
… …
966 */ 961 */
967 if (tmp->type != EARTHWALL) //TODO 962 if (tmp->type != EARTHWALL) //TODO
968 tmp->set_owner (op); 963 tmp->set_owner (op);
969 964
970 set_spell_skill (op, caster, spell_ob, tmp); 965 set_spell_skill (op, caster, spell_ob, tmp);
971 tmp->x = x;
972 tmp->y = y;
973 tmp->level = caster_level (caster, spell_ob) / 2; 966 tmp->level = caster_level (caster, spell_ob) / 2;
974 967
975 name = tmp->name; 968 name = tmp->name;
976 if ((tmp = insert_ob_in_map (tmp, m, op, 0)) == NULL) 969 if (!(tmp = m->insert (tmp, x, y, op)))
977 { 970 {
978 new_draw_info_format (NDI_UNIQUE, 0, op, "Something destroys your %s", name); 971 new_draw_info_format (NDI_UNIQUE, 0, op, "Something destroys your %s", name);
979 return 0; 972 return 0;
980 } 973 }
981 974
… …
1004 m = tmp->map; 997 m = tmp->map;
1005 998
1006 if (!(get_map_flags (m, &m, x, y, &x, &y) & (P_OUT_OF_MAP | P_IS_ALIVE)) && 999 if (!(get_map_flags (m, &m, x, y, &x, &y) & (P_OUT_OF_MAP | P_IS_ALIVE)) &&
1007 ((spell_ob->move_block & GET_MAP_MOVE_BLOCK (m, x, y)) != spell_ob->move_block) && !posblocked) 1000 ((spell_ob->move_block & GET_MAP_MOVE_BLOCK (m, x, y)) != spell_ob->move_block) && !posblocked)
1008 { 1001 {
1009 tmp2 = tmp->clone (); 1002 object *tmp2 = tmp->clone ();
1010 tmp2->x = x; 1003 m->insert (tmp2, x, y, op);
1011 tmp2->y = y; 1004
1012 insert_ob_in_map (tmp2, m, op, 0);
1013 /* If this is a spellcasting wall, need to insert the spell object */ 1005 /* If this is a spellcasting wall, need to insert the spell object */
1014 if (tmp2->other_arch && tmp2->other_arch->clone.type == SPELL) 1006 if (tmp2->other_arch && tmp2->other_arch->clone.type == SPELL)
1015 insert_ob_in_ob (arch_to_object (tmp2->other_arch), tmp2); 1007 tmp2->insert (arch_to_object (tmp2->other_arch));
1016 1008
1017 } 1009 }
1018 else 1010 else
1019 posblocked = 1; 1011 posblocked = 1;
1020 1012
… …
1023 m = tmp->map; 1015 m = tmp->map;
1024 1016
1025 if (!(get_map_flags (m, &m, x, y, &x, &y) & (P_OUT_OF_MAP | P_IS_ALIVE)) && 1017 if (!(get_map_flags (m, &m, x, y, &x, &y) & (P_OUT_OF_MAP | P_IS_ALIVE)) &&
1026 ((spell_ob->move_block & GET_MAP_MOVE_BLOCK (m, x, y)) != spell_ob->move_block) && !negblocked) 1018 ((spell_ob->move_block & GET_MAP_MOVE_BLOCK (m, x, y)) != spell_ob->move_block) && !negblocked)
1027 { 1019 {
1028 tmp2 = tmp->clone (); 1020 object *tmp2 = tmp->clone ();
1029 tmp2->x = x; 1021 m->insert (tmp2, x, y, op);
1030 tmp2->y = y; 1022
1031 insert_ob_in_map (tmp2, m, op, 0);
1032 if (tmp2->other_arch && tmp2->other_arch->clone.type == SPELL) 1023 if (tmp2->other_arch && tmp2->other_arch->clone.type == SPELL)
1033 insert_ob_in_ob (arch_to_object (tmp2->other_arch), tmp2); 1024 tmp2->insert (arch_to_object (tmp2->other_arch));
1034 } 1025 }
1035 else 1026 else
1036 negblocked = 1; 1027 negblocked = 1;
1037 } 1028 }
1038 1029
… …
1087 { 1078 {
1088 new_draw_info (NDI_UNIQUE, 0, op, "Something blocks the magic of the spell.\n"); 1079 new_draw_info (NDI_UNIQUE, 0, op, "Something blocks the magic of the spell.\n");
1089 op->contr->count = 0; 1080 op->contr->count = 0;
1090 return 0; 1081 return 0;
1091 } 1082 }
1083
1092 op->contr->count = 0; 1084 op->contr->count = 0;
1093 1085
1094 /* Remove code that puts player on random space on maps. IMO, 1086 /* Remove code that puts player on random space on maps. IMO,
1095 * a lot of maps probably have areas the player should not get to, 1087 * a lot of maps probably have areas the player should not get to,
1096 * but may not be marked as NO_MAGIC (as they may be bounded 1088 * but may not be marked as NO_MAGIC (as they may be bounded
… …
1145 return 0; 1137 return 0;
1146 } 1138 }
1147 } 1139 }
1148 1140
1149 /* Actually move the player now */ 1141 /* Actually move the player now */
1150 op->remove (); 1142 if (!(op = op->map->insert (op, op->x + freearr_x[dir] * dist, op->y + freearr_y[dir] * dist, op)))
1151 op->x += freearr_x[dir] * dist;
1152 op->y += freearr_y[dir] * dist;
1153 if ((op = insert_ob_in_map (op, op->map, op, 0)) == NULL)
1154 return 1; 1143 return 1;
1155 1144
1156 op->speed_left = -FABS (op->speed) * 5; /* Freeze them for a short while */ 1145 op->speed_left = -FABS (op->speed) * 5; /* Freeze them for a short while */
1157 return 1; 1146 return 1;
1158} 1147}
… …
1171 object *poison; 1160 object *poison;
1172 int heal = 0, success = 0; 1161 int heal = 0, success = 0;
1173 1162
1174 tmp = find_target_for_friendly_spell (op, dir); 1163 tmp = find_target_for_friendly_spell (op, dir);
1175 1164
1176 if (tmp == NULL) 1165 if (!tmp)
1177 return 0; 1166 return 0;
1178 1167
1179 /* Figure out how many hp this spell might cure. 1168 /* Figure out how many hp this spell might cure.
1180 * could be zero if this spell heals effects, not damage. 1169 * could be zero if this spell heals effects, not damage.
1181 */ 1170 */
… …
1184 heal += random_roll (spell->stats.hp, 6, op, PREFER_HIGH) + spell->stats.hp; 1173 heal += random_roll (spell->stats.hp, 6, op, PREFER_HIGH) + spell->stats.hp;
1185 1174
1186 if (heal) 1175 if (heal)
1187 { 1176 {
1188 if (tmp->stats.hp >= tmp->stats.maxhp) 1177 if (tmp->stats.hp >= tmp->stats.maxhp)
1189 {
1190 new_draw_info (NDI_UNIQUE, 0, tmp, "You are already fully healed."); 1178 new_draw_info (NDI_UNIQUE, 0, tmp, "You are already fully healed.");
1191 }
1192 else 1179 else
1193 { 1180 {
1194 /* See how many points we actually heal. Instead of messages 1181 /* See how many points we actually heal. Instead of messages
1195 * based on type of spell, we instead do messages based 1182 * based on type of spell, we instead do messages based
1196 * on amount of damage healed. 1183 * on amount of damage healed.
… …
1198 if (heal > (tmp->stats.maxhp - tmp->stats.hp)) 1185 if (heal > (tmp->stats.maxhp - tmp->stats.hp))
1199 heal = tmp->stats.maxhp - tmp->stats.hp; 1186 heal = tmp->stats.maxhp - tmp->stats.hp;
1200 tmp->stats.hp += heal; 1187 tmp->stats.hp += heal;
1201 1188
1202 if (tmp->stats.hp >= tmp->stats.maxhp) 1189 if (tmp->stats.hp >= tmp->stats.maxhp)
1203 {
1204 new_draw_info (NDI_UNIQUE, 0, tmp, "You feel just fine!"); 1190 new_draw_info (NDI_UNIQUE, 0, tmp, "You feel just fine!");
1205 }
1206 else if (heal > 50) 1191 else if (heal > 50)
1207 {
1208 new_draw_info (NDI_UNIQUE, 0, tmp, "Your wounds close!"); 1192 new_draw_info (NDI_UNIQUE, 0, tmp, "Your wounds close!");
1209 }
1210 else if (heal > 25) 1193 else if (heal > 25)
1211 {
1212 new_draw_info (NDI_UNIQUE, 0, tmp, "Your wounds mostly close."); 1194 new_draw_info (NDI_UNIQUE, 0, tmp, "Your wounds mostly close.");
1213 }
1214 else if (heal > 10) 1195 else if (heal > 10)
1215 {
1216 new_draw_info (NDI_UNIQUE, 0, tmp, "Your wounds start to fade."); 1196 new_draw_info (NDI_UNIQUE, 0, tmp, "Your wounds start to fade.");
1217 }
1218 else 1197 else
1219 {
1220 new_draw_info (NDI_UNIQUE, 0, tmp, "Your wounds start to close."); 1198 new_draw_info (NDI_UNIQUE, 0, tmp, "Your wounds start to close.");
1221 } 1199
1222 success = 1; 1200 success = 1;
1223 } 1201 }
1224 } 1202 }
1203
1225 if (spell->attacktype & AT_DISEASE) 1204 if (spell->attacktype & AT_DISEASE)
1226 if (cure_disease (tmp, op)) 1205 if (cure_disease (tmp, op))
1227 success = 1; 1206 success = 1;
1228 1207
1229 if (spell->attacktype & AT_POISON) 1208 if (spell->attacktype & AT_POISON)
… …
1235 success = 1; 1214 success = 1;
1236 new_draw_info (NDI_UNIQUE, 0, tmp, "Your body feels cleansed"); 1215 new_draw_info (NDI_UNIQUE, 0, tmp, "Your body feels cleansed");
1237 poison->stats.food = 1; 1216 poison->stats.food = 1;
1238 } 1217 }
1239 } 1218 }
1219
1240 if (spell->attacktype & AT_CONFUSION) 1220 if (spell->attacktype & AT_CONFUSION)
1241 { 1221 {
1242 poison = present_in_ob_by_name (FORCE, "confusion", tmp); 1222 poison = present_in_ob_by_name (FORCE, "confusion", tmp);
1243 if (poison) 1223 if (poison)
1244 { 1224 {
1245 success = 1; 1225 success = 1;
1246 new_draw_info (NDI_UNIQUE, 0, tmp, "Your mind feels clearer"); 1226 new_draw_info (NDI_UNIQUE, 0, tmp, "Your mind feels clearer");
1247 poison->duration = 1; 1227 poison->duration = 1;
1248 } 1228 }
1249 } 1229 }
1230
1250 if (spell->attacktype & AT_BLIND) 1231 if (spell->attacktype & AT_BLIND)
1251 { 1232 {
1252 at = archetype::find ("blindness"); 1233 at = archetype::find ("blindness");
1253 poison = present_arch_in_ob (at, tmp); 1234 poison = present_arch_in_ob (at, tmp);
1254 if (poison) 1235 if (poison)
… …
1256 success = 1; 1237 success = 1;
1257 new_draw_info (NDI_UNIQUE, 0, tmp, "Your vision begins to return."); 1238 new_draw_info (NDI_UNIQUE, 0, tmp, "Your vision begins to return.");
1258 poison->stats.food = 1; 1239 poison->stats.food = 1;
1259 } 1240 }
1260 } 1241 }
1242
1261 if (spell->last_sp && tmp->stats.sp < tmp->stats.maxsp) 1243 if (spell->last_sp && tmp->stats.sp < tmp->stats.maxsp)
1262 { 1244 {
1263 tmp->stats.sp += spell->last_sp; 1245 tmp->stats.sp += spell->last_sp;
1264 if (tmp->stats.sp > tmp->stats.maxsp) 1246 if (tmp->stats.sp > tmp->stats.maxsp)
1265 tmp->stats.sp = tmp->stats.maxsp; 1247 tmp->stats.sp = tmp->stats.maxsp;
1266 success = 1; 1248 success = 1;
1267 new_draw_info (NDI_UNIQUE, 0, tmp, "Magical energy surges through your body!"); 1249 new_draw_info (NDI_UNIQUE, 0, tmp, "Magical energy surges through your body!");
1268 } 1250 }
1251
1269 if (spell->last_grace && tmp->stats.grace < tmp->stats.maxgrace) 1252 if (spell->last_grace && tmp->stats.grace < tmp->stats.maxgrace)
1270 { 1253 {
1271 tmp->stats.grace += spell->last_grace; 1254 tmp->stats.grace += spell->last_grace;
1272 if (tmp->stats.grace > tmp->stats.maxgrace) 1255 if (tmp->stats.grace > tmp->stats.maxgrace)
1273 tmp->stats.grace = tmp->stats.maxgrace; 1256 tmp->stats.grace = tmp->stats.maxgrace;
1274 success = 1; 1257 success = 1;
1275 new_draw_info (NDI_UNIQUE, 0, tmp, "You feel redeemed with your god!"); 1258 new_draw_info (NDI_UNIQUE, 0, tmp, "You feel redeemed with your god!");
1276 } 1259 }
1260
1277 if (spell->stats.food && tmp->stats.food < 999) 1261 if (spell->stats.food && tmp->stats.food < 999)
1278 { 1262 {
1279 tmp->stats.food += spell->stats.food; 1263 tmp->stats.food += spell->stats.food;
1280 if (tmp->stats.food > 999) 1264 if (tmp->stats.food > 999)
1281 tmp->stats.food = 999; 1265 tmp->stats.food = 999;
1282 success = 1; 1266 success = 1;
1283 /* We could do something a bit better like the messages for healing above */ 1267 /* We could do something a bit better like the messages for healing above */
1284 new_draw_info (NDI_UNIQUE, 0, tmp, "You feel your belly fill with food"); 1268 new_draw_info (NDI_UNIQUE, 0, tmp, "You feel your belly fill with food");
1285 } 1269 }
1270
1286 return success; 1271 return success;
1287} 1272}
1288 1273
1289 1274
1290/* This is used for the spells that gain stats. There are no spells 1275/* This is used for the spells that gain stats. There are no spells
… …
1302}; 1287};
1303 1288
1304int 1289int
1305cast_change_ability (object *op, object *caster, object *spell_ob, int dir, int silent) 1290cast_change_ability (object *op, object *caster, object *spell_ob, int dir, int silent)
1306{ 1291{
1307 object *tmp, *tmp2 = NULL;
1308 object *force = NULL; 1292 object *force = NULL;
1309 int i; 1293 int i;
1310 1294
1311 /* if dir = 99 op defaults to tmp, eat_special_food() requires this. */ 1295 /* if dir = 99 op defaults to tmp, eat_special_food() requires this. */
1312 if (dir != 0) 1296 object *tmp = dir
1313 {
1314 tmp = find_target_for_friendly_spell (op, dir); 1297 ? find_target_for_friendly_spell (op, dir)
1315 } 1298 : op;
1316 else
1317 {
1318 tmp = op;
1319 }
1320 1299
1321 if (tmp == NULL) 1300 if (!tmp)
1322 return 0; 1301 return 0;
1323 1302
1324 /* If we've already got a force of this type, don't add a new one. */ 1303 /* If we've already got a force of this type, don't add a new one. */
1325 for (tmp2 = tmp->inv; tmp2 != NULL; tmp2 = tmp2->below) 1304 for (object *tmp2 = tmp->inv; tmp2; tmp2 = tmp2->below)
1326 { 1305 {
1327 if (tmp2->type == FORCE && tmp2->subtype == FORCE_CHANGE_ABILITY) 1306 if (tmp2->type == FORCE && tmp2->subtype == FORCE_CHANGE_ABILITY)
1328 { 1307 {
1329 if (tmp2->name == spell_ob->name) 1308 if (tmp2->name == spell_ob->name)
1330 { 1309 {
… …
1544 change_abil (tmp, force); /* Mostly to display any messages */ 1523 change_abil (tmp, force); /* Mostly to display any messages */
1545 insert_ob_in_ob (force, tmp); 1524 insert_ob_in_ob (force, tmp);
1546 tmp->update_stats (); 1525 tmp->update_stats ();
1547 return 1; 1526 return 1;
1548} 1527}
1549
1550
1551 1528
1552/* Alchemy code by Mark Wedel 1529/* Alchemy code by Mark Wedel
1553 * 1530 *
1554 * This code adds a new spell, called alchemy. Alchemy will turn 1531 * This code adds a new spell, called alchemy. Alchemy will turn
1555 * objects to gold nuggets, the value of the gold nuggets being 1532 * objects to gold nuggets, the value of the gold nuggets being
… …
1565 * For example, if an item is worth 110 gold, you will get 1542 * For example, if an item is worth 110 gold, you will get
1566 * 4 large nuggets, and from 0-10 small nuggets. 1543 * 4 large nuggets, and from 0-10 small nuggets.
1567 * 1544 *
1568 * There is also a chance (1:30) that you will get nothing at all 1545 * There is also a chance (1:30) that you will get nothing at all
1569 * for the object. There is also a maximum weight that will be 1546 * for the object. There is also a maximum weight that will be
1570 * alchemied. 1547 * alchemised.
1571 */ 1548 */
1572
1573/* I didn't feel like passing these as arguements to the
1574 * two functions that need them. Real values are put in them
1575 * when the spell is cast, and these are freed when the spell
1576 * is finished.
1577 */
1578static object *small, *large;
1579
1580static void 1549static void
1581alchemy_object (object *obj, int *small_nuggets, int *large_nuggets, int *weight) 1550alchemy_object (object *obj, uint64 &total_value, int &total_weight)
1582{ 1551{
1583 uint64 value = query_cost (obj, NULL, F_TRUE); 1552 uint64 value = query_cost (obj, NULL, F_TRUE);
1584 1553
1585 /* Give third price when we alchemy money (This should hopefully 1554 /* Give third price when we alchemy money (This should hopefully
1586 * make it so that it isn't worth it to alchemy money, sell 1555 * make it so that it isn't worth it to alchemy money, sell
1587 * the nuggets, alchemy the gold from that, etc. 1556 * the nuggets, alchemy the gold from that, etc.
1588 * Otherwise, give 9 silver on the gold for other objects, 1557 * Otherwise, give 9 silver on the gold for other objects,
1589 * so that it would still be more affordable to haul 1558 * so that it would still be more affordable to haul
1590 * the stuff back to town. 1559 * the stuff back to town.
1591 */ 1560 */
1592
1593 if (QUERY_FLAG (obj, FLAG_UNPAID)) 1561 if (QUERY_FLAG (obj, FLAG_UNPAID))
1594 value = 0; 1562 value = 0;
1595 else if (obj->type == MONEY || obj->type == GEM) 1563 else if (obj->type == MONEY || obj->type == GEM)
1596 value /= 3; 1564 value /= 3;
1597 else 1565 else
1598 value = (value * 9) / 10; 1566 value = value * 9 / 10;
1599 1567
1600 value /= 4; // fix by GHJ, don't understand, pcg
1601
1602 if ((obj->value > 0) && rndm (0, 29)) 1568 if (obj->value > 0 && rndm (0, 29))
1603 { 1569 total_value += value;
1604 int count;
1605 1570
1606 count = value / large->value;
1607 *large_nuggets += count;
1608 value -= (uint64) count *(uint64) large->value;
1609
1610 count = value / small->value;
1611 *small_nuggets += count;
1612 }
1613
1614 /* Turn 25 small nuggets into 1 large nugget. If the value
1615 * of large nuggets is not evenly divisable by the small nugget
1616 * value, take off an extra small_nugget (Assuming small_nuggets!=0)
1617 */
1618 if (*small_nuggets * small->value >= large->value)
1619 {
1620 (*large_nuggets)++;
1621 *small_nuggets -= large->value / small->value;
1622 if (*small_nuggets && large->value % small->value)
1623 (*small_nuggets)--;
1624 }
1625 weight += obj->weight; 1571 total_weight += obj->total_weight ();
1572
1626 obj->destroy (); 1573 obj->destroy ();
1627} 1574}
1628 1575
1629static void 1576static void
1630update_map (object *op, maptile *m, int small_nuggets, int large_nuggets, int x, int y) 1577update_map (object *op, maptile *m, int small_nuggets, object *small, int large_nuggets, object *large, int x, int y)
1631{ 1578{
1632 object *tmp;
1633 int flag = 0; 1579 int flag = 0;
1634 1580
1635 /* Put any nuggets below the player, but we can only pass this 1581 /* Put any nuggets below the player, but we can only pass this
1636 * flag if we are on the same space as the player 1582 * flag if we are on the same space as the player
1637 */ 1583 */
1638 if (x == op->x && y == op->y && op->map == m) 1584 if (x == op->x && y == op->y && op->map == m)
1639 flag = INS_BELOW_ORIGINATOR; 1585 flag = INS_BELOW_ORIGINATOR;
1640 1586
1641 if (small_nuggets) 1587 if (small_nuggets)
1642 { 1588 {
1643 tmp = small->clone (); 1589 object *tmp = small->clone ();
1644 tmp->nrof = small_nuggets; 1590 tmp->nrof = small_nuggets;
1645 tmp->x = x;
1646 tmp->y = y;
1647 insert_ob_in_map (tmp, m, op, flag); 1591 m->insert (tmp, x, y, op, flag);
1648 } 1592 }
1649 1593
1650 if (large_nuggets) 1594 if (large_nuggets)
1651 { 1595 {
1652 tmp = large->clone (); 1596 object *tmp = large->clone ();
1653 tmp->nrof = large_nuggets; 1597 tmp->nrof = large_nuggets;
1654 tmp->x = x;
1655 tmp->y = y;
1656 insert_ob_in_map (tmp, m, op, flag); 1598 m->insert (tmp, x, y, op, flag);
1657 } 1599 }
1600
1601 if (object *pl = m->at (x, y).player ())
1602 if (pl->contr->ns)
1603 pl->contr->ns->look_position = 0;
1658} 1604}
1659 1605
1660int 1606int
1661alchemy (object *op, object *caster, object *spell_ob) 1607alchemy (object *op, object *caster, object *spell_ob)
1662{ 1608{
1663 int x, y, weight = 0, weight_max, large_nuggets, small_nuggets, mflags;
1664 sint16 nx, ny;
1665 object *next, *tmp;
1666 maptile *mp;
1667
1668 if (op->type != PLAYER) 1609 if (op->type != PLAYER)
1669 return 0; 1610 return 0;
1670 1611
1612 object *large = get_archetype ("largenugget");
1613 object *small = get_archetype ("smallnugget");
1614
1671 /* Put a maximum weight of items that can be alchemied. Limits the power 1615 /* Put a maximum weight of items that can be alchemised. Limits the power
1672 * some, and also prevents people from alcheming every table/chair/clock 1616 * some, and also prevents people from alchemising every table/chair/clock
1673 * in sight 1617 * in sight
1674 */ 1618 */
1675 weight_max = spell_ob->duration + +SP_level_duration_adjust (caster, spell_ob); 1619 int duration = spell_ob->duration + SP_level_duration_adjust (caster, spell_ob);
1676 weight_max *= 1000; 1620 int weight_max = duration * 1000;
1677 small = get_archetype ("smallnugget"), large = get_archetype ("largenugget"); 1621 uint64 value_max = duration * 1000;
1678 1622
1623 int weight = 0;
1624
1679 for (y = op->y - 1; y <= op->y + 1; y++) 1625 for (int y = op->y - 1; y <= op->y + 1; y++)
1680 { 1626 {
1681 for (x = op->x - 1; x <= op->x + 1; x++) 1627 for (int x = op->x - 1; x <= op->x + 1; x++)
1682 { 1628 {
1629 uint64 value = 0;
1630
1683 nx = x; 1631 sint16 nx = x;
1684 ny = y; 1632 sint16 ny = y;
1685 1633
1686 mp = op->map; 1634 maptile *mp = op->map;
1687 1635
1688 mflags = get_map_flags (mp, &mp, nx, ny, &nx, &ny); 1636 int mflags = get_map_flags (mp, &mp, nx, ny, &nx, &ny);
1689 1637
1690 if (mflags & (P_OUT_OF_MAP | P_NO_MAGIC)) 1638 if (mflags & (P_OUT_OF_MAP | P_NO_MAGIC))
1691 continue; 1639 continue;
1692 1640
1693 /* Treat alchemy a little differently - most spell effects 1641 /* Treat alchemy a little differently - most spell effects
… …
1695 * ground level effect. 1643 * ground level effect.
1696 */ 1644 */
1697 if (GET_MAP_MOVE_BLOCK (mp, nx, ny) & MOVE_WALK) 1645 if (GET_MAP_MOVE_BLOCK (mp, nx, ny) & MOVE_WALK)
1698 continue; 1646 continue;
1699 1647
1700 small_nuggets = 0; 1648 for (object *next, *tmp = mp->at (nx, ny).bot; tmp; tmp = next)
1701 large_nuggets = 0;
1702
1703 for (tmp = GET_MAP_OB (mp, nx, ny); tmp != NULL; tmp = next)
1704 { 1649 {
1705 next = tmp->above; 1650 next = tmp->above;
1651
1706 if (tmp->weight > 0 && !QUERY_FLAG (tmp, FLAG_NO_PICK) && 1652 if (tmp->weight > 0 && !QUERY_FLAG (tmp, FLAG_NO_PICK) &&
1707 !QUERY_FLAG (tmp, FLAG_ALIVE) && !QUERY_FLAG (tmp, FLAG_IS_CAULDRON)) 1653 !QUERY_FLAG (tmp, FLAG_ALIVE) && !QUERY_FLAG (tmp, FLAG_IS_CAULDRON))
1708 { 1654 {
1709
1710 if (tmp->inv) 1655 if (tmp->inv)
1711 { 1656 {
1712 object *next1, *tmp1; 1657 object *next1, *tmp1;
1713 1658
1714 for (tmp1 = tmp->inv; tmp1 != NULL; tmp1 = next1) 1659 for (tmp1 = tmp->inv; tmp1; tmp1 = next1)
1715 { 1660 {
1716 next1 = tmp1->below; 1661 next1 = tmp1->below;
1717 if (tmp1->weight > 0 && !QUERY_FLAG (tmp1, FLAG_NO_PICK) && 1662 if (tmp1->weight > 0 && !QUERY_FLAG (tmp1, FLAG_NO_PICK) &&
1718 !QUERY_FLAG (tmp1, FLAG_ALIVE) && !QUERY_FLAG (tmp1, FLAG_IS_CAULDRON)) 1663 !QUERY_FLAG (tmp1, FLAG_ALIVE) && !QUERY_FLAG (tmp1, FLAG_IS_CAULDRON))
1719 alchemy_object (tmp1, &small_nuggets, &large_nuggets, &weight); 1664 alchemy_object (tmp1, value, weight);
1720 } 1665 }
1721 } 1666 }
1667
1722 alchemy_object (tmp, &small_nuggets, &large_nuggets, &weight); 1668 alchemy_object (tmp, value, weight);
1723 1669
1724 if (weight > weight_max) 1670 if (weight > weight_max)
1725 { 1671 break;
1726 update_map (op, mp, small_nuggets, large_nuggets, nx, ny);
1727 large->destroy ();
1728 small->destroy ();
1729 return 1;
1730 } 1672 }
1731 } /* is alchemable object */ 1673 }
1732 } /* process all objects on this space */ 1674
1675 value = min (value, value_max);
1676
1677 uint64 count = value / large->value;
1678 int large_nuggets = count;
1679 value -= count * large->value;
1680
1681 count = value / small->value;
1682 int small_nuggets = count;
1733 1683
1734 /* Insert all the nuggets at one time. This probably saves time, but 1684 /* Insert all the nuggets at one time. This probably saves time, but
1735 * it also prevents us from alcheming nuggets that were just created 1685 * it also prevents us from alcheming nuggets that were just created
1736 * with this spell. 1686 * with this spell.
1737 */ 1687 */
1738 update_map (op, mp, small_nuggets, large_nuggets, nx, ny); 1688 update_map (op, mp, small_nuggets, small, large_nuggets, large, nx, ny);
1739 }
1740 }
1741 1689
1690 if (weight > weight_max)
1691 goto bailout;
1692 }
1693 }
1694
1695bailout:
1742 large->destroy (); 1696 large->destroy ();
1743 small->destroy (); 1697 small->destroy ();
1744 /* reset this so that if player standing on a big pile of stuff,
1745 * it is redrawn properly.
1746 */
1747 op->contr->ns->look_position = 0;
1748 return 1; 1698 return 1;
1749} 1699}
1750 1700
1751 1701
1752/* This function removes the cursed/damned status on equipped 1702/* This function removes the cursed/damned status on equipped
… …
1779 } 1729 }
1780 1730
1781 if (op->type == PLAYER) 1731 if (op->type == PLAYER)
1782 { 1732 {
1783 if (success) 1733 if (success)
1784 {
1785 new_draw_info (NDI_UNIQUE, 0, op, "You feel like some of your items are looser now."); 1734 new_draw_info (NDI_UNIQUE, 0, op, "You feel like some of your items are looser now.");
1786 }
1787 else 1735 else
1788 { 1736 {
1789 if (was_one) 1737 if (was_one)
1790 new_draw_info (NDI_UNIQUE, 0, op, "You failed to remove the curse."); 1738 new_draw_info (NDI_UNIQUE, 0, op, "You failed to remove the curse.");
1791 else 1739 else
… …
1998 */ 1946 */
1999 if (done_one) 1947 if (done_one)
2000 { 1948 {
2001 object *detect_ob = arch_to_object (spell->other_arch); 1949 object *detect_ob = arch_to_object (spell->other_arch);
2002 1950
2003 detect_ob->x = nx;
2004 detect_ob->y = ny;
2005 /* if this is set, we want to copy the face */ 1951 /* if this is set, we want to copy the face */
2006 if (done_one == 2 && detect) 1952 if (done_one == 2 && detect)
2007 { 1953 {
2008 detect_ob->face = detect->face; 1954 detect_ob->face = detect->face;
2009 detect_ob->animation_id = detect->animation_id; 1955 detect_ob->animation_id = detect->animation_id;
… …
2011 detect_ob->last_anim = 0; 1957 detect_ob->last_anim = 0;
2012 /* by default, the detect_ob is already animated */ 1958 /* by default, the detect_ob is already animated */
2013 if (!QUERY_FLAG (detect, FLAG_ANIMATE)) 1959 if (!QUERY_FLAG (detect, FLAG_ANIMATE))
2014 CLEAR_FLAG (detect_ob, FLAG_ANIMATE); 1960 CLEAR_FLAG (detect_ob, FLAG_ANIMATE);
2015 } 1961 }
1962
2016 insert_ob_in_map (detect_ob, m, op, 0); 1963 m->insert (detect_ob, nx, ny, op);
2017 } 1964 }
2018 } /* for processing the surrounding spaces */ 1965 } /* for processing the surrounding spaces */
2019 1966
2020 1967
2021 /* Now process objects in the players inventory if detect curse or magic */ 1968 /* Now process objects in the players inventory if detect curse or magic */
… …
2070 2017
2071 /* Explodes a fireball centered at player */ 2018 /* Explodes a fireball centered at player */
2072 tmp = get_archetype (EXPLODING_FIREBALL); 2019 tmp = get_archetype (EXPLODING_FIREBALL);
2073 tmp->dam_modifier = random_roll (1, caster_level, victim, PREFER_LOW) / 5 + 1; 2020 tmp->dam_modifier = random_roll (1, caster_level, victim, PREFER_LOW) / 5 + 1;
2074 tmp->stats.maxhp = random_roll (1, caster_level, victim, PREFER_LOW) / 10 + 2; 2021 tmp->stats.maxhp = random_roll (1, caster_level, victim, PREFER_LOW) / 10 + 2;
2075 tmp->x = victim->x; 2022
2076 tmp->y = victim->y; 2023 tmp->insert_at (victim);
2077 insert_ob_in_map (tmp, victim->map, NULL, 0);
2078 victim->stats.sp = 2 * victim->stats.maxsp; 2024 victim->stats.sp = 2 * victim->stats.maxsp;
2079 } 2025 }
2080 else if (victim->stats.sp >= victim->stats.maxsp * 1.88) 2026 else if (victim->stats.sp >= victim->stats.maxsp * 1.88)
2081 {
2082 new_draw_info (NDI_UNIQUE, NDI_ORANGE, victim, "You feel like your head is going to explode."); 2027 new_draw_info (NDI_UNIQUE, NDI_ORANGE, victim, "You feel like your head is going to explode.");
2083 }
2084 else if (victim->stats.sp >= victim->stats.maxsp * 1.66) 2028 else if (victim->stats.sp >= victim->stats.maxsp * 1.66)
2085 {
2086 new_draw_info (NDI_UNIQUE, 0, victim, "You get a splitting headache!"); 2029 new_draw_info (NDI_UNIQUE, 0, victim, "You get a splitting headache!");
2087 }
2088 else if (victim->stats.sp >= victim->stats.maxsp * 1.5) 2030 else if (victim->stats.sp >= victim->stats.maxsp * 1.5)
2089 { 2031 {
2090 new_draw_info (NDI_UNIQUE, 0, victim, "Chaos fills your world."); 2032 new_draw_info (NDI_UNIQUE, 0, victim, "Chaos fills your world.");
2091 confuse_player (victim, victim, 99); 2033 confuse_player (victim, victim, 99);
2092 } 2034 }
2093 else if (victim->stats.sp >= victim->stats.maxsp * 1.25) 2035 else if (victim->stats.sp >= victim->stats.maxsp * 1.25)
2094 {
2095 new_draw_info (NDI_UNIQUE, 0, victim, "You start hearing voices."); 2036 new_draw_info (NDI_UNIQUE, 0, victim, "You start hearing voices.");
2096 }
2097} 2037}
2098 2038
2099/* cast_transfer 2039/* cast_transfer
2100 * This spell transfers sp from the player to another person. 2040 * This spell transfers sp from the player to another person.
2101 * We let the target go above their normal maximum SP. 2041 * We let the target go above their normal maximum SP.
… …
2375 /* create the golem object */ 2315 /* create the golem object */
2376 tmp = arch_to_object (spell->other_arch); 2316 tmp = arch_to_object (spell->other_arch);
2377 2317
2378 /* if animated by a player, give the player control of the golem */ 2318 /* if animated by a player, give the player control of the golem */
2379 CLEAR_FLAG (tmp, FLAG_MONSTER); 2319 CLEAR_FLAG (tmp, FLAG_MONSTER);
2380 SET_FLAG (tmp, FLAG_FRIENDLY);
2381 tmp->stats.exp = 0; 2320 tmp->stats.exp = 0;
2382 add_friendly_object (tmp); 2321 add_friendly_object (tmp);
2383 tmp->type = GOLEM; 2322 tmp->type = GOLEM;
2384 tmp->set_owner (op); 2323 tmp->set_owner (op);
2385 set_spell_skill (op, caster, spell, tmp); 2324 set_spell_skill (op, caster, spell, tmp);
… …
2460 if (a > 14) 2399 if (a > 14)
2461 a = 14; 2400 a = 14;
2462 tmp->resist[ATNR_PHYSICAL] = 100 - (int) ((100.0 - (float) tmp->resist[ATNR_PHYSICAL]) / (30.0 - 2.0 * a)); 2401 tmp->resist[ATNR_PHYSICAL] = 100 - (int) ((100.0 - (float) tmp->resist[ATNR_PHYSICAL]) / (30.0 - 2.0 * a));
2463 2402
2464 /* Determine golem's speed */ 2403 /* Determine golem's speed */
2465 tmp->speed = 0.4 + 0.1 * SP_level_range_adjust (caster, spell); 2404 tmp->set_speed (min (3.33, 0.4 + 0.1 * SP_level_range_adjust (caster, spell)));
2466
2467 if (tmp->speed > 3.33)
2468 tmp->speed = 3.33;
2469 2405
2470 if (!spell->race) 2406 if (!spell->race)
2471 { 2407 {
2472 sprintf (buf, "animated %s", &weapon->name); 2408 sprintf (buf, "animated %s", &weapon->name);
2473 tmp->name = buf; 2409 tmp->name = buf;
… …
2475 tmp->face = weapon->face; 2411 tmp->face = weapon->face;
2476 tmp->animation_id = weapon->animation_id; 2412 tmp->animation_id = weapon->animation_id;
2477 tmp->anim_speed = weapon->anim_speed; 2413 tmp->anim_speed = weapon->anim_speed;
2478 tmp->last_anim = weapon->last_anim; 2414 tmp->last_anim = weapon->last_anim;
2479 tmp->state = weapon->state; 2415 tmp->state = weapon->state;
2480 if (QUERY_FLAG (weapon, FLAG_ANIMATE)) 2416 tmp->flag [FLAG_ANIMATE] = weapon->flag [FLAG_ANIMATE];
2481 {
2482 SET_FLAG (tmp, FLAG_ANIMATE);
2483 }
2484 else
2485 {
2486 CLEAR_FLAG (tmp, FLAG_ANIMATE);
2487 }
2488 update_ob_speed (tmp);
2489 } 2417 }
2490 2418
2491 /* make experience increase in proportion to the strength of the summoned creature. */ 2419 /* make experience increase in proportion to the strength of the summoned creature. */
2492 tmp->stats.exp *= 1 + (MAX (spell->stats.maxgrace, spell->stats.sp) / caster_level (caster, spell)); 2420 tmp->stats.exp *= 1 + (MAX (spell->stats.maxgrace, spell->stats.sp) / caster_level (caster, spell));
2493 2421
2494 tmp->speed_left = -1; 2422 tmp->speed_left = -1;
2495 tmp->x = x;
2496 tmp->y = y;
2497 tmp->direction = dir; 2423 tmp->direction = dir;
2498 insert_ob_in_map (tmp, m, op, 0); 2424
2425 m->insert (tmp, x, y, op);
2499 return 1; 2426 return 1;
2500} 2427}
2501 2428
2502/* cast_daylight() - changes the map darkness level *lower* */ 2429/* cast_daylight() - changes the map darkness level *lower* */
2503 2430
… …
2511 int success; 2438 int success;
2512 2439
2513 if (!op->map) 2440 if (!op->map)
2514 return 0; /* shouldnt happen */ 2441 return 0; /* shouldnt happen */
2515 2442
2516 success = change_map_light (op->map, spell->stats.dam); 2443 success = op->map->change_map_light (spell->stats.dam);
2444
2517 if (!success) 2445 if (!success)
2518 { 2446 {
2519 if (spell->stats.dam < 0) 2447 if (spell->stats.dam < 0)
2520 new_draw_info (NDI_UNIQUE, 0, op, "It can be no brighter here."); 2448 new_draw_info (NDI_UNIQUE, 0, op, "It can be no brighter here.");
2521 else 2449 else
… …
2598 { 2526 {
2599 aura->destroy (); 2527 aura->destroy ();
2600 return; 2528 return;
2601 } 2529 }
2602 2530
2603 aura->x = env->x;
2604 aura->y = env->y;
2605
2606 /* we need to jump out of the inventory for a bit 2531 /* we need to jump out of the inventory for a bit
2607 * in order to hit the map conveniently. 2532 * in order to hit the map conveniently.
2608 */ 2533 */
2609 insert_ob_in_map (aura, env->map, aura, 0); 2534 aura->insert_at (env, aura);
2610 2535
2611 for (i = 1; i < 9; i++) 2536 for (i = 1; i < 9; i++)
2612 { 2537 {
2613 sint16 nx, ny; 2538 sint16 nx, ny;
2614 2539
… …
2623 if (!(mflags & P_OUT_OF_MAP) && !(OB_TYPE_MOVE_BLOCK (env, GET_MAP_MOVE_BLOCK (m, nx, ny)))) 2548 if (!(mflags & P_OUT_OF_MAP) && !(OB_TYPE_MOVE_BLOCK (env, GET_MAP_MOVE_BLOCK (m, nx, ny))))
2624 { 2549 {
2625 hit_map (aura, i, aura->attacktype, 0); 2550 hit_map (aura, i, aura->attacktype, 0);
2626 2551
2627 if (aura->other_arch) 2552 if (aura->other_arch)
2628 { 2553 m->insert (arch_to_object (aura->other_arch), nx, ny, aura);
2629 object *new_ob;
2630
2631 new_ob = arch_to_object (aura->other_arch);
2632 new_ob->x = nx;
2633 new_ob->y = ny;
2634 insert_ob_in_map (new_ob, m, aura, 0);
2635 } 2554 }
2636 }
2637 } 2555 }
2556
2638 /* put the aura back in the player's inventory */ 2557 /* put the aura back in the player's inventory */
2639 aura->remove (); 2558 aura->remove ();
2640 insert_ob_in_ob (aura, env); 2559 insert_ob_in_ob (aura, env);
2641} 2560}
2642 2561
… …
2723 2642
2724 snprintf (rune, sizeof (rune), "%s\n", msg); 2643 snprintf (rune, sizeof (rune), "%s\n", msg);
2725 2644
2726 tmp->race = op->name; /*Save the owner of the rune */ 2645 tmp->race = op->name; /*Save the owner of the rune */
2727 tmp->msg = rune; 2646 tmp->msg = rune;
2728 tmp->x = op->x; 2647
2729 tmp->y = op->y; 2648 tmp->insert_at (op, op, INS_BELOW_ORIGINATOR);
2730 insert_ob_in_map (tmp, op->map, op, INS_BELOW_ORIGINATOR);
2731 return 1; 2649 return 1;
2732} 2650}

Diff Legend

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