for key,value in pairs(table) do
      Core.SendToAll("table["..key.."] = "..value)
end

Core.SendToAll("<"..sUser.sNick.. "> " ..noCaps)

Core.SendToAll("" ..noCaps)

local c = string.char
local sDatagram = c(0xFF)..c(0xFF)..c(0xFF)..c(0xFF)..c(0x54)..c(0x53)..c(0x6F)..c(0x75)..
c(0x72)..c(0x63)..c(0x65)..c(0x20)..c(0x45)..c(0x6E)..c(0x67)..c(0x69)..c(0x6E)..
c(0x65)..c(0x20)..c(0x51)..c(0x75)..c(0x65)..c(0x72)..c(0x79)..c(0x00) ---это основной запрос всем source и goldscr серверам
local sServerIp = {"81.9.25.202","tf.csmania.ru",} -- суда вписываем айпи своего сервера
local sServerPort = {"27013","27016",} -- суда вписываем порт своего сервера
local iTimeOut = 1 -- таймаут соединения на получение
local iBuferSize = nil -- размер буфера (nil - стандартный)
BotName = "Курильщик" -- имя бота
BotDesc = "Закуривай;)" -- описание бота
BotEmail = "hub@mail.ru" -- email бота
----------------------------------------------------------------------------
-- loads the socket module
socket = require("socket")

myudp = socket.udp()

myudp:settimeout(iTimeOut)

function Main()
SetTimer(1000)
frmHub:RegBot(BotName, 1, BotDesc, BotEmail) --регистрируем бота на хабе
end

function CorrectData(sData, sReplace)
local sStr, iSmb = ''
for i = 1, sData:len() do
iSmb = sData:byte(i)
if iSmb > 243 and iSmb < 256 then
sStr = sStr..sReplace
elseif iSmb > 31 then
sStr = sStr..string.char(iSmb)
elseif iSmb < 1 then
sStr = sStr..sReplace
elseif iSmb >= 1 then
sStr = sStr..iSmb
end
end
return sStr
end


function ChatArrival(tUser, sData)
local sCmd = sData:match"%b<> !л4д"
if sCmd then
for i = 1,table.getn(sServerIp) do
myudp:setpeername(sServerIp[i], sServerPort[i])
local _, sError = myudp:send(sDatagram, sServerIp[i], sServerPort[i])
local bData, sError = ReceiveData()
if not sError and bData then
local z = CorrectData(bData,'?'):sub(7)
local sName, sMap, sTyp, sType, ilen, iTotal, sVersion = z:match"(.-)?(.-)?(.-)?(.-)?(.+)"
if sName then
if sName==sName:match"(%d*%p%d+%p%d+%p%d+:%d+)" then
k=sMap
sMap=sTyp
l=sType
sType=k
sName=k
end
iPlayers, iTotal, sVersion = ilen:sub(3):match"(%d*)(%d)(.+)"
if iPlayers:len() >1 then
iPlayers, iTotal, sVersion = ilen:sub(3):match"(%d*)(%d%d)(.+)"
end
if zlen then
iTotal="32"
iPlayers=ilen:sub(3):match"(%d*).+"
end
sVersion = sVersion:match"(%d%p%d+%p%d+%p%d+)"
iPlayers = iPlayers~='' and iPlayers or 0
SendToAll("blablabla") --написано до следующих строчек а выводится после них
tUser:SendData("Курильщик"," Айпи адрес сервера---> "..sServerIp[i]..":"..sServerPort[i]..""..
"|<Курильщик> Название сервера---> "..tostring(sName)..
"|<Курильщик> Карта на сервере---> "..tostring(sMap)..
"|<Курильщик> Тип и сложность игры---> "..tostring(sType)..
"|<Курильщик> Игроков на сервере---> "..tostring(iPlayers).."/"..tostring(iTotal)..
"|<Курильщик> Версия сервера---> "..tostring(sVersion)..
"|<Курильщик> =======================================")
end
end
end
return 1
end
end

function OnExit()
myudp:close()
end
OnError = OnExit

function ReceiveData()
local sData, sError = myudp:receive(iBuferSize)
if sError then
-- ошибка!
return nil, sError
end
return sData
end



function NewUserConnected(tUser)
tUser:SendData("$UserCommand 1 3 Left4Dead\\Мониторинг наших серверов$<%[mynick]> !л4д||")
end
OpConnected=NewUserConnected