Скачивание Странички Из Интернета И Вывод Информации В Чате, Api1 желательно

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

function OnTimer()
  local sData, sError = ReceiveData()
  if not sError and sData then
    -- мы получили какие-то данные sData и тут уже их обрабатываем
    StopTimer()
    SendToAll(CorrectData(sData, '*'))
  end
end

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

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

[01:41:01] яяяяI&Left 4 Dead server (co-op)*l4d_deadcity01_riverside9*left4dead*L4D - Co-op - Expert*1**4*dw**1.0.0.9* ‡iempty,alltalk,*

function CorrectData(sData, sReplace)
  local iN, sStr, iSmb = 0, ''
  for i = 1, sData:len() do
    if iN == 0 then
      iSmb = sData:byte(i)
      if iSmb > 31 then
        sStr = sStr..string.char(iSmb)
      else
        local sP = GetPlayers(i, sData)
        if sP then
          sStr, iN = sStr..sP, 4
        else
          sStr = sStr..sReplace
        end
      end
    else
      iN = iN - 1
    end
  end
  return sStr
end

function GetPlayers(iNum, sData)
  local t, sStr, iSmb = {" Players: ", false, " Slots: ", false}, ''
  iSmb = sData:byte(iNum)
  if iSmb == 0 then
    for i,w in ipairs(t) do
      iSmb = sData:byte(iNum + i)
      if w then
        if iSmb == 0 then
          return
        end
        sStr = sStr..w..iSmb
      else
        if iSmb ~= 0 then
          return
        end
      end
    end
    return sStr
  end
end

local sDatagram = " FF FF FF FF 54 53 6F 75 72 63 65 20 45 6E 67 69 6E 65 20 51 75 65 72 79 00 " -- отсылаемые данные
local sServerIp = "127.0.0.1" -- айпи
local sServerPort = 1209 -- порт
local iTimeOut = 1/100 -- таймаут соединения на получение
local iBuferSize = nil -- размер буфера (nil - стандартный)
----------------------------------------------------------------------------

-- loads the socket module
local socket = require("socket")

local myudp = socket.udp()

myudp:settimeout(iTimeOut)
myudp:setpeername(sServerIp, sServerPort)

-- уже точно не помню какие функции в старом апи, так что поправьте если накосячил!
function Main()
SetTimer(1000)
end

function GetPlayers(iNum, sData)
local t, sStr, iSmb = {" Players: ", false, " Slots: ", false}, ''
iSmb = sData:byte(iNum)
if iSmb == 0 then
for i,w in ipairs(t) do
iSmb = sData:byte(iNum + i)
if w then
if iSmb == 0 then
return
end
sStr = sStr..w..iSmb
else
if iSmb ~= 0 then
return
end
end
end
return sStr
end
end

function CorrectData(sData, sReplace)
local iN, sStr, iSmb = 0, ''
for i = 1, sData:len() do
if iN == 0 then
iSmb = sData:byte(i)
if iSmb > 31 then
sStr = sStr..string.char(iSmb)
else
local sP = GetPlayers(i, sData)
if sP then
sStr, iN = sStr..sP, 4
else
sStr = sStr..sReplace
end
end
else
iN = iN - 1
end
end
return sStr
end

function OnTimer()
local sData, sError = ReceiveData()
if not sError and sData then
-- мы получили какие-то данные sData и тут уже их обрабатываем
StopTimer()
SendToAll(CorrectData(sData, '*'))
end
end

function ChatArrival(tUser, sData)
local sCmd = sData:match"%b<> !send"
if sCmd then
StartTimer()
local _, sError = myudp:send(sDatagram, sServerIp, sServerPort)
if sError then
-- ошибка!
end
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

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)
--"0xFF..0xFF..0xFF..0xFF..0x54..0x53..0x6F..0x75..0x72..0x63..0x65..0x20..0x45..0x6E..0x67..0x69..
0x6E..0x65..0x20..0x51..0x75..0x65..0x72..0--x9..0x00" -- отсылаемые данные
local sServerIp = "192.168.23.15" -- айпи
local sServerPort = "27015" -- порт
local iTimeOut = 1 -- таймаут соединения на получение
local iBuferSize = nil -- размер буфера (nil - стандартный)
BotName = "Курильщик"        -- имя бота
BotDesc = "Закуривай;)"    -- описание бота
BotEmail = "hub@mail.ru"    -- email бота
----------------------------------------------------------------------------
-- loads the socket module
local socket = require("socket")

local myudp = socket.udp()

myudp:settimeout(iTimeOut)
myudp:setpeername(sServerIp, sServerPort)

-- уже точно не помню какие функции в старом апи, так что поправьте если накосячил!
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
    StartTimer()
    local _, sError = myudp:send(sDatagram, sServerIp, sServerPort)
    if sError then
      -- ошибка!
    end
  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 OnTimer()
  local sData, sError = ReceiveData()
  if not sError and sData then
    -- мы получили какие-то данные sData и тут уже их обрабатываем
    StopTimer()
    z=CorrectData(sData,'?')
   _,_,a,b,c,d,f= string.find(z,"????I7(.-)?(.-)?(.-)?(.-)?(.+)")
   f=string.sub(f, 3)
_,_,f,r,t= string.find(f,"(%d*)(%d)(.+)")
_,_,t= string.find(t,"(%d%p%d+%p%d+%p%d+)")
    SendToAll("Курильщик","Айпи адрес сервера--->192.168.23.15:27015")
    SendToAll("Курильщик","Название сервера--->"..a.."")
    SendToAll("Курильщик","Карта на сервере--->"..b.."")
    SendToAll("Курильщик","Тип и сложность игры--->"..d.."")
    if f==nil then
    SendToAll("Курильщик","Игроков на сервере--->"..f.."/"..r.."")
    else
    SendToAll("Курильщик","Игроков на сервере--->0/"..r.."")
    end
    SendToAll("Курильщик","Версия сервера--->"..t.."")
  end
end