myDC.ru

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

 

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

Теги
Нет тегов для показа
FromeN
сообщение 7.8.2008, 13:09
Сообщение #121


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


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




Название скрипта: Bash.Org.Ru_Script
Версия скрипта: ?
Версия API: API1 & API2
Автор: Nickolya
Описание скрипта: Скрипт показывает цитаты с bash.org.ru. Скрипт под API 2 содержит модернизацию в виде возможности выбора по таймеру посылать цитаты, по команде или одновременно двумя способами из меню и если из меню то куда посылать в приват или мейн!

Дополнительно:

- Для API 1 качать это и размещать в папке хаба (где PtokaX.exe).Прикрепленный файл  pxwsa_l51.rar ( 6.75 килобайт ) Кол-во скачиваний: 266
Если не будет работать, тогда еще вот это: Прикрепленный файл  cc3270.rar ( 220.58 килобайт ) Кол-во скачиваний: 249

- Для API 2библиотеку PXLuaSocket качаем вот отсюда http://mydc.ru/topic43.html
Прикрепленные файлы
Прикрепленный файл  Bash.Org.Ru_Script_API_1.rar ( 73.39 килобайт ) Кол-во скачиваний: 292
Прикрепленный файл  Bash.Org.Ru_Script_API_2.rar ( 21.58 килобайт ) Кол-во скачиваний: 851
 
Go to the top of the page
+Quote Post
8 страниц V  « < 5 6 7 8 >  
Начать новую тему
Ответов
Setuper
сообщение 9.5.2009, 11:37
Сообщение #122


RusHub team lead
**************

Группа: Модераторы
Сообщений: 4 030
Регистрация: 20.6.2008
Из: г. Королёв (Моск. обл.)
Пользователь №: 46
Спасибо сказали: 1708 раз




Тогда уж надо делать временную зависимость показа, то есть показывать только днём big_smile.gif
Go to the top of the page
+Quote Post
Accelerator
сообщение 29.5.2009, 9:05
Сообщение #123


Developer
******

Группа: Модераторы
Сообщений: 541
Регистрация: 11.11.2008
Пользователь №: 1 075
Спасибо сказали: 244 раза




А как сделать так, чтобы при вводе команды +BASH_show выводились сразу все цитаты, а не по одной?
Скажем, пользователь вводит команду +BASH_show, ему выдаёт в ЛС посл. N цитат, кол-во цитат будет задаваться в count = "30"
Go to the top of the page
+Quote Post
Uncle_Dif
сообщение 23.6.2009, 10:41
Сообщение #124


Освоившийся участник
*****

Группа: Пользователи
Сообщений: 335
Регистрация: 18.5.2009
Из: Уфа, штат Солнечная Башкирия
Пользователь №: 3 353
Спасибо сказали: 7 раз




Скачал Башорг под API 2, установил.
Мне пишет:[13:31] Синтаксис ...f-Hub\InstaHub-0.23\InstaHub\scripts\Bash.Org.Ru.lua:110: attempt to call global 'SaveToFile' (a nil value)
Нашел строку:SaveToFile(sNewNumbers, tNewNumbers, "tNewNumbers")
она в низу скрипта:function OnExit()
SaveToFile(sNewNumbers, tNewNumbers, "tNewNumbers")
end

function OnTimer()
if tTimesToUpdate[os.date("%H:%M")] and tonumber(os.date("%S")) == 0 then
Core.SendToOps("<"..sBot.."> *** Текущее время: "..os.date("%H:%M:%S")..", пора обновлять базы баша! Максимальное время ожидания - "..iCanWait.." секунд.")
SendRequest()
end
if sType == "Timer" or sType == "TimerPlusMenu" then
iTimes2 = iTimes2 + 1
if iTimes2 >= iTimeToSend then
iTimes2 = 0
Core.SendToAll("<"..sBot..">"..SendQuote())
end
end
collectgarbage("collect")
end
Скрипт не запускается, что здесь поправить, чтобы запустить?
Go to the top of the page
+Quote Post
Wariner
сообщение 23.6.2009, 13:35
Сообщение #125


Самый главный активист :-D
***********

Группа: Модераторы
Сообщений: 2 790
Регистрация: 29.6.2008
Из: г. Тула
Пользователь №: 97
Спасибо сказали: 440 раз




в 0410 птоке несколько иначе прописываются пути. возможно надо так
Код
sScriptsPath = Core.GetPtokaXPath()
Go to the top of the page
+Quote Post
Uncle_Dif
сообщение 23.6.2009, 16:20
Сообщение #126


Освоившийся участник
*****

Группа: Пользователи
Сообщений: 335
Регистрация: 18.5.2009
Из: Уфа, штат Солнечная Башкирия
Пользователь №: 3 353
Спасибо сказали: 7 раз




Цитата(Wariner @ 23.6.2009, 14:35) *
в 0410 птоке несколько иначе прописываются пути. возможно надо так
Код
sScriptsPath = Core.GetPtokaXPath()



Пойду апсасну убьюсь. А эту строку где искать ?
Go to the top of the page
+Quote Post
Wariner
сообщение 23.6.2009, 18:55
Сообщение #127


Самый главный активист :-D
***********

Группа: Модераторы
Сообщений: 2 790
Регистрация: 29.6.2008
Из: г. Тула
Пользователь №: 97
Спасибо сказали: 440 раз




ну наверно в скрипте xDDD там есть два возможных варианта неужели так трудно проверить?
Go to the top of the page
+Quote Post
Sekretchik
сообщение 2.7.2009, 19:07
Сообщение #128


Продвинутый участник
****

Группа: Пользователи
Сообщений: 104
Регистрация: 1.4.2009
Из: Россия
Пользователь №: 2 871
Спасибо сказали: 42 раза




Спасибо за скрипт. Давно искал и вот нашел. Все прекрасно работает на Ptokax 0.4.1.1 LUA 1.5.3 API 2
Кое что подправил под себя а в остальном все работает отлично. Аффтару Респект!!!
Один Вопрос, при обновлении базы пишет количество 100 - можно увеличить это число?
Go to the top of the page
+Quote Post
Wariner
сообщение 2.7.2009, 20:14
Сообщение #129


Самый главный активист :-D
***********

Группа: Модераторы
Сообщений: 2 790
Регистрация: 29.6.2008
Из: г. Тула
Пользователь №: 97
Спасибо сказали: 440 раз




в скрипте нет ограничения, он берёт все цитаты находящиеся в данный момент на страничке.


Спасибо сказали:
Go to the top of the page
+Quote Post
Sekretchik
сообщение 2.7.2009, 23:19
Сообщение #130


Продвинутый участник
****

Группа: Пользователи
Сообщений: 104
Регистрация: 1.4.2009
Из: Россия
Пользователь №: 2 871
Спасибо сказали: 42 раза




Сенькас.
Go to the top of the page
+Quote Post
ZZZZZ
сообщение 8.7.2009, 6:55
Сообщение #131


Начинающий
*

Группа: Пользователи
Сообщений: 28
Регистрация: 8.4.2009
Из: АЛАТЫРЬ
Пользователь №: 2 967
Спасибо сказали: 0 раз




вопрос такой: что нужно сделать, чтобы антимат проверял цитаты? а то не айс получается...
Go to the top of the page
+Quote Post
Setuper
сообщение 8.7.2009, 13:19
Сообщение #132


RusHub team lead
**************

Группа: Модераторы
Сообщений: 4 030
Регистрация: 20.6.2008
Из: г. Королёв (Моск. обл.)
Пользователь №: 46
Спасибо сказали: 1708 раз




Для этого нужно встраивать антимат в скрипт. По другому никак))
Go to the top of the page
+Quote Post
Shurupas
сообщение 12.7.2009, 18:51
Сообщение #133


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


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




Bash.Org.Ru.lua:103: attempt to concatenate global 'sMsg' (a nil value)
что это? при комментирировании строки 103 ошибку не выдает

как отсылать цитаты в главный чат запрашиваему юзеру
Go to the top of the page
+Quote Post
ghost07
сообщение 16.3.2010, 14:37
Сообщение #134


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


Группа: Пользователи
Сообщений: 7
Регистрация: 11.3.2010
Пользователь №: 6 317
Спасибо сказали: 0 раз




Спасибо за скрипт, вопрос аналогичный. Как выводить несколько цитат?
Go to the top of the page
+Quote Post
FosFriend
сообщение 12.4.2010, 8:34
Сообщение #135


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


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




Хороший скрип , автору огромное спасибо
Go to the top of the page
+Quote Post
basma4
сообщение 9.6.2010, 21:05
Сообщение #136


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


Группа: Пользователи
Сообщений: 9
Регистрация: 7.6.2010
Пользователь №: 7 010
Спасибо сказали: 0 раз




Народ помогите скачал все как ту сказано !
умну Птоха 0,4,1,2 АПИ2 ОСь Веник 7

скачал Lib 2.0.2, xml c баша стяунл заменил сам думал существующим будет работать
ну не хочет работаь баш, пишет в базе нет пока сообщений, и не выходит доп поля типа скачать базу и т.п.
что я не так делаю? помогите
Go to the top of the page
+Quote Post
Nickolya
сообщение 9.6.2010, 23:22
Сообщение #137


Главный ра******й тут...
*********

Группа: Главные администраторы
Сообщений: 1 727
Регистрация: 18.5.2008
Из: RF, 2la
Пользователь №: 1
Спасибо сказали: 776 раз




Цитата(basma4 @ 9.6.2010, 22:05) *
xml c баша стяунл заменил сам думал существующим будет работать
ну не хочет работаь баш, пишет в базе нет пока сообщений, и не выходит доп поля типа скачать базу и т.п.
что я не так делаю? помогите

Как ты что сам заменил? Скрипт сохраняет страницу на диск для наглядности, в принципе, это лишнее действие, обновляет базы он исключительно с интернета и сам.
Go to the top of the page
+Quote Post
basma4
сообщение 10.6.2010, 12:19
Сообщение #138


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


Группа: Пользователи
Сообщений: 9
Регистрация: 7.6.2010
Пользователь №: 7 010
Спасибо сказали: 0 раз




Цитата(Nickolya @ 10.6.2010, 0:22) *
Как ты что сам заменил? Скрипт сохраняет страницу на диск для наглядности, в принципе, это лишнее действие, обновляет базы он исключительно с интернета и сам.


все заработал ! спс ! каспр епт мешал обновлять базы цитат !
еще вопрос можно ли как то что бы в полчаса в общий чат выкидывал цитаты ?
Go to the top of the page
+Quote Post
Nickolya
сообщение 10.6.2010, 12:54
Сообщение #139


Главный ра******й тут...
*********

Группа: Главные администраторы
Сообщений: 1 727
Регистрация: 18.5.2008
Из: RF, 2la
Пользователь №: 1
Спасибо сказали: 776 раз




Изучай настройки...
Код
iSecondsToSend = 60 * 12                    -- время в скундах для вывода цитат в чат
iSecondsToSendNew = 60 * 5                    -- время в скундах для вывода новых цитат в чат
Go to the top of the page
+Quote Post
derschaman
сообщение 19.11.2010, 2:45
Сообщение #140


Начинающий
*

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




По-поводу замены мата в цитатах.. (выдрал из скрипта замены мата на слово)

1. Ищем в файле Core.lua строчку:

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

2. ПОСЛЕ этой строчки добавляем:

Код
        -- 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Оо][Зз]"] = {},
    }


3. Ищем строчки:
Код
    for sWhatNeedToGsub, sToWhat in pairs(tNeedToGsub) do
        sIncomingBuffer = sIncomingBuffer:g(sWhatNeedToGsub, sToWhat)
    end


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


5. Крайне рекомендую также удалить следующие файлы:
Bash.Org.Ru.xml
tAllData.tbl
tNewNumbers.tbl

6. Запускаем скрипт, заново получаем цитаты, и ...вуаля..теперь вместо мата у нас слово для замены big_smile.gif)

P.S. На всякий случай прикрепил свой файл Core.lua
Прикрепленные файлы
Прикрепленный файл  Core.lua ( 5.82 килобайт ) Кол-во скачиваний: 6
 
Go to the top of the page
+Quote Post
MARVELtm
сообщение 19.11.2010, 11:54
Сообщение #141


Активный участник
***

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




омг , как же баш и без мата! Установи скрипт анекдотов и радуйся!
Go to the top of the page
+Quote Post

8 страниц V  « < 5 6 7 8 >
Ответить в данную темуНачать новую тему
5 чел. читают эту тему (гостей: 5, скрытых пользователей: 0)
Пользователей: 0

Collapse

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

  Тема Ответов Автор Просмотров Последнее сообщение
No New Posts От: Цитатник Рунета
От темы с ID: 263
5 Setuper 9 061 22.3.2009, 20:44 Посл. сообщение: Accelerator
No new Topic has attachmentsОт: Цитатник Рунета
От темы с ID: 263
18 Nickolya 19 723 6.1.2009, 16:08 Посл. сообщение: Serhio
No New Posts От: Цитатник Рунета
От темы с ID: 263
10 xprofi 15 667 11.12.2008, 12:21 Посл. сообщение: artsi81

 



RSS Сейчас: 15.11.2024, 2:46