Топик - Приветственное Сообщение

sBot = SetMan.GetString(21)

function UserConnected(tUser)
        Core.SendToUser(tUser, "<"..sBot.."> Тема: '"..SetMan.GetString(не помню цифру).."', установил "..user.sNick.." (%d.%m.%y / %H:%M:%S)")
        Core.SendToUser(tUser, "<"..sBot.."> Привет "..tUser.sNick..", добро пожаловать на "..SetMan.GetString(0)..". Ваш IP: "..tUser.sIP)
end
RegConnected = UserConnected
OpConnected = UserConnected

TopLog = {}
filename = "TopicLogs\\"
sBot = SetMan.GetString(21)

function UserConnected(tUser)
        Core.SendToUser(tUser, "<"..sBot.."> Тема: '"..SetMan.GetString(10).."', установил "..user.sNick.." (%d.%m.%y / %H:%M:%S)")
        Core.SendToUser(tUser, "<"..sBot.."> Привет "..tUser.sNick..", добро пожаловать на "..SetMan.GetString(0)..". Ваш IP: "..tUser.sIP)
end
RegConnected = UserConnected
OpConnected = UserConnected

        SetMan.SetString(10,NewTopic)
        day = os.date("[%d.%m.%y].txt")
        if io.open(filename..day) == nil then io.open(filename..day,"w") end
        dofile(filename..day)
        i = #TopLog+1
        CurTime = os.date("[%H:%M-%d.%m.%y]")
        TopLog[i] = "~"..CurTime.."~ ~"..tUser.sNick.."~  ~"..NewTopic.."~"
        SaveToFile(filename..day, TopLog, "TopLog")

function Serialize(tTable, sTableName, sTab)
    assert(tTable, "tTable equals nil");
    assert(sTableName, "sTableName equals nil");
    assert(type(tTable) == "table", "tTable must be a table!");
    assert(type(sTableName) == "string", "sTableName must be a string!");
    sTab = sTab or "";
    sTmp = ""
    sTmp = sTmp..sTab..sTableName.." = {\n"
    for key, value in pairs(tTable) do
        local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
        if(type(value) == "table") then
            sTmp = sTmp..Serialize(value, sKey, sTab.."\t");
        else
            local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
            sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
        end
        sTmp = sTmp..",\n"
    end
    sTmp = sTmp..sTab.."}"
    collectgarbage(collect)
    return sTmp
end

function SaveToFile(file , table , tablename)
    local handle = io.open(file,"w+")
    handle:write(Serialize(table, tablename))
    handle:flush()
    handle:close()
end

        SetMan.SetString(10,NewTopic)
        day = os.date("[%d.%m.%y].txt")
        if io.open(filename..day) == nil then io.open(filename..day,"w") end
        dofile(filename..day)
        i = #TopLog+1
        CurTime = os.date("[%H:%M-%d.%m.%y]")
        TopLog[i] = "~"..CurTime.."~ ~"..tUser.sNick.."~  ~"..NewTopic.."~"
        SaveToFile(filename..day, TopLog, "TopLog")

local tProfile = {
  [0] = 1,
  [1] = 1,
  [2] = 1,
}
local filename = "Topic.tbl"
local Bot = SetMan.GetString(21)
tTopic = {
  sDate = "unknown",
  SetUser = "unknown",
  Topic = "unknown"
}

function OnStartup()
  if loadfile(filename) then
    dofile(filename)
  end
end

function UserConnected(tUser)
  Core.SendToUser(tUser, "<"..sBot.."> Тема: '"..tTopic.Topic.."', установил "..tTopic.SetUser.." ("..tTopic.CurTime..")")
  Core.SendToUser(tUser, "<"..sBot.."> Привет "..tUser.sNick..", добро пожаловать на "..SetMan.GetString(0)..". Ваш IP: "..tUser.sIP)
end
RegConnected = UserConnected
OpConnected = UserConnected

function ChatArrival(user,sData)
  sData = string.sub(sData,1,-2)
  local cmd = sData:match"%b<>%s+(%S+)"
  if cmd == "!topic" then
    if tProfile[tUser.iProfile] == 1 then
      local sMsg = sData:match"%b<>%s+%S+%s+(.*)"
      if not sMsg then
        Core.SendToUser(user, "<"..Bot.."> Вы не ввели текст топика")
        return true
      end
      tTopic = {
        sDate = os.date"%d.%m.%y / %H:%M:%S",
        SetUser = user.sNick,
        Topic = sMsg
      }
      SaveToFile(filename, tTopic, "tTopic")
      return true
    end
  end
end

function Serialize(tTable, sTableName, sTab)
  sTab = sTab or "";
  sTmp = ""
  sTmp = sTmp..sTab..sTableName.." = {\n"
  for key, value in pairs(tTable) do
    local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
    if(type(value) == "table") then
      sTmp = sTmp..Serialize(value, sKey, sTab.."\t");
    else
      local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
      sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
    end
    sTmp = sTmp..",\n"
  end
  sTmp = sTmp..sTab.."}"
  return sTmp
end

function SaveToFile(file , table , tablename)
  local handle = io.open(file,"w+")
  handle:write(Serialize(table, tablename))
  handle:flush()
  handle:close()
end