| … | |
… | |
| 705 | */ |
705 | */ |
| 706 | |
706 | |
| 707 | void |
707 | void |
| 708 | do_mood_floor (object *op, object *source) |
708 | do_mood_floor (object *op, object *source) |
| 709 | { |
709 | { |
| 710 | object *tmp; |
|
|
| 711 | object *tmp2; |
|
|
| 712 | |
|
|
| 713 | if (!source) |
710 | if (!source) |
| 714 | source = op; |
711 | source = op; |
| 715 | |
712 | |
| 716 | for (tmp = GET_MAP_OB (op->map, op->x, op->y); tmp; tmp = tmp->above) |
713 | mapspace &ms = op->ms (); |
|
|
714 | |
|
|
715 | if (!(ms.flags () & P_IS_ALIVE)) |
|
|
716 | return; |
|
|
717 | |
|
|
718 | object *tmp; |
|
|
719 | |
|
|
720 | for (tmp = ms.top; tmp; tmp = tmp->below) |
| 717 | if (QUERY_FLAG (tmp, FLAG_MONSTER)) |
721 | if (QUERY_FLAG (tmp, FLAG_MONSTER)) |
| 718 | break; |
722 | break; |
| 719 | |
723 | |
| 720 | /* doesn't effect players, and if there is a player on this space, won't also |
724 | /* doesn't effect players, and if there is a player on this space, won't also |
| 721 | * be a monster here. |
725 | * be a monster here. |
| 722 | */ |
726 | */ |
|
|
727 | //TODO: have players really FLAG_MONSTER? kept it for safety |
| 723 | if (!tmp || tmp->type == PLAYER) |
728 | if (!tmp || tmp->type == PLAYER) |
| 724 | return; |
729 | return; |
| 725 | |
730 | |
| 726 | switch (op->last_sp) |
731 | switch (op->last_sp) |
| 727 | { |
732 | { |
| 728 | case 0: /* furious--make all monsters mad */ |
733 | case 0: /* furious--make all monsters mad */ |
| 729 | if (QUERY_FLAG (tmp, FLAG_UNAGGRESSIVE)) |
734 | if (QUERY_FLAG (tmp, FLAG_UNAGGRESSIVE)) |
| 730 | CLEAR_FLAG (tmp, FLAG_UNAGGRESSIVE); |
735 | CLEAR_FLAG (tmp, FLAG_UNAGGRESSIVE); |
|
|
736 | |
| 731 | if (QUERY_FLAG (tmp, FLAG_FRIENDLY)) |
737 | if (QUERY_FLAG (tmp, FLAG_FRIENDLY)) |
| 732 | { |
738 | { |
| 733 | CLEAR_FLAG (tmp, FLAG_FRIENDLY); |
|
|
| 734 | remove_friendly_object (tmp); |
739 | remove_friendly_object (tmp); |
|
|
740 | |
| 735 | tmp->attack_movement = 0; |
741 | tmp->attack_movement = 0; |
| 736 | /* lots of checks here, but want to make sure we don't |
742 | /* lots of checks here, but want to make sure we don't |
| 737 | * dereference a null value |
743 | * dereference a null value |
| 738 | */ |
744 | */ |
| 739 | if (tmp->type == GOLEM && tmp->owner && tmp->owner->type == PLAYER && tmp->owner->contr->ranges[range_golem] == tmp) |
745 | if (tmp->type == GOLEM && tmp->owner && tmp->owner->type == PLAYER && tmp->owner->contr->ranges[range_golem] == tmp) |
| 740 | tmp->owner->contr->ranges[range_golem] = 0; |
746 | tmp->owner->contr->ranges[range_golem] = 0; |
| 741 | |
747 | |
| 742 | tmp->owner = 0; |
748 | tmp->owner = 0; |
| 743 | } |
749 | } |
| 744 | break; |
750 | break; |
|
|
751 | |
| 745 | case 1: /* angry -- get neutral monsters mad */ |
752 | case 1: /* angry -- get neutral monsters mad */ |
| 746 | if (QUERY_FLAG (tmp, FLAG_UNAGGRESSIVE) && !QUERY_FLAG (tmp, FLAG_FRIENDLY)) |
753 | if (QUERY_FLAG (tmp, FLAG_UNAGGRESSIVE) && !QUERY_FLAG (tmp, FLAG_FRIENDLY)) |
| 747 | CLEAR_FLAG (tmp, FLAG_UNAGGRESSIVE); |
754 | CLEAR_FLAG (tmp, FLAG_UNAGGRESSIVE); |
| 748 | break; |
755 | break; |
|
|
756 | |
| 749 | case 2: /* calm -- pacify unfriendly monsters */ |
757 | case 2: /* calm -- pacify unfriendly monsters */ |
| 750 | if (!QUERY_FLAG (tmp, FLAG_UNAGGRESSIVE)) |
|
|
| 751 | SET_FLAG (tmp, FLAG_UNAGGRESSIVE); |
758 | SET_FLAG (tmp, FLAG_UNAGGRESSIVE); |
| 752 | break; |
759 | break; |
|
|
760 | |
| 753 | case 3: /* make all monsters fall asleep */ |
761 | case 3: /* make all monsters fall asleep */ |
| 754 | if (!QUERY_FLAG (tmp, FLAG_SLEEP)) |
|
|
| 755 | SET_FLAG (tmp, FLAG_SLEEP); |
762 | SET_FLAG (tmp, FLAG_SLEEP); |
| 756 | break; |
763 | break; |
|
|
764 | |
| 757 | case 4: /* charm all monsters */ |
765 | case 4: /* charm all monsters */ |
| 758 | if (op == source) |
766 | if (op == source) |
| 759 | break; /* only if 'connected' */ |
767 | break; /* only if 'connected' */ |
| 760 | |
768 | |
| 761 | for (tmp2 = GET_MAP_OB (source->map, source->x, source->y); /* finding an owner */ |
769 | if (object *pl = source->ms ().player ()) |
| 762 | tmp2->type != PLAYER; tmp2 = tmp2->above) |
770 | { |
| 763 | if (tmp2->above == NULL) |
771 | tmp->set_owner (pl); |
|
|
772 | SET_FLAG (tmp, FLAG_MONSTER); |
|
|
773 | |
|
|
774 | tmp->stats.exp = 0; |
|
|
775 | |
|
|
776 | add_friendly_object (tmp); |
|
|
777 | tmp->attack_movement = PETMOVE; |
|
|
778 | } |
| 764 | break; |
779 | break; |
| 765 | |
780 | |
| 766 | if (tmp2->type != PLAYER) |
781 | case 6: |
|
|
782 | if (!QUERY_FLAG (tmp, FLAG_FRIENDLY)) |
| 767 | break; |
783 | break; |
| 768 | |
784 | |
| 769 | tmp->set_owner (tmp2); |
785 | // FALL THROUGH |
| 770 | SET_FLAG (tmp, FLAG_MONSTER); |
786 | case 5: |
| 771 | |
787 | get_archetype ("burnout")->insert_at (tmp, source); |
| 772 | tmp->stats.exp = 0; |
788 | tmp->destroy (); |
| 773 | |
|
|
| 774 | add_friendly_object (tmp); |
|
|
| 775 | tmp->attack_movement = PETMOVE; |
|
|
| 776 | break; |
789 | break; |
| 777 | |
790 | |
| 778 | default: |
791 | default: |
| 779 | break; |
792 | break; |
| 780 | } |
793 | } |
