EQ2EMu/server/Quests/CityofFreeport/key_to_fallen_gate.lua

--[[
    Script Name    : Quests/CityofFreeport/key_to_fallen_gate.lua
    Script Author  : Premierio015
    Script Date    : 2021.06.03 09:06:49
    Script Purpose : Access Quest for Fallen Gate

        Zone       : CityofFreeport
        Quest Giver: Kanos X'Aphon
        Preceded by: None
        Followed by: 
--]]

function Init(Quest)
	AddQuestStepChat(Quest, 1, "I need to speak with Tundis N'oxyle.", 1, "I must speak with Tundis N'oxyle in the Commonlands about joining the Thexians.", 0, 330394)
		AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end

function Step1Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 1, "I've spoken with Tundis N'oxyle.")
	UpdateQuestTaskGroupDescription(Quest, 1, "I've spoken with Tundis N'oxyle about joining the Thexians.")
	AddQuestStepKill(Quest, 2, "I must return with five stones from the sandstone giants.", 5, 100, "I must kill five sandstone giants in the Commonlands to prove my worth to Tundis N'oxyle.", 0, 330108)
	AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
end

function Step2Complete(Quest, QuestGiver, Player)
    UpdateQuestStepDescription(Quest, 2, "I have recovered five sand stones.")
    UpdateQuestTaskGroupDescription(Quest, 2, "I've killed all five of the giants Tundis required me to slay.")
    AddQuestStepChat(Quest, 3, "I need to speak with Tundis N'oxyle.", 1, "I must return to Tundis N'oxyle and inform him of the completion of his task.", 0, 330394)
   	AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
end   	

function Step3Complete(Quest, QuestGiver, Player)
    UpdateQuestStepDescription(Quest, 3, "I've spoken with Tundis N'oxyle.")
    UpdateQuestTaskGroupDescription(Quest, 3, "I've spoken with Tundis N'oxyle about joining the Thexians.")
    AddQuestStepChat(Quest, 4, "I need to speak with Kanos X'aphon.", 1, "I must return to Kanos X'aphon to tell him of the meeting.", 0, 5590592, 1440080)
   	AddQuestStepCompleteAction(Quest, 4, "Step4Complete")
end  

function Step4Complete(Quest, QuestGiver, Player)
    UpdateQuestStepDescription(Quest, 4, "I've spoken with Kanos X'aphon.")
    UpdateQuestTaskGroupDescription(Quest, 4, "I've returned to Kanos X'aphon, and told him of the Thexian gathering.")
    AddQuestStep(Quest, 5, "I must find the leader of the Thexians and take her keys.", 2, 100, "I slaughtered the Thexians standing in my way in order to gather the keys needed.", 0)
   	AddQuestStepCompleteAction(Quest, 5, "Step5Complete")
end  


function Step5Complete(Quest, QuestGiver, Player)
    UpdateQuestStepDescription(Quest, 5, "I killed Inana V'sorn and recovered the keys.")
    UpdateQuestTaskGroupDescription(Quest, 5, "I slaughtered the Thexians standing in my way in order to gather the keys needed.")
    AddQuestStepChat(Quest, 6, "I need to give a key to Kanos X'aphon.", 1, "I must speak with Kanos X'aphon, and give him the key he requires.", 0, 4730011)
   	AddQuestStepCompleteAction(Quest, 6, "QuestComplete")
end  



function Accepted(Quest, QuestGiver, Player)
	FaceTarget(QuestGiver, Player)
	local conversation = CreateConversation()
	AddConversationOption(conversation, "I will speak with this Tundis.")
	StartConversation(conversation, QuestGiver, Player, "As you can imagine, my views do not impress the Thexians.  Unfortunately, they are the only ones who have been able to reach the lost city.  I need you to pose as one interested in joining their cause.  You'll need to speak with Tundis N'oxyle near the gate the Thexians erected in the Commonlands.  Do not return until you have further information for me.")
	PlayFlavor(NPC, "voiceover/english/optional1/kanos_x_aphon/fprt_north/kanosxaphon004.mp3", "", "", 2530646913, 2046210703, Spawn)
end



function Declined(Quest, QuestGiver, Player)

end

function QuestComplete(Quest, QuestGiver, Player)
     UpdateQuestStepDescription(Quest, 6, "I've given the key to Kanos X'aphon.")
    UpdateQuestTaskGroupDescription(Quest, 6, "I've spoken with Kanos X'aphon and given him the key he desired.")
    UpdateQuestDescription(Quest, "After slaying every Thexian in the building, I managed to get both a key for myself and Kanos. He certainly took his time in getting to the meeting, that's for certain. He's covered up the mess, but only at the cost of enlisting my services at an unnamed point in the future.")
	GiveQuestReward(Quest, Player)

end

function Reload(Quest, QuestGiver, Player, Step)
    	if Step == 1 then
		Step1Complete(Quest, QuestGiver, Player)
	elseif Step == 2 then
		Step2Complete(Quest, QuestGiver, Player)
	elseif Step == 3 then
		Step3Complete(Quest, QuestGiver, Player)
    elseif Step == 4 then
     Step4Complete(Quest, QuestGiver, Player)
         elseif Step == 5 then
     Step5Complete(Quest, QuestGiver, Player)
     elseif Step == 6 then
        QuestComplete(Quest, QuestGiver, Player)
	end
end