Цитатник Рунета, API1, API2 | Показывает цитаты с bash.org.ru

sScriptsPath = Core.GetPtokaXPath()

iSecondsToSend = 60 * 12                    -- время в скундах для вывода цитат в чат
iSecondsToSendNew = 60 * 5                    -- время в скундах для вывода новых цитат в чат

function ParseData(sIncomingBuffer)

    -- Функция обработки цитат на наличие мата
function Ext(sIncomingBuffer, tTable)
    for i in ipairs(tTable) do
        if sIncomingBuffer:match(tTable[i]) then
            return nil
        end
    end
    return true
end

        -- Cлово для замены мата
    local sReplWord = "бугога"
        -- Маска матных слов
    local tMask = {
        ["[хХxX][yYуУеЕeE][йЙеЕeEёЁяЯюЮиИuUpPрР]"] = {},
        ["[пП][иИеЕeE][дД][оОoO0eEеЕaAаА][pPрР]"] = {},
        ["[пП][иИеЕeE][дД][pPрР][иИ][лЛ]"] = {},
        ["[пП][иИеЕeE][дД][оОoO0eEеЕaAаА][pPрР][ЫыАа]"] = {},
        ["[пП][иИеЕeEёЁuU][зЗ3][дД]"] = {},
        ["[зЗ3][aAаА][eEеЕёЁяЯиИuU][бБ6]"] = {},
        ["[eEеЕёЁяЯ][бБ6][иИ]"] = {
            "дебиан",
        },    
        ["[сСcC][ъЪ][eEеЕёЁяЯ][бБ6][иИ]"] = {},
        ["[eEеЕёЁяЯ][бБ6][aAаА][нНHpPрРтТTлЛшШ]"] = {},
        ["[бБ6][лЛ][яЯ]"] = {},
        ["[Гг][аАоО0][НнHh][дДтТ][Оо0][HhНн]"] = {},
        ["[cCсС][yYуУ][kKкК][aAаА]"] = {},
        ["[СсCc][YyУу][Чч4][AaАа][РрPp][АаЫыУу]"] = {},
        ["[МмMm][yYуУ][дДdD][аАaA]"] = {},
        ["[МмMm][yYуУ][дДdD][иИuU][лЛ]"] = {},
        ["[МмMm][yYуУ][дДdD][OoОо][Зз]"] = {},
    }

    for sWhatNeedToGsub, sToWhat in pairs(tNeedToGsub) do
        sIncomingBuffer = sIncomingBuffer:g(sWhatNeedToGsub, sToWhat)
    end

    -- Замена мата на слово для замены
        for i,v in pairs(tMask) do    
            if sIncomingBuffer:match(i) and Ext(sIncomingBuffer, v) then
                sIncomingBuffer = sIncomingBuffer:gsub(i, sReplWord)
            end
        end
    -- Конец замены мата