myDC.ru

Здравствуйте, гость ( Вход | Регистрация )

 

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

Теги
Vizunchik
сообщение 24.10.2011, 23:31
Сообщение #1


Постоялец
******

Группа: Пользователи
Сообщений: 403
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 114 раза





Название скрипта: dalliance ; старое "Anekdot+BashOrg"
Версия скрипта: 2.0
Автор: Vizunchik
Библиотека: для работы скрипта требуется библиотека LuaSocket
Описание: Скрипт выдаёт через меню случайные анекдоты и цитаты с башорга, а также автоматический выводит в чат по определённому времени.
Подправил:
  • Словесный "понос" в анекдотах
  • Вывод анекдотов оформил
  • И мелкие штрихи в самом коде
  • 17.10.2011
  • Добавил сообщение о том что проблемы с получением анекдота либо цитаты
  • И удалил не нужное
  • Обновил до 2.0
  • Исправил вывод башорга
  • Добавил интересные факты
  • 20.03.2012
  • обновил вывод цитат с башорга


Настройки скрипта:
Код
--Ниже находится то, что можно настраивать
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",}
--Выше находится то, что можно настраивать

Прикрепленные файлы
Прикрепленный файл  dalliance.lua ( 10.07 килобайт ) Кол-во скачиваний: 107
 


Спасибо сказали:
Go to the top of the page
+Quote Post
 
Начать новую тему
Ответов
Vizunchik
сообщение 9.11.2011, 8:18
Сообщение #2


Постоялец
******

Группа: Пользователи
Сообщений: 403
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 114 раза




обновил скрипт
Go to the top of the page
+Quote Post
Vizunchik
сообщение 17.11.2011, 13:47
Сообщение #3


Постоялец
******

Группа: Пользователи
Сообщений: 403
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 114 раза




обновил скрипт до Версии: 1.4b
Go to the top of the page
+Quote Post
Vizunchik
сообщение 20.12.2011, 17:58
Сообщение #4


Постоялец
******

Группа: Пользователи
Сообщений: 403
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 114 раза




Обновил до 2.0
Исправил вывод башорга
Добавил интересные факты
Go to the top of the page
+Quote Post
wolf night
сообщение 20.3.2012, 15:40
Сообщение #5


Участник
**

Группа: Пользователи
Сообщений: 30
Регистрация: 28.2.2010
Из: Москва
Пользователь №: 6 203
Спасибо сказали: 1 раз




Стали криво выводится Цытаты


[16:37:41] *<факзимол>#BashOrg по запросу
---------------------------------------------------------------------------
a: я кошмарно потолстела =(
Dart: да ладно тебе, не говори глупости
Dart: через год ты будешь вспоминать, какая сейчас была худенькая и смеяться над собой.
bela: !!!!!!!!!!
Dart: черт, наверное фиго
---------------------------------------------------------------------------


[16:37:55] *<факзимол>#BashOrg по запросу
---------------------------------------------------------------------------
ika: откуда в армии доступ в инэт? )
kicune: Откуда в армии ПК для обычных смертных?
Lentyi: Раз такие вопросы задаете, значит не служили)
Lentyi: Армия она как Yandex - Н
---------------------------------------------------------------------------
Go to the top of the page
+Quote Post
Vizunchik
сообщение 20.3.2012, 19:22
Сообщение #6


Постоялец
******

Группа: Пользователи
Сообщений: 403
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 114 раза




исправил
Go to the top of the page
+Quote Post
wolf night
сообщение 20.3.2012, 20:35
Сообщение #7


Участник
**

Группа: Пользователи
Сообщений: 30
Регистрация: 28.2.2010
Из: Москва
Пользователь №: 6 203
Спасибо сказали: 1 раз




Цитата(Vizunchik @ 20.3.2012, 20:22) *
исправил



Спасибо , все работает
Go to the top of the page
+Quote Post
whuru
сообщение 17.6.2012, 20:45
Сообщение #8


Участник
**

Группа: Пользователи
Сообщений: 40
Регистрация: 22.3.2009
Пользователь №: 2 696
Спасибо сказали: 0 раз




У меня почему-то ничего не появляется, хотя запускается скрипт без ошибок, но его нигде не видно и не слышно. Различные варианты настроек пробовал - ничего. Luasocket присутствует, PtokaX v.0.4.1.2
Go to the top of the page
+Quote Post
Vizunchik
сообщение 17.6.2012, 21:02
Сообщение #9


Постоялец
******

Группа: Пользователи
Сообщений: 403
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 114 раза




попробуй в чат ввести следующие команды
+анекдот
+башорг
+факты

не заметил ЭТОТ скрипт для Verlihub а не для PtokaX
Go to the top of the page
+Quote Post
wolf night
сообщение 24.7.2012, 15:34
Сообщение #10


Участник
**

Группа: Пользователи
Сообщений: 30
Регистрация: 28.2.2010
Из: Москва
Пользователь №: 6 203
Спасибо сказали: 1 раз




Пора обновлять скрипт , bash.org что то изменил на сайте , анекдоты и факты выводятся нормально а цитаты стали показывать вот так :

Код
[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 =
---------------------------------------------------------------------------
Go to the top of the page
+Quote Post
KCAHDEP
сообщение 24.7.2012, 21:42
Сообщение #11


Глубина-глубина, я не твой… Отпусти меня, глубина…
****

Группа: Пользователи
Сообщений: 197
Регистрация: 13.10.2010
Из: Россия
Пользователь №: 7 882
Спасибо сказали: 23 раза




у меня норм выводит, правда на птоке...
Go to the top of the page
+Quote Post
Артём
сообщение 25.7.2012, 10:52
Сообщение #12


Наруто на аваторке
***********

Группа: Пользователи
Сообщений: 2 605
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 767 раз




KCAHDEP, ну и чего тогда здесь написал? Эта тема верли, а не птоки
Go to the top of the page
+Quote Post
KCAHDEP
сообщение 25.7.2012, 22:15
Сообщение #13


Глубина-глубина, я не твой… Отпусти меня, глубина…
****

Группа: Пользователи
Сообщений: 197
Регистрация: 13.10.2010
Из: Россия
Пользователь №: 7 882
Спасибо сказали: 23 раза




Цитата(Артём @ 25.7.2012, 11:52) *
KCAHDEP, ну и чего тогда здесь написал? Эта тема верли, а не птоки

парсинг страницы то адын.
Go to the top of the page
+Quote Post
wolf night
сообщение 28.8.2012, 14:14
Сообщение #14


Участник
**

Группа: Пользователи
Сообщений: 30
Регистрация: 28.2.2010
Из: Москва
Пользователь №: 6 203
Спасибо сказали: 1 раз




Цитата(wolf night @ 24.7.2012, 16:34) *
Пора обновлять скрипт , bash.org что то изменил на сайте , анекдоты и факты выводятся нормально а цитаты стали показывать вот так :

Код
[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 =
---------------------------------------------------------------------------





сейчас нормально работает скрипт а вот на момент написания сообщения скрипт выводил около недели то что написанно выше , потом все стало нормально
Go to the top of the page
+Quote Post
trup
сообщение 18.2.2013, 17:48
Сообщение #15


Абсолютный новичок


Группа: Пользователи
Сообщений: 3
Регистрация: 18.2.2013
Пользователь №: 11 336
Спасибо сказали: 0 раз




заметил проблему.
скрипт иногда не выводит в чат вообще ничего, нет даже сообщения "К сожалению, на данный момент бла-бла-бла не доступно.".
проблема возникает в разное время и с разными сервисами. например в 3 ночи не вывело анекдот, а в 11 утра не вывело интересный факт.
расписание вывода инфы такое
Код
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",}

думал что вывод сообщения о недоступности веб сервиса вообще поломался. поэтому в целях эксперимента, пробовали закрыть на файре http://webdiscover.ru/ , скрипт в нужное время выругался о недоступности сервиса...

версия верли 1.0.0 от Fri Mar 30 2012

есть идеи?
Go to the top of the page
+Quote Post
Vizunchik
сообщение 18.2.2013, 22:12
Сообщение #16


Постоялец
******

Группа: Пользователи
Сообщений: 403
Регистрация: 4.11.2008
Из: Город Уфа
Пользователь №: 994
Спасибо сказали: 114 раза




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

везде true ?
Go to the top of the page
+Quote Post
trup
сообщение 18.2.2013, 22:15
Сообщение #17


Абсолютный новичок


Группа: Пользователи
Сообщений: 3
Регистрация: 18.2.2013
Пользователь №: 11 336
Спасибо сказали: 0 раз




ну естественно.
баг плавающий, он не зависит от конкретного веб сервиса и от конкретного времени.
баг словил как минимум 2 раза за сутки (вывод инфы каждый час, итого 24 раза за сутки).
Go to the top of the page
+Quote Post
trup
сообщение 10.5.2013, 18:04
Сообщение #18


Абсолютный новичок


Группа: Пользователи
Сообщений: 3
Регистрация: 18.2.2013
Пользователь №: 11 336
Спасибо сказали: 0 раз




в последней строке последнего анекдота, появилась строка "var anekdot_i = Math.rou"
как бы исправить?
Go to the top of the page
+Quote Post
wolf night
сообщение 13.6.2013, 20:01
Сообщение #19


Участник
**

Группа: Пользователи
Сообщений: 30
Регистрация: 28.2.2010
Из: Москва
Пользователь №: 6 203
Спасибо сказали: 1 раз




Цитата(trup @ 10.5.2013, 19:04) *
в последней строке последнего анекдота, появилась строка "var anekdot_i = Math.rou"
как бы исправить?



Тоже замечаю в каждом выводе анекдотов этой фразы
Go to the top of the page
+Quote Post
Ksan
сообщение 14.6.2013, 9:10
Сообщение #20


Белый Волк
*********

Группа: Пользователи
Сообщений: 1 715
Регистрация: 11.9.2008
Из: г.Томск
Пользователь №: 516
Спасибо сказали: 649 раз




trup, wolf night, попробуйте после 197-й строки скрипта (из сообщения #1 этой темы) добавить эту строку (новую):
Код
MgsBashOrg=string.gsub(MgsBashOrg,"var anekdot_i = Math.rou","")
Go to the top of the page
+Quote Post

Ответить в данную темуНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

Collapse

> Похожие темы

  Тема Ответов Автор Просмотров Последнее сообщение
No New Posts KCAHDEP DDoS & Flood на "Озерки"
ВЫГНАТЬ В ШЕЮ!
0 Болото 2 395 2.12.2015, 4:09 Посл. сообщение: Болото
Closed ВАЖНО: Topic has attachmentsКто У Нас Откуда :) Или "ты С Какого Района?"
Признаемся кто где живет)
81 Jaska 54 576 18.3.2012, 3:14 Посл. сообщение: HOUSE
Closed Адаптация игры "Мафия" с PtokaX на RusHub
9 Mangust 6 990 26.1.2012, 0:39 Посл. сообщение: dimajak
No New Posts Topic has attachmentsГолосование "Опросы"
Скрипт для проведения опросов
0 Vizunchik 2 895 9.12.2011, 23:45 Посл. сообщение: Vizunchik
No new Topic has attachmentsЦены На Тарифы Или "у Кого Инет Почем?"
Обсуждаем своих провайдеров.
66 D'aspid 40 444 7.9.2011, 20:57 Посл. сообщение: AfLc
No New Posts Что дает "включение WEB-сервера"?
2 Angel_D 3 247 8.8.2011, 22:07 Посл. сообщение: Setuper
No new Обмен "DC блог <-> Хаб"
Информационный обмен
17 Otshelnik-Fm 10 277 3.5.2011, 1:44 Посл. сообщение: Otshelnik-Fm
No new Topic has attachmentsзахват символа "/"
символ / не ловится скриптом, перехватывается птокой
29 степашка 16 689 13.3.2011, 3:23 Посл. сообщение: Alexey
No new Topic has attachmentsСкрипт "Майор" Основан на "Подарки от деда мороза" API 2
Это мой первый скрипт не судите строго
14 Ferb 7 710 24.2.2011, 17:43 Посл. сообщение: Ferb
No new Topic has attachmentsСкрипт "Народная мудрость"
API2
17 HidDen 14 185 8.2.2011, 1:42 Посл. сообщение: Артём
No New Posts Topic has attachmentsАвтоматическое заполнение поля "Ник"
7 mishanspb 5 817 27.1.2011, 18:05 Посл. сообщение: mishanspb
Closed ChatLogMySQL и знак "%"
2 dimajak 3 520 18.11.2010, 23:20 Посл. сообщение: Saymon21
No new Topic has attachmentsДжинглы "русского Радио"
API2 | Вывод случайного джингла из текст.базы
22 SCALOlaz 20 372 7.11.2010, 7:26 Посл. сообщение: Click77
No New Posts Раздача домена в зоне "globalnet.net.ua"
Бесплатно сделаю домен в зоне - "globalnet.net.ua"
6 Slavon 7 010 6.11.2010, 12:14 Посл. сообщение: Артём
No New Posts "приколист"
скрипт
3 MARVELtm 3 847 31.10.2010, 20:23 Посл. сообщение: Артём

 



RSS Сейчас: 20.10.2018, 2:06