EQ2EMu/server/SpawnScripts/Nettleville/DirkVagrin.lua

--[[
	Script Name	: SpawnScripts/Nettleville/DirkVagrin.lua
	Script Purpose	: Dirk Vagrin 
	Script Author	: Dorbin
	Script Date	:   06.25.2022
	Script Notes	: 
--]]
require "SpawnScripts/Generic/DialogModule"

function spawn(NPC)
    SetPlayerProximityFunction(NPC, 11, "InRange", "LeaveRange")		
    ProvidesQuest(NPC,5597)
end

function respawn(NPC)
	spawn(NPC)
end

function InRange(NPC, Spawn)
if GetFactionAmount(Spawn,11)<0 then
	FaceTarget(NPC, Spawn)
		PlayFlavor(NPC, "voiceover/english/dirk_vagrin/qey_village01/qey_village01_dirk_vagrin_multhail1_e70947c7.mp3", "Bah!  Go away or I'll ... I'll ... I don't know.   Just go away!", "", 3343827845, 2701332902, Spawn)
else
    if  HasCompletedQuest(Spawn,5597)then
	local chance = math.random(0, 100)
	if chance <= 25 then
	FaceTarget(NPC, Spawn)
	PlayFlavor(NPC, "voiceover/english/dirk_vagrin/qey_village01/qey_village01_dirk_vagrin_multhail2_be08c03e.mp3", "Bah!  Off with ye!  These barrels are mine!  Mine!", "", 4248926679, 4124146023, Spawn, 0)
    end
elseif not HasQuest(Spawn, 5597) and not HasCompletedQuest(Spawn,5597)then
	local chance = math.random(0, 100)
	if chance <= 80 then
	local choice = MakeRandomInt(1,3)
	FaceTarget(NPC, Spawn)
	if choice == 1 then
	PlayFlavor(NPC, "voiceover/english/dirk_vagrin/qey_village01/qey_village01_dirk_vagrin_callout_ab43615b.mp3", "Ehh? Who goes there? You looking for adventure? I bet my shinys will tempt you!", "boggle", 2386377043, 3237731304, Spawn)
	elseif choice == 2 then
	PlayFlavor(NPC, "voiceover/english/dirk_vagrin/qey_village01/qey_village01_dirk_vagrin_multhail2_be08c03e.mp3", "Bah!  Off with ye!  These barrels are mine!  Mine!", "", 4248926679, 4124146023, Spawn, 0)
	elseif choice == 3 then --Repeated for focus
	PlayFlavor(NPC, "voiceover/english/dirk_vagrin/qey_village01/qey_village01_dirk_vagrin_callout_ab43615b.mp3", "Ehh? Who goes there? You looking for adventure? I bet my shinys will tempt you!", "boggle", 2386377043, 3237731304, Spawn)
	end

    end
end
end
end

function LeaveRange(NPC, Spawn)
end


function hailed(NPC, Spawn)
	FaceTarget(NPC, Spawn)
if GetFactionAmount(Spawn,11)<0 then
	PlayFlavor(NPC, "voiceover/english/dirk_vagrin/qey_village01/qey_village01_dirk_vagrin_multhail1_e70947c7.mp3", "Bah!  Go away or I'll ... I'll ... I don't know.   Just go away!", "", 3343827845, 2701332902, Spawn)
else
Dialog1(NPC, Spawn)
end
end

function Dialog1(NPC, Spawn)
	FaceTarget(NPC, Spawn)
	Dialog.New(NPC, Spawn)
    PlayFlavor(NPC, "", "", "noway", 0, 0, Spawn)
	Dialog.AddDialog("Bah!  Off with ye!  These barrels are mine!  Mine!")
	Dialog.AddVoiceover("voiceover/english/devon_varin/qey_village01/dirkvagrin000.mp3", 2305501029, 475655569)
 	if not HasCompletedQuest (Spawn, 5597) and not HasQuest (Spawn, 5597) then 
	Dialog.AddOption("But those barrels look look empty...","Empty")
    end
    if GetQuestStep (Spawn, 5597)==2 then 
	Dialog.AddOption("I've come back with the 'scalies' you asked for.","Delivered")
    end
    Dialog.AddOption("Yeesh.  Sorry to bother you!")
	Dialog.Start()
end

function Empty(NPC, Spawn)
	FaceTarget(NPC, Spawn)
	Dialog.New(NPC, Spawn)
	PlayFlavor(NPC, "", "", "happy", 0, 0, Spawn)
	Dialog.AddDialog("Of course they're empty!  You think I'm crazy?!  They need to be emtpy before I can fill them, right?  I'll fill them with albino snakeskins!  Scalies!  You know the white scalies?!  I pay a good shiney for scalies!  HAH! Shineies for scalies!  Shhhinies for scaaalies!")
	Dialog.AddVoiceover("voiceover/english/devon_varin/qey_village01/dirkvagrin001.mp3", 798602979, 2160251346)
	Dialog.AddOption("I could get you some albino snakeskins... scalies... if you're paying with 'shinies'.", "QuestBegin")
	Dialog.AddOption("... I think I hear someone calling me... over there.")
	Dialog.Start()
end

function QuestBegin (NPC, Spawn)
    FaceTarget(NPC, Spawn)
    OfferQuest(NPC, Spawn, 5597)
end

function Delivered(NPC, Spawn)
	FaceTarget(NPC, Spawn)
	Dialog.New(NPC, Spawn)
    PlayAnimation(NPC,10760)
    SetStepComplete(Spawn, 5597, 2)
	Dialog.AddDialog("HAHahah!  Give'm here!  Take your shinies!  Hah!  You scalies!  Into the barrels with you all!")
	Dialog.AddVoiceover("voiceover/english/devon_varin/qey_village01/dirkvagrin003.mp3", 3809079045, 2637215855)
	Dialog.AddOption("...Thanks for the 'shinies'.")
	Dialog.Start()
end