EQ2EMu/server/Quests/Hallmark/the_call_of_qeynos.lua

--[[
    Script Name    : Quests/Hallmark/the_call_of_qeynos.lua
    Script Author  : Dorbin
    Script Date    : 2023.03.16 06:03:41
    Script Purpose : 

        Zone       : Hallmark
        Quest Giver: 
        Preceded by: None
        Followed by: 
--]]

function Init(Quest,QuestGiver,Player)
	AddQuestStep(Quest, 1, "Queen Antonia is speaking to me...", 1,100, "Queen Antonia is speaking to me...", 11)
	AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end

function Step1Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 1, "I have listened to Queen Antonia's message.")
	UpdateQuestTaskGroupDescription(Quest, 1, "I have listened to Queen Antonia's message.")
Race = GetRace(Player)
    -- Human 
    if Race == 9 then
	AddQuestStepChat(Quest, 2, "I must find the Steward", 1, "I have been instructed to seek out a Steward in Qeynos where I arrived.", 11, 2330170,2340166)
    UpdateQuestZone(Quest, "Multiple Zones")

     -- Kerra
    elseif Race == 11 then
	AddQuestStepChat(Quest, 2, "I must find the Steward in Nettleville Hovel", 1, "I must find the Steward in Nettleville Hovel", 11, 2330170)
    UpdateQuestZone(Quest, "Nettleville")

    -- Erudite
    elseif Race == 3 or Race == 20 then
	AddQuestStepChat(Quest, 2, "I must find the Steward in Starcrest Commune", 1, "I must find the Steward in Starcrest Commune", 11, 2340166)
    UpdateQuestZone(Quest, "Starcrest")


    -- Barbarian / Dwarf
    elseif Race == 0 or Race == 2 then
	AddQuestStepChat(Quest, 2, "I must find the Steward in Graystone Yard", 1, "I must find the Steward in Graystone Yard", 11, 2350184)
    UpdateQuestZone(Quest, "Graystone Yard")


    -- High Elf / Froglok
    elseif Race == 4 or Race == 8 then
	AddQuestStepChat(Quest, 2, "I must find the Steward Castleview Hamlet", 1, "I must find the Steward Castleview Hamlet", 11, 2360174)
    UpdateQuestZone(Quest, "Castleview")


    -- Half Elf / Wood Elf / Fae
    elseif Race == 6 or Race == 15 or Race == 16 then
	AddQuestStepChat(Quest, 2, "I must find the Steward in The Willow Wood", 1, "I must find the Steward in The Willow Wood", 11, 2370111)
    UpdateQuestZone(Quest, "Willow Wood")


    -- Gnome / Halfling
    elseif Race == 5 or Race == 7 then
	AddQuestStepChat(Quest, 2, "I must find the Steward in The Baubbleshire", 1, "I must find the Steward in The Baubbleshire", 11, 2380173)
    UpdateQuestZone(Quest, "Baubbleshire")
    
     else
	AddQuestStepChat(Quest, 2, "I must find the Steward in Nettleville Hovel", 1, "I must find the Steward in Nettleville Hovel", 11, 2330170)
    UpdateQuestZone(Quest, "Nettleville")   
    
end
	AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
end

function Accepted(Quest, QuestGiver, Player)
conversation = CreateConversation()
    PlayFlavor(Player, "voiceover/english/queen_antonia_bayle/qey_north/antonia_isle_speech_11.mp3", "", "", 3316158990, 3680571955, Player)
    AddConversationOption(conversation, "[I must speak with a Steward!]")
    StartDialogConversation(conversation, 1, QuestGiver, Player, "\"Your loyalty will be tested, for you must earn the right to be called citizen.\"")
   SetStepComplete(Player, 5792,1)
end



function Declined(Quest, QuestGiver, Player)
conversation = CreateConversation()
    choice = MakeRandomInt(1,3) 
    if choice == 1 then
    PlayFlavor(Player, "voiceover/english/queen_antonia_bayle/qey_north/antonia_isle_speech_3.mp3", "", "", 1841028977, 3133868486, Player)
    StartDialogConversation(conversation, 1, QuestGiver, Player, "\"If you are tired, cold or hungry, if you flee persecution, poverty or injustice, be comforted, there is a place at our hearth for you.\"")
    elseif choice ==2 then
    PlayFlavor(Player, "voiceover/english/queen_antonia_bayle/qey_north/antonia_isle_speech_15.mp3", "", "", 3873638463, 3215411094, Player)
    StartDialogConversation(conversation, 1, QuestGiver, Player, "\"I trust that you do not share in Lucan's deceit, and that the well-being of Qeynos and its people is in your heart.\"")
    elseif choice ==3 then
    PlayFlavor(Player, "voiceover/english/queen_antonia_bayle/qey_north/antonia_isle_speech_12.mp3", "", "", 2036336595, 3509341224, Player)
    StartDialogConversation(conversation, 1, QuestGiver, Player, "\"Qeynosians are generous to travelers, but harsh with traitors.\"")
    end        
    
    OfferQuest(QuestGiver,Player, 5792)
end

function QuestComplete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 2, "I found the Steward")
	UpdateQuestTaskGroupDescription(Quest, 2, "I have spoken with the Steward.")

	UpdateQuestDescription(Quest, "I have taken the first steps in declaring myself a true Qeynosian.")
	GiveQuestReward(Quest, Player)
end

function Reload(Quest, QuestGiver, Player, Step)
	if Step == 1 then
		Step1Complete(Quest, QuestGiver, Player)
	elseif Step == 2 then
		QuestComplete(Quest, QuestGiver, Player)
end
end