Dalliance ; старое название "Anekdot+BashOrg", Скрипт выдаёт Анекдоты , Цитаты с с BashOrg , Интересные факты .

--Ниже находится то, что можно настраивать
local sBotName = ""                    -- Имя бота. Если "" то имя основного бота хаба.
local sMenu = "Меню хаба"            -- Название меню
local sMenuOn = false                -- Включить либо Выключить Меню ( false - Выключить / true - Включить)
local sMinClass = 0                    -- Минимальный класс пользователей, которым доступен меню
local sCmdAnekdot = "анекдот"        -- команда для вывода Анекдотов
local sCmdBashOrg = "башорг"        -- команда для вывода Цитат с BashOrg
local sCmdFacts = "факты"            -- команда для вывода Интересных Фактов
local sAnekdotMaxTimer = 60*5        -- Минимальный интервал запросов (в секундах)
local sBashOrgMaxTimer = 60*5        -- Минимальный интервал запросов (в секундах)
local sFactsMaxTimer = 60*5            -- Минимальный интервал запроса Интересных Фактов (в секундах)
local sAnekdotChatPM = true            -- Отправлять Анекдот в чат всем или в личку юзеру ( false - отправлять в приват / true - отправлять в чат)
local sAnekdotChatUser = false        -- Отправлять Анекдот в чат только юзеру или в чат всем ( false - отправлять в чат только юзеру / true - отправлять в чат всем)
local sBashOrgChatPM = true            -- Отправлять Цитат с BashOrg в чат или в личку ( false - отправлять в приват / true - отправлять в чат)
local sBashOrgChatUser = false        -- Отправлять Цитат с BashOrg в чат только юзеру или в чат всем( false - отправлять в чат только юзеру/ true - отправлять в чат всем)
local sFactsChatPM = true            -- Отправлять Интересных Фактов в чат или в личку ( false - отправлять в приват / true - отправлять в чат)
local sFactsChatUser = true            -- Отправлять Интересных Фактов в чат только юзеру или в чат всем( false - отправлять в чат только юзеру/ true - отправлять в чат всем)
local AutoAnekdot = false            -- Автоматический вывод Анекдотов ( false запретить / true разрешишь)
local AutoBashOrg = false            -- Автоматический вывод Цитат с BashOrg ( false запретить / true разрешишь)
local AutoFacts = true                -- Автоматический вывод Интересных Фактов ( false запретить / true разрешишь)
local sLocMan = "-"                    -- Символ-заполнитель верхней и нижней строк
local sManLoc = 75*4                -- Кол-во символов-заполнителей верхней и нижней строк. Нужно подобрать, если будет изменен символ-заполнитель.
local sTimeOut = 5                    -- Таймаут ожидания загрузки страницы (чтобы хаб не подвисал), в секундах
local sAutoTimeAnekdot = {            -- Время для автоматической отправки Анекдотов
                        "00:00:00","03:00:00","06:00:00","09:00:00","11:00:00","15:00:00","18:00:00","21:00:00",}            
local sAutoTimeBashOrg = {            -- Время для автоматической отправки Цитат с bash.org.ru
                        "01:30:00","04:30:00","07:30:00","10:30:00","12:30:00","16:30:00","19:30:00","22:30:00",}
local sAutoTimeFacts = {            -- Время для автоматической отправки Цитат с bash.org.ru
                        "01:00:00","02:30:00","05:30:00","9:30:00",}
--Выше находится то, что можно настраивать

[16:29:34] <факзимол>Автоматический вывод Цитат с BashOrg
---------------------------------------------------------------------------
R[REQUEST_URI];

    if (!(strpos($request_uri, "?") === false)) {
        list($uri, $req) = explode("?", $request_uri, 2);
    }

    $lock = $ea_cache->get(qfw-lock);
    
    if (strval($lock) == )  {
        $ea_cache->set(qfw-lock, lokked, 10);
        $db = new ezSQL_mysql(megrez, MbOUaq8xHBV8YJK6, altair, localhost);
        $db->query("SET NAMES CP1251");

        $res = $db->get_results("select approved_id id, rating, text, status_changed_at approved_at from quotes where status_id = 7 order by rand() limit 1;", ARRAY_A);
        $res = $res[0];

        $quote  = <div id="b_q"><a href="http://bash.im/quote/.$res[id].">#.$res[id].</a>;
        $quote .= <span id="b_q_h">[ .$res[rating]. ]</span>;
        $quote .= <div id="b_q_t" style="padding: 1em 0;">.$res[text].</div>;
        $quote .= <small><a href="http://bash.im/" target="_blank" title="bash.im откроется в новом окне">Больше на bash.im!</a></small>;
        $quote .= </div>;
        $quote = preg_replace(/</, " ", $quote);

        $ea_cache->set(qfw, $quote, 0);
    }
    
    $quote = $ea_cache->get(qfw);

    if (isset($req)) {
        switch ($req) {
            case "u":
                $quote = iconv("cp1251", "UTF8", $quote);
                header("Content-Type: text/html; charset=utf-8");
                break;
            case "k":
                $quote =
---------------------------------------------------------------------------

local sAutoTimeAnekdot = {            -- Время для автоматической отправки Анекдотов
                                     "00:00:00","03:00:00","06:00:00","09:00:00","12:00:00","15:00:00","18:00:00","21:00:00",}            
             local sAutoTimeBashOrg = {            -- Время для автоматической отправки Цитат с bash.org.ru
                                     "01:00:00","04:00:00","07:00:00","10:00:00","13:00:00","16:00:00","19:00:00","22:00:00",}
             local sAutoTimeFacts = {            -- Время для автоматической отправки Цитат с bash.org.ru
                                     "02:00:00","05:00:00","08:00:00","11:00:00","14:00:00","17:00:00","20:00:00","23:00:00",}

local AutoAnekdot = false            -- Автоматический вывод Анекдотов ( false запретить / true разрешишь)
local AutoBashOrg = false            -- Автоматический вывод Цитат с BashOrg ( false запретить / true разрешишь)
local AutoFacts = true                -- Автоматический вывод Интересных Фактов ( false запретить / true разрешишь)

MgsBashOrg=string.gsub(MgsBashOrg,"var anekdot_i = Math.rou","")