npc long history lib

-libs, at npc.lua add
--Summ longshitory

function selfStory(msg, player, delay)
    local interval, npc = delay or 5000, getNpcCid()
    local ret = {}

    for i, message in pairs(msg) do
        if i == 1 then
            selfSay(message)
        else
            local r = addEvent(selfSay, (i-1)*interval, message)
            table.insert(ret, r)
        end
    end
    return ret
end