dcpp = {}

--[[  
Скрипт-комбайн, выполняющий одновременно несколько функций:
ФУНКЦИЯ  АВТОР
Анти-флуд  Setuper
Анти-капс  Setuper
Анти-мат  GreyTeam  //Конвертатор корней матных слов
Помошник  GreyTeam  //Приватные команды: качать++;  команды++;  когда++;
                    //Чат команды: у кого есть; дайте скачать; почему не качается; немогу качать; немогу скачать; как качать; как скачать;
Выдача слотов    zangriEAX  //Приватные команда: : slot++

]]
--[[ /////////////////////////////////////////////////////////////// ]]
-- Размер сообщения с которого начинает реагировать скрипт
local iCheckSize = 3

-- Доля капса, при котором сработает скрипт
local iPersents = 0.4

-- Число разрешённых подряд символов
local iSymbRep = 3

os.setlocale"Russian_Russia.1251"
local sBigData = DC():ToUtf8("[АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯABCDEFGHIJKLMNOPQRSTUVWXYZ]")
local sPatternRep = "(.)("..("%1"):rep(iSymbRep)..")"

local function CheckRep(sData)
   if sData:match(sPatternRep) then
     local sSmb, sMsg, iC = '', '', 0
     for i = 1, #sData do
       local s = sData:sub(i, i)
       if sSmb == s then
         iC = iC + 1
         if iC <= iSymbRep then
           sMsg = sMsg..s
         end
       else
         sSmb, iC, sMsg = s, 1, sMsg..s
       end
     end
     return sMsg
   end
   return sData
end

local function CheckCaps(sData)
   local sNoSpaces = sData:gsub("[%s%d%c%p]", '')
   local iNoSpasesLen = sNoSpaces:len()
   if iNoSpasesLen > 0 then
     local iCapsLen = 0
     sNoSpaces:gsub(sBigData, function(c) iCapsLen = iCapsLen + 1 end)
     if (iCapsLen / iNoSpasesLen) >= iPersents then
       sData = sData:lower()
     end
   end
   return sData
end

--[[ Антимат - конвертатор ]]
--[[ /////////////////////////////////////////////////////////////// ]]
function dcpp.PreviewPublicMessage(huburl, message)

         msg, count = string.gsub(message, "(хуй)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(ХУЙ)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(хуя)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(ХУЯ)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(бля)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(БЛЯ)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(пизд)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(ПИЗД)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(пезд)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(ПЕЗД)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(еба)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(ЕБА)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(ебу)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(ЕБУ)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(оеб)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(ОЕБ)", "мат")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(почему не качается)", "Привет народ! я новичек, помогите пожалуста мне настроить ДС, а то у меня не получается качать или подскажите где почитать как настраивать ДС++. Зарание спасибо!")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(немогу качать)", "Привет народ! я новичек, помогите пожалуста мне настроить ДС, а то у меня не получается качать или подскажите где почитать как настраивать ДС++. Зарание спасибо!")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(немогу скачать)", "Привет народ! я новичек, помогите пожалуста мне настроить ДС, а то у меня не получается качать или подскажите где почитать как настраивать ДС++. Зарание спасибо!")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(как качать)", "Привет народ! я новичек, помогите пожалуста мне настроить ДС, а то у меня не получается качать или подскажите где почитать как настраивать ДС++. Зарание спасибо!")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

         msg, count = string.gsub(message, "(как скачать)", "Привет народ! я новичек, помогите пожалуста мне настроить ДС, а то у меня не получается качать или подскажите где почитать как настраивать ДС++. Зарание спасибо!")
         if (count > 0) then
                 DC():SendPublicMessage(huburl, msg)
                 return 1
         end

--[[ Антимат - запрет отправки в чат ]]
--[[ /////////////////////////////////////////////////////////////// ]]
         msg, count = string.gsub(message, "(у кого есть)", "запрос")
         if (count > 0) then
   DC():MessageBox(" Воспользуйтесь меню поиска в ДС++ клиенте \r\n Главное меню - вид - Поиск  \r\n Лучше всего искать в час-пик (21 час) по всем хабам сети \r\n простой запрос из одно слова + фильтр", "scripts> startup.lua", "ok", "info")
          return 2
  end

         msg, count2 = string.gsub(message, "(дайте скачать)", "запрос")

         if (count2 > 0) then
   DC():MessageBox(" Воспользуйтесь меню поиска в ДС++ клиенте \r\n Главное меню - вид - Поиск  \r\n Лучше всего искать в час-пик (21 час) по всем хабам сети \r\n простой запрос из одно слова + фильтр", "scripts> startup.lua", "ok", "info")
          return 2
  end

--[[ Антикапс и антифлуд]]
--[[ /////////////////////////////////////////////////////////////// ]]
  message = DC():FromUtf8(message)
    if message:len() >= iCheckSize then
      local sMsg = CheckCaps(CheckRep(message))
      if sMsg ~= message then
        DC():SendPublicMessage(huburl, DC():ToUtf8(sMsg))
        return 1
      end
  end
end

--[[ Помошник ]]
--[[ /////////////////////////////////////////////////////////////// ]]
BotSay = {

     { ["question"] = {"команды++"},
       ["answer"] = {"Остальные команды я допишу попозже в файл: scripts\startup.lua",},
     },

     { ["question"] = {"качать++"},
       ["answer"] = {" Если у тебя не получается с меня скачать, сделай следующую проверку: \r\n 1. Можешь ли ты качать хоть с кого-то, если нет, то у тебя скорее всего ДС++ заблокироавнна Антивирусом/Брандмауэром/Фаирволом; \r\n 2. Проверь режим мой и свой. У одного из нас должен быть активный режим соединения. Файл-Настройки-Настройки соединения; \r\n 3. Проверь работает ли поиск в активном режиме. Если нет, то переведи свой ДС++ в пассивный режим; \r\n 4. Если ничего не помогло, попроси админов хаба разобраться."},
     },

     { ["question"] = {"когда++"},
       ["answer"] = {"Возле компьютера я бываю по будням с 18 до 23 и по выходным с 12 до 23."},
     },

}

--[[ Выдача слотов ]]
--[[ /////////////////////////////////////////////////////////////// Russian_Russia.1251  ToUtf8]]
--[[------------------------------------------------------------------------------------------------------------

  DC():SendPrivateMessage(uid,tostring(msg:match(DC():ToUtf8(v))))  

--]]------------------------------------------------------------------------------------------------------------
local slots = {"slot++"}
local slotSec = 3600 --Время выдачи слота в секундах,если поставить 0 убирается экстра-слот 0о
local slotMsg = "[NI]: тебе выдан экстра-слот на [TI]"
----------------------------------------------------------------
-- Далее ничего не трогаем --
----------------------------------------------------------------
String2Lower = function(s)
   for i = 192, 223 do
     s = s:gsub(_G.string.char(i), _G.string.char(i + 32))
   end
   s = s:gsub(_G.string.char(168), _G.string.char(184))
   return s:lower()
end

function GetNormalTime(s)
     s=tonumber(s) or 0
     local r=""
     if s>=31104000 then r=math.floor(s/31104000).." г. " s=math.fmod(s,31104000) end
     if s>=2592000 then r=r..math.floor(s/2592000).." мес. " s=math.fmod(s,2592000) end
     if s>=86400 then r=r..math.floor(s/86400).." д. " s=math.fmod(s,86400) end
     if s>=3600 then r=r..math.floor(s/3600).." ч. " s=math.fmod(s,3600) end
     if s>=60 then r=r..math.floor(s/60).." мин. " s=math.fmod(s,60) end
     return r..s.." сек."
end
slotMsg = slotMsg:gsub("%[TI%]",GetNormalTime(slotSec))

--[[ Помошник ]]
function dcpp.OnPrivateMessage(cid, data)

  --DC():SendPrivateMessage(cid,String2Lower(data))
  for i,v in pairs(slots) do
   if data:match(DC():ToUtf8(v)) then
    DC():SetExtraSlot(cid,slotSec)
    DC():SendPrivateMessage(cid,(tostring(slotMsg:gsub("%[NI%]",DC():GetUserInfo(cid).NI))))
   break end
end

         local userInfo = DC():GetUserInfo(cid)
         if (userInfo.ME ~= "1") then
                 for _, mini_table in pairs(BotSay) do
                         for _, trigger in pairs(mini_table["question"]) do
                    if string.find(data, trigger) then
                    DC():SendPrivateMessage(cid, mini_table["answer"][math.random(1,table.getn(mini_table["answer"]))])
                    return nil
                    end
                         end
                 end
         end

         return nil
end

spamtable = {}
-- spamtable= { ["dc.ru"] = { 0, 10, "sample" } , ["localhost"] = { 0, 12, "hello there!" } }

file = io.open(DC():GetAppPath() .. "Scripts/reklama.txt", "r")  
messages = { }  
i = 1  

function spam(timeout)
        spamtable[dc_huburl] = { 0, timeout }
end

function nospam()
        spamtable[dc_huburl] = { 0, 0 }
end

for line in file:lines() do  
    messages [i]= line  
    i=i+1  
end  

tMainFunc["spam"].OnTimer=function()
          for hubname, hubentry in pairs(spamtable) do  
                  if (hubentry[1] == 0)  then  
                          hubentry[1] = hubentry[2]  
                          DC():SendPublicMessage(hubname,  messages[math.random(i-1)])  
                  else  
                          hubentry[1] = hubentry[1] - 1  
                  end  
          end  
        return nil
end

DC():MessageBox(text, "spam.lua", "ok", "info")[/i]