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

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

MyDC.ru _ Служебные скрипты [PtokaX] _ Антипорно

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

Название: MonPorn
Автор: c00Lo
Версия: ?
Версия API: 1&2
Язык: Русский
Описание: Антипорно. При поиске запрешенных слов, в чате появляется уведомление о том,что ктото ищет порнуху big_smile.gif. Зы-слова ни редактирвал.все осталось как и было в оригинале).

 MonPorn_newapi.lua ( 1.78 килобайт ) : 387
 MonPorn.lua ( 1.67 килобайт ) : 136
 

Автор: skonda 25.2.2009, 20:44

подскажите, как сделать чтобы этот скрипт выдавал фразы в чат не каждый раз когда ищут XXX porno и тд, а скажем через раз а лучше через два? а то дрочеры весь чат зафлудили )) К тому же так интереснее имхо один набрал в поиске порно и ничего, другой спалился. Подскажите как это реализовать?

Автор: skonda 26.2.2009, 12:26

P.S. подскажите как сделать, чтобы фраза в чате была видна всем кроме автора этого самого поискового запроса?

Автор: Wariner 26.2.2009, 13:38

в принципе можно так

Код
            local numb = math.random (1, 3 )
            if numb == 1 then
                Core.SendToAll(gen2) --ппц короче палево
            end

чем больше интервал указанный в первой строке этого кода local numb = math.random (1, 3 ) тем меньше вероятность появления палева в чате

Автор: skonda 26.2.2009, 20:42

А как сделать чтобы палево в чате видели все, кроме того кто пробил в поиске порно и спалился ?

такой уж у нас народ избалованный, чуть начинает палиться сразу сливаються с хаба ((

Автор: Wariner 26.2.2009, 21:26

геморно это при большом количестве народу будет хаб нагружать + всё равно спалит какой нибудь знакомый....

Код
function SearchArrival(user,data)
    Core.GetUserAllData(user)
    for i = 1,#Table do
    local s,e,what = string.find(data, "$Search %S+%s%S+?%S+?%S+?%S+?(.*)|")
        if string.find( what , Table[i] , 1 , true ) then
            local gen1 = Table2[math.random(1, #Table2)]    
            local gen2 = string.gsub(gen1, "666", "<"..user.sNick..">")
            local gen2 = string.gsub(gen2, "777", what)
            local gen2 = string.gsub(gen2, "$", " ")
            local numb = math.random (1, 3 )
            if numb == 1 then
                local tUsers = Core.GetOnlineUsers()
                for i,v in pairs(tUsers) do
                    if v.sNick ~= user.sNick then
                        Core.SendToUser(v, gen2) --ппц короче палево
                    end
                end                    
            end
        end
    end
end

Автор: skonda 26.2.2009, 23:00

спасибо буду пробовать

Автор: yaDroLLL 27.2.2009, 1:23

А у меня ошибка((( (API1)

Syntax ...0.3.5.2.LUA.5.1.1.RUS.by.NRJ\scripts\палево.lua:25: 'then' expected near 'Core'

Это когда я добавляю

CODE
function SearchArrival(user,data)
Core.GetUserAllData(user)
for i = 1,#Table do
local s,e,what = string.find(data, "$Search %S+%s%S+?%S+?%S+?%S+?(.*)|")
if string.find( what , Table[i] , 1 , true ) then
local gen1 = Table2[math.random(1, #Table2)]
local gen2 = string.gsub(gen1, "666", "<"..user.sNick..">")
local gen2 = string.gsub(gen2, "777", what)
local gen2 = string.gsub(gen2, "$", " ")
local numb = math.random (1, 3 )
if numb == 1 then
local tUsers = Core.GetOnlineUsers()
for i,v in pairs(tUsers) do
if v.sNick ~= user.sNick
Core.SendToUser(v, gen2) --ппц короче палево
end
end
end
end
end
end

Автор: Setuper 27.2.2009, 1:26

неужели непонятно, что слова then не хватает?

Код
if v.sNick ~= user.sNick then
  Core.SendToUser(v, gen2) --ппц короче палево
end

Автор: skonda 27.2.2009, 2:01

народ у вас пашет скрипт ? чето ниче в чат не выдает с каких бы IP-ов и ников не искали порнуху.

Автор: Drakula 1.3.2009, 22:49

Ваще скрипт хороший, но в него нельзя добавить ещё слова для поиска. API2

Автор: Санёк 14.3.2009, 20:21

Супер! shocked.gif

Автор: yaDroLLL 15.3.2009, 15:44

Цитата(skonda @ 27.2.2009, 2:01) *
народ у вас пашет скрипт ? чето ниче в чат не выдает с каких бы IP-ов и ников не искали порнуху.

у меня тоже самое. Когда я делаю т.к. там написали, чтобы тот кто ищет не видел что он палится в общем чате, вообще не отображает ничего.

Автор: Wariner 15.3.2009, 16:14

Это исправление можно вносить только в API 2

Автор: yaDroLLL 25.3.2009, 5:06

Цитата(Wariner @ 26.2.2009, 21:26) *
геморно это при большом количестве народу будет хаб нагружать + всё равно спалит какой нибудь знакомый....

Вообщем заново начну still_dreaming.gif Вот тот код что ты дал, его и заменял, и добавлял к готовому, ни чё не вылазит когда ищут порно. API1. Можно подробнее как сделать можно? confuse.gif

Автор: Wariner 25.3.2009, 7:59

2yaDroLLL: ты читать умеешь??? Написано же только для API 2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Автор: yaDroLLL 25.3.2009, 8:59

я вкурсе!, Но не можешь ли ты сделать на API1 ? baffle.gif

Автор: Setuper 25.3.2009, 12:08

http://mydc.ru/topic605.html

Автор: ArthurBlack 28.7.2009, 14:30

Кто подскажет, как сделать, чтобы отчёты о поиске приходили не в общак, а в приват опу хаба?

Автор: Артём 28.7.2009, 15:48

Цитата(yaDroLLL @ 25.3.2009, 8:59) *
я вкурсе!, Но не можешь ли ты сделать на API1 ? baffle.gif

Вот big_smile.gif  MonPorn.lua ( 1.61 килобайт ) : 9

Автор: степашка 28.7.2009, 17:59

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

Автор: Артём 29.7.2009, 16:52

Цитата(ArthurBlack @ 28.7.2009, 14:30) *
Кто подскажет, как сделать, чтобы отчёты о поиске приходили не в общак, а в приват опу хаба?

Вот держи,переделал,в Опчат теперь идут сообщения greedy.gif Работает,проверил! victory.gif
 MonPorn_API2_ToOps.lua ( 1.96 килобайт ) : 28

P.S. Вот только зачем это нужно в Опчате непойму...

Автор: alcorp 10.9.2009, 14:55

Лучше переделайте, чтобы скрипт ТТН файлов брал из вспомогательных текстовых файликов.
А то совершенно неудобно работать с базой.

Автор: Артём 10.9.2009, 20:46

alcorp этот скрипт просто палит 'дрочунов' в чате,но не наказует...

Автор: Санёк 30.9.2009, 22:30

Пользователи злостно флудят этим поиском! Можно как-то доделать ? Например не более 3 сообщений об поиске для 1 юзера в любой промежуток времени ???

Автор: voronf4 14.12.2009, 10:08

Цитата(FallenAngel @ 22.12.2008, 2:21) *
Название: MonPorn
Автор: c00Lo
Версия: ?
Версия API: 1&2
Язык: Русский
Описание: Антипорно. При поиске запрешенных слов, в чате появляется уведомление о том,что ктото ищет порнуху big_smile.gif. Зы-слова ни редактирвал.все осталось как и было в оригинале).

А для verlihub не пойдет?

Автор: FallenAngel 14.12.2009, 10:31

Нет. Если самому переделать.