Sloff Master Summoner

function SloffMasterSummoner_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "Face now your tragic end!")
Unit:PlaySoundToSet(17365)
Unit:RegisterEvent("SloffMasterSummoner_Shadow Lance", 7000, 100)
Unit:RegisterEvent("SloffMasterSummoner_Twilight Bloodbolt", 60000, 100)
Unit:RegisterEvent("SloffMasterSummoner_Harvest Soul", 90000, 100)
Unit:RegisterEvent("SloffMasterSummoner_Summon", 10000, 100)
end

function SloffMasterSummoner_Shadow Lance(pUnit, Event)
pUnit:FullCastSpellOnTarget(71405, pUnit:GetMainTank())
Unit:SendChatMessage(14, 0, "I delight in the irony.")
Unit:PlaySoundToSet(17357)
print "Sloff Starts to cast Shadow Lance"
end

function SloffMasterSummoner_Twilight Bloodbolt(pUnit, Event)
pUnit:FullCastSpellOnTarget(71446, pUnit:GetClosestPlayer())
Unit:SendChatMessage(14, 0, "I delight in the irony.")
Unit:PlaySoundToSet(17357)
print "Sloff Starts to cast Twilight Bloodbolt"
end

function SloffMasterSummoner_Harvest Soul(pUnit, Event)
pUnit:FullCastSpellOnTarget(68980, pUnit:GetRandomPlayer(0))
Unit:SendChatMessage(14, 0, "Your Soul Will be Mine!")
Unit:PlaySoundToSet(17365)
print "Sloff Starts to cast Harvest Soul"
end

function SloffMasterSummoner_Summon(pUnit, Event)
pUnit:FullCastSpellOnTarget(20464, pUnit:GetRandomPlayer(0))
Unit:SendChatMessage(14, 0, "Val'kyr, your master calls!")
Unit:PlaySoundToSet(17373)
print "Sloff Starts to Summon a Val'Kyr to Aid him in Battle"
end

function SloffMasterSummoner_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "I delight in the irony.")
Unit:PlaySoundToSet(17357)
Unit:SetModel (17053)
Unit:ReloadLuaEngine()
end

function SloffMasterSummoner_OnDied(Unit, Event)
Unit:RemoveEvents()
Unit:SendChatMessage(14, 0, "Now I stand, the lion before the lambs... and they do not fear.")
Unit:PlaySoundToSet(17361)
end

function SloffMasterSummoner_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(14, 0, "I delight in the irony.")
Unit:PlaySoundToSet(17357)
end

RegisterUnitEvent(99880, 1, "SloffMasterSummoner_OnCombat")
RegisterUnitEvent(99880, 2, "SloffMasterSummoner_OnLeaveCombat")
RegisterUnitEvent(99880, 3, "SloffMasterSummoner_OnKilledTarget")
RegisterUnitEvent(99880, 4, "SloffMasterSummoner_OnDied")