EQ2EMu/server/SpawnScripts/Commonlands/amysteriouscontact.lua

--[[
    Script Name    : SpawnScripts/Commonlands/amysteriouscontact.lua
    Script Author  : Premierio015
    Script Date    : 2021.01.10 06:01:22
    Script Purpose : 
                   : 
--]]

local SmugglersSecrets = 452


function spawn(NPC)
AddSpawnAccess(NPC, NPC)
SetPlayerProximityFunction(NPC, 20, "SpawnAccess", "SpawnAccess")
end

function hailed(NPC, Spawn)
    FaceTarget(NPC, Spawn)
    PlayFlavor(NPC, "voiceover/english/voice_emotes/greetings/greetings_3_1052.mp3", "", "tapfoot", 0, 0, Spawn)
    if HasQuest(Spawn, SmugglersSecrets) and GetQuestStep(Spawn, SmugglersSecrets) == 4 and HasSpellEffect(Spawn, 5459) then
    conversation = CreateConversation()
    AddConversationOption(conversation, "Sorry.  I was held up by some snooping Buccaneer.", "dlg2")
    AddConversationOption(conversation, "My apologies.  Do what you will with me, the scroll is the important item.", "dlg1")
    StartConversation(conversation, NPC, Spawn, "Hmm.  The time had past.  Luck is that I am forgiving.")
end
    end

function dlg1(NPC, Spawn)
 FaceTarget(NPC, Spawn)
 conversation = CreateConversation()
 AddConversationOption(conversation, "I shall carry that message.", "dlg3")
  StartConversation(conversation, NPC, Spawn, "A point of such truths.  I am to relay that the next shipment is ready.")
end

function dlg2(NPC, Spawn)
FaceTarget(NPC, Spawn)
PlayAnimation(NPC, 13056)
conversation = CreateConversation()
AddConversationOption(conversation, "My apologies.  Do what you will with me, the scroll is the important item.", "dlg3")
StartConversation(conversation, NPC, Spawn, "Excuses do not flatter you.")
end

function dlg3(NPC, Spawn)
FaceTarget(NPC, Spawn)
SetStepComplete(Spawn, SmugglersSecrets, 4)
conversation = CreateConversation()
AddConversationOption(conversation, "Best of my ability.", "poof")
StartConversation(conversation, NPC, Spawn, "Good.  So far, the leader has been impressed.  Do see that it continues.")
end

function poof(NPC, Spawn)
 RemoveSpawnAccess(NPC, Spawn)
end




function respawn(NPC)
spawn(NPC)
end

function SpawnAccess(NPC, Spawn)
  if GetQuestStep(Spawn, SmugglersSecrets) == 4 then
   AddSpawnAccess(NPC, Spawn)
  elseif not HasQuest(Spawn, SmugglersSecrets) and not GetQuestStep(Spawn,SmugglersSecrets) == 4 then
  RemoveSpawnAccess(NPC, Spawn)
  end
end