Code:
Function The_Lich_King_OnEnterCombat(pUnit, Event)
pUnit:SendChatMessage(14, 7, "Who dares oppose The Lich King!")
end
Function The_Lich_King_MirrorImage(pUnit, Event)
pUnit:FullCastSpell(55342, pUnit: GetRandomPlayer (0))
PUnit:RegisterEvent("The_Lich_King_MirrorImage", 10000, 0)
pUnit:SendChatMessage(14, 7, "The end is near!")
end
Function The_Lich_King_Death(pUnit, Event)
pUnit:SendChatMessage(14, 0, "Someone must sit upon the throne.")
end
RegisterUnitEvent(99909, 1, "The_Lich_King_OnEnterCombat")
RegisterUnitEvent(99909, 2, "The_Lich_King_MirrorImage")
RegisterUnitEvent(99909, 3, "The_Lich_King_Death")
Also change the spell 55342 to another one, the spell is selfcast and in your script you are trying to cast on a random player. You need to check other Lua Scripts too, to understand the syntax better.