local msgs =
{
    "And just what do you think you are doing? You dare to interfere with my master's experiment?",
    "Do you like what we've done here? Perhaps we will drop these crystals from the sky all over Outland.",
    "I grow bored with your attempt to heal the land and quell the energies summoning and driving the colossi mad. Goliathon, King of the Colossi, Prince Kael'thas and I demand that you defend the crystal!",
    "We will meet again soon."
}

local function waitAndSay(creature, msg, delay)
    creature:RegisterEvent(function(_,_,_,creature)
        creature:Say(msg, 0)
    end, delay, 1)
end

function Item_OnUse(event, player, item, target)
    local distance = player:GetExactDistance(134.354996, 4835.589844, 76.730400)
    if distance <= 3.5 then
        player:RegisterEvent(function(_,_,_,player)
            local creature = player:SpawnCreature(21504, 130.342712, 4836.767090, 76.039124, 6.217642, 1, 42000)
            if creature then
                waitAndSay(creature, msgs[1], 3000)
                waitAndSay(creature, msgs[2], 3000)
                waitAndSay(creature, msgs[3], 3000)
                waitAndSay(creature, msgs[4], 3000)
            end
        end, 3000, 1)
    end
end

RegisterItemEvent(29478, 2, Item_OnUse)