Quest stuff

function OnQuestAccept_Duthorian80007(event, pPlayer, QuestId, pUnit)
    if QuestId == 80007 then
        pUnit:RegisterEvent("Duthorian_Dialogue01", 3000, 1)
    end
end

function Duthorian_Dialogue01(pUnit, event)
    pUnit:Emote(1, 61000)
    pUnit:SendChatMessage(12, 7, "When I was a young boy I joined the Silver Hand hoping for some way to keep this land from being tainted.")
    pUnit:RegisterEvent("Duthorian_Dialogue02", 10000, 1)
end

function Duthorian_Dialogue02(pUnit, event)
    pUnit:SendChatMessage(12, 7, "I took the oath, I bled for the Order, and I trained to be a member of it. Now look around and see what has happened!")
    pUnit:RegisterEvent("Duthorian_Dialogue03", 10000, 1)
end

function Duthorian_Dialogue03(pUnit, event)
    pUnit:SendChatMessage(12, 7, "This land was once a beautiful place, filled with caring people, fertile ground, and just a solemn peace.")
    pUnit:RegisterEvent("Duthorian_Dialogue04", 10000, 1)
end

function Duthorian_Dialogue04(pUnit, event)
    pUnit:SendChatMessage(12, 7, "I remember when the Cult of the Damned started spreading there plague in the North of Lordaeron.")
    pUnit:RegisterEvent("Duthorian_Dialogue05", 10000, 1)
end

function Duthorian_Dialogue05(pUnit, event)
    pUnit:SendChatMessage(12, 7, "Tainting hapless villagers and there familys through the grain supplies. I met one of these cultist's and I killed him.")
    pUnit:RegisterEvent("Duthorian_Dialogue06", 10000, 1)
end

function Duthorian_Dialogue06(pUnit, event)
    pUnit:SendChatMessage(12, 7, "The Silver Hand taught me a lot in my life, and many have forgotten the oath we have taken, either fleeing the land or joining the Crusade in it's infancy.")
    pUnit:RegisterEvent("Duthorian_Dialogue07", 10000, 1)
end

function Duthorian_Dialogue07(pUnit, event)
    pUnit:SendChatMessage(12, 7, "These people have done wrong by killing those who are innocent and destroying those who have done no wrong!")
    pUnit:RegisterEvent("Duthorian_Dialogue08", 1000, 1)
end

function Duthorian_Dialogue08(pUnit, event)
    pUnit:Emote(391, 2000)
    pUnit:RegisterEvent("Duthorian_Dialogue10", 3000, 1) --Messed up the numbering system in the names here but it works =P
end

function Duthorian_Dialogue10(pUnit, event)
    pUnit:SendChatMessage(12, 7, "That is the flaw of your Crusade.")
    pUnit:RegisterEvent("Duthorian_Dialogue11", 1000, 1)
end

function Duthorian_Dialogue11(pUnit, event)
    pUnit:Emote(397, 4000)
    pUnit:RegisterEvent("Duthorian_Dialogue12", 5000, 1)
end

function Duthorian_Dialogue12(pUnit, event)
    pUnit:SendChatMessage(12, 7, "Your intentions are good yet your actions suggest otherwise.")
    pUnit:RegisterEvent("Duthorian_Dialogue13", 7000, 1)
end

function Duthorian_Dialogue13(pUnit, event)
    pUnit:SendChatMessage(12, 7, "I have continued to keep my oath, and do nothing wrong to those who have done no wrong. Keeping peace where there has only been war.")
    pUnit:RegisterEvent("Duthorian_Dialogue14", 10000, 1)
end

function Duthorian_Dialogue14(pUnit, event)
    pUnit:SendChatMessage(12, 7, "Keeping life where there has only been death. Now that you have heard my story choose if you want to fight me fairly so that I may rejoin my lost kin...")
    pUnit:RegisterEvent("Duthorian_Dialogue15", 10000, 1)
end

function Duthorian_Dialogue15(pUnit, event)
    pUnit:SendChatMessage(12, 7, "Or to leave me be and to complete my oath.")
    pUnit:Emote(68, 1000)
end

RegisterServerHook(14, "OnQuestAccept_Duthorian80007")
RegisterUnitEvent(90010, 18, function() return end) -- 90010 is the questgiver and talker's entry, right?