EQ2EMu/Lua/SpawnScripts/Caves/spare_machine_parts.lua

--[[
	Script Name	: SpawnScripts/Caves/spare_machine_parts.lua
	Script Purpose	: spare_machine_parts
	Script Author	: Scatman
	Script Date	: 2009.10.08
	Script Notes	:
--]]

local QUEST2_FROM_CONSULBREE = 224

function spawn(NPC)
	SetRequiredQuest(NPC, QUEST2_FROM_CONSULBREE, 2)
end

function respawn(NPC)
	spawn(NPC)
end

function hailed(NPC, Spawn)
end

function casted_on(Target, Caster, SpellName)
	if HasQuest(Caster, QUEST2_FROM_CONSULBREE) and not QuestStepIsComplete(Caster, QUEST2_FROM_CONSULBREE, 2) and SpellName == "Place Explosives" then
		-- explosives
		if HasItem(Caster, 6052) then
			RemoveItem(Caster, 6052)
		end
		SendMessage(Caster, "Charges set for 3 seconds.")
		AddStepProgress(Caster, QUEST2_FROM_CONSULBREE, 2, 1)
		AddTimer(Target, 3000, "BlowUpMachine")
	end
end

function BlowUpMachine(NPC)
	Despawn(NPC)
end