function UserConnected(user)
    Core.GetUserAllData(user)
    INFUserRightclicker(user,data)
    INFTMR(user, true)
end

INFTMR(user, true)

    TimerR = TmrMan.AddTimer(math.random(math.mintime,math.maxtime)) -- this timer works it gives a nice interval between chat

    chatter = convos[math.random(1,#convos)]

    if tID == TimerR then
        Core.SendToAll("<"..prefix..elf.."> ".. chatter)
        for i,v in pairs(BotTrig) do
            for a,b in pairs(v) do
                if(string.find(string.lower(chatter),string.lower(i))) then
                    --// start a new timer after the trigger
                    --// this shld give different delays on answer questions from bot to bot
                    TimerD = TmrMan.AddTimer(ChatDelay[math.random(1,table.getn(ChatDelay))])    
                    reply = reply..""..string.gsub(v[math.random(1,table.getn(v))], "%b[]",v)
                    return true
                end
            end
        end
    end

iTimerInterval = 60*60    -- время в секундах на рассылку сообщений никам

tNicksToSend = {    -- ники для отправки
    ["Nickolya"] = true,
    ["Nick2"] = true,
}

-- само сообщение:
sMsg = "*** Сообщение от администрации..."

function OnStartup()
    sBot = SetMan.GetString(21)
    TmrMan.AddTimer(iTimerInterval * 1000, "Send")
end

function Send()
    for sNick in pairs(tNicksToSend) do
        Core.SendPmToNick(sNick, sBot, sMsg)
    end
end

function UserConnected(tUser)
    if tNicksToSend[tUser.sNick] then
        Core.SendPmToUser(tUser, sBot, sMsg)
    end
end
OpConnected = UserConnected
RegConnected = UserConnected

sName = "antimat.lua"

  if #AllStuff > 0 then
     -- to avoid sync errors and unnecessary function calls/tanle lookups
     -- declare the local variable
    local stuff = WhenAndWhatToShow[os.date("%H:%M")]
    if stuff then
      if Types[stuff] then
        Core.SendToAll("<"..Bot.name.."> "..ShowRelType(stuff))
      else
        if stuff == "new" then
          Core.SendToAll("<"..Bot.name.."> "..MsgNew)
        elseif stuff == "all" then
          Core.SendToAll("<"..Bot.name.."> "..MsgAll)
        else
          Core.SendToOps("<"..Bot.name.."> В таймер лист была добавлена категория, которой не существует. Нечего выводить. :-)")
        end
      end
    end
  end

    http = require("socket.http")    -- loads the HTTP module and any libraries it requires (загружаем библиотечку)

    http.TIMEOUT = 2

local tSuperUsers = {
    ["Nickolya"] = true,
}

    local data = string.sub(data,1,-2)
    local _,_,cmd = string.find(data,"%b<>%s"..prefix.."(%S+)")
    if cmd and cmdlist[cmd] then
        if CheckRights(user,cmd) == 1 then
            return cmdlist[cmd]["Function"](user,data)
        else
            user:SendData(BOT,"У вас нет прав, для использования данной команды")
        end
    end

function ChatArrival(user, data)

ChatArrival = function(tUser,sData)
    local s,e,cmd, S1= string.find(sData,"%b<>%s(%S+)%s(.+)")
    if ((cmd=="!экшн") or (cmd=="!action")) and (tProfiles[tUser.iProfile]==0) then
        Core.SendToUser(tUser,"<"..SetMan.GetString(21).."> Недостаточно прав для выполнения команды")
        return true
    end
    S1 = string.sub(S1,1,string.len(S1)-1)
    if cmd == "!экшн" then        
        Core.SendToAll("## "..tUser.sNick.." "..S1.." ##")
        return true
    end
    if cmd == "!action" then
        Core.SendToAll(">> "..tUser.sNick.." "..S1.." <<")
        return true
    end
    
end

ChatArrival = function(tUser,sData)
    local s,e,cmd, S1= string.find(sData,"%b<>%s(%S+)%s(.+)")
    if ((cmd=="!экшн") or (cmd=="!action")) and (tProfiles[tUser.iProfile]==0) then
        Core.SendToUser(tUser,"<"..SetMan.GetString(21).."> Недостаточно прав для выполнения команды")
        return true
    end
    if S1 then
        S1 = string.sub(S1,1,string.len(S1)-1)
        if cmd == "!экшн" then        
            Core.SendToAll("## "..tUser.sNick.." "..S1.." ##")
            return true
        end
        if cmd == "!action" then
            Core.SendToAll(">> "..tUser.sNick.." "..S1.." <<")
            return true
        end
    end
end

function GetNickListArrival(tUser)
  if not Core.GetUserValue(tUser, 9) then -- bConnected
    Core.SendToUser(tUser,"<"..sBot.."> Загрузка...")
  end
end

Core.SendToAll(sBot..""..iListeners.." человек сейчас слушают на "..sServer.." [ "..sSendUrl.." ] "..sWeListen)

Core.SendToAll(sBot.."На "..sServer.." [ "..sSendUrl.." ] сейчас играет: "..sWeListen)

*     Версия 1.2 by Nickolya
*      + сообщения отсылаются от ника бота хаба
*      + при сообщении от бота в привате указывается что сообщение доставлено не было
*      + блокировка юзера на заданное время при заданном количестве неправильных ответов на вопрос: опции iBlockNumbers и iBlockTime
*      + если юзер, которому разрешено писать, напишет тому, кому это запрещено, то на вопрос отвечать не придется, но только в привате написавшего юзера

Core.SendPmToNick(tControlNicks[i], sBot,("%s пытался сменить топик на: %s"):format(tUser.sNick, sTopic))

Core.SendPmToNick(tControlNicks[i], sBot,("%s пытался сменить топик на: %s"):format(tUser.sNick, sTopic or "[пустая команда]"))

SetMan.SetString(10, sTopic.." ("..tUser.sNick..")")

a,b,c = tonumber(a),tonumber(b),tonumber(c)

a,b,c = tonumber(a or 0),tonumber(b or 0),tonumber(c or 0)

tBanCmds = {
ban = true,
banip = true,
fullban = true,
fullbanip = true,
nickban = true,
tempban = true,
tempbanip = true,
fulltempban = true,
}

function OnStartup()
sBot = SetMan.GetString(21)
tWhomWeSee = {}
tBansLog = {}
tMasterBansLog = {}
sPath = Core.GetPtokaXPath().."scripts/"
if loadfile(sPath.."tBansLog.tbl") then
dofile(sPath.."tBansLog.tbl")
end
if loadfile(sPath.."tMasterBansLog.tbl") then
dofile(sPath.."tMasterBansLog.tbl")
end
TmrMan.AddTimer(1000, "OnTimer1")
end

function OnTimer1()
local tRemove = {}
for i, tData in ipairs(tWhomWeSee) do
local tBan = BanMan.GetBan(tData[1])
if tBan then
if tBan[1] then
tBan = tBan[#tBan]
end
local tBanTbl = {
sBy = tBan.sBy or tData[2],
iTime = tData[3],
iExpireTime = tBan.iExpireTime,
sIP = tBan.sIP,
sNick = tBan.sNick,
bIpBan = tBan.bIpBan,
bNickBan = tBan.bNickBan,
bFullIpBan = tBan.bFullIpBan,
sReason = tBan.sReason,
}
if tBanTbl.sNick then
if not tBansLog[tBanTbl.sNick] then
tBansLog[tBanTbl.sNick] = {}
end
table.insert(tBansLog[tBanTbl.sNick], tBanTbl)
end
if tBanTbl.sIP then
if not tBansLog[tBanTbl.sIP] then
tBansLog[tBanTbl.sIP] = {}
end
table.insert(tBansLog[tBanTbl.sIP], tBanTbl)
end
if not tMasterBansLog[tData[2]] then
tMasterBansLog[tData[2]] = {}
end
table.insert(tMasterBansLog[tData[2]], tBanTbl)
SaveToFile(sPath.."tBansLog.tbl", tBansLog, "tBansLog")
SaveToFile(sPath.."tMasterBansLog.tbl", tMasterBansLog, "tMasterBansLog")
table.insert(tRemove, 1, i)
elseif tData[3] + 5 > os.time() then
table.insert(tRemove, 1, i)
end
end
for _, i in ipairs(tRemove) do
table.remove(tWhomWeSee, i)
end
end

function ChatArrival(tUser, sData)
local _,_, sCmd, sWhoBanned = string.find(sData, "%b<>%s+%p(%S+)%s+(%S+).*|$")
if sCmd then
sCmd = sCmd:lower()
if sWhoBanned and tBanCmds[sCmd] then-- and not BanMan.GetBan(sWhoBanned) then
table.insert(tWhomWeSee, {sWhoBanned, tUser.sNick, os.time()})
end
end
end
ToArrival = ChatArrival

function SaveToFile(sFileWay, tTable, sTableName)
local sHandle = io.open(sFileWay,"w+")
Serialize(tTable, sTableName, sHandle)
sHandle:flush()
sHandle:close()
end

function Serialize(tTable, sTableName, sHandle, sTab)
local sTab = sTab or ""
sHandle:write(sTab..sTableName.." = {\n")
for key, value in pairs(tTable) do
local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key)
if type(value) == "table" then
Serialize(value, sKey, sHandle, sTab.."\t")
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value)
sHandle:write(sTab.."\t"..sKey.." = "..sValue)
end
sHandle:write(",\n")
end
sHandle:write(sTab.."}")
end

-- Профили для перенаправления:
tRedirectProfiles = {
    [3] = true,
    [-1] = true,
}

-- Таблица редиректов:
tRedirects = {
    "mydc.ru", "localhost",
}

-- Время в секундах на смену сервера
iChangeTime = 1*60*60

-- Минимальная для входа шара, в байтах:
iMinShare = 100*1024^3    -- 100 Gb

-- Причина редиректа:
sRedirectReason = "Маленькая шара, минимальная шара - 100 Гигабайт!"

function OnStartup()
    iTimeToChange = os.time() + iChangeTime
    iRedirectHub = 1
end

function UserConnected(tUser)
    if tRedirectProfiles[tUser.iProfile] and (Core.GetUserValue(tUser, 16) or 0) < iMinShare then
        if os.time() > iTimeToChange then
            iTimeToChange = os.time() + iChangeTime
            iRedirectHub = iRedirectHub + 1
            if not tRedirects[iRedirectHub] then
                iRedirectHub = 1
            end
        end
        Core.Redirect(tUser, tRedirects[iRedirectHub], sRedirectReason)
        Core.Disconnect(tUser)
    end
end
RegConnected = UserConnected
OpConnected = UserConnected

tProfiles = {        -- кому будут доступны команды
    [5]     = 1,    -- [Reg]
    [4]     = 1,    -- [ViP]
    [3]     = 1,    -- [Operator]
    [2]     = 1,    -- [Moderator]
    [1]     = 1,    -- [Admin]
    [0]     = 1,    -- [VipAdmin]
    [-1]     = 0,    -- [UnReg]
}

local CanDo ={[3]=1,[2]=1,[1]=1,[0]=1,}

ChatArrival = function(tUser,sData)
    local s,e,cmd, S1= string.find(sData,"%b<>%s(%S+)%s(.+)")
    if ((cmd=="!экшн") or (cmd=="!action")) and (tProfiles[tUser.iProfile]==0) then
        Core.SendToUser(tUser,"<"..SetMan.GetString(21).."> Недостаточно прав для выполнения команды")
        return true
    end
    S1 = string.sub(S1,1,string.len(S1)-1)
    if cmd == "!экшн" then        
        Core.SendToAll("## "..tUser.sNick.." "..S1.." ##")
        return true
    end
    if cmd == "!action" then
        Core.SendToAll(">> "..tUser.sNick.." "..S1.." <<")
        return true
    end
    
end

ChatArrival = function(tUser,sData)
    local cmd, S1 = sData:match "^%b<>%s(%S+)%s(.+)$"
    if cmd then
        if ((cmd=="!экшн") or (cmd=="!action")) and (tProfiles[tUser.iProfile]==0) then
            Core.SendToUser(tUser,"<"..SetMan.GetString(21).."> Недостаточно прав для выполнения команды")
            return true
        end
        S1 = string.sub(S1,1,string.len(S1)-1)
        if cmd == "!экшн" then        
            Core.SendToAll("## "..tUser.sNick.." "..S1.." ##")
            return true
        end
        if cmd == "!action" then
            Core.SendToAll(">> "..tUser.sNick.." "..S1.." <<")
            return true
        end
    end
end

UserConnected = function(user)

    if os.time() > iLastTime then
        GetInfo()
    end
    Core.SendPmToUser(user, sBot, sMsg)

            return Net_ISP, Net

            return Net_ISP.tPrefs, Net

sWay = "D:/somefile.html?#34;

sHTML = [[<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />
<title>Какая-то инфа...</title>
</head>

<body>
<table border="1" cellspacing="0" cellpadding="10">
  <tr>
    <td>Ник Забаненого</td>
    <td>Ip Забаненого</td>
    <td>Кем забанен</td>
    <td>Причина бана</td>
    <td>Разбан</td>
  </tr>
[BODY]
</table>
</body>
</html>]]

sTableSell = [[ <tr>
    <td>[1]</td>
    <td>[2]</td>
    <td>[3]</td>
    <td>[4]</td>
    <td>[5]</td>
  </tr>]]

function OnStartup()
    SaveToHtml()    
end
    
function SaveToHtml()
    local tTable = BanMan.GetBans()
    local sData = {}
    for i,v in pairs(tTable) do
        local tData = {
            ["1"] = tostring(v.sNick or " "),
            ["2"] = tostring(v.sIP or "Бан по нику"),
            ["3"] = tostring(v.sBy or "Неопределена"),
            ["4"] = tostring(v.sReason or "Не указана"),
            ["5"] = tostring(v.iExpireTime or "<постоянный>"),
        }
        local sSell = sTableSell:gsub("%[(%S-)%]", tData)
        table.insert(sData, sSell)
    end
    sData = table.concat(sData)
    local sHTML = sHTML:gsub("%[BODY%]", sData)
    SaveDataToFile(sWay, sHTML)
end


function SaveDataToFile(sFileWay, sData)
    local sHandle = io.open(sFileWay, "w+")
    sHandle:write(sData)
    sHandle:flush()
    sHandle:close()
end

<table border="1" cellspacing="0" cellpadding="10">
  <tr>
    <td>Ip Забаненого</td>
    <td>Кем забанен</td>
    <td>Причина бана</td>
    <td>Разбан</td>
  </tr>
  <tr>
    <td>127.0.0.1</td>
    <td>Nickolya</td>
    <td>просто так</td>
    <td>никогда...</td>
  </tr>
  <tr>
    <td>10.0.10.3</td>
    <td>неизвестно</td>
    <td>аналогично</td>
    <td>через 14 минут</td>
  </tr>
</table>

local _,_,nick = string.find(data,"%p%S+ (%w+)")

local _,_,nick = string.find(data,"%p%S+ (%S+)")

local iBlockType = 3    -- Тип блокировки, 1 - блокировать только чат, 2 - приват, 3 - все сразу

local tOnlineUsers = Core.GetOnlineUsers()
for _, tUser in ipairs(tOnlineUsers) do
    if tUser.sNick:match "^%[FI4%]" then
        Core.SendToUser("*** Сообщение...")
    end
end

return ChkGuess(user.sNick)

local a1 = ChkGuess(user.sNick)
            return a1

    allguess = {function(user,data,cmd)
        if user then
            if not Players[Gc.Bot] then Players[Gc.Bot] = {1,os.time(),GetCn()} end
            if not Tmr then Tmr = TmrMan.AddTimer(1000) end
            local a1 = ChkGuess(Gc.Bot,_,user.sNick)
            return a1, true
        else
            return "Угадайте страну ( всем хабом )",
            "",
            "",
            ""
        end
    end,
    {[-1] = false,[0] = true,[1] = true,[2] = true,[3] = true}
    },
    guess = {function(user,data,cmd,to)
        if user then
            if not Players[user.sNick] then Players[user.sNick] = {1,os.time(),GetCn(),to} end
            if not Tmr then Tmr = TmrMan.AddTimer(1000) end
            local a1 = ChkGuess(user.sNick)
            return a1
        else
            return "Угадайте страну ( сами )",
            "",
            "",
            ""
        end
    end,
    {[-1] = false,[0] = true,[1] = true,[2] = true,[3] = true}
    },

            return ChkGuess(Gc.Bot,_,user.sNick),true

            local a1 = ChkGuess(Gc.Bot,_,user.sNick)
            return a1,true

    local Limit = tCurUser.iLlimit

    local Limit = tCurUser.iLlimit or false
    if not Limit then
        return
    end

TmrMan.AddTimer(3600000, "ReConnect")

function ReConnect()
    con:close()
    con = assert (env:connect(sNameDB, sUserDB, sPasswordDB, sAdressDB, sPortDB))
end

iSeconds = 60*1

function OnStartup()
    TmrMan.AddTimer(iSeconds*1000, "Save")
end

function Save()
    BanMan.Save()
end

if tUser.sNick~=sAdminNick then

if not Core.GetUserValue(tUser, 11) then

for key in pairs(trigs) do

        if mess:find("^%s*(%p)") then
            return
        end

iExpired = 30    -- время в минутах на хранение в кеше ответа от сервера

local sAdminIp = "127.0.0.1"

tNicks = {
    ["bot1"] = true,
    ["nick2"] = true,
}

function ChatArrival(tUser, sData)
    if tNicks[tUser.sNick] then
        local sMsg = sData:match "^%b<>%s(.*)|$"
        Core.SendToAll(sMsg)
        return true
    end
end

http://www.sovsport.ru/sport_rss/2

-- Set your feed's URL
local Feed = "http://www.sovsport.ru/sport_rss/2"

Core.SendToNick(user.sNick,"<"..tSettings.sBot.."> Добро пожаловать на "..(SetMan.GetString(0) or "Неизвестный хаб").." !"); tCommands["lifetime"].fFunction(user)

tCommands["lifetime"].fFunction(user)

tWeSendNicks = {
    "nick1", "Nickolya",
}

BanMan.TempBan(tUser, nTime, sReason, sBy, bFull)    - Temp ban user IP and Nick. nTime is in minutes (0 = default tempban time from settings) ! Return nil when failed, true if success.

BanMan.TempBan(tUser, iTime, sReason, sBy, bFull)

Core.Disconnect(tUser)

        tRESULT = ""..Hours..":"..Minutes..", "..Days.." "..Months.." 2"..string.rep("0",3-string.len(Years))..""..Years.." года"

        tRESULT = ""..Hours..":"..(Minutes:len() ~= 1 and Minutes or "0"..Minutes)..", "..Days.." "..Months.." 2"..string.rep("0",3-string.len(Years))..""..Years.." года"

    SendToRoom(bot,user.sNick.." вошёл в комнату")

    Core.SendPmToUser(user, bot, "Для того что бы добавить хаб в избранное наберите в чат то то, регистрация находится там то, ну и тд")

Core.SendToUser(user, "<"..sBotName.."> Данные устарели, запрашиваю сервер...")

Core.SendToUser(user, "<"..sBotName.."> \n"..sMsg)

Core.SendPmToUser(user, sBotName, "\n"..sMsg)

while string.find(fd,"<Value>") do

while string.find(fd,"<Valute ID=\".-\">") do

                    sMsg=sMsg..val[i].CharCode.."\t"..val[i].Nominal.." "..val[i].Name..string.rep("\t",math.floor((MaxLen-string.len(val[i].Name)-string.len(val[i].Nominal)+1)/8+1))..val[i].Value.."\t"..((val[i].Diff<0) and "" or "+")..val[i].Diff.."\n"
                    if sMidChar~="" and x<table.getn(Currency) then sMsg = sMsg..string.rep(sMidChar,iMidChar).."\n" end

                    if val[i] then
                        sMsg=sMsg..val[i].CharCode.."\t"..val[i].Nominal.." "..val[i].Name..string.rep("\t",math.floor((MaxLen-string.len(val[i].Name)-string.len(val[i].Nominal)+1)/8+1))..val[i].Value.."\t"..((val[i].Diff<0) and "" or "+")..val[i].Diff.."\n"
                        if sMidChar~="" and x<table.getn(Currency) then sMsg = sMsg..string.rep(sMidChar,iMidChar).."\n" end
                    end

sBot = " † X-Files™ Paranormal Reality † "
RankFile = "RankingScript\\ranksusers.tbl"
iNumb = 3000

Main = function()
dofile(RankFile)
end

ChatArrival = function(user, data)
local data = string.sub(data,1,-2)
local s,e,prefix =string.find(data, "%b<>%s+(%S+)")
if prefix == "!merecord" then
if tRankingTable[user.sName] then
if tRankingTable[user.sName] > iNumb then
user:SendPM(sBot, " \r\n\ ..-•*°`*•-.,_,.-•*°`*•-.,_,.-•*°`*•-.,_,.-•*°`*•-.,_,.-•*°`*•-.,_,.-•*°`*•-.,_,.-•*°*•-.,_,.-•*°`*•-.,_,.-•*°°*•-.,_,.-•*°*•-.. \r\n\ \r\n\ "..user.sName.." \r\n\ Вы написали в чате "..tRankingTable[user.sName].." сообщений. \r\n\ Это превосходит нужное число в "..(iNumb-tRankingTable[user.sName]).." сообщений, поздравляем! \r\n\ Теперь, если вы хотите, вы можете добавить к своему нику ''Погоны'' \r\n\ К Примеру ваш ник <Коля> а в чате он будет выглядеть как < *** <Коля> *** > \r\n\ Вы сами выбираете что себе поставить! \r\n\ \r\n\ Небольшие правила. \r\n\
\r\n\ 1. Ваш ник должен быть не длиннее 10 символов. \r\n\ 2. ''Погоны'' не должны быть суммарно длиннее 10 символов. \r\n\ 3. Ваш ник должен быть без [Префикса]. \r\n\ 4. Суммарно измененный ник может быть не длиннее 25 символов. \r\n\ 5. Если вы придумали как будет выглядеть ваш ник пишите мне < » » »^† Fox Malder †^« « « > \r\n\ \r\n\ Администрация хаба. \r\n\ ")
else
user:SendPM(sBot, " \r\n\ ..-•*°`*•-.,_,.-•*°`*•-.,_,.-•*°`*•-.,_,.-•*°`*•-.,_,.-•*°`*•-.,_,.-•*°`*•-.,_,.-•*°*•-.,_,.-•*°`*•-.,_,.-•*°°*•-.,_,.-•*°*•-.. \r\n\ \r\n\ "..user.sName.." \r\n\ \r\n\ Вы наговорили всего "..tRankingTable[user.sName].." сообщений. \r\n\ До нужного числа вам не хватает "..(iNumb-tRankingTable[user.sName]).." сообщений. \r\n\ Удачи! \r\n\ Администрация хаба. \r\n\ ")
end
else
user:SendData("<"..sBot.."> Учёт ваших сообщений не найден.")
end
return 1
end
end

Core.Redirect(sAddress, sMsg)

Core.Redirect(tUser, sAddress, sMsg)

string.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

string.lower

string.String2Lower

[TrivUserStart] = function(curUser)
    if tConf.allowuserstart == 1 then
        if Started then
            SendMsgToUser(curUser,"Ошибка: Викторина уже запущена.")
        else
            UserAutostop = tCfg.UserAutostop
            TriviaStart()
            SendMsgToPlayers("Игра Викторина была запущена! Запустил: "..curUser.sNick..". Игра будет автоматически остановлена, если на "..UserAutostop.." вопросов подряд не будет дан правильный ответ.")
        end
    else
        SendMsgToUser(curUser,"Извините, у Вас нет доступа к этой команде.")
    end
end

function ParseData(curUser,data)
    data = string.sub(data,1,string.len(data)-1)
    local _,_,sdata = string.find( data, "^%b<>%s(.*)$")
    local _,_,pre,cmd = string.find( data, "^%b<>%s*(%p)(%S+)")
    if (pre and cmd) and pre == CPrefix then
        cmd = string.lower(cmd)
        if tProfiles[curUser.iProfile] == 1 and tFuncCmd[cmd] then
            tFuncCmd[cmd](curUser,data)
            return true
        end
        if tProfilesConfig[curUser.iProfile] == 1 and tFuncConfig[cmd] then
            tFuncConfig[cmd](curUser,data)
            return true
        end
        if tProfilesConfigPlus[curUser.iProfile] == 1 and tFuncConfigPlus[cmd] then
            tFuncConfigPlus[cmd](curUser,data)
            return true
        end
    elseif sdata then
        if sdata == "Викторина" or sdata == "викторина" then
            if tConf.allowuserstart == 1 then
                if Started then
                    SendMsgToUser(curUser,"Ошибка: Викторина уже запущена.")
                else
                    UserAutostop = tCfg.UserAutostop
                    TriviaStart()
                    SendMsgToPlayers("Игра Викторина была запущена! Запустил: "..curUser.sNick..". Игра будет автоматически остановлена, если на "..UserAutostop.." вопросов подряд не будет дан правильный ответ.")
                end
            else
                SendMsgToUser(curUser,"Извините, у Вас нет доступа к этой команде.")
            end
        end
        local corrans = nil
        for _,v in ipairs(TrivData.Answers) do
            if string.lower(sdata) == string.lower(v) then
                corrans = v
            end
        end
        if corrans and (not TrivData.GetQuestion) then
            TrivData.GetQuestion = true
            local ansTime = string.format("%.2f",(os.clock()-TrivData.Start)) -- Get Answering Time in sec.
            local talked = nil
            if string.lower(sdata) == string.lower(corrans) then
                talked = corrans
            end
            if talked then
                if tConf.mode ~= "pm" then
                    if tCfg.maintoall then
                        Core.SendToAll("<"..curUser.sNick.."> "..corrans)
                    else
                        SendMsgToPlayers(corrans,curUser)
                    end
                end
                local tmpstring = ""
                if (tCfg.showcorrectanswer == 1) then
                    tmpstring = " Время: "..ansTime.." секунд(ы)."
                end
                SendMsgToPlayers("На этот вопрос правильно ответил: "..curUser.sNick..", Ответ был: \""..corrans.."\". Очки: "..TrivData.Points.."."..tmpstring)
                if _Scores[curUser.sNick] then
                    _Scores[curUser.sNick].Score = _Scores[curUser.sNick].Score + TrivData.Points
                    _Scores[curUser.sNick].AvTime[1] = _Scores[curUser.sNick].AvTime[1] + ansTime
                    _Scores[curUser.sNick].AvTime[2] = _Scores[curUser.sNick].AvTime[2] + 1
                    _Scores[curUser.sNick].AvTime[3] = tonumber(string.format("%.2f",_Scores[curUser.sNick].AvTime[1]/_Scores[curUser.sNick].AvTime[2]))
                else
                    _Scores[curUser.sNick] = {}
                    _Scores[curUser.sNick].Score = TrivData.Points
                    _Scores[curUser.sNick].Streak = 1
                    _Scores[curUser.sNick].AvTime = { tonumber(ansTime),1,tonumber(ansTime) }
                end
                if (tCfg.showcorrectanswer == 1) then
                    SendMsgToPlayers(curUser.sNick..": Всего очков: ".._Scores[curUser.sNick].Score..", Правильных ответов: ".._Scores[curUser.sNick].AvTime[2]..", Среднее время на ответ: "..string.format("%.2f",_Scores[curUser.sNick].AvTime[3]).." секунд(ы).")
                end
                if TrivData.Availans > 1 then
                    ShowAnswer()
                end
                UpdateStreak(curUser)
                if not CheckAutostop() then
                    ResetMainTimer()
                end
                return true
            end
        end
    end
end

        if sdata == "Викторина" or sdata == "викторина" then
            if tConf.allowuserstart == 1 then
                if Started then
                    SendMsgToUser(curUser,"Ошибка: Викторина уже запущена.")
                else
                    UserAutostop = tCfg.UserAutostop
                    TriviaStart()
                    SendMsgToPlayers("Игра Викторина была запущена! Запустил: "..curUser.sNick..". Игра будет автоматически остановлена, если на "..UserAutostop.." вопросов подряд не будет дан правильный ответ.")
                end
            else
                SendMsgToUser(curUser,"Извините, у Вас нет доступа к этой команде.")
            end
        end

HTTP/1.1 200 OK
Server: nginx/0.5.33
Date: Mon, 01 Mar 2010 09:56:00 GMT
Content-Type: text/html; charset=windows-1251
Transfer-Encoding: chunked
Connection: keep-alive
Keep-Alive: timeout=20
X-Powered-By: PHP/5.2.4-2ubuntu5
Set-Cookie: session_id=0fffb2dabc4079d55874a47231ea0ee2; path=/; httponly

<html>
<head>
</head>
<body>
</body>
</html>

    if tCurUser.bConnected then
        CheckLimit(tCurUser)
    end

    CheckLimit(tCurUser)

-- Размер сообщения с которого начинает реагировать скрипт:
iCheckSize = 5

-- Процент капса, при котором сработает скрипт:
iPersents = 60

ValidateNickArrival=function(sUser,sData)
    if isYELL(sUser.sNick) then
        Core.SendToUser(sUser, "*** Ваш ник не должен быть в КАПСовом виде!")
        Core.Disconnect(sUser)
    end
end

isYELL=function (sData)
    local flag=false
    local nsp = sData:gsub ("[%s%p%c]", "")
    if nsp:len() > iCheckSize then
        local NoSpacesLen = nsp:len()
        local NoCAPSLen = (nsp:gsub("[%uА-ЯЁ]", "")):len()
        if (NoSpacesLen - NoCAPSLen)/NoSpacesLen * 100 > iPersents then
            flag=true
        end
    end
    return flag
end

    if not tTemp[tCity[tData.City]] or tTemp[tCity[tData.City]][2]+tCfg.Update*60 < os.time() then

    if not tTemp[tCity[tData.City]] or not tTemp[tCity[tData.City]][2] or tTemp[tCity[tData.City]][2]+tCfg.Update*60 < os.time() then

    http = require("socket.http")

    http.TIMEOUT = 10

function UserConnected(user)
    Core.GetUserAllData(user)

function ConnectToMeArrival(sUser,sData)
    Core.GetUserAllData(sUser)
    local _,_,towho = string.find(sData, "%p%S+%s+(%S+)%s+.*|")

function ConnectToMeArrival(sUser,sData)
    Core.GetUserAllData(sUser)
    local _,_,towho = string.find(sData, "^%p%S+%s+(%S+).*|$")

GET / HTTP/1.1
Host: www.example.com
User-Agent: MyLonelyBrowser/5.0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: ru,en-us;q=0.7,en;q=0.3
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7

local sCmd = sData:match"^%b<>%s+%p(%S+)"

local sCmd = sData:match"^%b<>%s+%+(%S+)"

    if tUser.sNick:find(""..sbansymbol.."") then

tUser.sNick:find"([%!@])"

    local sCmd = sData:match"^%b<>%s+[!+-/*](%S+)"

    local sData = sData:sub(1,-2)

function ChatArrival(tUser, sData)
    local sCmd = sData:match"^%b<>%s+%p(%S+).*|"
    if sCmd == "usermenu" then

$UserCommand 255 15

$UserCommand 255 15 Информация для "..tUser.sNick.."\\$|"

$UserCommand 255 15 Информация для "..tUser.sNick.."$|"

local sFile = Core.GetPtokaXPath().."scripts/файл.txt"

function LoadData()
   if loadfile(sFile) then
       dofile(sFile)
   end
   SaveToHtml()
end

LoadData()

OpConnected = UserConnected
RegConnected  = UserConnected

  if tAviableNicks[tUser.sNick] == 1 then

--Ники Исключения
tAviableNicks = {
        ["Артём"] = 0,
        ["ВашНик"] = 1,
        }

  if tAviableNicks[tUser.sNick] and tAviableNicks[tUser.sNick] ~= 1 or not tAviableNicks[tUser.sNick] then

    fRecord = "scripts/records.tbl",
    fConfig = "scripts/config.tbl",

    fRecord = Core.GetPtokaXPath().."scripts/records.tbl",
    fConfig = Core.GetPtokaXPath().."scripts/config.tbl",

    fOnline = "scripts\\tOnliners.tbl",

    fOnline = Core.GetPtokaXPath().."scripts/tOnliners.tbl",

local sBot = "Bot"
local iMinLen = 3      -- минимальное количество символов
local iMaxLen = 13   -- максимальное количество символов

function OnValidateNick(UID)
    local iNickLen = Core.GetUser(UID, 1).sNick:len()
    if iNickLen < iMinLen then
        Core.SendToUser(UID, ("Ваш ник слишком короткиий! Минимальное количество символов в нике для входа на хаб составляет %d !"):format(iMinLen), sBot)
        Core.Disconnect(UID)
    elseif iNickLen > iMaxLen then
        Core.SendToUser(UID, ("Ваш ник слишком длинный! Максимальное количество символов в нике для входа на хаб составляет %d !"):format(iMaxLen), sBot)
        Core.Disconnect(UID)
    end
end

sNick = Core.GetUser(UID, 1).sNick

sBot = Core.GetConfig("sHubBot")

<?lua if sData ?>какие-то данные<?lua else ?>еще что-то<?lua end ?>

        if iBanTime and iBanTime > 0 then

        if iBanTime and iBanTime > 0 and iBanTime < 100000 then

    local sCmd = sData:match"%b<>%s+([!+-/*]%S+)"
    if sCmd == "!banme" then

    local sCmd = sData:match"%b<>%s+[%!%+%-/%*](%S+)"
    if sCmd == "banme" then

function ChatArrival(tUser,sData)
    local sData = sData:sub(1,-2)
    local sCmd, sBanTime = sData:match"%b<>%s+[%!%+%-/%*](%S+)%s*(%d*)"
    if sCmd == "banme" then
        SendDataToAll(("<%s> %s %s"):format(sBot, tUser[sNick], tMsg[math.random(1,#tMsg)]))
        SendDataToUser(tUser, ("<%s> Ты забанил сам себя))))"):format(sBot))
        local iBanTime = tonumber(sBanTime)
        if iBanTime and iBanTime > 0 then
            if not BanUser(tUser, iBanTime, sReason, tUser.sNick, bFull) then
                BanUser(tUser, math.random(tTime[1], tTime[2]), sReason, tUser.sNick, bFull)
            end
        else
            BanUser(tUser, math.random(tTime[1], tTime[2]), sReason, tUser.sNick, bFull)
        end
        return sReturn    
    end
end

sData = sData:gsub("|", "&#".."124;")

        sMsg = tostring(cnt).." новых тем с: "..Feed.."\n\n"..
          reply..""..
        "\t\t\tОбработано за: "..time

        sMsg = tostring(cnt).." новых тем с: "..Feed.."\n\n"..
          reply

    if next(New) then
        reply,cnt = "",0
        for key,val in ipairs(New) do
            local bool = true
            for i,v in ipairs(Old) do if v[2] == val[2] then bool = false break end end
            if bool then
                cnt = cnt + 1
                for i,v in ipairs(val) do reply = reply.."\t"..v.."\n" end
                reply = reply.."\n"
            end
        end
    end

    if next(New) then
        reply,cnt = "\t============================================================\n",0
        for key,val in ipairs(New) do
            local bool = true
            for i,v in ipairs(Old) do if v[2] == val[2] then bool = false break end end
            if bool then
                cnt = cnt + 1
                for i,v in ipairs(val) do reply = reply.."\t"..v.."\n" end
                reply = reply.."\t============================================================\n"
            end
        end
    end

-- что запрещаем при старте скрипта (1 - запрещено)
tConfig = {
    ["bMainChat"] = 1,    -- главный чат
    ["bPM"] = 1,        -- лички
    ["bDownload"] = 1,    -- скачку
}

-- диапазоны IP, на которых не применяются правила блокировки
tAllowedRanges = {
    ["127.0.0.1"]= "127.0.0.255",            -- localhost
}

-- Конфиг бота:

    -- Таблица с никами, которым будет разрешены команды:
    tAllowNicks = {
        ["Admin"] = 1,
        ["НИК"] = 1,
        ["Nickolya"] = 1,
    }

    -- Таблица с командами, которые могут использовать только юзеры с никами из таблицы tAllowNicks:
    tNotAllowCmds = {
        ["addreguser"] = 1,
        ["massmsg"] = 1,
        ["delreguser"] = 1,
        ["restart"] = 1,
        ["startscript"] = 1,
        ["stopscript"] = 1,
        ["restartscript"] = 1,
        ["restartscripts"] = 1,
        ["getscripts"] = 1,
        ["opmassmsg"] = 1,
    }

    -- Cooбщение для тех, кто пытается воспользоваться командой:
    NotAllowedMsg = "У вас нет прав для использования этой команды! Обратитесь к администратору хаба...;)"

    if bSendToChat then
        TmrMan.AddTimer(iTimeToSend*1000,"GetData")
    end

    if bSendToChat then
        TmrMan.AddTimer(iTimeToSend*1000,"SendToChat")
    end

    Core.SendToAll(tUser,"*** Погода в Новосибирске: "..(sTemp or "[нет данных]"))

    Core.SendToAll("*** Погода в Новосибирске: "..(sTemp or "[нет данных]"))

-- Таймаут ожидания загрузки страницы (чтобы хаб не подвисал), в секундах:
iTimeOut = 5

    http = require("socket.http")

    http.TIMEOUT = iTimeOut

SaveToHtml()

    -- Минимальное нижнее ограничение на отдачу в кб для каждого профиля в локальном диапазоне:
    tProfileLimits = {
        [0] = 0,        -- Администратор
        [1] = 10,        -- Оператор
        [2] = 150,        -- VIP
        [3] = 50,    -- Зарегистрированный пользователь
        [-1] = 50,    -- Незарегистрированный пользователь
    }
    
    -- Таблица с локальными диапазонами:
    tLocalArea = {
        {"10.0.0.0", "10.255.255.255"},
        {"109.86.0.0", "109.87.255.255"},
        {"80.73.0.0", "80.73.255.255"},
        {"178.150.0.0", "178.151.255.255"},
    }
    
    -- Минимальное нижнее ограничение на отдачу в кб для каждого профиля во всех остальных диапазонах:
    tInetProfileLimits = {
        [0] = 0,        -- Администратор
        [1] = 10,        -- Оператор
        [2] = 150,        -- VIP
        [3] = 50,    -- Зарегистрированный пользователь
        [-1] = 50,    -- Незарегистрированный пользователь
    }

local FieldsRus = {
    ["title"] = "Заголовок", -- Заголовок
    ["description"] = "Описнание", -- Описнание
    ["link"] = "Ссылка", -- Ссылка
    ["author"] = "Автор", -- Автор
    ["category"] = "Категория новости", -- Категория новости
    ["comments"] = "Комментарии к новости", -- Комментарии к новости
    ["pubDate"] = "Публичная информацию", -- Публичная информацию
    ["guid"] = "Глобальный индиккатор новости", -- Глобальный индиккатор новости
}

            if Fields[field:lower()] then
                field = field:lower():gsub("[<>]","")..":"

            if field and Fields[field:lower()] then
                field = field:lower():gsub("[<>]","")
                field = (FieldsRus[field] and FieldsRus[field] or field)..":"

    local toWhoUser = Core.GetUser(toWho,true)
    local toWhoUser2 = Core.GetUser(toWho2,true)

    local toWhoUser = Core.GetUser(toWho or "",true)
    local toWhoUser2 = Core.GetUser(toWho2 or "",true)