Версия для печати темы
MyDC.ru _ Служебные скрипты [PtokaX] _ Антипорно
Автор: FallenAngel 22.12.2008, 0:21
Название: MonPorn
Автор: c00Lo
Версия: ?
Версия API: 1&2
Язык: Русский
Описание: Антипорно. При поиске запрешенных слов, в чате появляется уведомление о том,что ктото ищет порнуху . Зы-слова ни редактирвал.все осталось как и было в оригинале).
Автор: 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
Супер!
Автор: 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)
геморно это при большом количестве народу будет хаб нагружать + всё равно спалит какой нибудь знакомый....
Вообщем заново начну
Вот тот код что ты дал, его и заменял, и добавлял к готовому, ни чё не вылазит когда ищут порно. API1. Можно подробнее как сделать можно?
Автор: Wariner 25.3.2009, 7:59
2yaDroLLL: ты читать умеешь??? Написано же только для API 2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Автор: yaDroLLL 25.3.2009, 8:59
я вкурсе!, Но не можешь ли ты сделать на API1 ?
Автор: 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 ?
Вот
MonPorn.lua ( 1.61 килобайт )
: 9
Автор: степашка 28.7.2009, 17:59
спасибо за скрипт. скрипт ржачный, но а) быстро начинает раздражать и б) народ в панике пачками убегает с хаба. радует в принципе возможность ввода любого сочетания для вероятной проверки поисков по определённым словам. ошибок нет. апи-1
Автор: Артём 29.7.2009, 16:52
Цитата(ArthurBlack @ 28.7.2009, 14:30)
Кто подскажет, как сделать, чтобы отчёты о поиске приходили не в общак, а в приват опу хаба?
Вот держи,переделал,в Опчат теперь идут сообщения
Работает,проверил!
MonPorn_API2_ToOps.lua ( 1.96 килобайт )
: 28P.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
Язык: Русский
Описание: Антипорно. При поиске запрешенных слов, в чате появляется уведомление о том,что ктото ищет порнуху
. Зы-слова ни редактирвал.все осталось как и было в оригинале).
А для verlihub не пойдет?
Автор: FallenAngel 14.12.2009, 10:31
Нет. Если самому переделать.