local NPC_ID = 90022


function hirador_OnCombat(event, creature, target)
    creature:SendUnitSay("Do you also want to feel the wrath of the dragons!?", 0)
    creature:RegisterEvent(hirador_flame_breath, 15000, 0)
    creature:RegisterEvent(spawn_dragonspawn1, 3000, 0)
    creature:RegisterEvent(spawn_dragonspawn2, 3000, 0)
    creature:RegisterEvent(hirador_frenzy, 10000, 0)
end

function spawn_dragonspawn1(eventID, delay, pCall, creature)
if creature:GetHealthPct() <= 70 then
    creature:SendUnitSay("You're stronger than I thought, I guess I should get serious!", 0)
    x = creature:GetX()
    y = creature:GetY()
    z = creature:GetZ()
    o = creature:GetO()
    creature:SpawnCreature(90024, x+5, y, z, o, 6, 10000)
    creature:SpawnCreature(90024, x+10, y, z, o, 6, 10000)
    creature:SpawnCreature(90024, x-5, y, z, o, 6, 10000)
    creature:SpawnCreature(90024, x-10, y, z, o, 6, 10000)
    creature:RemoveEventById()
    end
end

function hirador_flame_breath(eventID, delay, pCall, creature)
    creature:CastSpell(creature:GetVictim(), 74528)
end

function spawn_dragonspawn2(eventID, delay, pCall, creature)
if creature:GetHealthPct() <= 40 then
    x = creature:GetX()
    y = creature:GetY()
    z = creature:GetZ()
    o = creature:GetO()
    creature:SpawnCreature(90024, x+5, y, z, o, 6, 10000)
    creature:SpawnCreature(90024, x+10, y, z, o, 6, 10000)
    creature:SpawnCreature(90024, x-5, y, z, o, 6, 10000)
    creature:SpawnCreature(90024, x-10, y, z, o, 6, 10000)
    end
end

function hirador_frenzy(eventID, delay, pCall, creature)
if creature:GetHealthPct() <= 25 then
if (hiradorsay25) then
    creature:SendUnitSay("You are getting on my nerves!", 0)
    hiradorsay25 = false
    creature:CastSpell(28131)
    creature:SetDisplayId(25015)
        end
    end
end

function hirador_OnDeath(event, creature, killer)
    creature:RemoveEvents()
    creature:SendUnitSay("W-wha-what have I done?...", 0)
end

function hirador_OnKilledTarget(event, creature, victim)
    creature:SendUnitSay("Hah! So weak!", 0)
end

function hirador_OnLeave(event, creature)
    creature:RemoveEvents()
    creature:SendUnitSay("You can't beat me!", 0)
end

function hirador_OnReset(event, creature)
    creature:SendUnitSay("Death, it's all around us!", 0)
end

RegisterCreatureEvent(NPC_ID, 1, hirador_OnCombat)
RegisterCreatureEvent(NPC_ID, 2, hirador_OnLeave)
RegisterCreatureEvent(NPC_ID, 3, hirador_OnKilledTarget)
RegisterCreatureEvent(NPC_ID, 4, hirador_OnDeath)
RegisterCreatureEvent(NPC_ID, 32, hirador_OnReset)