Версия для печати темы

    elseif cmd == "!delannouncements" then
        if tProfile[tUser.iProfile] == 1 or tVIP[tUser.sNick] then
        tDats = {
        Dats = "Нет объявлений",
        Date = "unknown"
        }
        Core.SendToUser(tUser, ("<%s> Объявление удалено!"):format(Bot))
        SaveToFile(filename, tDats, "tDats")
        else
        Core.SendToUser(tUser, ("<%s> У вас нет прав для использования этой команды!"):format(Bot))
        end
        return true

[b]текст который нужно выделеть[/b]

Upd = 3 -- Время, через которое будут посланы объявления в чат всем (в часах)
TmrMan.AddTimer(Upd*3600000, "Send")

function Send()
Core.SendToAll(GetAnnouncements(count))
end

[b] текст который нужно выделеть [/b]

--[[    Название: Announcements
    Версия API: 2
    Версия скрипта: 2.0
    Автор: STRELOK
    Описание:
   Публикация объявления администрацией хаба. Выводит объявление юзеру при подключении к хабу
    Возможности:
   1. Показ объявления перед входом юзера
   2. Показы даты и времени, когда было установлено объявление
   3. Выбор кому будет доступно публиковать сообщения
   4. Вывод сообщения о новом объявлении всем
    5. Выбор сколько объявлений выводит при подключении пользователя  ]]--

local tProfile = {
    [0] = 1,
    [1] = 0,
}
tVIP = {
    ["STRELOK"] = 1,
}

local Bot = SetMan.GetString(21)
local filename = Core.GetPtokaXPath().."scripts/announcements/dats.dat"
tDats = {
Dats = "Нет объявлений",
Date = "unknown"
}
sAll = 1 -- выводить сообщение о публикации нового объявление всем
count = 5 -- какое кол-во объявлений выводить при входе и сохранят в таблицу?


function OnStartup()
    Upd = 1
    TmrMan.AddTimer(Upd*3600000, "Send")
  if loadfile(filename) then
    dofile(filename)
  end
end

function ChatArrival(tUser,sData)
  sData = string.sub(sData,1,-2)
  local cmd = sData:match"%b<>%s+(%S+)"
  if cmd == "!postannouncements" then
    if tProfile[tUser.iProfile] == 1 or tVIP[tUser.sNick] then
      local sMsg = sData:match"%b<>%s+%S+%s+(.*)"
      if not sMsg then
        Core.SendToUser(tUser, "<"..Bot.."> Вы не ввели сообщение")
      end
      local Dat = {
        sMsg,
        os.date"%d.%m.%y * %H:%M:%S",
        tUser.sNick,
      }
      table.insert(tDats, Dat)
          if #tDats > count then
        table.remove(tDats,1)
        end
      SaveToFile(filename, tDats, "tDats")
    Core.SendToUser(tUser, "<"..Bot.."> Объявление '"..sMsg.."' было опубликовано!")
    if sAll == 1 then
    Core.SendToAll("<"..Bot.."> Новое объявление: "..sMsg)
    end
    else
        Core.SendToUser(tUser, ("<%s> У вас нет прав для использования этой команды!"):format(Bot))    
    end
    return true
    elseif cmd == "!delannouncements" then
        if tProfile[tUser.iProfile] == 1 or tVIP[tUser.sNick] then
            local sNumber = sData:match"%b<>%s+%S+%s+(.*)"
            for v in ipairs(tDats) do
                table.remove(tDats, sNumber)
        Core.SendToUser(tUser, ("<%s> Объявление №%s удалено!"):format(Bot, sNumber))
        SaveToFile(filename, tDats, "tDats")
            end
        else
        Core.SendToUser(tUser, ("<%s> У вас нет прав для использования этой команды!"):format(Bot))
        end
        return true
  end
end

function GetAnnouncements(lines)
    local x = lines
    if lines > #tDats then
        x,lines = #tDats,#tDats
    end
    x = #tDats - x
    local str = ""
    for i,v in ipairs(tDats) do
        if i > x then
            str = str.."№"..i..": "..v[1].." (Опубликовано: "..v[2].." / Автор: "..v[3]..")\n"
        end
    end
    return str
end

function UserConnected(tUser)
    local str = GetAnnouncements(count)
    if str ~= "" then
        str = ""..string.rep(" ",0).."Последние "..count.." объявлений администрации:\n"..str
        Core.SendToUser(tUser, "<"..Bot.."> "..str)
    end
    if tProfile[tUser.iProfile] == 1 or tVIP[tUser.sNick] then
        Core.SendToUser(tUser,"$UserCommand 1 3 Меню админа\\Опубликовать объявление$<%[mynick]> !postannouncements %[line:Введите текст]|")
        Core.SendToUser(tUser,"$UserCommand 1 3 Меню админа\\Удалить объявление$<%[mynick]> !delannouncements %[line:Введите № объявления]|")
    end
end
RegConnected = UserConnected
OpConnected = UserConnected

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
function Send()
Core.SendToAll(GetAnnouncements(count))
end

local str = ""..string.rep(" ",0).."[b]Последние "..count.." объявлений администрации:[/b]\n"

str = str.."[b]№"..i..": "..v[1].." (Опубликовано: "..v[2].." / Автор: "..v[3]..")[/b]\n"

Core.SendToAll("<"..Bot.."> [b]Новое объявление: "..sMsg.."[/b]")

[b] [/b]