Антиреклама...., ..........

-- Конфигурация скрипта

BotName = "Антиреклама" -- имя бота
BotReg = 0 -- регистрировать бота на хабе? (1=да/0=нет)

BanMode = 2 -- Какой тип бана использовать? (0=перманент/1=Default temp ban time хаба/2 = сами выбираете время бана)
BanTime = 1 -- Время бана в минутах для BanMode = 2

-- Что запрещаем?
adverTable = {
"fathub.zapto.org","pashahub.myftp.org","87.228.84.15","united.1hb.ru","87.228.39.77",
"no-ip","donet",".dars-ip.local","dars-ip.ru","10.73.","79.132.","Заходите на","dchub://Fex.ServeGame.Com",
b://","dchub://","d*c*h*u*b://","d-c-h-u-b://","d/c/h/u/b://","d`c`h`u`b://","d!c!h!u!b://","d@c@h@u@b://","d#c#h#u#b://","d$c$h$u$b://","d%c%h%u%b://","d^c^h^u^b://","d&c&h&u&b://","d(c(h(u(b://","d)c)h)u)b://","d_c_h_u_b://","d=c=h=u=b://","d+c+h+u+b://","d\c\h\u\b://","d?c?h?u?b://","d.c.h.u.b://","d>c>h>u>b://","d,c,h,u,b://","d<c<h<u<b://","d~c~h~u~b://","d№c№h№u№b://","d;c;h;u;b://","d:c:h:u:b://","d/c/h/u/b://","d|c|h|u|b://","d]c]h]u]b://","d[c[h[u[b://","d{c{h{u{b://","d}c}h}u}b://","d c h u b://"," dchub://",
"no-ip","donet",".ru",".dars-ip.local","dars-ip.ru",".org",".com","10.73.","79.132.","Заходите на","dchub://Fex.ServeGame.Com",
"dchub://online21rus.no-ip.org","online21rus.no-ip.org","o n l i n e 2 1  r u s . n o - i p . o r g",
"Заходите на хаб:","dchub://online21rus.no-ip.org","Заходи на",
"10.0.","dc.ozerki.net",". n o - i p . o r g",

}
-- Что разрешаем?
safeTable = {
"!",
}

-- Что получит юзер в случае, если пустит запрещенную рекламу?
text = "Внимание. Насчёт рекламы: она тут запрещена (заходи позже как научешся себя ввести)."
-- Что получит оператор хаба?
text_to_op = "был забанен. Он пытался сообщать в общий чат следующию фразу:"

-- Конец конфигуратора

function OnStartup()
if BotReg == 1 then
Core.RegBot(BotName,"Детектор рекламы хабов" ,"",true);
end
end

function ChatArrival(user,data)
    Core.GetUserAllData(user)
local s,e,msg = string.find(data,"%b<>%s*(.*)%|")
if not user.bOperator then
if checkForAdvertising(msg) then
if checkForSafe(msg) then
return nil
end
Core.SendToNick(user.sNick,"<"..SetMan.GetString(21).."> *** "..text)
Core.SendPmToOps(SetMan.GetString(24), "*** "..user.sNick.." "..text_to_op.." "..msg)
if BanMode == 0 then
Core.Ban(user,"","",0)
end
if BanMode == 1 then
Core.TempBan(user,0,"","",0)
end
if BanMode == 2 then
BanMan.TempBan(user,BanTime,"","",true)
end
end
end
end

ToArrival = ChatArrival -- Детект приватов.

function checkForAdvertising(msg) -- проверка на запрещенные адреса
for i = 1,#adverTable do
if string.find( msg , adverTable[i] , 1 , true ) then
return 1
end
end
end

function checkForSafe(msg) -- проверка на разрешенные адреса
for i = 1,#safeTable do
if string.find( msg , safeTable[i] , 1 , true ) then
return 1
end
end
end