Function Testjens(pUnit, Event)
pUnit:RegisterEvent("Harald_say", 200000, 0)
end

function Harald_say(pUnit, Event)
local chance = math.random(1,4)
if(chance == 1) then
pUnit:SendChatMessage(12, 0, "Got some spare change?")
end
if(chance == 2) then
pUnit:SendChatMessage(12, 0, "Mind your own business, pal!")
end
if(chance == 3) then
pUnit:SendChatMessage(12, 0, "Are you looking for a fight, you prick?")
end
if(chance == 4) then
pUnit:SendChatMessage(12, 0, "Come over here!")
end
end

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

RegisterUnitEvent(1, 18, "Testjens")
RegisterUnitEvent(1, 4, "Name_Died")