Custom Instance. - BLOODRAID PLEASE PUT THESE IN THE GAME.

function Papparatzzi_OnSpawned(pUnit, event , player)
pUnit:RegisterEvent("Papparatzzi_Say", 40000, 0)
end

function Papparatzzi_Died(pUnit, event, player)
pUnitLremoveEvents( )
end


function Papparatzzi_Say(pUnit, event, player)
local chance = math.random(1, 2)
if(chance == 1) then
pUnit:SendChatMessage(14, 0, "Can we get a picture over here please?")
end
if(chance == 2) then
pUnit:SendChatMessage(14, 0, "Gimme mysterious, gimme different, gimme sexy")
end
end

RegisterUnitEvent (31126, 18, "Papparatzzi_OnSpawned")
RegisterUnitEvent (31126, 1, "Papparatzzi_OnCombat")
RegisterUnitEvent (31126, 13 "Papparatzzi_OnHit")
RegisterUnitEvent (31126, 4 "Papparatzzi_Died")

function Adam Sandler_EnterCombat(Unit, Events)
Unit:SendChatMessage(14, 0, "FAAAARRRRT")
Unit:RegisterEvent("Adam Sandler_spell1", 6000, 0)
end

function Adam Sandler_Spell1(pUnit, Event)
Unit:FullCastSpell(46932, Unit:GetMainTank())
end

function Adam Sandler_Spell2(pUnit, Event)
Unit:FullCastSpellOnTarget(46932, Unit:GetClosest())
end
function Adam Sandler_Phase1(Unit, Event)
if Unit:GetHealthPct() < 70 then
Unit:RemoveEvent()
Unit:SendChatMessage(14, 0, "I'M GOING TO KIIIILLLL YOU!!!")
Unit:FullCastSpell (48158)
Unit:FullCastSpell (48125)
end
end

function Adam Sandler_OnLeaveCombat(Unit, Event)
Unit:remove events()
end

function Adam Sandler_OnKilledTarget(Unit, Event)
Unit:PlaySoundToSet(10403)
Unit:SendChatMessage (12, 0, "Aha, Smell that? DEATH!")
end

function Adam Sandler_OnDeath(Unit, Event)
Unit:PlaySoundToSet (10405)
function Adam Sandler_Phase1(Unit, Event)
if Unit:GetHealthPct() < 0 then
Unit:RemoveEvent()
Unit:SendChatMessage("Oh, look! I'm dying!")
Unit:RemoveEvents()
end

RegisterUnitEvent(18831, 1, "Adam Sandler_EnterCombat")
RegisterUnitEvent(18831, 2, "Adam Sandler_OnLeaveCombat")
RegisterUnitEvent(18831, 3, "Adam Sandler_KilledTarget")
RegisterUnitEvent(18831, 4, "Adam Sandler_OnDied")

function Paris Hilton_EnterCombat(Unit, Events)
Unit:SendChatMessage(14, 0, "Like O-M-G- Your shoes don't match your shirt!")
Unit:RegisterEvent("Paris Hilton_Spell1", 6000, 0)
Unit:RegisterEvent("Paris Hilton_Spell2", 14000, 0)
end

function Paris Hilton_Spell1
function Paris Hilton_Spell1(pUnit, Event)
Unit:CastSpell(47610, Unit:GetMainTank())
end

function Paris Hilton_Phase1(Unit, Event)
if Unit:GetHealthPct() < 70 then
Unit:CastSpell(47610, Unit:GetMainTank())
Unit:SendChatMessage(14, 0, "Like, You just hit my designer shoes!")
Unit:FullCastSpell (47610)
end
end

function Paris Hilton_OnLeaveCombat(Unit, Event)
Unit:remove events()
end

function Paris Hilton_OnKilledTarget(Unit, Event)
Unit:PlaySoundToSet(10403)
Unit:SendChatMessage (14, 0, "-GASP- I've killed someone, like, O-M-F-G!")
end



function Paris Hilton_OnDied(Unit, Event)
Unit:PlaySoundToSet (10405)
Unit:SendChatMessage(14, 0, "OWWW I BROKE A NAIL!!")
Unit:RemoveEvents()
end

RegisterUnitEvent(15953, 1, "Poop_OnCombat")
RegisterUnitEvent(15953, 2, "Poop_OnLeaveComabt")
RegisterUnitEvent(15953, 3, "Poop_OnKilledTarget")
RegisterUnitEvent(15953, 4, "Poop_onDied")

function Alan_EnterCombat(Unit, Events)
Unit:SendChatMessage(14, 0, "You guys ever hear who let the dogs out?")
Unit:RegisterEvent("Alan_Spell1", 6000, 0)
Unit:RegisterEvent("Alan_Spell2", 18000, 0)
end

function Alan_Spell1(pUnit, Event)
Unit:CastSpell(48158, Unit:GetMainTank())
end

function Alan_Spell2(pUnit, Event)
Unit:FullCastSpellOnTarget(48125, Unit:GetMainTank())
end
function Alan_Phase1(Unit, Event)
if Unit:GetHealthPct() < 70 then
Unit:RemoveEvent()
Unit:SendChatMessage(14, 0, "Rain man did it and he was a Reh-Tard!")
Unit:CastSpell (48158)
Unit:CastSpell (48125)
end
end

function Alan_OnKilledTarget(Unit, Event)
Unit:PlaySoundToSet(10403)
Unit:SendChatMessage (12, 0, "It's not a purse its a satchel. You DIE NOW!!!")
end

function Alan_Phase1(Unit, Event)
if Unit:GetHealthPct() < 45 then
Unit:RemoveEvent()
UnitSendChatMessage(14, 0 "I put roofies in your drinks last night!"
Unit:CastSpell(48158)
end

function Alan_OnDeath(Unit, Event)
Unit:PlaySoundToSet (10405)
Unit:SendChatMessage("There's a jungle-cat in the bathroom! And now I'm going to die!")
Unit:RemoveEvents()
end


RegisterUnitEvent(22948, 1, "Alan_EnterCombat")
RegisterUnitEvent(22948, 2, "Alan_OnLeaveCombat")
RegisterUnitEvent(22948, 3, "Alan_KilledTarget")
RegisterUnitEvent(22948, 4, "Alan_OnDied")