EQ2EMu/server/SpawnScripts/Starcrest/KnightCaptainSantis.lua

--[[
	Script Name	: SpawnScripts/StarcrestCommune/KnightCaptainSantis.lua
	Script Purpose	: Knight-Captain Santis
	Script Author	: Ememjr
	Script Date		: 2017.10.28
	Script Notes	: Added Nettleville Quest, restructured entire script to simplify dialog flow, used updated format, added patrol, and applied lost voiceovers. - Dorbin 06.24.2022
--]]

require "SpawnScripts/Generic/DialogModule"
require "SpawnScripts/Generic/NPCModule"
require "SpawnScripts/Generic/NPCModule"

function spawn(NPC, Spawn)
    NPCModule(NPC, Spawn)
	SetPlayerProximityFunction(NPC, 9, "InRange", "LeaveRange")
    ProvidesQuest(NPC, 240)
    AddTimer(NPC, 6000, "waypoints")
end

function hailed(NPC, Spawn)
	FaceTarget(NPC, Spawn)
    if GetFactionAmount(Spawn,11)<0 then        --Faction Check
	PlayFlavor(NPC, "", "", "glare", 0, 0, Spawn)
    else    
	Dialog.New(NPC, Spawn)
	Dialog.AddDialog("Good day to you.  I've been hearing reports that the Peat Bog isn't safe right now.  I hope you didn't have any trouble if you came in that way.")
	Dialog.AddVoiceover("voiceover/english/knight-captain_santis/qey_village02/captainsantis000.mp3", 284995589, 2677019457)
    if not HasQuest(Spawn,240) and not HasCompletedQuest(Spawn,240)then
    Dialog.AddOption("What kind of trouble is out in the bog?", "Option4")
    end
    if GetQuestStep(Spawn, 5596)==1 then
	Dialog.AddOption("I bring you an urgent message from the Nettleville Garrison.", "Delivered")
    end
    if GetQuestStep(Spawn, 240)==2 then
	Dialog.AddOption("I am happy to report that I have eliminated several Bog Sludges at your request.","Killed")
    end
	Dialog.AddOption("Sorry, I can't help right now.")
	Dialog.Start()
end
end


function InRange(NPC,Spawn)
if GetFactionAmount(Spawn,11)<0 then  --Faction Check
	FaceTarget(NPC, Spawn)
	PlayFlavor(NPC, "", "", "shakefist", 0, 0, Spawn)
else    
     if math.random(1,100)<=70 then
    if not HasQuest(Spawn,240) and not HasCompletedQuest(Spawn,240)then
	FaceTarget(NPC, Spawn)
	PlayFlavor(NPC, "voiceover/english/knight-captain_santis/qey_village02/100_captain_santis_callout1_19a89b99.mp3", "Have you a moment?  We guards could use your assistance!", "beckon", 1556357717, 1654370636, Spawn)
    end
    end
end
end



function Killed(NPC, Spawn)
	FaceTarget(NPC, Spawn)
	Dialog.New(NPC, Spawn)
	Dialog.AddDialog("You are truly valuable to Qeynos.  I'm already receiving optimistic reports that the Bog Sludge are finally under control.  Please accept this reward for a job well done.")
	Dialog.AddVoiceover("voiceover/english/knight-captain_santis/qey_village02/captainsantis003.mp3", 3636963969, 2486393631)
	Dialog.AddOption("It feels good to make the area a little bit safer.","GetReward")
	Dialog.Start()
end


function GetReward(NPC, Spawn)
	SetStepComplete(Spawn, 240, 2)
	PlayFlavor(NPC, "", "", "salute", 0, 0, Spawn)
	FaceTarget(NPC, Spawn)
end


function Option4(NPC, Spawn)
	FaceTarget(NPC, Spawn)
	Dialog.New(NPC, Spawn)
	Dialog.AddDialog("The Bog Sludges have swelled in number, spreading like pestilence.  This vermin has become a serious menace to the refugees in that region.  The Sludges must be exterminated for the safety of the people.  I hope you're not too squeamish for such a job.")
	Dialog.AddVoiceover("voiceover/english/knight-captain_santis/qey_village02/captainsantis001.mp3", 1552831304, 2969481054)
	Dialog.AddOption("A few sludges shouldn't be a problem for me.", "Offer")
	Dialog.AddOption("I have NO desire to step foot in that bog.  Sorry.")
	Dialog.Start()
end

function Delivered(NPC, Spawn)
	FaceTarget(NPC, Spawn)
	Dialog.New(NPC, Spawn)
	PlayFlavor(NPC, "", "", "chuckle", 0, 0, Spawn)
	SetStepComplete(Spawn, 5596, 1)
	Dialog.AddDialog("Let me read that... Ho- HuahaHa!  Captain Hastings and his team wish to challenge the Starcrest Garrison to a Phalanx match?  We shall squash them!  Tell him I accept.")
	Dialog.AddVoiceover("voiceover/english/knight-captain_santis/qey_village02/captainsantis004.mp3", 2733227835, 642461041)
	Dialog.AddOption("A phalanx match! I will tell let him know.")
    if not HasQuest(Spawn,240) and not HasCompletedQuest(Spawn,240)then
    Dialog.AddOption("I will let him know.  You mentioned some trouble out in the bog?", "Option4")
    end
    Dialog.Start()
end



function Offer(NPC,Spawn)
	OfferQuest(NPC, Spawn, 240)
end


function waypoints(NPC)
	MovementLoopAddLocation(NPC, 759, -24.95, 336.52, 2, 46)
	MovementLoopAddLocation(NPC, 757.86, -24.92, 337.34, 2, 0)
	MovementLoopAddLocation(NPC, 752.96, -24.79, 337.18, 2, 0)
	MovementLoopAddLocation(NPC, 740.19, -24.59, 339.85, 2, 15)
	MovementLoopAddLocation(NPC, 742.11, -24.63, 338.84, 2, 0)
	MovementLoopAddLocation(NPC, 752.35, -24.78, 337.77, 2, 0)
	MovementLoopAddLocation(NPC, 759.54, -24.97, 337.31, 2, 0)
	MovementLoopAddLocation(NPC, 766.69, -25.1, 334.76, 2, 0)
	MovementLoopAddLocation(NPC, 784.29, -24.99, 328.35, 2, 0)
	MovementLoopAddLocation(NPC, 791.44, -25.16, 332.77, 2, 15)
	MovementLoopAddLocation(NPC, 790.74, -25.17, 332.02, 2, 0)
	MovementLoopAddLocation(NPC, 787.45, -25.1, 329.04, 2, 0)
	MovementLoopAddLocation(NPC, 773.01, -25.02, 333.16, 2, 0)
	MovementLoopAddLocation(NPC, 759.05, -24.92, 335.15, 2, 0)
	MovementLoopAddLocation(NPC, 773.01, -25.02, 333.16, 2, 0)
	MovementLoopAddLocation(NPC, 787.45, -25.1, 329.04, 2, 0)
	MovementLoopAddLocation(NPC, 790.74, -25.17, 332.02, 2, 0)
	MovementLoopAddLocation(NPC, 791.44, -25.16, 332.77, 2, 15)
	MovementLoopAddLocation(NPC, 784.29, -24.99, 328.35, 2, 0)
	MovementLoopAddLocation(NPC, 766.69, -25.1, 334.76, 2, 0)
	MovementLoopAddLocation(NPC, 759.54, -24.97, 337.31, 2, 0)
	MovementLoopAddLocation(NPC, 752.35, -24.78, 337.77, 2, 0)
	MovementLoopAddLocation(NPC, 742.11, -24.63, 338.84, 2, 0)
	MovementLoopAddLocation(NPC, 740.19, -24.59, 339.85, 2, 15)
	MovementLoopAddLocation(NPC, 752.96, -24.79, 337.18, 2, 0)
	MovementLoopAddLocation(NPC, 757.86, -24.92, 337.34, 2, 0)
end