Вопросы Разработчикам Скриптов, вопросы по скриптам (мелкие вопросы)

(Scripts.iMemUsage or 0)

for _, t in ipairs(tS) do
if t.sName == bPrm then

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<root totalElementsCount="тут число">
<g1 name="Экстренные телефоны">
<g2 elementsCount="22" name="Экстренные телефоны">
<e address="пр.Геологов 4/2" c1="" c2="" c3="" city="г...." name="ГИБДД" t1="4-...-..." t2=" " t3=" "/>
...
тут продолжение
...
</g2>
</g1>
</root>

tSpravochnik = {}
for g1, data1 in sData:gmatch"<g1 name=\"(.-)\">(.-)</g1>" do
    tSpravochnik[g1] = {}
    for count1, g2, data2 in data1:gmatch"<g2 elementsCount=\"(%d-)\" name=\"(.-)\">(.-)</g2>" do
        tSpravochnik[g1][g2] = {}
        for address, c1, c2, c3, name, t1, t2, t3 in data2:gmatch"<e address=\"(.-)\" c1=\"(.-)\" c2=\"(.-)\" c3=\"(.-)\" city=\"(.-)\" name=\"(.-)\" t1=\"(.-)\" t2=\"(.-)\" t3=\"(.-)\"/>" do
            table.insert(tSpravochnik[g1][g2],{
                address = address,
                c1 = c1,
                c2 = c2,  
                c3 = c3,  
                name = name,
                t1 = t1,  
                t2 = t2,  
                t3 = t3
            })
        end
    end
end

tSpravochnik = {
    ["Экстренные телефоны"] = {
        ["Экстренные телефоны"] = {
            [1] = {
                ["t2"] = "4-...-...",
                ["t3"] = " ",
                ["name"] = "г....",
                ["address"] = "пр.Геологов 4/2",
                ["c1"] = "",
                ["t1"] = "ГИБДД",
                ["c3"] = "",
                ["c2"] = "",
            },
        },
    },
}

for g1, data1 in sData:gmatch"<g1 name=\"(.-)\">(.-)</g1>" do

cmd, toWho = data:match("%b<>%s+(%S*)%s*(%S*)")

for g1, data1 in sData:gmatch("<g1 name=\"(.-)\">(.-)</g1>") do

function OnUserEnter(UID)
    if tAccess[UID.iProfile] == 1 then
        Core.SendToUser(UID, "$UserCommand 1 1 "..sMenu..UID.sNick.."  •  :::\\::: Сообщения  •  "..sHubName.."  •  :::\\::: Для Администрации :::$<%[mynick]> "..sPreff.."opmess %[line:Введите текст сообщения]&#124;|"..
        "$UserCommand 1 1 "..sMenu..UID.sNick.."  •  :::\\::: Сообщения  •  "..sHubName.."  •  :::\\::: Для Всех Юзеров :::$<%[mynick]> "..sPreff.."massmes %[line:Введите текст сообщения]&#124;")
        --Core.SendToUser(UID,"$UserCommand 1 2 "..sMenu..UID.sNick.."  •  :::\\::: Сообщение от имени бота :::$<%[mynick]> "..sPreff.."frombot %[nick] %[line:Введите текст сообщения]&#124;")
    end
end

    local _,_, sCmd = sData:find"^%b<>%s+%p(%S+)" -- ищем команду
    local _,_, sMsg = sData:find"%b<>%s+%S+%s+(.+)"

function OnChat(UID, sData) -- сообщение в чат
    local sCmd, sMsg = sData:match"^%b<>%s+%p(%S+)%s*(.*)" -- ищем команду
    if sCmd then
        if sCmd == "massmes" then
            if tAccess[UID.iProfile] == 1 then
                if #sMsg == 0 then
                    Core.SendToUser(UID, "*** Извините, пустые сообщения не отправляю. Попробуйте ещё раз.", sBot)
                else
                    Core.SendToProfile({0, 1, 2, 3, -1}, "\r\n\r\n\t *** СООБЩЕНИЕ ДЛЯ ВСЕХ ***\r\n\r\n\t •  "..sMsg.."  •\r\n", sBot, sBot)
                    Core.SendToUser(UID, "*** Ваше сообщение  •  ДЛЯ ВСЕХ  •  успешно отправлено.", sBot)
                end
            else
                Core.SendToUser(UID, " *** У вас недостаточно прав для выполнения этой команды!", sBot)
            end
            return true
        elseif sCmd == "opmess" then
            if tAccess[UID.iProfile] == 1 then
                if #sMsg == 0 then
                    Core.SendToUser(UID, "*** Извините, пустые сообщения не отправляю. Попробуйте ещё раз.", sBot)
                else
                    Core.SendToProfile({0,1}, "\r\n\r\n\t *** СООБЩЕНИЕ ДЛЯ АДМИНИСТРАЦИИ ***\r\n\r\n\t •  "..sMsg.."  •\r\n", sBot, sBot)
                    Core.SendToUser(UID, "*** Ваше сообщение  •  ДЛЯ АДМИНИСТРАЦИИ  •  успешно отправлено.", sBot)
                end
            else
                Core.SendToUser(UID, "*** У вас недостаточно прав для выполнения этой команды!", sBot)
            end
            return true
        end
    end
end

tSpravochnik[g1] = {}

Core.SendToAll(" \n "..tSpravochnik[g1][g2].."  \n ")
да и так
Core.SendToAll(" \n "..tSpravochnik[g1].."  \n ")

local sBot = Config.sHubBot
local sNick = "ник"
Core.SendToUser(sNick, "Привет", sBot)

for key, value in pairs(tSpravochnik) do
    -- key тут как раз и будет тем, что ты хочешь вывести, а value - таблица по этому ключу в таблице tSpravochnik, т.е. value = tSpravochnik[key]
end

local sUserCommand = "$UserCommand 1 1 "..sMenu..UID.sNick.."  •  :::\\::: Сообщения  •  "..sHubName.."  •  :::\\::: Для Администрации :::$<%[mynick]> +opmess %[line:Введите текст сообщения]&#124;|"..
"$UserCommand 1 1 "..sMenu..UID.sNick.."  •  :::\\::: Сообщения  •  "..sHubName.."  •  :::\\::: Для Всех Юзеров :::$<%[mynick]> +massmes %[line:Введите текст сообщения]&#124;|"..
"$UserCommand 1 1 "..sMenu..UID.sNick.."  •  :::\\::: Сообщения  •  "..sHubName.."  •  :::\\::: Для Юзера от Бота :::$<%[mynick]> +frombot %[line:Ник] %[line:Введите текст сообщения]&#124;|"..
"$UserCommand 1 2 "..sMenu..UID.sNick.."  •  :::\\::: Сообщить этому Юзеру :::$<%[mynick]> +frombot %[nick] %[line:Введите текст сообщения]&#124;"

function OnUserEnter(UID)
    if tAccess[UID.iProfile] == 1 then
        Core.SendToUser(UID, sUserCommand)
    end
end

local fbm = sData:match"^%b<>%s+%p%S+%s+(.+)"

function OnChat(UID, sData)
  local sCmd, sArg = sData:match"^%b<> [%+!/](%S+)%s*(.*)$"
  if sCmd then
    if sCmd == "massmes" then
      if tAccess[UID.iProfile] == 1 then
        if #sArg == 0 then
          Core.SendToUser(UID, " *** Извините, пустые сообщения не отправляю. Попробуйте ещё раз.", sBot)
        else
          Core.SendToProfile({0, 1, 2, 3, -1}, "\r\n\r\n\t *** СООБЩЕНИЕ ДЛЯ ВСЕХ ***\r\n\r\n\t •  "..sArg.."  •\r\n", sBot, sBot)
          Core.SendToUser(UID, " *** Ваше сообщение  •  ДЛЯ ВСЕХ  •  успешно отправлено.", sBot)
        end
      else
        Core.SendToUser(UID, " *** У вас недостаточно прав для выполнения этой команды!", sBot)
      end
      return true
    elseif sCmd == "opmess" then
      if tAccess[UID.iProfile] == 1 then
        if #sArg == 0 then
          Core.SendToUser(UID, " *** Извините, пустые сообщения не отправляю. Попробуйте ещё раз.", sBot)
        else
          Core.SendToProfile({0,1}, "\r\n\r\n\t *** СООБЩЕНИЕ ДЛЯ АДМИНИСТРАЦИИ ***\r\n\r\n\t •  "..sArg.."  •\r\n", sBot, sBot)
          Core.SendToUser(UID, " *** Ваше сообщение  •  ДЛЯ АДМИНИСТРАЦИИ  •  успешно отправлено.", sBot)
        end
      else
        Core.SendToUser(UID, " *** У вас недостаточно прав для выполнения этой команды!", sBot)
      end
      return true
    elseif sCmd == "frombot" then
      if tAccess[UID.iProfile] == 1 then
        local sNick, sMsg = sArg:match"^(%S+)%s*(.*)"
        if sNick then
          if #sMsg ~= 0 then
            local tUser = Core.GetUser(sNick)
            if tUser then
              Core.SendToUser(tUser, "\r\n\r\n\t *** ВАМ ПЕРСОНАЛЬНОЕ СООБЩЕНИЕ ***\r\n\r\n\t •  "..sMsg.."  •\r\n", sBot, sBot)
              Core.SendToUser(UID,
                " *** Ваше сообщение для  •  "..sNick.."  •  от имени  •  "..sBot.."  •  успешно отправлено.", sBot
              )
            else
              Core.SendToUser(UID, " *** Ошибка: Юзер  •  "..sNick.."  •  на хабе не найден!", sBot)
            end
          else
            Core.SendToUser(UID, " *** Извините, пустые сообщения не отправляю. Попробуйте ещё раз.", sBot)
          end
        else
          Core.SendToUser(UID, " *** Не введён ник. Попробуйте ещё раз.", sBot)
        end
      else
        Core.SendToUser(UID, " *** У вас недостаточно прав для выполнения этой команды!", sBot)
      end
      return true
    end
  end
end

if #sMsg != 0 then

if #sMsg == 0 then

if #sMsg != 0 then