function Test_OnCombat(Unit, event)
    Unit:SendChatMessage(12, 0, "Die Wretches!")
    Unit:RegisterEvent ("Test_ShadowBolt", 10000, 0)
end

function Test_ShadowBolt(pUnit)
    pUnit:CastSpellOnTarget(11661, pUnit:GetRandomPlayer(0))
end

function NpcName_OnDied(Unit, Event)
    Unit:RemoveEvents()
end

function NpcName_OnKilledTarget(Unit, Event)
end

function NpcName_OnLeaveCombat(Unit, Event)
    Unit:RemoveEvents()
end


RegisterUnitEvent(entryidofthenpc, 1, "Test_OnCombat")
RegisterUnitEvent(entryidofthenpc, 2, "NpcName_OnLeaveCombat")
RegisterUnitEvent(entryidofthenpc, 3, "NpcName_OnKilledTarget")
RegisterUnitEvent(entryidofthenpc, 4, "NpcName_OnDied")