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)

    sSentence = "*** Дарит "..user.sNick.." "..sSentence.." ***"

    sSentence = "*** Дарит "..sUserName1.." "..sSentence.." ***"

            local tData2 = {}    -- таблица с данными пустая
            for i = 1, table.maxn(S.tMadeData) do    -- проходим таблицу с готовыми данными
                if i <= iDaysToChat then    -- если нужный нам день, то добавляем в пустую таблицу с данными (кол-во дней - в конфиге)
                    table.insert(tData2, S.tMadeData[i])    -- добавление
                end
            end
            local sTitle2 = S.sMainTitle.." (на "..iDaysToChat.." дня)"    -- заголовок с указанием кол-ва дней для ясности
            local sMsg2 = CreateMsg(tData2, sTitle2, S.sArchiveData, 1)    -- функция создания сообщения из таблицы с данными, заголовка и архивных данных
            Core.SendToAll("<"..sBot.."> "..sMsg2)    -- высылаем в чат

            Core.SendToAll("<"..sBot.."> "..S.sMainTitle..": "..S.sArchiveData)

    local Path,Os,Gcf = Core.GetPtokaXPath().."scripts/",os.getenv("OS"):lower(),Gc.File

os.getenv("OS"):lower()

    local Path,Os,Gcf = Core.GetPtokaXPath().."scripts/",(os.getenv("OS") or ""):lower(),Gc.File

    local _,_,pfx,cmd = data:lower():find("%b<> (["..Gc.Prefixes.."])(%S+)")

Core.SendToAll("$OpList "..sWho)

Core.SendToAll("$MyINFO $ALL "..sWho.." no<SomeDC++ V:(r21),M:A,H:1/0/1,S:10>$ $ $no@mail$255008881124$")

tTimesToSendToChat = {}

tShowAtCurTime = {}

SendToRoom(user.sNick,str)

SendToRoom(user.sNick,str,user.iProfile)

function SendToRoom(name,msg)

function SendToRoom(name,msg,iProfile)
    local oldname = name
    if tAllowProfilesKick[iProfile] then
        name = "Администрация"
    end

if user.sNick ~= name then

if user.sNick ~= oldname then

    local sMagnet = sData:match".*(magnet:%S+%.%S%S%S).*"
    local bFlag = true
    if sMagnet then
        local sNick = sData:match"(%b<>)"
        for i,v in ipairs(tMagnet) do
            if v[1] == sMagnet then
                bFlag = nil
                break
            end
        end
        if bFlag then
            table.insert(tMagnet,{sMagnet, sNick, os.time()+iTime*3600})
        end    
    end

    local sMagnet, bFlag
    for sMagnet in sData:gmatch"(magnet:%S+)" do
        bFlag = true
        if sMagnet then
            local sNick = sData:match"(%b<>)"
            for i,v in ipairs(tMagnet) do
                if v[1] == sMagnet then
                    bFlag = nil
                    break
                end
            end
            if bFlag then
                table.insert(tMagnet,{sMagnet, sNick, os.time()+iTime*3600})
            end    
        end
    end

-- таблица с командами:
tCmds = {
    ["wds"] = true,
    ["nfspro"] = true,
    ["someanothercmd"] = true,
}

-- фраза для отправки:
sSendPhrase = "вам отправлено личное приватное сообщение, прочтите его!"

function OnStartup()
    sBot = SetMan.GetString(21)
end

function ChatArrival(tUser, sData)
    local sCmd = sData:match("^%b<>%s+%p(%S+).*|$")
    if sCmd then
        sCmd = sCmd:lower()
        if tCmds[sCmd] then
            Core.SendToUser(tUser, "<"..sBot.."> *** "..tUser.sNick..", "..sSendPhrase)
        end
    end
end

<form method="post">

    local a, b = http.request{
        url = [[http://billing:8080/balance_sender?login=]]..login..[[&pswd=]]..pass..[[&mid=5]],
    }

    local a, b = http.request([[http://billing:8080/balance_sender?login=]]..login..[[&pswd=]]..pass..[[&mid=5]])

local http = require("socket.http")

function GetData(login, pass)
    local a, b = http.request{
        url = [[http://billing:8080/balance_sender?login=]]..login..[[&pswd=]]..pass..[[&mid=5]],
    }
    if b and b == 200 then
        local c = a:match("status=\"(%S+)\"")
        if c then
            if c == "error" then
                return "Ошибка логина или пароля"
            elseif c == "ok" then
                local d = a:match("summa=\"(%S+)%s*\"")
                if d then
                    return "Ваш баланс равен "..d.." руб."
                else
                    return "Сумма не найдена"
                end
            else
                return "Ответ не корректен"
            end
        else
            return "Запрос не корректен"
        end
    else
        return "Запрос не обработан"
    end
end

Core.SendToAll("Ответ на запрос: "..GetData("тут_впиши_логин", "тут_впиши_пароль"))

Limit=10*1073741824  -- в байтах (10 гб)

function ConnectToMeArrival(user)
    if Core.GetUserData(user,16)<Limit then
        Core.SendToUser(user, "*** Ваша шара меньше 10 гигабайт, поэтому вы не можете пользоваться файлообменом!")
        return true
    end
end
RevConnectToMeArrival=ConnectToMeArrival

if string.find(msg ,tSafe[i] , 1, true) then

if string.find(msg ,tSafe[i]) then

-- Автор: Артём
local tRanks = {
  {"10.0.0.0", "10.255.255.255"},        -- Диапазон для перенаправления
  {"192.168.0.0", "192.168.255.255"}    -- Диапазон для перенаправления
}

sAddress = "адрес_для_перенаправления"
sReason = "причина для перенаправления"

function Ip2Num(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] = Ip2Num(v[1]), Ip2Num(v[2])
  end
end

function UserConnected(tUser)
  local iIP = Ip2Num(tUser.sIP)
  for _, v in ipairs(tRanks) do
    if iIP > v[1] and iIP < v[2] then
        Core.Redirect(tUser, sAddress, sReason)
        return
    end
  end
end

RegConnected, OpConnected = UserConnected, UserConnected

sData = "<Nick> lalalalala|"
sNick = "Nick"

iBegin = os.clock()
for i = 1, 1000000 do
--sNeedData = sData:match("^%b<>%s(.*)|$")
sNeedData = sData:sub(sNick:len() + 4, -2)
end

--Core.SendToAll((os.clock() - iBegin).." secs with _match_ and data: "..sNeedData)
Core.SendToAll((os.clock() - iBegin).." secs with sub and data: "..sNeedData)

    local sNewMyINFO = "$MyINFO $ALL "..i.." "..tNeedUser.sDescription.."<"..v["sNeedClient"].." V:"..v["sNeedVersion"]..",M:"..tNeedUser.sMode..",H:"..v["sNeedHubs"]..",S:"..tNeedUser.iSlots..">$ $"..v["sNeedConnection"].."$"..sMail.."$"..tNeedUser.iShareSize.."$"

M:"..tNeedUser.sMode..",H:

M:"..(tNeedUser.sMode or "P")..",H: