| 1 | /* |
1 | /* |
| 2 | * CrossFire, A Multiplayer game for X-windows |
2 | * CrossFire, A Multiplayer game |
| 3 | * |
3 | * |
| 4 | * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team |
4 | * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team |
| 5 | * Copyright (C) 2002 Mark Wedel & Crossfire Development Team |
5 | * Copyright (C) 2002 Mark Wedel & Crossfire Development Team |
| 6 | * Copyright (C) 1992 Frank Tore Johansen |
6 | * Copyright (C) 1992 Frank Tore Johansen |
| 7 | * |
7 | * |
| … | |
… | |
| 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); |
|
|
| 735 | tmp->attack_movement = 0; |
739 | tmp->attack_movement = 0; |
| 736 | /* lots of checks here, but want to make sure we don't |
740 | /* lots of checks here, but want to make sure we don't |
| 737 | * dereference a null value |
741 | * dereference a null value |
| 738 | */ |
742 | */ |
| 739 | if (tmp->type == GOLEM && tmp->owner && tmp->owner->type == PLAYER && tmp->owner->contr->ranges[range_golem] == tmp) |
743 | if (tmp->type == GOLEM |
|
|
744 | && tmp->owner |
|
|
745 | && tmp->owner->type == PLAYER |
|
|
746 | && tmp->owner->contr->ranges[range_golem] == tmp) |
| 740 | tmp->owner->contr->ranges[range_golem] = 0; |
747 | tmp->owner->contr->ranges[range_golem] = 0; |
| 741 | |
748 | |
| 742 | tmp->owner = 0; |
749 | tmp->owner = 0; |
|
|
750 | |
|
|
751 | remove_friendly_object (tmp); |
| 743 | } |
752 | } |
| 744 | break; |
753 | break; |
|
|
754 | |
| 745 | case 1: /* angry -- get neutral monsters mad */ |
755 | case 1: /* angry -- get neutral monsters mad */ |
| 746 | if (QUERY_FLAG (tmp, FLAG_UNAGGRESSIVE) && !QUERY_FLAG (tmp, FLAG_FRIENDLY)) |
756 | if (QUERY_FLAG (tmp, FLAG_UNAGGRESSIVE) && !QUERY_FLAG (tmp, FLAG_FRIENDLY)) |
| 747 | CLEAR_FLAG (tmp, FLAG_UNAGGRESSIVE); |
757 | CLEAR_FLAG (tmp, FLAG_UNAGGRESSIVE); |
| 748 | break; |
758 | break; |
|
|
759 | |
| 749 | case 2: /* calm -- pacify unfriendly monsters */ |
760 | case 2: /* calm -- pacify unfriendly monsters */ |
| 750 | if (!QUERY_FLAG (tmp, FLAG_UNAGGRESSIVE)) |
|
|
| 751 | SET_FLAG (tmp, FLAG_UNAGGRESSIVE); |
761 | SET_FLAG (tmp, FLAG_UNAGGRESSIVE); |
| 752 | break; |
762 | break; |
|
|
763 | |
| 753 | case 3: /* make all monsters fall asleep */ |
764 | case 3: /* make all monsters fall asleep */ |
| 754 | if (!QUERY_FLAG (tmp, FLAG_SLEEP)) |
|
|
| 755 | SET_FLAG (tmp, FLAG_SLEEP); |
765 | SET_FLAG (tmp, FLAG_SLEEP); |
| 756 | break; |
766 | break; |
|
|
767 | |
| 757 | case 4: /* charm all monsters */ |
768 | case 4: /* charm all monsters */ |
| 758 | if (op == source) |
769 | if (op == source) |
| 759 | break; /* only if 'connected' */ |
770 | break; /* only if 'connected' */ |
| 760 | |
771 | |
| 761 | for (tmp2 = GET_MAP_OB (source->map, source->x, source->y); /* finding an owner */ |
772 | if (object *pl = source->ms ().player ()) |
| 762 | tmp2->type != PLAYER; tmp2 = tmp2->above) |
773 | { |
| 763 | if (tmp2->above == NULL) |
774 | tmp->set_owner (pl); |
|
|
775 | SET_FLAG (tmp, FLAG_MONSTER); |
|
|
776 | |
|
|
777 | tmp->stats.exp = 0; |
|
|
778 | |
|
|
779 | add_friendly_object (tmp); |
|
|
780 | tmp->attack_movement = PETMOVE; |
|
|
781 | } |
| 764 | break; |
782 | break; |
| 765 | |
783 | |
| 766 | if (tmp2->type != PLAYER) |
784 | case 6: // kill monsters |
|
|
785 | if (!QUERY_FLAG (tmp, FLAG_FRIENDLY)) |
| 767 | break; |
786 | break; |
| 768 | |
787 | |
| 769 | tmp->set_owner (tmp2); |
788 | // FALL THROUGH |
| 770 | SET_FLAG (tmp, FLAG_MONSTER); |
789 | case 5: // kill all alives |
| 771 | |
790 | if (!tmp->flag [FLAG_PRECIOUS]) |
| 772 | tmp->stats.exp = 0; |
791 | { |
| 773 | |
792 | get_archetype ("burnout")->insert_at (tmp, source); |
| 774 | add_friendly_object (tmp); |
793 | tmp->destroy (); |
| 775 | tmp->attack_movement = PETMOVE; |
794 | } |
| 776 | break; |
795 | break; |
| 777 | |
796 | |
| 778 | default: |
797 | default: |
| 779 | break; |
798 | break; |
| 780 | } |
799 | } |
