myDC.ru

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

 
2 страниц V   1 2 >  
 Ответить в данную темуНачать новую тему

> Антипорно, API1, API2
Теги
Нет тегов для показа
FallenAngel
сообщение 22.12.2008, 1:21
Сообщение #1


[n00b]
*****

Группа: Пользователи
Сообщений: 313
Регистрация: 10.7.2008
Из: Россия,Пенза
Пользователь №: 168
Спасибо сказали: 22 раза
Название: MonPorn
Автор: c00Lo
Версия: ?
Версия API: 1&2
Язык: Русский
Описание: Антипорно. При поиске запрешенных слов, в чате появляется уведомление о том,что ктото ищет порнуху big_smile.gif. Зы-слова ни редактирвал.все осталось как и было в оригинале).
Прикрепленные файлы
Прикрепленный файл  MonPorn_newapi.lua ( 1.78 килобайт ) Кол-во скачиваний: 363
Прикрепленный файл  MonPorn.lua ( 1.67 килобайт ) Кол-во скачиваний: 123
 


Спасибо сказали:
Glebova15, Тёмич, prokazzza, shur49
Go to the top of the page
+Quote Post
skonda
сообщение 25.2.2009, 21:44
Сообщение #2


Продвинутый участник
****

Группа: Пользователи
Сообщений: 141
Регистрация: 16.9.2008
Пользователь №: 545
Спасибо сказали: 1 раз
подскажите, как сделать чтобы этот скрипт выдавал фразы в чат не каждый раз когда ищут XXX porno и тд, а скажем через раз а лучше через два? а то дрочеры весь чат зафлудили )) К тому же так интереснее имхо один набрал в поиске порно и ничего, другой спалился. Подскажите как это реализовать?
Go to the top of the page
+Quote Post
skonda
сообщение 26.2.2009, 13:26
Сообщение #3


Продвинутый участник
****

Группа: Пользователи
Сообщений: 141
Регистрация: 16.9.2008
Пользователь №: 545
Спасибо сказали: 1 раз
P.S. подскажите как сделать, чтобы фраза в чате была видна всем кроме автора этого самого поискового запроса?
Go to the top of the page
+Quote Post
Wariner
сообщение 26.2.2009, 14:38
Сообщение #4


Младший Админ
************

Группа: Модераторы
Сообщений: 2 901
Регистрация: 29.6.2008
Из: г. Тула
Пользователь №: 97
Спасибо сказали: 390 раз
в принципе можно так
Код
            local numb = math.random (1, 3 )
            if numb == 1 then
                Core.SendToAll(gen2) --ппц короче палево
            end

чем больше интервал указанный в первой строке этого кода local numb = math.random (1, 3 ) тем меньше вероятность появления палева в чате
Go to the top of the page
+Quote Post
skonda
сообщение 26.2.2009, 21:42
Сообщение #5


Продвинутый участник
****

Группа: Пользователи
Сообщений: 141
Регистрация: 16.9.2008
Пользователь №: 545
Спасибо сказали: 1 раз
А как сделать чтобы палево в чате видели все, кроме того кто пробил в поиске порно и спалился ?

такой уж у нас народ избалованный, чуть начинает палиться сразу сливаються с хаба ((
Go to the top of the page
+Quote Post
Wariner
сообщение 26.2.2009, 22:26
Сообщение #6


Младший Админ
************

Группа: Модераторы
Сообщений: 2 901
Регистрация: 29.6.2008
Из: г. Тула
Пользователь №: 97
Спасибо сказали: 390 раз
геморно это при большом количестве народу будет хаб нагружать + всё равно спалит какой нибудь знакомый....
Код
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
Go to the top of the page
+Quote Post
skonda
сообщение 27.2.2009, 0:00
Сообщение #7


Продвинутый участник
****

Группа: Пользователи
Сообщений: 141
Регистрация: 16.9.2008
Пользователь №: 545
Спасибо сказали: 1 раз
спасибо буду пробовать
Go to the top of the page
+Quote Post
yaDroLLL
сообщение 27.2.2009, 2:23
Сообщение #8


Начинающий
*

Группа: Пользователи
Сообщений: 18
Регистрация: 20.2.2009
Пользователь №: 2 287
Спасибо сказали: 1 раз
А у меня ошибка((( (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
Go to the top of the page
+Quote Post
Setuper
сообщение 27.2.2009, 2:26
Сообщение #9


Lua-master
**************

Группа: Модераторы
Сообщений: 4 065
Регистрация: 20.6.2008
Из: г. Королёв (Моск. обл.)
Пользователь №: 46
Спасибо сказали: 1390 раз
неужели непонятно, что слова then не хватает?
Код
if v.sNick ~= user.sNick then
  Core.SendToUser(v, gen2) --ппц короче палево
end
Go to the top of the page
+Quote Post
skonda
сообщение 27.2.2009, 3:01
Сообщение #10


Продвинутый участник
****

Группа: Пользователи
Сообщений: 141
Регистрация: 16.9.2008
Пользователь №: 545
Спасибо сказали: 1 раз
народ у вас пашет скрипт ? чето ниче в чат не выдает с каких бы IP-ов и ников не искали порнуху.
Go to the top of the page
+Quote Post
Drakula
сообщение 1.3.2009, 23:49
Сообщение #11


PtokaX DC Hub 0.4.1.2
****

Группа: Пользователи
Сообщений: 184
Регистрация: 20.1.2009
Из: Republic of Belarus, Minsk, Uruchie, Avalon.
Пользователь №: 1 890
Спасибо сказали: 3 раза
Ваще скрипт хороший, но в него нельзя добавить ещё слова для поиска. API2
Go to the top of the page
+Quote Post
Санёк
сообщение 14.3.2009, 21:21
Сообщение #12


Активный участник
***

Группа: Пользователи
Сообщений: 85
Регистрация: 14.3.2009
Из: Belarus', Minsk
Пользователь №: 2 593
Спасибо сказали: 0 раз
Супер! shocked.gif
Go to the top of the page
+Quote Post
yaDroLLL
сообщение 15.3.2009, 16:44
Сообщение #13


Начинающий
*

Группа: Пользователи
Сообщений: 18
Регистрация: 20.2.2009
Пользователь №: 2 287
Спасибо сказали: 1 раз
Цитата(skonda @ 27.2.2009, 2:01) *
народ у вас пашет скрипт ? чето ниче в чат не выдает с каких бы IP-ов и ников не искали порнуху.

у меня тоже самое. Когда я делаю т.к. там написали, чтобы тот кто ищет не видел что он палится в общем чате, вообще не отображает ничего.
Go to the top of the page
+Quote Post
Wariner
сообщение 15.3.2009, 17:14
Сообщение #14


Младший Админ
************

Группа: Модераторы
Сообщений: 2 901
Регистрация: 29.6.2008
Из: г. Тула
Пользователь №: 97
Спасибо сказали: 390 раз
Это исправление можно вносить только в API 2
Go to the top of the page
+Quote Post
yaDroLLL
сообщение 25.3.2009, 6:06
Сообщение #15


Начинающий
*

Группа: Пользователи
Сообщений: 18
Регистрация: 20.2.2009
Пользователь №: 2 287
Спасибо сказали: 1 раз
Цитата(Wariner @ 26.2.2009, 21:26) *
геморно это при большом количестве народу будет хаб нагружать + всё равно спалит какой нибудь знакомый....

Вообщем заново начну still_dreaming.gif Вот тот код что ты дал, его и заменял, и добавлял к готовому, ни чё не вылазит когда ищут порно. API1. Можно подробнее как сделать можно? confuse.gif
Go to the top of the page
+Quote Post
Wariner
сообщение 25.3.2009, 8:59
Сообщение #16


Младший Админ
************

Группа: Модераторы
Сообщений: 2 901
Регистрация: 29.6.2008
Из: г. Тула
Пользователь №: 97
Спасибо сказали: 390 раз
2yaDroLLL: ты читать умеешь??? Написано же только для API 2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Go to the top of the page
+Quote Post
yaDroLLL
сообщение 25.3.2009, 9:59
Сообщение #17


Начинающий
*

Группа: Пользователи
Сообщений: 18
Регистрация: 20.2.2009
Пользователь №: 2 287
Спасибо сказали: 1 раз
я вкурсе!, Но не можешь ли ты сделать на API1 ? baffle.gif
Go to the top of the page
+Quote Post
Setuper
сообщение 25.3.2009, 13:08
Сообщение #18


Lua-master
**************

Группа: Модераторы
Сообщений: 4 065
Регистрация: 20.6.2008
Из: г. Королёв (Моск. обл.)
Пользователь №: 46
Спасибо сказали: 1390 раз
http://mydc.ru/topic605.html
Go to the top of the page
+Quote Post
ArthurBlack
сообщение 28.7.2009, 15:30
Сообщение #19


Абсолютный новичок


Группа: Пользователи
Сообщений: 5
Регистрация: 28.7.2009
Из: UA
Пользователь №: 3 989
Спасибо сказали: 0 раз
Кто подскажет, как сделать, чтобы отчёты о поиске приходили не в общак, а в приват опу хаба?
Go to the top of the page
+Quote Post
Артём
сообщение 28.7.2009, 16:48
Сообщение #20


Местный похерист
**********

Группа: Пользователи
Сообщений: 2 242
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 592 раза
Цитата(yaDroLLL @ 25.3.2009, 8:59) *
я вкурсе!, Но не можешь ли ты сделать на API1 ? baffle.gif

Вот big_smile.gif Прикрепленный файл  MonPorn.lua ( 1.61 килобайт ) Кол-во скачиваний: 7
Go to the top of the page
+Quote Post
« Предыдущая тема · Служебные скрипты [PtokaX] · Следующая тема »
 

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

Collapse

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

  Тема Ответов Автор Просмотров Последнее сообщение
No new Topic has attachmentsАнтипорно
Средство от уродов
 36 valdis73 6 001 5.1.2012, 14:43 Посл. сообщение: Enyby
No new Сервер антипорно
Флуд из темы антисерч
 15 DEN 007 1 606 8.3.2011, 15:15 Посл. сообщение: mariner
No New Posts От: Антипорно
От темы с ID: 3844
 0 SAG 493 17.2.2011, 20:42 Посл. сообщение: SAG
No New Posts Topic has attachmentsАнтипорно
Verlihub
 4 Vizunchik 2 065 1.12.2010, 22:44 Посл. сообщение: KT315
No New Posts Topic has attachmentsподредактировать скрипт антипорно для API 1
убрать из общего чата о кикнутых за расшаренные порноресурсы
 1 доктор ливси 1 120 12.11.2010, 17:22 Посл. сообщение: Артём
No New Posts От: Антипорно
От темы с ID: 3844
 0 Saymon21 633 7.9.2010, 23:26 Посл. сообщение: Saymon21
No New Posts От: Антипорно
От темы с ID: 3844
 3 переподвыподверт 910 7.9.2010, 23:21 Посл. сообщение: переподвыподверт
No New Posts Антипорно
 5 voronf4 2 099 4.2.2010, 0:10 Посл. сообщение: Evil

 

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

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

RSS Сейчас: 24.5.2012, 13:40