EQ2EMu/server/Quests/Blackburrow/rare_rock_lost.lua

--[[
    Script Name    : Quests/Blackburrow/rare_rock_lost.lua
    Script Author  : Premierio015
    Script Date    : 2022.07.12 08:07:48
    Script Purpose : 

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

function Init(Quest)
	AddQuestStepKill(Quest, 1, "Recover red rock shards", 1, 30, "I need to find the rock samples somewhere in the mines of Blackburrow.  There is a good chance that the miners and excavators might already have them.", 1121,  170010, 170029)
	AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end

function Accepted(Quest, QuestGiver, Player)
		local conversation = CreateConversation()
		PlayFlavor(QuestGiver, "voiceover/english/geologist_fribden/blackburrow/geologist_fribden007.mp3", "", "", 458349527, 2957854009, Player)
			AddConversationOption(conversation, "I'll be back when I've recovered the items.")
	StartConversation(conversation, QuestGiver, Player, "Of course, I'll compensate you for your efforts.  I'll write down in your journal what I need recovered.")
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 recovered the red rock shards")

	AddQuestStepKill(Quest, 2, "Recover black rock shards", 1, 30, "I need to find the rock samples somewhere in the mines of Blackburrow.  There is a good chance that the miners and excavators might already have them.", 1124, 170010, 170029)
	AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
end

function Step2Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 2, "I've recovered the black rock shards")

	AddQuestStepKill(Quest, 3, "Recover green rock shards", 1, 30, "I need to find the rock samples somewhere in the mines of Blackburrow.  There is a good chance that the miners and excavators might already have them.", 1139, 170010, 170029)
	AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
end

function Step3Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 3, "I've recovered the green rock shards")

	AddQuestStepKill(Quest, 4, "Recover crystalline rock shards", 1, 30, "I need to find the rock samples somewhere in the mines of Blackburrow.  There is a good chance that the miners and excavators might already have them.", 1140, 170010, 170029)
	AddQuestStepCompleteAction(Quest, 4, "Step4Complete")
end

function Step4Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 4, "I've recovered the crystalline rock shards")
	UpdateQuestTaskGroupDescription(Quest, 1, "I've recovered all of the rock samples Fribden had lost.  I should return them to him now.")

	AddQuestStepChat(Quest, 5, "Return rock samples to Fribden", 1, "I've recovered the rock samples and should return them to geologist Fribden.", 11, 170012)
	AddQuestStepCompleteAction(Quest, 5, "QuestComplete")
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, 5, "I gave Fribden his lost rock samples ")
	UpdateQuestTaskGroupDescription(Quest, 2, "I've returned all of the lost rock samples to geologist Fribden.")

	UpdateQuestDescription(Quest, "I was able to recover all of the lost rock samples for geologist Fribden.  He was very pleased with my efforts and I was well rewarded.")
	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
		QuestComplete(Quest, QuestGiver, Player)
	end
end