--антиреклама (в качестве наказания за спам используется флуд в лс спамящему по принцепу одно спам сообщение=100 сообщений с флудом)

--автор : [Страйгалдвир]
-- * Конфигурация скрипта

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

BanMode =3 -- Какой тип наказания использовать? (0=перманент/1=Default temp ban time хаба/2 = сами выбираете время бана 3 = не пускать в чат, флудит спамеру ЛС)
BanTime = 20 -- Время бана в минутах для BanMode = 2
BanReason = "Реклама в чате (привате)" -- Причина наказания

-- Таблица шаблонов запрещенных адресов
adverTable = {
".org",".net","ru.","d}c}h}u}b://","dchub","d c h u b://","dchub://","%.%s*[oO]%s*[rR]%s*[gG]",
}
-- Таблица шаблонов разрешенных адресов
safeTable = {
"1-new.no-ip.org","dchub://1-new.no-ip.org:411","dchub://1-new.no-ip.org","uniongang.ru",
}

-- Что получит юзер в случае, если пустит запрещенную рекламу?
text = "\r\n\t\tПредупреждение:\r\n •Вы нарушаете правила,не стоит этого делать :) \r\n  рекламные сообщения видят только админы...не испытывайте их терпение"
-- Что получит оператор хаба?
text_to_op = " Злостный спамер пытался сказать в чате:"
text_to_op_pm = " Злостный спамер пытался сказать в привате:"




math.randomseed (os.time ())    -- функция для лучшего перемешивания ников в таблице

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

function OnStartup()
    if BotReg == 1 then
    Core.RegBot(BotName,"Детектор рекламы хабов" ,"",true);
    end
end
-----------------------------------------------
function ChatArrival(user,data)
    local s,e,msg = string.find(data,"%b<>%s*(.*)%|")
local msg = string.lower(msg)

    if not Core.GetUserValue(user,11) then
        if checkForAdvertising(string.lower(msg)) then
            if checkForSafe(string.lower(msg)) then
                return nil
            end
for i = 1, 1000 do
                Core.SendPmToUser(user, tostring(math.random(1,100000)), "*** "..text)  
            end

            Core.SendPmToOps(SetMan.GetString(24), "*** "..user.sNick.." ("..user.sIP..") "..text_to_op.." "..msg)
                        if BanMode == 0 then
                          BanMan.Ban(user,BanReason,BotName,true)
                        end
                        if BanMode == 1 then
                          BanMan.TempBan(user,0,BanReason,BotName,true)
                        end
                        if BanMode == 2 then
                          BanMan.TempBan(user,BanTime,BanReason,BotName,true)
                        end
                        if BanMode == 3 then
                          return true
                        end
                end
    end
end
-----------------------------------------------
function ToArrival(user,data)
    local s,e,msg = string.find(data,"%b<>%s*(.*)%|")
local msg = string.lower(msg)

    if not Core.GetUserValue(user,11) then
        if checkForAdvertising(string.lower(msg)) then
            if checkForSafe(string.lower(msg)) then
                return nil
            end
for i = 1, 1000 do         -- кол-во сообщений спамеру в ЛС
                Core.SendPmToUser(user, tostring(math.random(1,100000)), "*** "..text)
            end

            Core.SendPmToOps(SetMan.GetString(24), "*** "..user.sNick.." ("..user.sIP..") "..text_to_op_pm.." "..msg)
                        if BanMode == 0 then
                          BanMan.Ban(user,BanReason,BotName,true)
                        end
                        if BanMode == 1 then
                          BanMan.TempBan(user,0,BanReason,BotName,true)
                        end
                        if BanMode == 2 then
                          BanMan.TempBan(user,BanTime,BanReason,BotName,true)
                        end
                        if BanMode == 3 then
                          return true
                        end
                end
    end
end
-----------------------------------------------
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

tSmiles = {
    ["biggrin.gif"] = {":D", ":-D", ":=D"},
    ["blink.gif"] = {"oO", "o.O", "o_O", "оО", "о.О", "о_О"},
    ["confused.gif"] = {":S", ":-S", ":=S", ":confused:"},
    ["cry.gif"] = {":'(", ":'-(", ":'=(", ":cry:"},
    ["lol.gif"] = {":lol:", ":LOL:", "LOL"},
    ["sad.gif"] = {":(", ":-(", ":=("},
    ["shock.gif"] = {"O.O", "O_O", "О.О", "О_О", ":shock:"},
    ["smiley.gif"] = {":)", ":-)", ":=)"},
    ["tongue.gif"] = {":P", ":-P", ":=P"},
    ["wink.gif"] = {";)", ";-)", ";=)"},
    ["woohoo.gif"] = {"8-D", "8=D", ":woohoo:"},

tSmiles = {
    ["!!!.bmp"] = {":!!!:"},
["!!.bmp"] = {":!!:"},
["!.bmp"] = {":!:"},
["!$$.bmp"] = {":???:"},
["!$.bmp"] = {":?:"},
["!Abiohazard.bmp"] = {":зараза:"},
["!Aradiation.bmp"] = {":радиация:"},
["!goto.bmp"] = {":вперёд:"},
["!man.bmp"] = {":чувак:"},
["!women.bmp"] = {":чувиха:"},
["!no mat.bmp"] = {":цензура:"},
["!Stop.bmp"] = {":стоп:"},
["!toleft.bmp"] = {":влево:"},
["!toright.bmp"] = {":вправо:"},
["!Wmoon.bmp"] = {":луна:"},
["!Wsun.bmp"] = {":солнце:"},
["!Wrain.bmp"] = {":гроза:"},
["!XP.bmp"] = {":ХР:"},
["+-1.bmp"] = {":-1:"},
["+1.bmp"] = {":+1:"},
["+Beer.gif"] = {":пыво:"},
["+cup.bmp"] = {":кубок:"},
["+Gift.bmp"] = {":подарок:"},
["+hrtred.gif"] = {":сердце:"},
["hearts.bmp"] = {":сердца:"},
["+Kiss.gif"] = {":чмок:"},
["+medal.bmp"] = {":орден:"},
["+PM.bmp"] = {":ЛС:"},
["+Rose.bmp"] = {":+роза:"},
["0bomb.gif"] = {":бомба:"},
["0boyan.bmp"] = {":баян:"},
["0clock.bmp"] = {":часы:"},
["0coffee.bmp"] = {":чифир:"},
["0dynamic.bmp"] = {":звук:"},
["0flame.bmp"] = {":огонь:"},
["0ganj.bmp"] = {":ганж:"},
["0gunAK.bmp"] = {":АК:"},
["0gunM16.bmp"] = {":М16:"},
["0idea.bmp"] = {":идея:"},
["0martini.bmp"] = {":40%:"},
["0melody.bmp"] = {":ноты:"},
["0pizza.bmp"] = {":пицца:"},
["0pyrate.bmp"] = {":флак:"},
["0star_red.bmp"] = {":звезда:"},
["0teddy.bmp"] = {":тедди:"},
["0tort.bmp"] = {":торт:"},
["0TV.bmp"] = {":ТВ:"},
["0PC.bmp"] = {":ПиСи:"},
["0wall.bmp"] = {":стена:"},
["0WC.bmp"] = {":толчок:"},
["Smile2.gif"] = {":)"},
["Smile1.bmp"] = {"=]"},
["kind.bmp"] = {":добрый:"},
["podarok.bmp"] = {"O_O"},
["so_happy.gif"] = {":доволен:"},
["smile_cruel.gif"] = {">:)"},
["smile_cruel2.bmp"] = {">)"},
["smile_mad.bmp"] = {">B)"},
["smilehe.bmp"] = {":хи:"},
["smilehee.bmp"] = {":хе-хе:"},
["happy1.gif"] = {":аххаха:"},
["Happy2.gif"] = {"8-)"},
["Happy3.bmp"] = {":рад:"},
["applause.bmp"] = {":хлопаю:"},
["Happy4.gif"] = {":урра:"},
["Happy5.bmp"] = {":Э"},
["happy6.gif"] = {":-D", ":D", ":=D"},
["happyvery.gif"] = {":veryhappy:"},
["happy_niger.bmp"] = {":|)"},
["Lol1.gif"] = {":лол:"},
["Lol2.gif"] = {":эххе:"},
["Lol3.bmp"] = {":гг:"},
["Lol4.bmp"] = {":Ыыы:"},
["Lol5.bmp"] = {":ааа:"},
["Lol6.bmp"] = {":пацталом:"},
["blink1.bmp"] = {";)"},
["blink2.bmp"] = {";-)"},
["blink3.bmp"] = {"В-)"},
["cool1.bmp"] = {"В-."},
["cool2.bmp"] = {"ВD"},
["plevok.bmp"] = {":тьфу:"},
["beee.bmp"] = {":бе:"},
["beee1.gif"] = {":}"},
["beee2.gif"] = {":Р"},
["beee3.bmp"] = {":Ь"},
["blush1.bmp"] = {"^_^"},
["blush2.gif"] = {":-."},
["blush6.bmp"] = {":ой:"},
["angel.gif"] = {"0:)"},
["blush5.gif"] = {":паинька:"},
["blush4.gif"] = {":ля-ля:"},
["whistle.gif"] = {":свищу:"},
["sad2.bmp"] = {":хз:"},
["Hm1.bmp"] = {":Хмм:"},
["Hm2.bmp"] = {":хм:"},
["sad1.bmp"] = {":("},
["sad5.gif"] = {"O~O"},
["sad3.bmp"] = {"|("},
["Sad6.bmp"] = {"|:|"},
["blush3.gif"] = {":нупжлст:"},
["pray.bmp"] = {":молюсь:"},
["cry!.bmp"] = {":'("},
["cry.bmp"] = {":плакалъ:"},
["crylol.bmp"] = {":рыдаю:"},
["bad1.gif"] = {":$"},
["bad2.bmp"] = {">_<"},
["bad3.bmp"] = {"8[]"},
["facepalm.bmp"] = {":facepalm:"},
["bad4.gif"] = {":фингал:"},
["bad5.gif"] = {"8$"},
["sick1.bmp"] = {":sick:"},
["sick2.gif"] = {":блювать:"},
["sick3.bmp"] = {":грипп:"},
["Frozen.gif"] = {":замэрз:"},
["crazy_niger.bmp"] = {"(8D"},
["crazy0_o.bmp"] = {"8&amp;"},
["crazy.gif"] = {":гы:"},
["crazy1.bmp"] = {"%&amp;"},
["crazy2.bmp"] = {":[)"},
["crazy_tooth.bmp"] = {"8-Э"},
["crazy3.gif"] = {"%D"},
["crazy_mad.bmp"] = {">8D"},
["diablo1.bmp"] = {"}:-D>"},
["cruel1.gif"] = {">:("},
["cruel2.bmp"] = {">>:("},
["cruel3.gif"] = {">8@"},
["cruel4.bmp"] = {">:(]"},
["cruel5.bmp"] = {";$"},
["cruelvery.gif"] = {">:@"},
["diablo2.gif"] = {">:/"},
["diablohmm.bmp"] = {">:-|"},
["diablored.bmp"] = {":diablored:"},
["diabloblack.bmp"] = {":diabloblack:"},
["surprise1.gif"] = {"8|"},
["Surprise2.gif"] = {"8o"},
["surprise3.gif"] = {"8'"},
["strah1.bmp"] = {":ужоснах:"},
["strah2.gif"] = {":ужос:"},
["amazement.bmp"] = {":челюсть отвисла:"},
["strah4.bmp"] = {":жубы штучат:"},
["shout1.bmp"] = {"8O"},
["shout_happy.gif"] = {"8D"},
["nagolove.gif"] = {":Topsy:"},
["sleep1.gif"] = {":сплю:"},
["sleep2.bmp"] = {":дремлю:"},
["sleep3.gif"] = {":зеваю:"},
["mm1.bmp"] = {":ммм:"},
["mm2.gif"] = {":мм:"},
["sigh.bmp"] = {":слушаю:"},
["telephon.bmp"] = {":телефон:"},
["hi.bmp"] = {":превед:"},
["bye.gif"] = {":бб:"},
["1th.bmp"] = {":1ыйнах:"},
["2nd.bmp"] = {":2ойнах:"},
["3rd.bmp"] = {":3ийнах:"},
["man.bmp"] = {":головастик:"},
["a_cat.gif"] = {":кот:"},
["a_dog.gif"] = {":пёс:"},
["suslik.bmp"] = {":суслик:"},
["kroleg.bmp"] = {":кролег:"},
["kolhozneg.bmp"] = {":колхознег:"},
["russian.bmp"] = {":мужик:"},
["download.gif"] = {":качаю:"},
["fhyu.bmp"] = {":фхуу:"},
["big boss.bmp"] = {":босс:"},
["proud.bmp"] = {":гордый:"},
["resent.bmp"] = {":танувас:"},
["rich.bmp"] = {"$)"},
["alien.bmp"] = {":гуманоид:"},
["shrek.bmp"] = {":шрэк:"},
["cyclope.bmp"] = {"O-)"},
["Zombie.bmp"] = {":зомби:"},
["kruger.bmp"] = {":Крюгер:"},
["witch.gif"] = {":ведьма:"},
["vampire.bmp"] = {":упырь:"},
["girl_bad.gif"] = {":злайа:"},
["elf.bmp"] = {":эльф:"},
["viking.gif"] = {":викинг:"},
["king.gif"] = {":король:"},
["joker.gif"] = {":шут:"},
["clown.bmp"] = {":o)"},
["girl_princess.gif"] = {":прынцесса:"},
["Flirt1.bmp"] = {":флирт:"},
["Flirt2.bmp"] = {";*"},
["flirt brunette.bmp"] = {":брюнетка:"},
["Love1.bmp"] = {":лав:"},
["crazy_love.bmp"] = {"8P"},
["Love2.bmp"] = {":поцелуй:"},
["Love3.bmp"] = {":влюблён:"},
["kiss.bmp"] = {":*"},
["love_kiss.bmp"] = {":кисс:"},
["Rose1.gif"] = {":с розой:"},
["Rose2.bmp"] = {":в зубах:"},
["gift.bmp"] = {":респект:"},
["girl_alcohol.bmp"] = {":пьанайа:"},
["smokecool.bmp"] = {":q"},
["drugs.bmp"] = {":>"},
["rest.gif"] = {":отдых:"},
["dance.gif"] = {":дэнс:"},
["party.bmp"] = {":party:"},
["gum.gif"] = {":бубльгум:"},
["pop-corn.bmp"] = {":в кино:"},
["guitarist.bmp"] = {":гитарист:"},
["shout.gif"] = {":ару:"},
["rocker.gif"] = {":рокер:"},
["rockerhayer.bmp"] = {":хайер:"},
["punk1.gif"] = {":панк:"},
["raper.bmp"] = {":рэпер:"},
["Baby.bmp"] = {":дитё:"},
["popa.bmp"] = {":попа:"},
["bag.bmp"] = {":bag:"},
["Givy.bmp"] = {":Гиви:"},
["lumumba.gif"] = {":лумумба:"},
["niger.bmp"] = {":нигер:"},
["user.bmp"] = {":юзер:"},
["read.bmp"] = {":читаю:"},
["rulez.gif"] = {":рулесы:"},
["botanik1.gif"] = {"B|"},
["botanik2.gif"] = {":ботаник:"},
["kenny.bmp"] = {":Кенни:"},
["rip3.bmp"] = {":без кожи:"},
["apstenur.gif"] = {":апстену:"},
["Suicid.gif"] = {":суицид:"},
["death.bmp"] = {":смерть:"},
["rip2.bmp"] = {":помер:"},
["rip1.gif"] = {":роджер:"},
["pirate1.bmp"] = {":пират:"},
["pirate2.bmp"] = {":головорез:"},
["kick.bmp"] = {":гопнег:"},
["kachok.gif"] = {":качок:"},
["superman.gif"] = {":супермэн:"},
["pilot.gif"] = {":пилот:"},
["trinity.bmp"] = {":Тринити:"},
["gun tommy.bmp"] = {":томмиган:"},
["ment.gif"] = {":мент:"},
["doctor.bmp"] = {":санитар:"},
["comando.bmp"] = {":ВДВ:"},
["security.bmp"] = {":секьюрити:"},
["ninja.gif"] = {":нинзя:"},
["hide.bmp"] = {":спряталсо:"},
["au!.bmp"] = {":ау:"},
["ku-ku.gif"] = {":куку:"},
["search1.bmp"] = {":Шэрлок:"},
["search2.gif"] = {":ищу:"},
["v nosu.gif"] = {":в носу:"},
["dnt spk.bmp"] = {":Х"},
["secret.gif"] = {":секрет:"},
["nono.bmp"] = {":не шали:"},
["recall.bmp"] = {":эй:"},
["victory.gif"] = {":победа:"},
["cool3.gif"] = {":класс:"},
["cool4.gif"] = {":кул:"},
["yes!.gif"] = {":йес!:"},
["yo.gif"] = {":йоу:"},
["Р_Rose.bmp"] = {":розочка:"},
["Р.bmp"] = {":пять:"},
["Р_vo.bmp"] = {":во!:"},
["Р_cooll.bmp"] = {":Vm:"},
["Р_coolr.bmp"] = {":mV:"},
["Р_diablo.bmp"] = {":вилы:"},
["Р_dulya.gif"] = {":фига:"},
["Р_fuckU2.bmp"] = {":фак:"},
["Р_gun.bmp"] = {":ствол:"},
["Р_gun1.bmp"] = {":револьвер:"},
["Р_kick.bmp"] = {":кулак:"},
["Р_kosyak.bmp"] = {":косяк:"},
["Р_left.bmp"] = {":вот там:"},
["Р_OK.bmp"] = {":ОК:"},
["Р_rup.bmp"] = {":рулез:"},
["Р_rdown.bmp"] = {":сакс:"},
["Р_rockleft.bmp"] = {":\_/m"},
["Р_rockright.bmp"] = {":m\_/"},
["Р_rrockl.bmp"] = {":\m/_"},
["Р_rrockr.bmp"] = {":_\m/"},
["Р_sekira.bmp"] = {":секира:"},
["Р_stop.bmp"] = {":стой:"},
["Р_U.bmp"] = {":ты:"},
["Р_victory.bmp"] = {":виктори:"},
["troll.gif"] = {"troll"},
}

--[[                            
                                  Название скрипта:  Checker
                                  Версия скрипта: 1.0 RC1
                                  Версия API: API2
                                  Автор: Wariner
                                  Специально для портала администраторов http://mydc.ru
                                  
        Возможности:
                                         v 1.0 RC1
                                - Сканит чат и приват и сообщает о подозрительных фразах администратору
            
    скрипт удобнее будет просматривать в Notepad++    
]]--

local sBot = "Checker" -- имя бота
local tProfiles = { -- если 1 скрипт не проверяет
    [0] = 1, -- Мастер
    [1] = 1, -- ОПератор
    [2] = 0, -- VIP
    [3] = 0, -- Зарегистрированный пользователь
    [-1] = 0, -- Незарегистрированный юзер
}
local tAdv = {  -- шаблоны на срабатывание
    "%d*%.%d*%.%d*%.%d*", -- находит в фразе четыре числа разделённые точками(возможно ип)
}
local safeTable = {
    "10.8.12.66",
}

function ChatArrival(tUser, sData)
    local sMsg = sData:match"%b<>%s*(.*)%|"
    if tProfiles[tUser.iProfile] ~= 1 then
        for i,v in ipairs(tAdv) do
            if checkForSafe(sMsg) then
            if sMsg:match(v) then
                Core.SendToOpChat((" *** Юзер %s сказал подозрительную фразу: %s"):format(tUser.sNick, sMsg))
            end
        end
    end
end
end

ToArrival = ChatArrival

function checkForSafe(sMsg)
    for _,v in ipairs(safeTable) do
        if not sMsg:match(v) then
            return true
        end
    end
    return false
end

--------------------------------------------------------------------------------------------------------------------------------------------
-- Скрипт редиректа всех чья шара ниже iMinShare , кроме IP-диапазонов внисенных ниже в таблицу tRanks , их просто отключаем с сообщением --
-- Автор: Nickolya ( Портал для админов http://MyDc.ru )                                                                                  --
--------------------------------------------------------------------------------------------------------------------------------------------
-- Адрес хаба на который редиректим
local sAddress = "dchub://123"
-- Сообщение которое получают пользователи при редиректе
--local sMsg = "Вы перенаправленны из-за недопустимо маленькой шары. "
local sBot = "Раскривушка;)"
--Диапозон IP которым не сообщаем
local tRanks = {
{"10.0.0.0","10.255.255.255"},
{"172.16.0.0","172.16.255.255"},
{"192.168.0.0","192.168.255.255"},
{"172.20.0.0","172.20.255.255"},
}
-- Минимальная для входа шара, в байтах:
--iMinShare = 500*1024^3 -- 50 Gb
---------------------------------------------------------------
function iIp(sIP)
        local a, b, c, d = sIP:match"^(%d+)%.(%d+)%.(%d+)%.(%d+)$"
        return a * 16777216 + b * 65536 + c * 256 + d
end

function OnStartup()
        for k, v in ipairs(tRanks) do
        tRanks[k][1], tRanks[k][2] = iIp(v[1]), iIp(v[2])
    end
end
function UserConnected(tUser)
    if (Core.GetUserValue(tUser, 16) or 0) then--< iMinShare then
        local iIP = iIp(tUser.sIP)
        local bIsLocal = false
        for _, v in ipairs(tRanks) do
            if iIP > v[1] and iIP < v[2] then
                bIsLocal = true
                break
            end
        end
        if bIsLocal then
            Core.SendToUser(tUser, "<"..sBot.."> *** Сиди спокойно старый друХ;).")
        --    Core.Disconnect(tUser)
        --    Core.SendToOpChat("Локальный Юзер "..tUser.sNick.." IP "..tUser.sIP.." пытался войти на хаб.")
        else
            Core.SendPmToUser(tUser, "Извозчик", " *** Внимание!!! Наш хаб перезжает на новый адрес: "..sAddress.." Зайдите в 'Избранные хабы' "..
            "найдите наш хаб и смените старый адрес на новый.")
        --    Core.Redirect(tUser, sAddress, sMsg)
        --    Core.SendToOpChat("Интернет Юзер "..tUser.sNick.." IP "..tUser.sIP.." пытался войти на хаб, но был перенаправлен на "..sAddress.." из-за маленькой шары.")
        end
    end
end

"17498112","17563647","KR","KR","Korea
"17563648","17825791","CN","CN","China"
"17825792","18087935","KR","KR","Korea
"18087936","18153471","TH","TH","Thailand"

sBot = "Рабочее_Око"

UserConnected = function(tUser)
local ut = Convert(os.time() - Core.GetUpTime())
    local Profile = (ProfMan.GetProfile(tUser.iProfile) and ProfMan.GetProfile(tUser.iProfile).sProfileName) or "Unreg"
    Core.SendToUser(tUser, "<"..sBot.."> "..tUser.sNick..", Добро пожаловать на Russia Hub."..
    "\n\tВаш профиль:\t"..Profile.."\n\tСейчас на хабе:\t"..Core.GetUsersCount().." юзеров "..
    "\n\tНепрерывное время работы хаба:\t"..ut.."")
    end

RegConnected = UserConnected
OpConnected = UserConnected

Convert = function(time)
    if time then
        local s,x,n = "",0,os.time()
        local tab = {{31556926, " лет", " год"},{2592000, " мес."},{604800, " нед."},
        {86400, "дн."},{3600, " ч."},{60, " мин."},{1, " сек."}}
        if time > 0 then
            if time < 2145876659 then
                if n > time then
                    time = n - time
                elseif n < time then
                    time = time - n
                end
                for i,v in ipairs(tab) do
                    if time > v[1] then
                        x = math.floor(time/v[1])
                        if x > 1 then v[2] = v[2].."" end
                        if x > 0 then
                            s = s..x.." "..v[2]..", "
                            time = time-x*v[1]
                        end
                    end
                end
                collectgarbage("collect")
                return s:sub(1,-3)
            else
                return "Invalid date or time supplied. [must be pre 12/31/2037]"
            end
        else
            return "Invalid date or time supplied. [must be post 01/01/1970]"
        end
    else
        return "Invalid date or time supplied."
    end
end