-------------------------------------------------------------------------------------------------
-- By Stoneharry
-------------------------------------------------------------------------------------------------

local Boss = 626262

function CThunSpawn(pUnit, Event)
    pUnit:Root()
end

function CthunCombat(pUnit, Event)
    pUnit:Root()
    pUnit:RegisterEvent("Whisper_Random", 10000, 0)
    pUnit:RegisterEvent("Random_Visuals_On_Players", 5000, 0)
    pUnit:RegisterEvent("Mind_Flay", 8001, 0)
    --pUnit:RegisterEvent("Rain_Of_FIre", 6000, 0)
    pUnit:RegisterEvent("Check_Health", 3000, 0)
end

function Mind_Flay(pUnit)
    local plr = pUnit:GetRandomPlayer(0)
    if plr ~= nil then
        pUnit:FullCastSpellOnTarget(2941,plr)
    end
end

function Rain_Of_FIre(pUnit)
    local pla = pUnit:GetRandomPlayer(0)
    if pla ~= nil then
        pUnit:CastSpellAoF(pla:GetX(), pla:GetY(), pla:GetZ(), 33972)
    end
end

function Whisper_Random(pUnit)
    local choice = math.random(1,7)
    if(choice == 1) then
        pUnit:SendChatMessage(15, 0, "You are already dead.", 0)
        pUnit:PlaySoundToSet(8581)
    elseif(choice == 2) then
        pUnit:SendChatMessage(15, 0, "Your courage will fail.", 0)
        pUnit:PlaySoundToSet(8582)
    elseif(choice == 3) then
        pUnit:SendChatMessage(15, 0, "Your friends will abandon you.", 0)
        pUnit:PlaySoundToSet(8583)
    elseif(choice == 4) then
        pUnit:SendChatMessage(15, 0, "You will betray your friends.", 0)
        pUnit:PlaySoundToSet(8584)
    elseif(choice == 5) then
        pUnit:SendChatMessage(15, 0, "You... Will... Die...", 0)
        pUnit:PlaySoundToSet(8585)
    elseif(choice == 6) then
        pUnit:SendChatMessage(15, 0, "You are weak.", 0)
        pUnit:PlaySoundToSet(8586)
    elseif(choice == 7) then
        pUnit:SendChatMessage(15, 0, "Your heart will explode.", 0)
        pUnit:PlaySoundToSet(8587)
    end
end

function Random_Visuals_On_Players(pUnit)
    local plr = pUnit:GetRandomPlayer(0)
    if plr ~= nil then
        if math.random(1,2) == 1 then
            plr:CastSpell(37964) -- Lightning
        else
            plr:CastSpell(39180) -- explosion
        end
    end
end

function Check_Health(pUnit)
    if pUnit:GetHealthPct() < 75 then
        pUnit:RemoveEvents()
        pUnit:RegisterEvent("Spam_Visuals_To_ME", 1000, 0)
        pUnit:RegisterEvent("Spam_Visuals_To_ME_stop", 7500, 1)
    end
end

function Spam_Visuals_To_ME(pUnit)
    for a, plrs in pairs(pUnit:GetInRangePlayers()) do
        plrs:CastSpellOnTarget(403, pUnit)
        pUnit:CastSpellOnTarget(403, plrs)
    end
end

function Spam_Visuals_To_ME_stop(pUnit)
    pUnit:RemoveEvents()
    pUnit:RegisterEvent("Whisper_Random", 10000, 0)
    pUnit:RegisterEvent("Random_Visuals_On_Players", 5000, 0)
    pUnit:RegisterEvent("Mind_Flay", 12001, 0)
    --pUnit:RegisterEvent("Rain_Of_FIre", 6000, 0)
    pUnit:RegisterEvent("Mind_Controll", 25000, 0)
end

function Mind_Controll(pUnit)
    local p = pUnit:GetRandomPlayer(0)
    if p ~= nil then
        p:SetPlayerLock(1)
        pUnit:SendChatMessage(42,0,"C'Thun is mind controlling "..p:GetName().."!")
        local t = pUnit:GetRandomPlayer(0)
        if t ~= nil then
            if math.random(1,2) == 1 then
                p:FullCastSpellOnTarget(37992, t)
            else
                p:FullCastSpellOnTarget(2941, t)
            end
        end
        RegisterTimedEvent("Release_Lol", 8000, 1, p, pUnit)
    end
end

function Release_Lol(p, pUnit)
    p:SetPlayerLock(0)
    pUnit:SendChatMessageToPlayer(42,0,"You have been released!", p)
end

function Check_Health_TWo(pUnit)
    if pUnit:GetHealthPct() < 25 then
        pUnit:RemoveEvents()
        pUnit:RegisterEvent("Whisper_Random", 10000, 0)
        pUnit:RegisterEvent("Random_Visuals_On_Players", 3000, 0)
        pUnit:RegisterEvent("Mind_Flay", 8001, 0)
        --pUnit:RegisterEvent("Rain_Of_FIre", 8000, 0)
        pUnit:RegisterEvent("Mind_Controll", 20000, 0)
    end
end

function CthunLeave(pUnit, Event)
    pUnit:RemoveEvents()
end

function CthunDead(pUnit, Event)
    pUnit:RemoveEvents()
end

RegisterUnitEvent(Boss, 1, "CthunCombat")
RegisterUnitEvent(Boss, 2, "CthunLeave")
RegisterUnitEvent(Boss, 4, "CthunDead")
RegisterUnitEvent(Boss, 18, "CThunSpawn")