Live dc++ forum
Форма входа
Логин:
Пароль:
Главная | Клиентские скрипты (greylink) - Страница 6 - Форум | Четверг, 28.03.2024, 16:24
[ Новые сообщения · Участники · Правила форума · Поиск
Форум » >> » 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
 
hmuryДата: Среда, 03.06.2009, 18:10 | Сообщение # 76
Генерал-лейтенант
Сообщений: 599
Репутация: 32
Статус: Offline
Quote (SerJo)
Я уже разобрался, обидно что со звуками это не катит Может кто скажет, как быть?

никак. только за счёт новой версии
 
KURAGEДата: Четверг, 04.06.2009, 19:48 | Сообщение # 77
Генерал-майор
Сообщений: 412
Репутация: 9
Статус: Offline
некому я не нужен sad
 
hmuryДата: Четверг, 04.06.2009, 20:31 | Сообщение # 78
Генерал-лейтенант
Сообщений: 599
Репутация: 32
Статус: Offline
Quote (KURAGE)
некому я не нужен

твоя просьба звучит как "научите меня программировать" smile
 
ZdezBilYaДата: Четверг, 04.06.2009, 22:09 | Сообщение # 79
Рядовой
Сообщений: 5
Репутация: 0
Статус: Offline
Подскажите, пожалуйста, есть ли такой скрипт, который отсылает пользователю хаба ЛС, если он скачивает у меня какой-нибудь файл?
Т.е. я зашел на хаб и те, кто у меня начал скачивать, отправляется в ЛС определенный текст. Конечно нужно отсылать только один раз за сеанс (моё нахождение на хабе).
или может быть есть похожий скрипт, попробую переделать
 
SMTДата: Четверг, 04.06.2009, 22:13 | Сообщение # 80
Генерал-лейтенант
Сообщений: 514
Репутация: 28
Статус: Offline
Quote (ZdezBilYa)
Подскажите, пожалуйста, есть ли такой скрипт, который отсылает пользователю хаба ЛС, если он скачивает у меня какой-нибудь файл?

в текущей версии клиента это невозможно сделать через lua-скрипт. можно на Delphi/C++, написав свой ChatBot.dll
 
ZdezBilYaДата: Пятница, 05.06.2009, 01:40 | Сообщение # 81
Рядовой
Сообщений: 5
Репутация: 0
Статус: Offline
Quote (SMT)
в текущей версии клиента это невозможно сделать через lua-скрипт. можно на Delphi/C++, написав свой ChatBot.dll

а вот такой скрипт:

Code
local sMsg = "*** Connecting: [NICK]"
local sBot = "Bot"

function ConnectToMeArrival(tUser, sData)
   local sNick = sData:match"(%S+) %S+$"
   if sNick then
     Core.SendPmToNick(sNick, sBot, tostring(sMsg:gsub("%[NICK%]", tUser.sNick)))
   end
end

вроде говорят, что должен работать, но почему-то никаких сообщений не получает. где ошибка?

 
SMTДата: Пятница, 05.06.2009, 07:35 | Сообщение # 82
Генерал-лейтенант
Сообщений: 514
Репутация: 28
Статус: Offline
Quote (ZdezBilYa)
вроде говорят, что должен работать, но почему-то никаких сообщений не получает. где ошибка?

это скрипт для хаба PtokaX =) его надо запускать на хабе
 
KURAGEДата: Суббота, 06.06.2009, 02:29 | Сообщение # 83
Генерал-майор
Сообщений: 412
Репутация: 9
Статус: Offline
научите програмировать в lua, lua это мой смысл жизни!
максимум чтоя могу:
бот реагирует на сообщение в общем чате: отпровлеят сообщение в общий чат и в приват.
Code

dcpp = {}

BotSay = {
       {
           ["question"] = {"[AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz]",},
           ["answer"] = {"Общий чат работает.",},
           ["answer2"] = {"Приват работает.",},
       },
       {
           ["question"] = {"[АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя]",},
           ["answer"] = {"Общий чат работает.",},
           ["answer2"] = {"Приват работает.",},
       },
       {
           ["question"] = {"[АаБбВвГ㥴ДдЕеЄєЖжЗзИиІіЇїЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЬьЮюЯя]",},
           ["answer"] = {"Общий чат работает.",},
           ["answer2"] = {"Приват работает.",},
       },
}

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"]))])
                   DC():SendPrivateMessage(cid, mini_table["answer2"][math.random(1,table.getn(mini_table["answer2"]))])                           
                      return nil
                      end
                           end
                   end
           end

           return nil
end

помогите, научите модифицировать следующий скрипт:
Code

dcpp = {}

BotSay = {
       {
           ["question"] = {"[AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz]",},
           ["answer"] = {"Общий чат работает.",},
       },
       {
           ["question"] = {"[АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя]",},
           ["answer"] = {"Общий чат работает.",},
       },
       {
           ["question"] = {"[АаБбВвГ㥴ДдЕеЄєЖжЗзИиІіЇїЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЬьЮюЯя]",},
           ["answer"] = {"Общий чат работает.",},
       },
}

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"]))])
                      return nil
                      end
                           end
                   end
           end

           return nil
end


Сообщение отредактировал KURAGE - Суббота, 06.06.2009, 02:32
 
hmuryДата: Суббота, 06.06.2009, 07:58 | Сообщение # 84
Генерал-лейтенант
Сообщений: 599
Репутация: 32
Статус: Offline
Quote (KURAGE)
научите програмировать в lua, lua это мой смысл жизни!

поставь себе программу хаб PtokaX, для него есть очень много скриптов, например тут:
http://mydc.ru/forum10.html

много людей умеет дедать скрипты для хаба, поэтому повышается вероятность, что тебе кто-то поможет. если освоишь хаб, клиента освоить проще

 
KURAGEДата: Суббота, 06.06.2009, 15:29 | Сообщение # 85
Генерал-майор
Сообщений: 412
Репутация: 9
Статус: Offline
Люди кто знает кошилек GreyTeam хочу помочь ПРОСТО Я БОЛЕЮ ЗА НИХ!!! smile
Желательно иметь с ними хать какую небудь связи то я пару багов отрыл. есть пару важных функций которых нет


Сообщение отредактировал KURAGE - Суббота, 06.06.2009, 15:38
 
SerJoДата: Суббота, 06.06.2009, 15:39 | Сообщение # 86
Полковник
Сообщений: 186
Репутация: 3
Статус: Offline
KURAGE,
о багах и наворотах есть специальные темы - пиши туда, разработчики клиента находятся в тени, т.к. не хотят слушать массовые просьбы. Они посещают этот форум как гости (либо под ником какого-нибудь пользователя) и знакомятся с запросами пользователей. Так что пиши и если твои нововведения действительно весомы их непременно воплотят в жизнь smile

ед. что тебе в помощь — greyteam@mail.ru
(Примечание: не используйте mail.ru Agent, сообщения от него прибиваются)


Запретный плод пользуется популярностью у народа только из-за того, что он запретный, будь он легален - интерес у народа значительно уменьшился б, после критического возрастания :) => легально — не интересно))))

Сообщение отредактировал SerJo - Суббота, 06.06.2009, 15:44
 
KURAGEДата: Вторник, 09.06.2009, 22:05 | Сообщение # 87
Генерал-майор
Сообщений: 412
Репутация: 9
Статус: Offline
Quote (SerJo)
SerJo
спасибо я уже все расщарил biggrin

Добавлено (09.06.2009, 22:05)
---------------------------------------------
Люди помогите в следующий проблеми я пишу мульти скрипт для своего ПМ как сделать чтоб сообщение отправлялось слудующим оброзом:
[21:03:18]<KURAGE>
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
(отправлялось скриптом)

Сообщение отредактировал KURAGE - Вторник, 09.06.2009, 22:05
 
hmuryДата: Вторник, 09.06.2009, 22:10 | Сообщение # 88
Генерал-лейтенант
Сообщений: 599
Репутация: 32
Статус: Offline
переход на новыую строку - это обычный символ "\r\n"
попробуй написать в чате хаба

/lua DC():SendPublicMessage(dc_huburl, "\r\n 123 \r\n 456 ")

 
AniNerbeДата: Вторник, 09.06.2009, 22:43 | Сообщение # 89
Генерал-майор
Сообщений: 434
Репутация: 28
Статус: Offline
Сегодня заинтересовался 2мя демо ботами, написанных греем:
http://www.freewebtown.com/greylink/bin/scripts.rar

spam.lua пишет с заданным периодом спам в общий чат заданного хаба
бота запустил, но что то он по прошествию 10 минут в чат ничего такова не написал
кто нить может проверить этого бота?

sample4.lua Запрет отправки строки "fly"
бот интересный, меня интересует:
1. как в него внести перечень слов, на которые он реагировал бы (через запятую у меня не получилось)
2. бот слегка недоработан: например я хочу чтобы бот реагировал на слова "мля". Если я напишу привет земляни! - бот среагирует (что не правильно).
в итоге я хотел бы в стартап пелинка засунуть бота который бы не давал пользователю писать мат в чат и который бы раз в сутки отсылал в общаг ратио и аптайм.

 
SetuperДата: Среда, 10.06.2009, 00:26 | Сообщение # 90
Майор
Сообщений: 98
Репутация: 6
Статус: Offline
Code
dcpp = {}

tWords = {
   "%sмля%s",
   "%sfly%s"
}

function dcpp.PreviewPublicMessage(huburl, message)
   for k, v in ipairs(tWords) do
     if message:match(v) then
       DC():MessageBox("Не ругайся!", "sample4.lua", "ok", "error")
       return 2
     end
   end
end


lua master
 
Форум » >> » DC++ » Клиентские скрипты (greylink)
Поиск:


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