myDC.ru

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

 
 
 Ответить в данную темуНачать новую тему

> Нужен Скрипт, Антирека чтобы в личках не банило,а просто не пускало рекламку
Теги
Нет тегов для показа
Артём
сообщение 20.10.2008, 22:06
Сообщение #1


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

Группа: Пользователи
Сообщений: 2 606
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 774 раза
Помогите пожалуйста мне настроить мою антирекламку так чтобы она не банила в личных сообщениях,а просто не высвечивало рекламку для получателя baffle.gif .... Зарание спасибо
Go to the top of the page
+Quote Post
Sephiroth_Lukaw
сообщение 22.10.2008, 11:42
Сообщение #2


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

Группа: Пользователи
Сообщений: 307
Регистрация: 11.7.2008
Пользователь №: 173
Спасибо сказали: 31 раз
Цитата
RekPmMode=2 -- Режим наказания за рекламу в привате (0 = постоянный бан/1 = временный бан на время, установленное в настройках хаба/2 = временный бан на время, указанное в переменной BanTime/3 = только сообщение админу и оператотам о рекламе)
Ну...если не один из режимов тебе не подходит, можно ещё два дописать(-

Код
            SendPmToOps(MainBot, "*** "..Texts[2].." "..user.sName.." ["..user.sIP.."] "..Texts[4].." "..msg)
            if RekPmMode==0 then
                user:SendData(MainBot, "*** "..Texts[1])                user:Ban()
                return 1
            end
            if RekPmMode==1 then
                user:SendData(MainBot, "*** "..Texts[1])
                user:TempBan()
                return 1
            end
            if RekPmMode==2 then
                user:SendData(MainBot, "*** "..Texts[1])
                user:TimeBan(RekBanTime)
                return 1
            end
            if RekPmMode==3 then
            end
заменить на
Код
if RekPmMode ~= 4 then
SendPmToOps(MainBot, "*** "..Texts[2].." "..user.sName.." ["..user.sIP.."] "..Texts[4].." "..msg)
end
            if RekPmMode==0 then
                user:SendData(MainBot, "*** "..Texts[1])
                user:Ban()
                return 1
            end
            if RekPmMode==1 then
                user:SendData(MainBot, "*** "..Texts[1])
                user:TempBan()
                return 1
            end
            if RekPmMode==2 then
                user:SendData(MainBot, "*** "..Texts[1])
                user:TimeBan(RekBanTime)
                return 1
            end
            if RekPmMode==3 then
            end
            if RekPmMode==4 then
                        return 1
            end
            if RekPmMode==5 then
                        return 1
            end

Должно сработать, хотя не проверял)))
P.S.
Код
RekPmMode=4 -- Не пропускает сообщение с рекламой в PM. НЕ СООБЩАЕТ ОПАМ О РЕКЛАМЕ!
RekPmMode=5 -- Не пропускает сообщение с рекламой в PM. Сообщает Операторам о рекламе!
Go to the top of the page
+Quote Post
Артём
сообщение 27.10.2008, 13:22
Сообщение #3


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

Группа: Пользователи
Сообщений: 2 606
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 774 раза
:smile2: БОЛЬШУЩЕЕ СПАСИБО ! ! ! ! Работает

А для чата тоже самое можно прописать? ops.gif
Go to the top of the page
+Quote Post
Sephiroth_Lukaw
сообщение 27.10.2008, 14:33
Сообщение #4


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

Группа: Пользователи
Сообщений: 307
Регистрация: 11.7.2008
Пользователь №: 173
Спасибо сказали: 31 раз
Цитата(Артём @ 27.10.2008, 16:22) *
А для чата тоже самое можно прописать? ops.gif

А смысл? Чем 3 режим не подходит? И веселит вроде)))
Цитата
RekAllMode=3 -- Режим наказания за рекламу в общем чате (0 = постоянный бан/1 = временный бан на время, установленное в настройках хаба/2 = временный бан на время, указанное в переменной BanTime/3 = замена фразы с рекламой на фразу из таблицы RekSubs)
Go to the top of the page
+Quote Post
Артём
сообщение 27.10.2008, 15:17
Сообщение #5


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

Группа: Пользователи
Сообщений: 2 606
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 774 раза
confuse.gif Просто иногда надоедает флуд....Флудят,пытаются обойти антирекламу
Go to the top of the page
+Quote Post
Sephiroth_Lukaw
сообщение 27.10.2008, 15:39
Сообщение #6


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

Группа: Пользователи
Сообщений: 307
Регистрация: 11.7.2008
Пользователь №: 173
Спасибо сказали: 31 раз
А так не будут пытаться?Оо Тогда уж банить(-

P.S.
SendToAll(FromNick, Data) - Дословно, Отправить для всех
RekAllMode=3 -- Режим наказания за рекламу в общем чате
if - если
Находим RekAllMode
Видим
Код
...
if RekAllMode==3 then
SendToAll(user.sName, RekSubs[math.random(table.maxn(RekSubs))])
return 1
end
...

Т.е. для того, что бы создать 4 режим, просто копируем эту часть кода и заменяем 3 на 4
Код
...--Там выше код 3, 2 режима и т.п.
if RekAllMode==4 then
SendToAll(user.sName, RekSubs[math.random(table.maxn(RekSubs))])
return 1
end

Но, т.к. нам не нужно отправлять в чат сообщение, даже с замененной рекламой, удаляем строчку - "SendToAll(user.sName, RekSubs[math.random(table.maxn(RekSubs))])" т.е. код для 4 режиме становиться таким
Код
if RekAllMode==4 then
return 1
end
Go to the top of the page
+Quote Post
Артём
сообщение 27.10.2008, 19:52
Сообщение #7


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

Группа: Пользователи
Сообщений: 2 606
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 774 раза
dribble.gif я запутался,но попробую сделать :(

confuse.gif Не получилось,лазил лазил,так и не понял,только нервы подпортил немножко choler.gif
baffle.gif Помоги прошу baffle.gif
Go to the top of the page
+Quote Post
Sephiroth_Lukaw
сообщение 27.10.2008, 20:08
Сообщение #8


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

Группа: Пользователи
Сообщений: 307
Регистрация: 11.7.2008
Пользователь №: 173
Спасибо сказали: 31 раз
Заменить это
CODE
SendPmToOps(MainBot, "*** "..Texts[2].." "..user.sName.." ["..user.sIP.."] "..Texts[3].." "..msg)
if RekAllMode==0 then
user:SendData(MainBot, "*** "..Texts[1])
user:Ban()
return 1
end
if RekAllMode==1 then
user:SendData(MainBot, "*** "..Texts[1])
user:TempBan()
return 1
end
if RekAllMode==2 then
user:SendData(MainBot, "*** "..Texts[1])
user:TimeBan(RekBanTime)
return 1
end
if RekAllMode==3 then
SendToAll(user.sName, RekSubs[math.random(table.maxn(RekSubs))])
return 1
end
Вот на это
CODE
SendPmToOps(MainBot, "*** "..Texts[2].." "..user.sName.." ["..user.sIP.."] "..Texts[3].." "..msg)
if RekAllMode==0 then
user:SendData(MainBot, "*** "..Texts[1])
user:Ban()
return 1
end
if RekAllMode==1 then
user:SendData(MainBot, "*** "..Texts[1])
user:TempBan()
return 1
end
if RekAllMode==2 then
user:SendData(MainBot, "*** "..Texts[1])
user:TimeBan(RekBanTime)
return 1
end
if RekAllMode==3 then
SendToAll(user.sName, RekSubs[math.random(table.maxn(RekSubs))])
return 1
end
--То, что добавили :-)
if RekAllMode==4 then
return 1
end

Код
RekAllMode=4 -- Просто, не пропустить сообщение с рекламой в чат
Go to the top of the page
+Quote Post
Артём
сообщение 27.10.2008, 23:23
Сообщение #9


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

Группа: Пользователи
Сообщений: 2 606
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 774 раза
choler.gif Я щас с у ма сойду..... dribble.gif Не как не получается сделать,Пожалуйста если можешь сделай буду ОЧЕНЬ СИЛЬНО БЛАГОДАРЕН baffle.gif
Вот мой скрипт ,он уже переделан на личку,а чат не могу переделать (чтобы не показывало рекламки)
ПРОШУ ПОМОЩИ!!!!!! ops.gif
Go to the top of the page
+Quote Post
Sephiroth_Lukaw
сообщение 27.10.2008, 23:40
Сообщение #10


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

Группа: Пользователи
Сообщений: 307
Регистрация: 11.7.2008
Пользователь №: 173
Спасибо сказали: 31 раз
Attachment.
Прикрепленные файлы
Прикрепленный файл  Hub_Security__Антиреклама_матёрая_sl.lua ( 14.67 килобайт ) Кол-во скачиваний: 30
 
Go to the top of the page
+Quote Post
FallenAngel
сообщение 28.10.2008, 0:21
Сообщение #11


[n00b]
*****

Группа: Пользователи
Сообщений: 291
Регистрация: 10.7.2008
Из: Россия,Пенза
Пользователь №: 168
Спасибо сказали: 24 раза
эм...а можно как бы "соединить" с антиматом?? Т.Е.-в отдельной папке лежат запрешеные слова-там как мат,так и рекламные сообщния, и еще один файл в папке-это слова на какие надо заменять...ибо тут все таки маловато слов матных, да и заменяемых фраз тож не очень много....
Go to the top of the page
+Quote Post
Артём
сообщение 28.10.2008, 0:35
Сообщение #12


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

Группа: Пользователи
Сообщений: 2 606
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 774 раза
Цитата(FallenAngel @ 28.10.2008, 0:21) *
эм...а можно как бы "соединить" с антиматом?? Т.Е.-в отдельной папке лежат запрешеные слова-там как мат,так и рекламные сообщния, и еще один файл в папке-это слова на какие надо заменять...ибо тут все таки маловато слов матных, да и заменяемых фраз тож не очень много....


feel_good.gif А эт ты сам уже должен прописать маты на какие будет реагировать скрипт

Цитата(Sephiroth_Lukaw @ 27.10.2008, 23:40) *
Attachment.


:smile2: БОЛЬШУЩЕЕ СПАСИБО ТЕБЕ...Выручил !!!!!!! :smile2:
Go to the top of the page
+Quote Post
FallenAngel
сообщение 28.10.2008, 7:27
Сообщение #13


[n00b]
*****

Группа: Пользователи
Сообщений: 291
Регистрация: 10.7.2008
Из: Россия,Пенза
Пользователь №: 168
Спасибо сказали: 24 раза
не спорю что сам..прост чтобы на отельную папку ссылалось..а не в самом скрипте слова то..
Go to the top of the page
+Quote Post
Артём
сообщение 28.10.2008, 8:58
Сообщение #14


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

Группа: Пользователи
Сообщений: 2 606
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 774 раза
confuse.gif .... нащёт этого я незнаю
Go to the top of the page
+Quote Post
« Предыдущая тема · Kорзина · Следующая тема »
 

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

Collapse

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

  Тема Ответов Автор Просмотров Последнее сообщение
No new Topic has attachmentsНерабочий скрипт ВИПа по шаре
 16 Damaks 18 679 23.2.2023, 7:16 Посл. сообщение: mod
No new Topic has attachmentsMagneto - Бесплатный Скрипт Портала Обмена Dc-ссылками Для Локальной Сети
 26 UserSide 39 469 27.8.2019, 11:01 Посл. сообщение: CyberGhost404
No New Posts От: Новогодний Скрипт
От темы с ID: 871
 0 Евгений 2 826 15.10.2018, 21:44 Посл. сообщение: Евгений
No New Posts А бывают такой скрипт бота?
Скрипт который создает виртуалных юзеров, но с реальными шарами
 5 MarkDark 7 418 26.12.2017, 10:47 Посл. сообщение: мамин_парень
No New Posts Скрипт: Бот который отвечает в лс
 4 мамин_парень 7 080 11.11.2017, 5:57 Посл. сообщение: мамин_парень
No New Posts как сделать вот этот скрипт
 12 мамин_парень 11 264 13.9.2017, 10:51 Посл. сообщение: dimetro
No New Posts Topic has attachmentsИщу скрипт переадресации (redirect)
Переадресация интернет-юзеров
 3 AS_Com 6 694 27.8.2017, 8:05 Посл. сообщение: Ksan
No New Posts Topic has attachmentsСкрипт Thunder.lua
 7 Евген76 14 601 9.8.2017, 11:48 Посл. сообщение: Ksan
No New Posts Требуется скрипт
Нужен скрипт запрета на подключение
 5 Nikolaevich 8 873 20.8.2016, 19:52 Посл. сообщение: Ksan
No new ВАЖНО: Topic has attachmentsСкрипт банов для RusHub
тестим и комменьтруем
 79 Wariner 99 816 28.9.2015, 13:34 Посл. сообщение: NeirRon
No New Posts Скрипт загрузки файла
 1 FreeNas 6 034 21.7.2015, 10:58 Посл. сообщение: HackFresse
No new Как вызвать bash скрипт из Lua
 14 Iskandark 16 102 3.3.2015, 12:42 Посл. сообщение: Iskandark
No new Topic has attachmentsНовогодний Скрипт
API2
 22 Tsd 33 949 12.12.2014, 16:28 Посл. сообщение: Tsd
No New Posts Скрипт запрета видеть чат
запрет видеть чат
 2 dimetro 6 869 5.12.2014, 17:37 Посл. сообщение: dimetro
No New Posts Topic has attachmentsпеределать скрипт kinozal.tv
 6 BOKOREZ 12 099 30.10.2014, 18:29 Посл. сообщение: Dani_Filth

 

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

RSS Сейчас: 23.4.2024, 11:40