EQ2EMu/server/Quests/QeynosHarbor/ians_forgetful_family__part_iii.lua

--[[
    Script Name    : Quests/QeynosHarbor/ians_forgetful_family__part_iii.lua
    Script Author  : Dorbin
    Script Date    : 2022.06.16 10:06:23
    Script Purpose : 

        Zone       : QeynosHarbor
        Quest Giver: Ian Cathlan
        Preceded by:  Ian's Forgetful Family - Part II
        Followed by:  Ian's Forgetful Family - Part IV
--]]
require "SpawnScripts/Generic/DialogModule"


function Init(Quest)
	AddQuestStepKill(Quest, 1, "Ian's cousin lost his marble collection while running from some defiled knights within Stormhold.", 12, 100, "My cousin lost his marbles (literally) while fighting defiled knights within Stormhold. If you could give him another start on his collection and see if you can find some of the missing ones that would be nice. Also, my brother lost his silverware on the same journey into Stormhold. What an undead crusader would need with silverware I'll never know but you might check them. And lastly, my aunt lost her favorite gaming dice on the same trip after her dice bag was ripped open by the spear of a defiled cavalier. If you could get those back I'll give you the next piece of armor. - Ian", 2919, 150290,150010,150227,150076)
	AddQuestStepKill(Quest, 2, "Ian's brother lost his favorite set of silverware after running from defiled crusaders in Stormhold.", 5, 85, "My cousin lost his marbles (literally) while fighting defiled knights within Stormhold. If you could give him another start on his collection and see if you can find some of the missing ones that would be nice. Also, my brother lost his silverware on the same journey into Stormhold. What an undead crusader would need with silverware I'll never know but you might check them. And lastly, my aunt lost her favorite gaming dice on the same trip after her dice bag was ripped open by the spear of a defiled cavalier. If you could get those back I'll give you the next piece of armor. - Ian", 364,150236,150020,150080)
	AddQuestStepKill(Quest, 3, "Ian's aunt lost her favorite set of gaming dice running from the defiled cavaliers in Stormhold.", 10, 100, "My cousin lost his marbles (literally) while fighting defiled knights within Stormhold. If you could give him another start on his collection and see if you can find some of the missing ones that would be nice. Also, my brother lost his silverware on the same journey into Stormhold. What an undead crusader would need with silverware I'll never know but you might check them. And lastly, my aunt lost her favorite gaming dice on the same trip after her dice bag was ripped open by the spear of a defiled cavalier. If you could get those back I'll give you the next piece of armor. - Ian", 3183,150040,150254)
	AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
	AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
	AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
	UpdateQuestZone(Quest,"Stormhold")
end

function Accepted(Quest, QuestGiver, Player)
	FaceTarget(QuestGiver, Player)
	Dialog.New(QuestGiver, Player)
	Dialog.AddDialog("I wrote it down for you.  At least ya seem to carry things a little better than me nephew, so I trust you won't lose it.  See what you can find.")
	Dialog.AddVoiceover("voiceover/english/optional3/ian_cathlan/qey_harbor/quests/ian_cathlan/iancathlan012.mp3", 1176133948, 2712461164)
	Dialog.AddOption("No problem.  I'll be back when I find him or more of the things.")
	Dialog.Start()
	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 have found several of the marbles for Ian's cousin.")
    CheckProgress(Quest, QuestGiver, Player)
end

function Step2Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 2, " have found the lost silverware and should return them to Ian.")
    CheckProgress(Quest, QuestGiver, Player)

end

function Step3Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 3, "I have found the missing dice.")
    CheckProgress(Quest, QuestGiver, Player)
end

function CheckProgress(Quest, QuestGiver, Player)
 if QuestStepIsComplete(Player, 5590, 1) and QuestStepIsComplete(Player, 5590, 2) and QuestStepIsComplete(Player, 5590, 3) then
	UpdateQuestTaskGroupDescription(Quest, 1, "I've recovered everything Ian needed, I should return to him.")
	UpdateQuestZone(Quest,"Qeynos Harbor")
	AddQuestStepChat(Quest, 4, "I should return to Ian in Qeynos Harbor.", 1, 100, "I need to speak to Ian Cathlan in the Qeynos Harbor.", 11,2210084)
	AddQuestStepCompleteAction(Quest, 4, "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, 4, "I have returned to Ian in Qeynos Harbor.")
	UpdateQuestTaskGroupDescription(Quest, 2, "I have spoken with Ian in Qeynos Harbor.")

	UpdateQuestDescription(Quest, "Ian has rewarded me with armor for collecting a few of his lost family's possessions.")
	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
		QuestComplete(Quest, QuestGiver, Player)
	end
end