Add random code to this script

[Djdirect]

add random text  function to this script if possible

------------ Rotating Message 1.1 by jiten for PtokaX 0.3.3.0 build 17.02 or Higher
-- based on Rotating Message 1.0 by Mutor The Ugly
-- Rotates n text files posted to main chat at interval
--
--User Settings-------------------------------------------------------------------
--
bSet = {
sBot = "Blague", -- Bot Name
RunStatus = 1, -- Auto Start -> 1=ON 0=OFF
bDelay = 61, -- Delay between each text file in minutes
-- Don't change this
bCnt = 1,
bPrefixes = {},
--------------------
}

sFile = { -- put here the files you want to send
"Blague/1.txt",
"Blague/2.txt",
"Blague/3.txt",
"Blague/4.txt",
"Blague/5.txt",
"Blague/6.txt",
"Blague/7.txt",
"Blague/8.txt",
"Blague/9.txt",
"Blague/10.txt",
"Blague/11.txt",
"Blague/12.txt",
"Blague/13.txt",
}
--End User Settings-----------------------------------------------------------------

Main = function()
for a,b in pairs(frmHub:GetPrefixes()) do bSet.bPrefixes[b] = 1 end
SetTimer(bSet.bDelay*60*1000)
StartTimer()
end

ChatArrival = function(sUser, sData)
sData=string.sub(sData,1,-2)
local s,e,sPrefix,cmd = string.find(sData, "%b<>%s*(%S)(%S+)")
if sPrefix and bSet.bPrefixes[sPrefix] then
if sUser.bOperator then
local tCmds = {
["adon"] = function(user,data)
bSet.RunStatus = 1
user:SendData(bSet.sBot,"Messages D?marr?...")
OnTimer()
end,
["adoff"] = function(user,data)
bSet.RunStatus = 0
user:SendData(bSet.sBot,"Messages stopp?...")
end,
}
if tCmds[cmd] then
return tCmds[cmd](sUser,sData),1
end
end
end
end

OnTimer = function()
if bSet.RunStatus == 1 then
for i = 1, table.getn(sFile) do
if i == bSet.bCnt then
local f,tmp = io.open(sFile[i],"r"),""
if f then
tmp = f:read("*a")--
tmp = string.gsub(tmp,"|",string.char(166))
tmp = string.gsub(tmp,"\n","\r\n")
f:close()
SendToAll(bSet.sBot,"\r\n"..tmp)
end
if table.getn(sFile) == i then
bSet.bCnt = 1
else
bSet.bCnt = i + 1
end
break
end
end
end
end------------------------------------------------------------------------
--------

Merci