EQ2EMu/server/SpawnScripts/Freeport/agravelyillcitizen.lua

--[[
    Script Name    : SpawnScripts/Freeport/agravelyillcitizen.lua
    Script Author  : Premierio015
    Script Date    : 2020.08.22 08:08:20
    Script Purpose : 
                   : 
--]]

QUEST = 576


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

function hailed(NPC, Spawn)
    FaceTarget(NPC, Spawn)
end

function respawn(NPC)

end

function SpawnAccess(NPC, Spawn)
	if HasQuest(Spawn, QUEST) and GetQuestStep(Spawn, QUEST) == 2  then
		AddSpawnAccess(NPC, Spawn)
        else
               RemoveSpawnAccess(NPC, Spawn)
	end
end

function casted_on(NPC, Spawn, Message)
   if Message == "Examine" then
   SetStepComplete(Spawn, QUEST, 2)
   SendMessage(Spawn, "He is burning to the touch, and his breathing is concerningly shallow.")
   SpawnSet(NPC, "display_hand_icon", "0")
   SpawnSet(NPC, "show_command_icon", "0")
end
   end