EQ2EMu/server/Quests/CastleviewHamlet/bat_fur_for_fevalin_.lua

--[[
    Script Name    : Quests/CastleviewHamlet/bat_fur_for_fevalin_.lua
    Script Author  : Dorbin
    Script Date    : 2022.01.28 04:01:14
    Script Purpose : 
        
        original copper value: 67c
        
        Zone       : CastleviewHamlet
        Quest Giver: Fevalin
        Preceded by: None
        Followed by: 
--]]


function Init(Quest)
	AddQuestStepKill(Quest, 1, "I need to obtain the albino fur of the cave bats.", 5, 70, "I need to gather the rare albino fur of the bats from the Caves near the Baubbleshire.", 126, 1970014,1970023)
	AddQuestStepCompleteAction(Quest, 1, "Bats1")
	UpdateQuestZone(Quest,"The Caves")
end

function Accepted(Quest, QuestGiver, Player)
	-- Add dialog here for when the quest is accepted
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 Bats1(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, 1, "I have gathered the bat fur I need.")
	UpdateQuestTaskGroupDescription(Quest, 1, "I've gathered the rare albino fur of some cave bats for Merchant Fevalin.")

	AddQuestStepChat(Quest, 2, "I need to return to Fevalin.", 1, "I need to delivery the rare albino fur of the bats to Fevalin.", 126, 2360039)
	AddQuestStepCompleteAction(Quest, 2, "BatsReturn1")
	UpdateQuestZone(Quest,"Castleview Hamlet")
end

function BatsReturn1(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, 2, "I returned to Fevalin")
	UpdateQuestTaskGroupDescription(Quest, 2, "I've delivered the albino pelts to Fevalin.")

	AddQuestStepKill(Quest, 3, "I need to obtain MORE albino fur of the cave bats.", 5, 80, "I need to gather MORE rare albino fur of the bats from the Caves near the Baubbleshire.", 126, 1970014,1970023)
	AddQuestStepCompleteAction(Quest, 3, "Bats2")
	UpdateQuestZone(Quest,"The Caves")
end

function Bats2(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 have gathered additional bat fur I need.")
	UpdateQuestTaskGroupDescription(Quest, 3, "I've gathered additional rare albino fur of some cave bats for Merchant Fevalin.")

	AddQuestStepChat(Quest, 4, "I need to return to Fevalin, again.", 1, "I need to delivery the additional rare albino fur of the bats to Fevalin.", 126, 2360039)
	AddQuestStepCompleteAction(Quest, 4, "QuestComplete")
	UpdateQuestZone(Quest,"Castleview Hamlet")
end

function QuestCompelte(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 4, "I returned to Fevalin.")
	UpdateQuestTaskGroupDescription(Quest, 4, "I've gathered additional rare albino fur for Merchant Fevalin.")

	UpdateQuestDescription(Quest, "Despite asking me for a second set of rare albino fur, I gathered all the bat fur Fevalin needed. Perhaps I am the stronger for it.")
	GiveQuestReward(Quest, Player)
end

function Reload(Quest, QuestGiver, Player, Step)
	if Step == 1 then
		Bats1(Quest, QuestGiver, Player)
	end
		if Step == 2 then
		BatsReturn1(Quest, QuestGiver, Player)
	end
		if Step == 3 then
		Bats2(Quest, QuestGiver, Player)
	end
		if Step == 4 then
		QuestComplete(Quest, QuestGiver, Player)
	end
end