Live dc++ forum
Форма входа
Логин:
Пароль:
Главная | Клиентские скрипты (greylink) - Страница 12 - Форум | Суббота, 25.11.2017, 01:03
[ Новые сообщения · Участники · Правила форума · Поиск
Страница 12 из 14«121011121314»
Форум » >> » DC++ » Клиентские скрипты (greylink)
Клиентские скрипты (greylink)
hmuryДата: Воскресенье, 05.10.2008, 10:58 | Сообщение # 1
Генерал-лейтенант
Сообщений: 599
Репутация: 32
Статус: Offline
Сайт посвященный Луа http://www.lua.ru
Форум с готовыми скриптами на http://mydc.ru
Еще один форум на http://adrium.ipbfree.com

мой знакомый, Chaser, написал скрипт "объявление на хабе"

Code
dcpp = {}
spamtable = {}
-- spamtable= { ["dc.ru"] = { 0, 10, "sample" } , ["localhost"] = { 0, 12, "hello there!" } }

function spam(hubname, timeout, text)
           spamtable[hubname] = { 0, timeout, text }
end

function dcpp.OnTimer()
           for hubname, hubentry in pairs(spamtable) do
                   if (hubentry[1] == 0) and (hubentry[3] ~= "") then
                           hubentry[1] = hubentry[2]
                           DC():SendPublicMessage(hubname, hubentry[3])
                   else
                           hubentry[1] = hubentry[1] - 1
                   end
           end
           return nil
end

text =          "Спам-бот. Запуск спама на хабе с периодом 600 секунд:\r\n"
text = text ..  "/lua spam(\"dc.ufanet.ru\", 600, \" ТУТ ВАШЕ СООБЩЕНИЕ \")\r\n"
text = text ..  "\r\n"
text = text ..  "Чтобы отключить спам на хабе, наберите\r\n"
text = text ..  "/lua spam(\"dc.ufanet.ru\", 0, \"\")\r\n"
text = text ..  "\r\n"
text = text ..  "Адрес хаба надо писать в точности, как в столбце 'Сервер'\r\n"
text = text ..  "в списке 'Избранных хабов'\r\n"

DC():MessageBox(text, "spam.lua", "ok", "info")
DC():RunTimer(1)

это надо вставить в блокнот и сохранить в папку Scripts с именем spam.lua, обязательно в кодировке utf-8. запуск командой

Code
/luafile spam.lua


Сообщение отредактировал livedc - Четверг, 19.03.2009, 20:19
 
AniNerbeДата: Среда, 03.02.2010, 02:05 | Сообщение # 166
Генерал-майор
Сообщений: 434
Репутация: 28
Статус: Offline
текущая версия антифлуда пропускает сообщения типа:
Quote
ССССУУУУУКККККИИИИИИ

текст обрезается, по 4 символа каждой букве - но антикапс не срабатывает.
Кроме того хотелось бы, чтобы скрипт отлавливал повторяющиеся слова так, как это сделано в MS Word-e
так и смайлами поменьше флудить станут.
 
Н_Е_М_Е_ЦДата: Вторник, 16.02.2010, 02:35 | Сообщение # 167
Рядовой
Сообщений: 3
Репутация: 0
Статус: Offline
Code
dcpp = {}
spamtable = {}
-- spamtable= { ["dc.ru"] = { 0, 10, "sample" } , ["localhost"] = { 0, 12, "hello there!" } }

function spam(hubname, timeout, text)
            spamtable[hubname] = { 0, timeout, text }
end

function dcpp.OnTimer()
            for hubname, hubentry in pairs(spamtable) do
                    if (hubentry[1] == 0) and (hubentry[3] ~= "") then
                            hubentry[1] = hubentry[2]
                            DC():SendPublicMessage(hubname, hubentry[3])
                    else
                            hubentry[1] = hubentry[1] - 1
                    end
            end
            return nil
end

text =          "Спам-бот. Запуск спама на хабе с периодом 600 секунд:\r\n"
text = text ..  "/lua spam(\"dc.ufanet.ru\", 600, \" ТУТ ВАШЕ СООБЩЕНИЕ \")\r\n"
text = text ..  "\r\n"
text = text ..  "Чтобы отключить спам на хабе, наберите\r\n"
text = text ..  "/lua spam(\"dc.ufanet.ru\", 0, \"\")\r\n"
text = text ..  "\r\n"
text = text ..  "Адрес хаба надо писать в точности, как в столбце 'Сервер'\r\n"
text = text ..  "в списке 'Избранных хабов'\r\n"

DC():MessageBox(text, "spam.lua", "ok", "info")
DC():RunTimer(1)

Подскажите как сделать чтоб бот повторял не одну фразу, а разные с разным интервалом.???
Ну очень нада заранее спасибо.

Сообщение отредактировал Н_Е_М_Е_Ц - Вторник, 16.02.2010, 02:36
 
HilomДата: Суббота, 20.03.2010, 11:27 | Сообщение # 168
Рядовой
Сообщений: 2
Репутация: 0
Статус: Offline
Quote (AniNerbe)
Hilom, файл - настройки - сообщения - показывать пришел/ушел для всех юзеров.

Имея возможность отслеживания через средства lua мы получаем широкое применение в использовании такова скрипта. Различный условия и фильтровка кого писать а кого нет, чего нету в "файл - настройки - сообщения..."
 
AmurskДата: Четверг, 08.04.2010, 08:21 | Сообщение # 169
Рядовой
Сообщений: 9
Репутация: 0
Статус: Offline
а где можно найти игровые боты для лички? на нашем хабе нету их но есть комнаты хочу создать комнату и там что б была викторина. есть такие?

Амурск
 
AniNerbeДата: Воскресенье, 11.04.2010, 23:04 | Сообщение # 170
Генерал-майор
Сообщений: 434
Репутация: 28
Статус: Offline
Собрал из разных наработок скрипт-комбайн который одновременно выполняет несколько функций:
ФУНКЦИЯ АВТОР
Анти-флуд Setuper
Анти-капс Setuper
Анти-мат GreyTeam //Конвертатор корней матных слов
Помошник GreyTeam //Приватные команды: качать++; команды++; когда++;
//Чат команды: у кого есть; дайте скачать; почему не качается; немогу качать; немогу скачать; как качать; как скачать;
Выдача слотов zangriEAX //Приватные команда: : slot++
надеюсь хоть в таком виде скрипты станут обиходными.
Прикрепления: startup.rar(3Kb)
 
KURAGEДата: Среда, 14.07.2010, 19:54 | Сообщение # 171
Генерал-майор
Сообщений: 412
Репутация: 9
Статус: Offline
Не хочет работать кто знает почему???
Code

dcpp = {}

BotSay = {
     {
         ["question"] = {"всем привет",},
         ["answer"] = {"[NICK] привет",},
     },
     {
         ["question"] = {"всем пока",},
         ["answer"] = {"[NICK]! не уходи!!!",},
     },
}

function dcpp.OnPublicMessage(cid, msg)
         local userInfo = DC():GetUserInfo(cid)
          if (userInfo.ME ~= "1") then
           local huburl = userInfo.HL
            for _, mini_table in pairs(BotSay) do
             for _, trigger in pairs(mini_table["question"]) do
              if string.find(msg, trigger) then
               DC():SendPublicMessage(huburl, mini_table["answer"][math.random(1,table.getn(mini_table["answer"]))]:gsub("%[NICK%]", userInfo.NI))
                    return nil
                    end
                         end
                 end
         end

         return nil
end
 
SMTДата: Среда, 14.07.2010, 21:49 | Сообщение # 172
Генерал-лейтенант
Сообщений: 514
Репутация: 28
Статус: Offline
Quote (KURAGE)
Не хочет работать кто знает почему???

какие-то тонкости LUA.

если заменить самую длинную строчку на две:

Code

                reply = mini_table["answer"][math.random(1,table.getn(mini_table["answer"]))]:gsub("%[NICK%]", userInfo.NI)
                DC():SendPublicMessage(huburl, reply)

то работает

 
KURAGEДата: Среда, 14.07.2010, 23:11 | Сообщение # 173
Генерал-майор
Сообщений: 412
Репутация: 9
Статус: Offline
SMT, а как добавить еще функции типа тег...
я понял смысл просто не знаю как продолжить код
Заранее спасибо!


Сообщение отредактировал KURAGE - Среда, 14.07.2010, 23:11
 
SMTДата: Четверг, 15.07.2010, 07:30 | Сообщение # 174
Генерал-лейтенант
Сообщений: 514
Репутация: 28
Статус: Offline
Quote (KURAGE)
а как добавить еще функции типа тег

это зачем?
 
KURAGEДата: Четверг, 15.07.2010, 13:16 | Сообщение # 175
Генерал-майор
Сообщений: 412
Репутация: 9
Статус: Offline
Quote (SMT)
это зачем?

хочу развить функционал этого бота...
т.к таких ботов очень мало +хочу немного научится писать lua скрипты
 
SMTДата: Четверг, 15.07.2010, 14:18 | Сообщение # 176
Генерал-лейтенант
Сообщений: 514
Репутация: 28
Статус: Offline
нет, я хотел узнать, что такое "функции типа тег"
 
KURAGEДата: Четверг, 15.07.2010, 14:49 | Сообщение # 177
Генерал-майор
Сообщений: 412
Репутация: 9
Статус: Offline
Quote (SMT)
нет, я хотел узнать, что такое "функции типа тег"

чтоб за место [TAG] отбражался тег юзера...
 
SMTДата: Четверг, 15.07.2010, 15:57 | Сообщение # 178
Генерал-лейтенант
Сообщений: 514
Репутация: 28
Статус: Offline
Quote (KURAGE)
чтоб за место [TAG] отбражался тег юзера...

попробуй вместо
Code
               reply = mini_table["answer"][math.random(1,table.getn(mini_table["answer"]))]:gsub("%[NICK%]", userInfo.NI)  

написать

Code
               reply = mini_table["answer"][math.random(1,table.getn(mini_table["answer"]))]:gsub("%[NICK%]", userInfo.NI):gsub("%[TAG%]", userInfo.TAG)
 
KURAGEДата: Четверг, 15.07.2010, 16:30 | Сообщение # 179
Генерал-майор
Сообщений: 412
Репутация: 9
Статус: Offline
SMT, все работает спасибо!!!
конечно это уже будет не мой скрипт но все же...
ты случайно не знаеш как добавить задержку перед запуском скрипта и задержку перед отправкой сообщения shy


Сообщение отредактировал KURAGE - Четверг, 15.07.2010, 16:30
 
SMTДата: Четверг, 15.07.2010, 17:33 | Сообщение # 180
Генерал-лейтенант
Сообщений: 514
Репутация: 28
Статус: Offline
Quote (KURAGE)
как добавить задержку перед запуском скрипта и задержку перед отправкой сообщения

так сообщение отправляется не при запуске скрипта, а при получении сообщения в чат.
или ты хочешь, чтобы скрипт некоторое время после запуска пропускал сообщения в общем чате?
 
Форум » >> » DC++ » Клиентские скрипты (greylink)
Страница 12 из 14«121011121314»
Поиск:


В движке поковырялся LiveDC :p © 2017
Сделать бесплатный сайт с uCoz