EQ2EMu/server/Quests/QeynosHarbor/taking_the_bait.lua

--[[
	Script Name		:	taking_the_bait.lua
	Script Purpose	:	Handles the quest, "Taking the Bait"
	Script Author	:	Dorbin
	Script Date		:	5/31/2022
	Script Notes	:	

	Zone			:	Qeynos Harbor
	Quest Giver		:	Sean Wellfayer
	Preceded by		:	None
	Followed by		:	None
--]]


function Init(Quest)
	AddQuestStepKill(Quest, 1, "I must gather five bog faerie wings for Sean.", 5, 80, "I need to head over to the Peat Bog and get five pieces of bog slug meat and five bog faerie wings.", 110, 1980010,1980007,1980052,1980008)
	AddQuestStepKill(Quest, 2, "I must gather five bog slug meat for Sean.", 5, 80, "I need to head over to the Peat Bog and get five pieces of bog slug meat and five bog faerie wings.", 133, 1980018,1980021,1980006)
    UpdateQuestZone(Quest, "The Peat Bog")
	AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
	AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
end

function Accepted(Quest, QuestGiver, Player)
	    FaceTarget(QuestGiver, Player)
	    conversation = CreateConversation()
		
        PlayFlavor(QuestGiver, "", "", "happy", 0, 0, Player)
	    AddConversationOption(conversation, "I'll be back when I've gathered your bait.")
	    StartConversation(conversation, QuestGiver, Player, "Great!  What I really need for bait is a family secret from the Peat Bog.  The fish here love bog fairy wings and slug meat.  If you could go gather some, I would be set till the next sunset!  I'll be here trying to catch my dinner till you get back, but please hurry!")
	    end

function Declined(Quest, QuestGiver, Player)
	-- Add dialog here for when the quest is declined
end

function Deleted(Quest, QuestGiver, Player)
	-- Remove any quest specific items here when the quest is deleted
end


function Step1Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 1, "I've gathered the faerie wings Sean needed.")
	CheckProgress(Quest, QuestGiver, Player)
end

function Step2Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 2, "I've gathered the slug meat Sean needed.")
	CheckProgress(Quest, QuestGiver, Player)
end


function CheckProgress(Quest, QuestGiver, Player)
 if QuestStepIsComplete(Player, 5571, 1) and QuestStepIsComplete(Player, 5571, 2) then
    UpdateQuestStepDescription(Quest, "I've gathered the bait supplies Sean needs.")
	UpdateQuestTaskGroupDescription(Quest, 2, "I've collected the five pieces of slug meat and five bog faerie wings.")
    UpdateQuestZone(Quest, "Qeynos Harbor")
	AddQuestStepChat(Quest, 3, "I need to return to Sean Wellfayer on the docks of Qeynos Harbor.", 1, "Sean Wellfayer Should be pleased with this bait once I get it back to him at the harbor.", 11, 2210065)
    AddQuestStepCompleteAction(Quest, 3, "QuestComplete")
    end
end 

function QuestComplete(Quest, QuestGiver, Player)
	-- The following UpdateQuestStepDescription and UpdateTaskGroupDescription are not needed, parser adds them for completion in case stuff needs to be moved around
	UpdateQuestStepDescription(Quest, 3, "I've given Sean the bait he asked for.")
	UpdateQuestTaskGroupDescription(Quest,3, "Sean happily accepted the bait since it saved him from leaving his favorite fishing spot.")

	UpdateQuestDescription(Quest, "I got everything Sean needed and he was quite pleased.  The pay was decent and perhaps I'll help him get some more bait in the future.")
	GiveQuestReward(Quest, Player)
end

function Reload(Quest, QuestGiver, Player, Step)
	if Step == 1 then
		Step1Complete(Quest, QuestGiver, Player)
	elseif Step == 1 then
		Step2Complete(Quest, QuestGiver, Player)
	elseif Step == 3 then
		CheckProgress(Quest, QuestGiver, Player)
	end
end