Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

MyDC.ru _ Kорзина _ Нужен Скрипт

Автор: Артём 20.10.2008, 22:06

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

Автор: Sephiroth_Lukaw 22.10.2008, 11:42

Цитата
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. Сообщает Операторам о рекламе!

Автор: Артём 27.10.2008, 13:22

:smile2: БОЛЬШУЩЕЕ СПАСИБО ! ! ! ! Работает

А для чата тоже самое можно прописать? ops.gif

Автор: Sephiroth_Lukaw 27.10.2008, 14:33

Цитата(Артём @ 27.10.2008, 16:22) *
А для чата тоже самое можно прописать? ops.gif

А смысл? Чем 3 режим не подходит? И веселит вроде)))
Цитата
RekAllMode=3 -- Режим наказания за рекламу в общем чате (0 = постоянный бан/1 = временный бан на время, установленное в настройках хаба/2 = временный бан на время, указанное в переменной BanTime/3 = замена фразы с рекламой на фразу из таблицы RekSubs)

Автор: Артём 27.10.2008, 15:17

confuse.gif Просто иногда надоедает флуд....Флудят,пытаются обойти антирекламу

Автор: Sephiroth_Lukaw 27.10.2008, 15:39

А так не будут пытаться?Оо Тогда уж банить(-

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

Автор: Артём 27.10.2008, 19:52

dribble.gif я запутался,но попробую сделать :(

confuse.gif Не получилось,лазил лазил,так и не понял,только нервы подпортил немножко choler.gif
baffle.gif Помоги прошу baffle.gif

Автор: Sephiroth_Lukaw 27.10.2008, 20:08

Заменить это

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 -- Просто, не пропустить сообщение с рекламой в чат

Автор: Артём 27.10.2008, 23:23

choler.gif Я щас с у ма сойду..... dribble.gif Не как не получается сделать,Пожалуйста если можешь сделай буду ОЧЕНЬ СИЛЬНО БЛАГОДАРЕН baffle.gif
Вот мой скрипт ,он уже переделан на личку,а чат не могу переделать (чтобы не показывало рекламки)
ПРОШУ ПОМОЩИ!!!!!! ops.gif

Автор: Sephiroth_Lukaw 27.10.2008, 23:40

Attachment.

 Hub_Security__Антиреклама_матёрая_sl.lua ( 14.67 килобайт ) : 30
 

Автор: FallenAngel 28.10.2008, 0:21

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

Автор: Артём 28.10.2008, 0:35

Цитата(FallenAngel @ 28.10.2008, 0:21) *
эм...а можно как бы "соединить" с антиматом?? Т.Е.-в отдельной папке лежат запрешеные слова-там как мат,так и рекламные сообщния, и еще один файл в папке-это слова на какие надо заменять...ибо тут все таки маловато слов матных, да и заменяемых фраз тож не очень много....


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

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


:smile2: БОЛЬШУЩЕЕ СПАСИБО ТЕБЕ...Выручил !!!!!!! :smile2:

Автор: FallenAngel 28.10.2008, 7:27

не спорю что сам..прост чтобы на отельную папку ссылалось..а не в самом скрипте слова то..

Автор: Артём 28.10.2008, 8:58

confuse.gif .... нащёт этого я незнаю