function npcDelayedTalk(cid, text, player)
if isNpc(cid) and isPlayer(player) then
doCreatureSay(cid, text, TALKTYPE_PRIVATE_NP, false, player, getThingPos(cid))
end
end
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
doCreatureSay(npc, message, TALKTYPE_PRIVATE_NP, false, player, getThingPos(npc))
else
local r = addEvent(npcDelayedTalk, (i-1)*interval, npc, message, player)
table.insert(ret, r)
end
end
return ret
end