EQ2EMu/server/Quests/TheSinkingSands/kallons_revenge.lua

--[[
    Script Name    : Quests/TheSinkingSands/kallons_revenge.lua
    Script Author  : premierio015
    Script Date    : 2023.12.16 04:12:18
    Script Purpose : qscript for Kallon's Vengeance quest
        Zone       : The Sinking Sands(DoF)
        Quest Giver: Kallon Ebbtide
        Preceded by: None
        Followed by: 
--]]

require "SpawnScripts/Generic/DialogModule"

function Init(Quest)
	AddQuestStepChat(Quest, 1, "I should locate a guide named Jaza in the crocodile hunter camp.", 1, "Kallon has asked me to find and slay the bandit that was responsible for his comrades' demise. I should check the crocodile hunter camp for a guide named Jaza.", 11, 730157)
	AddQuestStepCompleteAction(Quest, 1, "Step1Complete")
end

function Accepted(Quest, QuestGiver, Player)
	Dialog.New(QuestGiver, Player)
	Dialog.AddDialog("Thank you! My comrades' spirits will be able to rest and this area might be safer. Fasul uses a guide at the hunter camp as bait for unwary travelers. Search around the crocodile hunters' camp for a man named Jaza. This man leads unwary travelers to Fasul's bandits. Play along, and find Fasul!")
	Dialog.AddOption("I will do so, but first, may I hear more of your tales?")
	Dialog.AddOption("I will find this Fasul and exact vengeance for you.")
	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 found Jaza and falsely agreed to let him guide me to Maj'Dul.")
    
	AddQuestStepChat(Quest, 2, "Jaza wants to meet in the Oasis of Marr near the beginning of the trade route to Maj'Dul.", 1, "Kallon has asked me to find and slay the bandit that was responsible for his comrades' demise. I should check the crocodile hunter camp for a guide named Jaza.", 11, 730157)
	AddQuestStepCompleteAction(Quest, 2, "Step2Complete")
end

function Step2Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 2, "I found Jaza by a large palm tree right at the northern edge of the Oasis of Marr.")

	AddQuestStepKill(Quest, 3, "I should speak with Jaza and continue playing along with the ruse to hopefully lure out Fasul.", 1, 100, "Kallon has asked me to find and slay the bandit that was responsible for his comrades' demise. I should check the crocodile hunter camp for a guide named Jaza.", 11, 730485)
	AddQuestStepCompleteAction(Quest, 3, "Step3Complete")
end

function Step3Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 3, "Fasul and his bandits have been slain! I bet Kallon will be happy.")

	AddQuestStepChat(Quest, 4, "I should have some final words with Jaza and end this legacy of betrayal.", 1, "Kallon has asked me to find and slay the bandit that was responsible for his comrades' demise. I should check the crocodile hunter camp for a guide named Jaza.", 11, 730157)
	AddQuestStepCompleteAction(Quest, 4, "Step4Complete")
end

function Step4Complete(Quest, QuestGiver, Player)
	UpdateQuestStepDescription(Quest, 4, "I relented and let Jaza live. I am confident he will legitimately help travelers now.")
	UpdateQuestTaskGroupDescription(Quest, 1, "I have found and slain Fasul. I am looking forward to letting Kallon know the news.")

	AddQuestStepChat(Quest, 5, "I need to return to Kallon at the docks and let him know that Fasul is dead.", 1, "Now that I have slain Fasul, I need to return to Kallon and tell him the good news.", 11, 730125)
	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 let Kallon know that his comrades have been avenged.")
	UpdateQuestTaskGroupDescription(Quest, 2, "I have informed Kallon of Fasul's death. He seemed relieved.")

	UpdateQuestDescription(Quest, "I've avenged Kallon's comrades by slaying Fasul and terrifying Jaza into submission. Kallon can now rest easy and work towards getting back to his homeland.")
	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