EQ2EMu/server/Quests/MultipleZones/lore_and_legend_vampire.lua

--[[
    Script Name    : Quests/MultipleZones/lore_and_legend_vampire.lua
    Script Author  : AussieGlen
    Script Date    : 2022.01.01 05:01:31
    Script Purpose : 

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

function Init(Quest)
	AddQuestStepKillByRace(Quest, 1, "I need to find a vampire black heart.", 1, 100, "I must locate several vampire body parts.", 2516, 342)
	AddQuestStepKillByRace(Quest, 2, "I need to find a vampire hypnotic eyes.", 1, 100, "I must locate several vampire body parts.", 2516, 342)
	AddQuestStepKillByRace(Quest, 3, "I need to find a vampire coffin dust.", 1, 100, "I must locate several vampire body parts.", 2516, 342)
	AddQuestStep(Quest, 4, "I need to find and study 20 vampiric incisors.", 1, 100, "I must locate several vampire body parts.", 11)
	AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
	AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
 	AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
 	AddQuestStepCompleteAction(Quest, 4, "Step4Complete")
end

function Accepted(Quest, QuestGiver, Player)

end

function Declined(Quest, QuestGiver, Player)

end

function quest_complete(Quest, QuestGiver, 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)
	end
end

function CheckProgress(Quest, QuestGiver, Player)
    if QuestStepIsComplete(Player, 5413, 1) and QuestStepIsComplete(Player, 5413, 2) and QuestStepIsComplete(Player, 5413, 3) and QuestStepIsComplete(Player, 5413, 4) then
        QuestIsComplete(Quest, QuestGiver, Player)
    end
end

function Step1Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 1, "I have found a vampire black heart.")
	CheckProgress(Quest, QuestGiver, Player)

end

function Step2Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 2, "I have found a vampire hypnotic eyes.")
	CheckProgress(Quest, QuestGiver, Player)

end

function Step3Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 3, "I have found a vampire coffin dust.")
	CheckProgress(Quest, QuestGiver, Player)

end

function Step4Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 4, "I have found and studied 20 vampiric incisors.")
	CheckProgress(Quest, QuestGiver, Player)

end

function QuestIsComplete(Quest, QuestGiver, Player)
	UpdateQuestTaskGroupDescription(Quest, 1, "I have located all of the necessary vampire body parts.")
	UpdateQuestDescription(Quest, "I have learned the secrets of the vamnpire.")
	GiveQuestReward(Quest, Player)
end