Вопрос по написанию скрипта, Нужна консультация

local f = io.open( Core.GetPtokaXPath():gsub("/", "\\").."scripts\\"..filename, "r" )

TmrMan.AddTimer(iTime, sFunction)

TmrMan.AddTimer(1000, sFunction)

TmrMan.AddTimer(1000, "Test")

Bot = "Ворожея"
SpinCmd = "!ворожи"
SecondsInterval = 60
GameOn = 1
Time = 1

-- Загрузка списка из файла
function loadlist( filename )
local list = {}
local f = io.open( Core.GetPtokaXPath():gsub("/", "\\").."scripts\\"..filename, "r" )
if f then
local line = f:read("*line")
while line do
table.insert(list,line)
line = f:read("*line")
end
f:close()
end
return list
end

SpinData = loadlist("deathv/data.dat")
SpinMonth = loadlist("deathv/month.dat")
SpinYear = loadlist("deathv/year.dat")
SpinReason = loadlist("deathv/reason.dat")
SpinSpiritsv = loadlist("deathv/spiritsv.dat")
SpinKoldunv = loadlist("deathv/koldunv.dat")
SpinMake = loadlist("deathv/make.dat")
function OnTimer(tmr)
TmrMan.AddTimer(1000, sFunction)
--SendToAll("<"..Bot.."> Колдунчик осободился, наберите !колдуй что бы узнать свою-твою планиду")
GameOn = 1
end

function OnStartup()
--SendToAll("<"..Bot.."> На хаб пришел Колдунчик, наберите !колдуй.")
GameOn = 1
end

function ChatArrival(curUser,data)
Core.GetUserAllData(curUser)
data = string.sub(data,1,string.len(data)-1)
s,e,cmd = string.find(data,"%b<>%s+(%S+)")
if cmd == SpinCmd then
if GameOn == 1 then
local OnlineTable = Core.GetOnlineUsers(true)
if #OnlineTable < 2 then
Core.SendToAll("<"..Bot.."> Пользователей должно быть болше одного.")
return true
end

tmr = TmrMan.AddTimer(SecondsInterval*1000)
GameOn = 0
UsersNick = {}
for _,oUser in pairs(OnlineTable) do
table.insert(UsersNick,oUser.sNick )
end
i = #UsersNick
if i < 0 then i = 10 end
a = math.random(1,i)
b = math.random(1,i)
while a == b do
b = math.random(1,i)
end
sAnswer = "<"..Bot.."> "..SpinKoldunv[math.random(1,#SpinKoldunv)]..""..SpinSpiritsv[math.random(1,#SpinSpiritsv)].." "..curUser.sNick.." "..SpinMake[math.random(1,#SpinMake)]..""..SpinData[math.random(1,#SpinData)].." "..SpinMonth[math.random(1,#SpinMonth)].." "..SpinYear[math.random(1,#SpinYear)].." года по причине : "..SpinReason[math.random(1,#SpinReason)]..""

Core.SendToAll(sAnswer)
Time = ((os.date("%H") * 60 ) + os.date("%M")) * 60 + os.date("%S")
return true
else
local i = SecondsInterval - (((os.date("%H") * 60 ) + os.date("%M")) * 60 + os.date("%S") - Time)

Core.SendToNick(curUser.sNick,"<"..Bot.."> Ворожея будет свободна через "..i.." секунд.")
return true
end
end
end

---------------------- МЕНЮ --------------------------------------------
CMenu = "Меню Uncle_Dif-Hub\\Игры\\Ворожея" -- Начальный путь в меню

tProfiles = {
[0] = 1,
[1] = 1,
[2] = 1,
[3] = 1,
[-1] = 0,
}

function UserConnected(user)
if tProfiles[user.iProfile] == 1 then
Core.SendToUser(user,"$UserCommand 1 3 "..CMenu.."\\Ворожить\\Себе\\$<%[mynick]> !ворожи|")


end
end

OpConnected = UserConnected
RegConnected = UserConnected

TmrMan.AddTimer(1000, sFunction)