myDC.ru

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

 
История благодарностей участнику Accelerator. Спасибо сказали: 244
Дата поста: В теме: За сообщение: Спасибо сказали:
11.8.2010, 18:53 Помогите реализовать скрипт с PtokaX для Verlihub
Попробуй, но не знаю будет ли работать скрипт. С API верли не особо знаком, скрипт переделывал по мануалу к верли.
Herurg
6.8.2010, 15:10 ChatLogsMySQL
версия 4.3d
    Версия 4.1:
  • Магнет и обычные ссылки теперь записываются в базу полностью вместе с комментарием
Sorrow
5.8.2010, 10:38 Ваши Вопросы И Предложения По Поводу Форума
Это значит, что с последнего твоего визита новых сообщений в темах на форуме не появилось.
Invisible
3.8.2010, 15:44 С Днюхой Тебя!
поздравления
Присоединюсь к поздравлениям big_smile.gif X-Sky, с Днём Рождения!
X-Sky
2.8.2010, 20:35 ChatLogsMySQL
версия 4.3d
    Версия 4.0:
  • Поправлена ошибка с парсером смайлов(некоторые смайлы не определялись)
  • Версия скрипта также работает на PtokaX

Nickolya, Saymon21
31.7.2010, 13:14 ChatLogsMySQL
версия 4.3d
Доступна новая версия скрипта!
    Версия 3.2:
  • Смайлики на веб-странице отображаются графически(Спасибо alex82)
Nickolya
3.7.2010, 16:52 UserArea
API2 | Пользователи онлайн из вашего района
Сообщение переместил в форум Готовые скрипты
Nickolya, Unique
1.7.2010, 16:49 Нужен скрипт "Из какого района пользователь"
вместо sUser поставь tUser

Цитата(Артём @ 1.7.2010, 17:13) *
а может сделать опционально и чтобы отдельно файл с тегом и диапазоном IP сохранялся?

По началу так и хотел сделать, но потом передумал. big_smile.gif
Pro009
1.7.2010, 5:52 Нужен скрипт "Из какого района пользователь"
Доработал скрипт. Проверил, вроде бы всё нормально.
Pro009
30.6.2010, 20:07 Нужен скрипт "Из какого района пользователь"
Собственно набросал тут скриптик, но, возможно, может работать не правильно [attachment=4666:userarea.lua] Времени проверить нет, если ошибки есть, завтра доработать постараюсь.
Pro009
21.6.2010, 14:18 Анти-спам, помогите найти.
forZejkee
17.6.2010, 14:51 ChatLogsMySQL
версия 4.3d
    Версия 3.1:
  • В базу теперь также записываются профиль и IP-адрес юзера
  • Изменения в веб интерфейсе
      - Ники пользователей в логах теперь выделяются различными цветами в зависимости от профиля

Nickolya, Saymon21
16.6.2010, 16:46 ChatLogsMySQL
версия 4.3d
Добавлена версия 3.0 Release:
  • Исправлена ошибка с парсером ссылок в сообщении и занесением их в БД
  • Добавлено экранирование данных в запросах к БД
  • Изменения в веб интерфейсе


Nickolya
15.6.2010, 16:49 ChatLogsMySQL
версия 4.3d
Цитата(Nickolya @ 15.6.2010, 19:26) *
Accelerator, а экранирование данных в запросах ты вообще не применяешь? Получается огромная брешь в скрипте...

С экранированием в RusHub'е проблемы возникают. Выводились различные ошибки. Если вечером надумаю проверить скрипт, кину ошибки, которые выдаёт, если экранировать запросы.

UPD: Всё работает! В релизе 3й версии всё сделаю как надо.
Nickolya
15.6.2010, 11:18 ChatLogsMySQL
версия 4.3d
Добавлена версия 3.0 Beta
  • Логирование магнет и обычных ссылок
  • Исправлена опечатка в local https
  • Убрана неиспользуемая таблица ChangeTime
  • Изменения в веб интерфейсе


P.S.: Скрипт не проверил, поэтому если возникнут ошибки, просьба отписываться здесь.
Nickolya, Setuper, Saymon21
11.6.2010, 11:19 Бот
Искать скрипт(ы), в котором(ых) используется старое имя бота.
Nickolya
10.6.2010, 17:11 Нужно убрать бота
Поставь перед
Код
Core.RegBot(botname,"","",true) -- Comment this line to not have bot appear in user list. Note: If botname is not
Цитата
--


или
Код
botname = "История_чата" -- имя бота
меняем на
Код
botname = SetMan.GetString(21)
prokazzza
10.6.2010, 11:16 Матогенератор
API2
В начале скрипта добавляешь таблицу профилей:
Код
local tProfiles = {
[-1] = 0,
[0] = 1,
[1] = 1,
[2] = 1,
[3] = 1,
}

После
Код
if cmd == "!mat" then
добавляешь:
Код
if tProfiles[user.iProfile] == 1 then
После
Код
            Core.SendToNick(user.sNick,"Вы не ввели имя жертвы!")
        end
добавляешь:
Код
else
Core.SendToNick(user.sNick, "У вас нет доступа к этой команде!")
end
prokazzza, 111222
8.6.2010, 18:47 ! Часто Задаваемые Вопросы !
Обязательно прочитать всем!!!
Как сделать ограничения действий или добавить исключения по никам пользователей?

Создаём таблицу с никами
Код
local tNicks = {
    ["Вася"] = 1, -- Васе доступно использование команды (т.к. значение = 1)
    ["Петя"] = 0, -- Пете использование команды не доступно (т.к. значение = 0)
}

затем в куске кода который надо ограничить пишем
Код
if tNicks[tUser.sNick] == 1 then
     -- код
else
Core.SendToUser(tUser, "<"..SetMan.GetString(21).."> Использование команды для вас не доступно!")
end
Invisible, Milena, Saymon21
8.6.2010, 18:37 Запрет снятия банов, поставленных другими людьми
Цитата(X-Sky @ 8.6.2010, 20:41) *
То есть как сделать таблицу ников-исключений


http://mydc.ru/topic1164.html?view=findpost&p=31018
Nickolya, bot9ra
24.5.2010, 10:21 Помогите со скриптом
перед
Код
if sUser.iProfile == -1 then
поставь --
на 5 строке перед end поставь --
forZejkee
23.5.2010, 8:17 ChatLogsMySQL
версия 4.3d
Добавлена новая версия скрипта.
    Версия 2.0:
  • Изменения в веб-интерфейсе
  • Некоторые мелкие дорабоки
  • Все dchub, http, https, ftp, магнет ссылки(спасибо alex82) и тд. теперь будут отображаться в логе как гиперссылки
Nickolya, Saymon21, ImDim
21.5.2010, 15:51 С Днюхой Тебя!
поздравления
Присоединяюсь к поздравлениям! Nickolya, с Днём Рождения! big_smile.gif
Nickolya
19.5.2010, 19:33 Отключение чата!
Тоже птока 0.4.1.2. Всё прекрасно работает, скрипт в самом низу списка: [attachment=4513:test.lua]
forZejkee
19.5.2010, 19:25 Отключение чата!
Цитата(forZejkee @ 19.5.2010, 22:24) *
Не неработает ,чат недоступен.

У меня всё работает. Посмотри код, я там подредактировал кое-что ещё.
forZejkee
19.5.2010, 19:05 Отключение чата!
Цитата(forZejkee @ 19.5.2010, 22:02) *
Не всёравно не пашут :( Можеш плз в коде поправить если не трудно big_smile.gif

Выше код.
forZejkee
19.5.2010, 18:58 Отключение чата!
Код
Save = {
"+rules", "!rules",
}

function ChatArrival(sUser, sData)
local Data = string.find(sData,"%b<>%s(.*)")
if sUser.iProfile == -1 then
if Saved(Data) then
return false
end
Core.SendToUser(sUser, "<"..SetMan.GetString(21).."> Вам нельзя пользоваться чатом и приватом, пока вы не зарегистрируетесь!")
return true
end
end
ToArrival = ChatArrival

function Saved(Text)
    for _,v in ipairs(Save) do
        if string.find(Text, v) then
            return true
        end
    end
    return false
end
forZejkee
19.5.2010, 18:54 Отключение чата!
Код отредактировал. Я функцию ChatArrival закончить забыл, точнее end поставить big_smile.gif
forZejkee
19.5.2010, 18:48 Отключение чата!
Код
function ChatArrival(sUser, sData)
if sUser.iProfile == -1 then
Core.SendToUser(sUser, "<"..SetMan.GetString(21).."> Вам нельзя пользоваться чатом и приватом, пока вы не зарегистрируетесь!")
return true
end
end
ToArrival = ChatArrival
forZejkee
19.5.2010, 17:03 Добавить команду к скрипту регистраций
Добавить команду к скрипту регистраций
Тему закрываю, т.к. сплошной офтоп пошёл...
Nickolya, Saymon21, sania
13.5.2010, 16:34 Подскажмите пожалуйста.
Плиз
http://mydc.ru/topic1164.html?view=findpost&p=8577
Устное предупреждение за неумение пользоваться поиском!

Topic Closed.
Тёмич
3.5.2010, 16:02 Ptokax Win Gui
Руководство по установке и настройке
Цитата(Fire_heart @ 3.5.2010, 18:52) *
У меня папка с данными, которая должна быть доступна в хабе находится на компе, где установлен сервер хаба. Дак вот, для того чтобы не запускать еще и дополнительно клиент с этой шарой, можно ли эту шару дать основному боту?

Нельзя.
Nickolya
3.5.2010, 13:04 Нужен скрипт для Ptokax: антифлуд, антиспам
чтобы кикал юзеров, которые спамят и флудят в чате
2_brat_: учись пользоваться поиском! Пока что устное предупреждение.

Тему закрываю.
forZejkee
2.5.2010, 8:08 Нужен скрипт для Ptokax называется "ваше меню"
В скрипте есть помощь, регистрация, профиль, живопись
Действия - http://mydc.ru/topic54.html
Команды профиля - http://mydc.ru/topic174.html
Регистрация - http://mydc.ru/ipb.html?act=Search&COD...%F0%E0%F6%E8%FF
мамин_парень
28.4.2010, 14:02 Антиреклама
Цитата(TROJAN @ 28.4.2010, 16:41) *
-чтобы админу приходилдо сообщение по типу: *** Внимание! Вероятная попытка несанкционированной рекламы! Пользователь nickname [ip] пытался сообщить в приват следующую фразу: (првиат/чат выбералось само)
В самое начало скрипта:
Код
Send = "Main" -- Main: чат; PM: Личка; OpChat: ОпЧат
sAdminNick = "admin" -- Ник админа

Перед
Код
            Core.SendToAll("*** Пользователь "..tUser.sNick.." лишён права отправки сообщений. Причина: реклама.")
добавляем:
Код
if Send == "Main" then
Core.SendToNick(sAdminNick, "<"..sBot.."> *** Внимание! Вероятная попытка несанкционированной рекламы! Пользователь "..tUser.sNick.." (IP: "..tUser.sIP..") пытался сообщить следующую фразу: "..sData)
elseif Send == "PM" then
Core.SendPmToNick(sAdminNick, sBot, "*** Внимание! Вероятная попытка несанкционированной рекламы! Пользователь "..tUser.sNick.." (IP: "..tUser.sIP..") пытался сообщить следующую фразу: "..sData)
elseif Send == "OpChat" then
Core.SendToOpChat("<"..sBot.."> *** Внимание! Вероятная попытка несанкционированной рекламы! Пользователь "..tUser.sNick.." (IP: "..tUser.sIP..") пытался сообщить следующую фразу: "..sData)
end
SAG
27.4.2010, 18:52 Можно ли банить по мак-адресу?
Вопрос уже задавался: http://mydc.ru/topic659.html
Цитата(mariner)
при проходе через сетевые шлюзы, роутеры и т.д. мак меняется на мак шлюза, в результате ты можешь забанить тысячи людей.
li4nost
31.3.2010, 18:55 Ищу скрипт
который показывает информацию из тхт файла
Цитата(TIRAN @ 31.3.2010, 21:38) *
Информация\\Справка\\Что идёт в кинотеатре\\
Информация\\Справка\\Контакты\\
Информация\\Справка\\Правила хаба\\

http://mydc.ru/topic1164.html?p=8577#entry8577
TIRAN
27.3.2010, 6:36 RegBot.MySQL_API2
API2 | Скрипт регистрации с занесением в базу MySQL
Цитата(Kingston @ 27.3.2010, 4:39) *
А поподробнее, что происходит?

При написании сообщения в чат напишет такое:
Цитата
<PtokaX> Данная команда недоступна для вашего профиля!
Происходит это потому что ты сделал чат доступным только тем, которым выставлен флаг в таблице tProfiles. big_smile.gif
Код
    if tProfiles[tUser.iProfile] == 1 then -- делаем чат доступным только тем, кому выставлен флаг в таблице
                ...
                if cmd == "!errorsregs" then
                ...
                         return true -- лишнее
        else
        Core.SendToUser(tUser, "<"..bot.."> Данная команда недоступна для вашего профиля!")
    end
return true
end
Должно быть так:
Код
        if cmd == "!errorsregs" then
                        if tProfiles[tUser.iProfile] == 1 then -- Делаем команду доступной только тем, у кого есть флаг
                ...
        else
        Core.SendToUser(tUser, "<"..bot.."> Данная команда недоступна для вашего профиля!")
    end
return true -- глушим команду
end
Так нужно делать для всех команд big_smile.gif В своём варианте скрипта именно это я и сделал, посмотри код и увидишь что я исправил big_smile.gif
Kingston
26.3.2010, 19:13 RegBot.MySQL_API2
API2 | Скрипт регистрации с занесением в базу MySQL
В чате нельзя общаться, если качать скрипт из первого поста! Вот мой вариант скрипта:
[attachment=4294:RegBot.M...1.5_API2.lua]
Добавил ещё функцию просмотра своего пароля

Также добавляю новую версию веб-интерфейса. Изменений немного, всего лишь добавил:
Цитата
Всего зарегистрировано n пользователей

[attachment=4295:hubreg.rar]
Вскоре попробую решить проблему с вылазиньем ошибки при успешной регистрации <_<
Saymon21
8.3.2010, 19:42 Нужна помощь!
Код
Core.SendToUser(user,userinf..ftr)
на
Код
Core.SendToUser(user,"<"..SetMan.GetString(21).."> "..userinf..ftr)
jumshut
8.3.2010, 18:09 Статистика
версия 2.0
У себя проверил, никаких ошибок пока не заметил. Веб-статистика обновляется.
Порядок установки:
1. Извлечь архив в папку с RusHub'ом (Не в папку scripts)
2. Отредактировать пути, открыв файл scripts\stats.lua блокнотом
3. Создать на вебе папку, которая была указана в путях сохранения веб статистики.
Saymon21
8.3.2010, 17:57 Статистика
версия 2.0
Название: Статистика
Версия: 2.0
Автор: STRELOK
Описание:
Ведёт статистику хаба. Также в веб-интерфейсе!
Изменения:
    Версия 2.0:
  • Доработал шаблон
  • Исправлено несколько мелких ошибок

    Версия 2.0 beta
  • Добавлена веб статистика

Для работы скрипта необходимо скачать модуль files и Utils здесь

Порядок установки:
1. Извлечь архив в папку с RusHub'ом (Не в папку scripts)
2. Отредактировать пути, открыв файл scripts\stats.lua блокнотом
3. Создать на вебе папку, которая была указана в путях сохранения веб статистики.
Invisible, Otshelnik-Fm, Saymon21, ke(x)one
7.3.2010, 8:12 CollectorMagnets
Должно быть что то типо такого
Код
for sMagnet in sData:gmatch"([magnet][http]:%S+)" do
Но захватывает только 2 последних символа:
Код
tp://ya.ru
. Не могу понять, что нужно поставить, чтобы захватило полностью все символы :(
Otshelnik-Fm
6.3.2010, 8:17 Нужна помощь!
Исправь
Код
Core.SendToNick(user.sNick,tmp)
на
Код
Core.SendToNick(user.sNick, ("<%s> %s"):format(Bot, tmp))
jumshut
4.3.2010, 9:23 Официальная страничка RusHUB
Внимание - вопрос
Собственно вот шаблон big_smile.gif [attachment=4166:RusHubTemplate.rar]
Nickolya, BIMMER71, bot9ra
3.3.2010, 21:09 Официальная страничка RusHUB
Внимание - вопрос
Завтра попробую сделать несколько простых страничек. big_smile.gif
bot9ra
3.3.2010, 20:10 Модули для скриптов RusHub
Прикрепляю модуль киков. При использовании команды $kick юзера не отключало от хаба.
[attachment=4165:kick.lua]
Установка:
1. Модуль кладём в папку libs
2. В любом скрипте(я добавил в BanManager.lua) добавляем в самом начале require "kick"
Saymon21
3.3.2010, 18:05 CollectorMagnets
Добавил новую версию скрипта.
    Версия 3.0:
  • Если в сообщении несколько магнет ссылок, то сохраняются все
  • Добавил служебные сообщения
  • Добавил функцию Экстренной очистки базы магнет ссылок
Nickolya
22.2.2010, 18:02 HelloToNewUsers
API1, API2 | Приветствие новому юзеру
Это:
Код
        Core.SendToAll("<"..sBot.."> Приветствуем нового юзера на нашем хабе <"..tUser.sNick..">")

Заменить на:
Код
        Core.SendToUser(tUser, "<"..sBot.."> Приветствуем нового юзера на нашем хабе <"..tUser.sNick..">")
Dr_Pilulkin™
22.2.2010, 17:23 Вопросы по скриптам
Мелкие вопросы
Код
function ChatArrival(user, sData)
    local sData = string.sub(sData,1,-2)
    local sCmd = sData:match"%b<>%s+[!+*](%S+)"
    if sCmd == "test" or sCmd == "stats" or sCmd == "команда3" then
        ...
    return true
  end    
end
Saymon21
22.2.2010, 16:23 Вопросы по скриптам
Мелкие вопросы
Код
  if sCmd == "команда" or sCmd == "команда2" or sCmd == "команда3" then
Saymon21
22.2.2010, 14:12 Вопросы по скриптам
Мелкие вопросы
Код
sBot = SetMan.GetString(21)
sFile = Core.GetPtokaXPath().."scripts/HelpFiles/help.txt"

function ChatArrival(tUser, sData)
    sData = string.sub(sData,1,-2)
    local sCmd = sData:match"%b<>%s+[!+*](%S+)"
    if sCmd == "help" or sCmd == "хелп" then
         Core.SendToUser(tUser, "<"..sBot.."> "..LoadText(sFile))
         return true
    end    
end

function LoadText(filename)
    local message = ""
    local f = io.open( filename, "r" )
    if f then
        message=f:read("*all")
        message=string.gsub(message,"|","")
        f:close()
    end
    return message
end
Saymon21
21.2.2010, 17:14 замена стандартной команде !stat
Цитата(Saymon @ 21.2.2010, 19:14) *
Nickolya, хорошо, спасибо. А как вот сделать например чтобы перфикс команд скрипта указывался не в строке
Код
if cmd == "!stat" or cmd == "!стат" or cmd == "!stats" then

А есть какой то другой параметр точно не помню но чтобы команды работали по перфиксам ! и +

Код
  local sCmd = sData:match"%b<>%s+[!+*](%S+)"
Saymon21
21.2.2010, 14:15 Репорты об ошибках старых версий
архив темы ошибок текущей версии хаба
Цитата(Setuper @ 19.2.2010, 17:02) *
...прошу скрин, чтобы понять в чём проблема.

[attachment=4100:_________.jpg]
[attachment=4099:____.png]
[attachment=4101:_____.jpg]
Setuper
19.2.2010, 21:10 Скрипт банов для RusHub
тестим и комменьтруем
Собственно мой скрипт. big_smile.gif Сделал только одно - использование модуля доступно только админам и ОПам))
Saymon21
18.2.2010, 17:08 CollectorMagnets
Название: CollectorMagnets
Автор: Serx
Перевод под RusHub: STRELOK
Описание:
Сохраняет магнет ссылки. Выводит их по категориям, от ника, за дату.

Для работы скрипта необходимо скачать модуль files здесь
Setuper, Invisible, fixx, Otshelnik-Fm, ExC0tiC, Saymon21, доктор ливси, Snacho, мамин_парень, shadow3c
10.2.2010, 15:04 Переменные
Переменные и их значения
[attachment=4054:Janus_HS...ght_API2.lua]
Saymon21
10.2.2010, 14:56 Переменные
Переменные и их значения
Перевод в часы/минуты/дни/месяца
Код
function GetNormalTime(s)
    s=tonumber(s) or 0
    local r=""
    if s>=31104000 then r=math.floor(s/31104000).." лет " s=math.fmod(s,31104000) end
    if s>=2592000 then r=r..math.floor(s/2592000).." месяцев " s=math.fmod(s,2592000) end
    if s>=86400 then r=r..math.floor(s/86400).." дней " s=math.fmod(s,86400) end
    if s>=3600 then r=r..math.floor(s/3600).." часов " s=math.fmod(s,3600) end
    if s>=60 then r=r..math.floor(s/60).." минут " s=math.fmod(s,60) end
    return r..s.." секунд"
end
Отсылка сообщения
Код
Core.SendToUser(tUser, "<"..sBot.."> Вы забанены на "..GetNormalTime(RekBanTime))

А вообще, надо прикладывать скрипт.
Saymon21
3.2.2010, 17:27 RegBot.MySQL_API2
API2 | Скрипт регистрации с занесением в базу MySQL
Собственно вот скрипт веб-регистрации на хабе с предварительным вводом защитного кода (Captcha)
[attachment=4008:hubreg.rar]
P.S: Может содержать некоторые не значительные ошибки, в будущем поправлю.
P.S.S: Попытался сделать проверку зарегистрированных пользователей из базы данных, увы, я не смог добиться результата beat_shot.gif .
Kingston, Saymon21, MIKHAIL
2.2.2010, 16:32 RegBot.MySQL_API2
API2 | Скрипт регистрации с занесением в базу MySQL
Скрипт до ума довёл![attachment=4004:hubreg.rar]
Теперь дело за автором - сделать чтение зарегистрированных юзеров из MySQL. Я может-быть позже займусь, если автор не сделает. big_smile.gif
Saymon21

4 страниц V  < 1 2 3 4 >
RSS Сейчас: 22.5.2022, 7:41