Quest The Balance of Light and Shadow support (npc eris havenfire, npc fleeing peasant/plagued peasant)

quest_the_balance_of_light_and_shadow.cpp

enum ErisHavenfireSays
{
    SAY_DEATH       = 0,
    SAY_SPAWN       = 1,
    SAY_SAVED       = 2,
    SAY_EMPOWER     = 0,
    SAY_COMPLETE    = 1,
    SAY_FAILED1     = 2,
    SAY_FAILED2     = 3
};

enum ErisHavenfireMisc
{
    QUEST_THE_BALANCE_OF_LIGHT_AND_SHADOW = 7622,

    NPC_INJURED_PEASANT                   = 14484,
    NPC_SCOURGE_ARCHER                    = 14489,
    NPC_SCOURGE_FOOTSOLDIER               = 14486,
    NPC_PLAGUED_PEASANT                   = 14485,

    SPELL_BLESSING_OF_NORDRASSIL          = 23108,
    SPELL_DEATH_DOOR                      = 23127,
    SPELL_SEETHING_PLAGUE                 = 23072,
    SPELL_ENTER_THE_LIGHT_DND             = 23107,
    SPELL_SHOOT                           = 23073,

    ACTION_START_SPAWN                    = 0,
    ACTION_SEARCH_TARGETS                 = 1,
    SUCCESS                               = 50,
    FAILED                                = 15,
    MAX_PEASANTS                          = 12,
    MAX_ARCHERS                           = 8,
};

Position const ArcherPositions[11] =
{
    // Archers
    { 3327.42f, -3021.11f, 170.57f, 6.01f },
    { 3335.4f,  -3054.3f,  173.63f, 0.49f },
    { 3351.3f,  -3079.08f, 178.67f, 1.15f },
    { 3358.93f, -3076.1f,  174.87f, 1.57f },
    { 3371.58f, -3069.24f, 175.20f, 1.99f },
    { 3369.46f, -3023.11f, 171.83f, 3.69f },
    { 3383.25f, -3057.01f, 181.53f, 2.21f },
    { 3380.03f, -3062.73f, 181.90f, 2.31f },

    // Footsoldiers
    { 3347.603271f, -3045.536377f, 164.029877f, 1.814429f },
    { 3363.609131f, -3037.187256f, 163.541885f, 2.277649f },
    { 3349.105469f, -3056.500977f, 168.079468f, 1.857460f },
};

Position const PeasantMoveLoc = { 3335.0f, -2994.04f, 161.14f };
Position const PeasantsPos[12] =
{
    { 3364.47f, -3048.50f, 165.17f, 1.86f  },
    { 3363.24f, -3052.06f, 165.26f, 2.095f },
    { 3362.33f, -3049.37f, 165.23f, 1.54f  },
    { 3360.13f, -3052.63f, 165.31f, 1.88f  },
    { 3361.05f, -3055.49f, 165.31f, 2.041f },
    { 3363.92f, -3046.96f, 165.09f, 2.13f  },
    { 3366.83f, -3052.23f, 165.41f, 2.044f },
    { 3367.79f, -3047.80f, 165.16f, 2.08f  },
    { 3358.76f, -3050.37f, 165.21f, 2.05f  },
    { 3366.63f, -3045.29f, 164.99f, 2.19f  },
    { 3357.45f, -3052.82f, 165.50f, 2.006f },
    { 3363.00f, -3044.21f, 164.80f, 2.182f }
};

struct npc_eris_havenfire : public ScriptedAI
{
    npc_eris_havenfire(Creature* creature) : ScriptedAI(creature), _summons(me) { }

    void Reset()
    {
        _scheduler.CancelAll();
        _summons.DespawnAll();
        _failCounter = 0;
        _winCounter = 0;
        _eventActive = false;
    }

    void JustSummoned(Creature* summon) override
    {
        _summons.Summon(summon);
    }

    void FinishQuest(bool success)
    {
        if (Player* player = ObjectAccessor::GetPlayer(*me, _playerGUID))
        {
            if (Group* group = player->GetGroup())
            {
                for (GroupReference* itr = group->GetFirstMember(); itr != nullptr; itr = itr->next())
                    if (Player* member = itr->GetSource())
                    {
                        if (success)
                            member->CompleteQuest(QUEST_THE_BALANCE_OF_LIGHT_AND_SHADOW);
                        else if (player->GetQuestStatus(QUEST_THE_BALANCE_OF_LIGHT_AND_SHADOW) == QUEST_STATUS_INCOMPLETE)
                            member->FailQuest(QUEST_THE_BALANCE_OF_LIGHT_AND_SHADOW);
                    }
            }
            else if (success)
                player->CompleteQuest(QUEST_THE_BALANCE_OF_LIGHT_AND_SHADOW);
            else if (player->GetQuestStatus(QUEST_THE_BALANCE_OF_LIGHT_AND_SHADOW) == QUEST_STATUS_INCOMPLETE)
                player->FailQuest(QUEST_THE_BALANCE_OF_LIGHT_AND_SHADOW);
        }

        if (success)
        {
            Talk(SAY_COMPLETE);
            Reset();
        }
        else
        {
            Talk(SAY_FAILED1);
            Talk(SAY_FAILED2);
            //me->DespawnOrUnsummon(Seconds(2));
        }
    }

    void SummonedCreatureDies(Creature* summon, Unit* /*killer*/) override
    {
        if (summon->GetEntry() == NPC_INJURED_PEASANT || summon->GetEntry() == NPC_PLAGUED_PEASANT)
            ++_failCounter;

        if (_failCounter >= FAILED)
            FinishQuest(false);
    }

    void SetData(uint32 /*data*/, uint32 /*value*/) override
    {
        ++_winCounter;

        if (_winCounter >= SUCCESS)
            FinishQuest(true);
    }

    void DoAction(int32 action) override
    {
        if (!_eventActive && action == ACTION_START_SPAWN)
        {
            _eventActive = true;

            for (uint8 i = 0; i < MAX_ARCHERS; i++)
                if (Creature* archer = me->SummonCreature(NPC_SCOURGE_ARCHER, ArcherPositions[i], TEMPSUMMON_TIMED_DESPAWN, 5 * MINUTE * IN_MILLISECONDS))
                {
                    archer->SetFlag(UNIT_FIELD_FLAGS, UNIT_FLAG_NOT_ATTACKABLE_1);
                }

            _scheduler.Schedule(Seconds(10), [this](TaskContext waves)
            {
                if (waves.GetRepeatCounter() > 5)
                    _scheduler.CancelAll();

                for (uint8 i = 0; i <= MAX_PEASANTS; i++)
                    if (Creature* peasant = me->SummonCreature(roll_chance_i(70) ? NPC_INJURED_PEASANT : NPC_PLAGUED_PEASANT, PeasantsPos[i], TEMPSUMMON_DEAD_DESPAWN))
                        if (peasant->GetEntry() == NPC_PLAGUED_PEASANT)
                            peasant->CastSpell(peasant, roll_chance_i(70) ? SPELL_SEETHING_PLAGUE : SPELL_DEATH_DOOR, true);

                if (Creature* peasant = me->FindNearestCreature(NPC_INJURED_PEASANT, 100.0f, true))
                    peasant->AI()->Talk(SAY_SPAWN);

                EntryCheckPredicate pred(NPC_SCOURGE_ARCHER);
                _summons.DoAction(ACTION_SEARCH_TARGETS, pred);
                waves.Repeat(Seconds(60));
            });

            _scheduler.Schedule(Seconds(72), [this](TaskContext soldiers)
            {
                for (uint8 i = 0; i < urand(2, 3); ++i)
                    if (Creature* soldier = me->SummonCreature(NPC_SCOURGE_FOOTSOLDIER, PeasantsPos[urand(0, 11)], TEMPSUMMON_CORPSE_DESPAWN))
                    {
                        if (Player* player = ObjectAccessor::GetPlayer(*me, _playerGUID))
                            soldier->AI()->AttackStart(player);
                    }
                soldiers.Repeat(Seconds(20), Seconds(40));
            });

            _scheduler.Schedule(Seconds(2), [this](TaskContext heal)
            {
                heal.Repeat();

                if (Player* priest = ObjectAccessor::GetPlayer(*me, _playerGUID))
                    if (priest->IsAlive())
                    {
                        if (!priest->HasAuraEffect(SPELL_BLESSING_OF_NORDRASSIL, EFFECT_0) && priest->GetMaxPower(POWER_MANA) && (100.0f * priest->GetPower(POWER_MANA) / priest->GetMaxPower(POWER_MANA)) < 35.0f)
                        {
                            me->CastSpell(priest, SPELL_BLESSING_OF_NORDRASSIL, true);
                            Talk(SAY_EMPOWER);
                        }
                    }
                    else
                        FinishQuest(false);
            });
        }
    }

    void UpdateAI(uint32 diff) override
    {
        if (!_eventActive)
            return;

        _scheduler.Update(diff);
    }

    void QuestAccept(Player* player, Quest const* quest) override
    {
        if (!_eventActive && quest->GetQuestId() == QUEST_THE_BALANCE_OF_LIGHT_AND_SHADOW)
        {
            DoAction(ACTION_START_SPAWN);
            _playerGUID = player->GetGUID();
        }
    }

private:
    SummonList _summons;
    uint32 _failCounter;
    uint32 _winCounter;
    bool _eventActive;
    TaskScheduler _scheduler;
    ObjectGuid _playerGUID;
};

class ArcherTargetSelector
{
public:
    ArcherTargetSelector() { }

    bool operator()(WorldObject* target) const
    {
        return target->GetTypeId() != TYPEID_PLAYER;
    }
};

struct npc_scourge_archer : public ScriptedAI
{
    npc_scourge_archer(Creature *creature) : ScriptedAI(creature)
    {
        SetCombatMovement(false);
        me->SetReactState(REACT_AGGRESSIVE);
    }

    void DoAction(int32 action) override
    {
        if (action == ACTION_SEARCH_TARGETS)
        {
            ResetThreatList();
            std::vector<Creature*> peasants;
            me->GetCreatureListWithEntryInGrid(peasants, NPC_PLAGUED_PEASANT, 48.0f);
            me->GetCreatureListWithEntryInGrid(peasants, NPC_INJURED_PEASANT, 48.0f);
            for (Creature* peasant : peasants)
            {
                me->GetThreatManager().AddThreat(peasant, 1.0f);
            }
        }
    }

    void Reset() override
    {
        _scheduler.Schedule(Seconds(1), [this](TaskContext shoot)
        {
            if (Unit* target = SelectTarget(SELECT_TARGET_RANDOM, 0, ArcherTargetSelector()))
            {
                DoCast(target, SPELL_SHOOT, true);
            }
            shoot.Repeat(Milliseconds(1517));
        });
    }

    void EnterEvadeMode(EvadeReason why) override
    {
        std::cout << "\n Evade";
    }

    void UpdateAI(uint32 diff) override
    {
        UpdateVictim();

        _scheduler.Update(diff);
    }

private:
    TaskScheduler _scheduler;
};


struct npc_fleeing_peasant : public ScriptedAI
{
    npc_fleeing_peasant(Creature *creature) : ScriptedAI(creature) { }

    void Reset()
    {
        me->SetWalk(true);
        me->SetSpeed(MOVE_WALK, 0.45f);
        me->SetFlag(UNIT_FIELD_FLAGS, UNIT_FLAG_PVP_ATTACKABLE);
        me->SetReactState(REACT_PASSIVE);
        me->GetMotionMaster()->MovePoint(1, PeasantMoveLoc);
    }

    void MovementInform(uint32 type, uint32 point) override
    {
        if (type != POINT_MOTION_TYPE && point != 1)
            return;

        me->SetFlag(UNIT_FIELD_FLAGS, UNIT_FLAG_NON_ATTACKABLE);
        me->RemoveAllAuras();
        DoCastSelf(SPELL_ENTER_THE_LIGHT_DND);
        Talk(SAY_SAVED);
        me->DespawnOrUnsummon(Seconds(2));

        if (Creature* eris = me->FindNearestCreature(14494, 200.0f, true))
            eris->ToCreature()->AI()->SetData(1, 1);
    }

    void JustDied(Unit* /*killer*/) override
    {
        Talk(SAY_DEATH);
    }
};

SELECT `ID`,`MaleText`,`FemaleText` FROM `broadcast_text` WHERE `ID` IN (9651,9653,9654,9680,9681,9682,9683,9712,9713,9714,9715,9728);

    ID  MaleText                                                                                    FemaleText                                                                                  
------  ------------------------------------------------------------------------------------------  --------------------------------------------------------------------------------------------
  9651  Thank you, kind stranger. May your heroism never be forgotten.                              Thank you, kind stranger. May your heroism never be forgotten.
  9653  Stranger, find the fallen Prince Menethil and end his reign of terror.                      Stranger, find the fallen Prince Menethil and end his reign of terror.
  9654  The power of the light is truly great and merciful.                                         The power of the light is truly great and merciful.
  9655                                                                                              Be healed!
  9680  I won't make it... go... go on without me...                                                I won't make it... go... go on without me...
  9681  The pain is unbearable!                                                                     The pain is unbearable!
  9682  Should I live through this, I shall make it my life's sole ambition to destroy Arthas...    Should I live through this, I shall make it my life's sole ambition to destroy Arthas...
  9683  Death take me! I cannot go on! I have nothing left...                                       Death take me! I cannot go on! I have nothing left...
  9712  The Scourge are upon us! Run! Run for your lives!                                           The Scourge are upon us! Run! Run for your lives!
  9713  Please help us! The Prince has gone mad!                                                    Please help us! The Prince has gone mad!
  9714  Seek sanctuary in the Hearthglen! It is our only hope!                                      Seek sanctuary in the Hearthglen! It is our only hope!
  9715  Stratholme is no more! The city lies in ruins. The Prince consumed by hatred... madness...  Stratholme is no more! The city lies in ruins. The Prince consumed by hatred... madness...
  9728                                                                                              We are saved! The peasants have escaped the Scourge!

UPDATE `creature_template` SET `flags_extra`=0 ,`ScriptName`='npc_fleeing_peasant', `RegenHealth`=0 WHERE `entry` IN (14484,14485);
UPDATE `creature_template` SET `ScriptName`='npc_eris_havenfire' WHERE `entry`=14494;
UPDATE `creature_template` SET `ScriptName`='npc_scourge_archer' WHERE `entry`=14489;

DELETE FROM `creature_text` WHERE `CreatureID` IN (14484,14494);
INSERT INTO `creature_text` (`CreatureID`, `GroupID`, `ID`, `Text`, `Type`, `Language`, `Probability`, `Emote`, `Duration`, `Sound`, `BroadcastTextId`, `TextRange`, `comment`) VALUES
(14484, 0, 0, 'Death take me! I cannot go on! I have nothing left...', 12, 0, 100, 0, 0, 0, 9683, 0, 'Fleeing Peasant'),
(14484, 0, 1, 'Should I live through this, I shall make it my live\'s sole ambition to destroy Arthas...', 12, 0, 100, 0, 0, 0, 9682, 0, 'Fleeing Peasant'),
(14484, 0, 2, 'The pain is unbearable!', 12, 0, 100, 0, 0, 0, 9681, 0, 'Fleeing Peasant'),
(14484, 0, 3, 'I won\'t make it... go... go on without me...', 12, 0, 100, 0, 0, 0, 9680, 0, 'Fleeing Peasant'),
(14484, 1, 0, 'The Scourge is uppon us! Run! Run for your lives!', 12, 0, 100, 0, 0, 0, 9712, 0, 'Fleeing Peasant'),
(14484, 1, 1, 'Please help us! The Prince has gone mad!', 12, 0, 100, 0, 0, 0, 9713, 0, 'Fleeing Peasant'),
(14484, 1, 2, 'Seek sanctuary in Hearthglen! It is our only hope!', 12, 0, 100, 0, 0, 0, 9714, 0, 'Fleeing Peasant'),
(14484, 2, 0, 'Thank you, kind stranger. May your heroism never be forgotten.', 12, 0, 100, 0, 0, 0, 9651, 0, 'Fleeing Peasant'),
(14484, 2, 1, 'The power of the light is truly great and merciful.', 12, 0, 100, 0, 0, 0, 9654, 0, 'Fleeing Peasant'),
(14484, 2, 2, 'Stranger, find the fallen Prince Menethil and end his reign of terror.', 12, 0, 100, 0, 0, 0, 9653, 0, 'Fleeing Peasant'),

(14494, 0, 0, 'Be healed!', 14, 0, 100, 0, 0, 0, 9655, 0, 'Eris Havenfire'),
(14494, 1, 0, 'We are saved! The peasants have escaped the Scourge!', 12, 0, 100, 0, 0, 0, 9728, 0, 'Eris Havenfire');

DELETE FROM `creature_template_addon` WHERE `entry`=14494;
INSERT INTO `creature_template_addon` (`entry`, `path_id`, `mount`, `bytes1`, `bytes2`, `emote`, `auras`) VALUES
(14494, 0, 0, 0, 1, 0, 23196);