Мониторинг goldsrc-Source-серверов, API1, API2 | мониторинг серверов left4dead

tUser:SendData("Курильщик","Название сервера--->"..(a or "unknown"))
tUser:SendData("Курильщик","Карта на сервере--->"..(b or "unknown"))
tUser:SendData("Курильщик","Тип и сложность игры--->"..(d or "unknown"))
tUser:SendData("Курильщик","Игроков на сервере--->"..(f or 0).."/"..(r or 0))
tUser:SendData("Курильщик","Версия сервера--->"..(t or "unknown"))

tUser:SendData("Курильщик","Игроков на сервере--->"..(f or "0").."/"..(r or "0"))

tUser:SendData("Курильщик","Игроков на сервере--->"..(f and f~='' or 0).."/"..(r or 0))

function ChatArrival(tUser, sData)
  local sCmd = sData:match"%b<> !л4д" ----здесь производится отлов комманды !л4д если Юзер написал эту комманду то выводится мониторинг
  if sCmd then
    local _, sError = myudp:send(sDatagram, sServerIp, sServerPort)
    local bData, sError = ReceiveData()
    if not sError and bData then
      local z=CorrectData(bData,'?')
      z=string.sub(z, 7)
      local a, b, c, d, e = z:match"(.-)?(.-)?(.-)?(.-)?(.+)"
        if not a then
          a, b, c, d, e = 'unknown', 'unknown', 'unknown', 'unknown', 'unknown'
        else
          local f, r, t = e:sub(3):match"(%d*)(%d)(.+)"
          if f then
            t = t:match"(%d%p%d+%p%d+%p%d+)"
          else
            f, r, t = 0, 0, 'unknown'
          end
        end
        tUser:SendData("<Курильщик> Айпи адрес сервера---> 192.168.23.15:27015"..
          "|<Курильщик> Название сервера---> "..tostring(a)..
          "|<Курильщик> Карта на сервере---> "..tostring(b)..
          "|<Курильщик> Тип и сложность игры---> "..tostring(d)..
          "|<Курильщик> Игроков на сервере---> "..tostring(f).."/"..tostring(r)..
          "|<Курильщик> Версия сервера---> "..tostring(t))
    end
    return 1
  end
end