EQ2EMu/server/Quests/GraystoneYard/rat_man_bloodsaber_crusade.lua

--[[
    Script Name    : Quests/GraystoneYard/rat_man_bloodsaber_crusade.lua
    Script Author  : Dorbin
    Script Date    : 2022.03.09 03:03:41
    Script Purpose : 

	Zone			:	Graystone Yard
	Quest Giver		:	Watcher Curmogliel
	Preceded by		:	None
	Followed by		:	None
--]]
require "SpawnScripts/Generic/DialogModule"


function Init(Quest)
	AddQuestStepKill(Quest, 1, "I must kill four ratonga Bloodsabers.", 4, 100, "I need to slay four ratonga Bloodsabers in the Down Below.", 611, 8340015,8340016,8340017,8340018, 8340019, 8340055)
	AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
	UpdateQuestZone(Quest,"The Down Below")
end

function Step1Complete(Quest,QuestGiver,Player)
	UpdateQuestStepDescription(Quest, 1, "	I have killed enough ratongas.")
	UpdateQuestTaskGroupDescription(Quest, 1, "I have slain four Bloodsabers.")
	
	AddQuestStepChat(Quest, 2, "I need to return to to Watcher Curmogliel.", 1, "I must report my deed to Watcher Curmogliel in Graystone.", 2482, 2350011)
	AddQuestStepCompleteAction(Quest, 2, "QuestComplete")
end

function Accepted(Quest, QuestGiver, Player)
	FaceTarget(QuestGiver, Player)
	Dialog.New(QuestGiver, Player)
	Dialog.AddDialog("Then seek out the catacombs! You must slay the Bloodsabers in the caverns. May your faith in the righteous bring you victory, or welcome you in the afterlife. The gods are watching!")
	Dialog.AddVoiceover("voiceover/english/watcher_curmogliel_kar_thal/qey_village03/watchercurmogliel002", 1937849354, 1911529851)
    PlayFlavor(QuestGiver, "","","agree",0,0,Player)
    Dialog.AddOption("I will prove myself. I will be back.")
    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 QuestComplete(Quest, QuestGiver, Player)
	UpdateQuestTaskGroupDescription(Quest, 2, "I have reported my success against the Bloodsabers.")
	UpdateQuestZone(Quest,"Graystone Yard")
	UpdateQuestDescription(Quest, "I have slain the Bloodsabers and shown my faith to Watcher Curmogliel.")
	GiveQuestReward(Quest, Player)
end

function Reload(Quest, QuestGiver, Player, Step)
	if Step == 1 then
		Step1Complete(Quest, QuestGiver, Player)
	elseif Step == 2 then
		QuestComplete(Quest, QuestGiver, Player)
	end
end