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

local _G = _G
local tScript = {}

tScript.iTimer = 60 -- время в секундах

tScript.tProfileTag = {
[1] = "[Оператор]",
[2] = "[VIP]",
[3] = "",
[0] = "[Мастер]",
[-1] = "",
}

tScript.RangeDesc = { "192.168.0.0-192.168.255.255-[Локальные Сети]" }

function OnStartup()
TmrMan.AddTimer(tScript.iTimer * 1000, "OnTimer")
end

function OnTimer()
for id,tUser in pairs(Core.GetOnlineUsers(true)) do
if tUser.sMyInfoString ~= nil then
local userip = tScript.calcip(tUser.sIP)
if userip ~= 0 then
for index,descIP in pairs(tScript.RangeDesc) do
local _,_,startRange,endRange,RangeDescript = string.find(descIP, "(.*)-(.*)-(.*)")
local startRange = tScript.calcip(startRange)
local endRange = tScript.calcip(endRange)
if userip >= startRange and userip <= endRange then
descript = RangeDescript
end
end
if descript == nil then
descript = "[Внешние сети]"
end
end
local s,e,name,desc,speed,email,share = string.find(tUser.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
Core.SendToAll("$MyINFO $ALL "..name.." "..tScript.tProfileTag[tUser.iProfile].." "..descript.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
end
end
end

function UserConnected(tUser, sData)
Core.GetUserAllData(tUser)
if tUser.sMyInfoString ~= nil then
local userip = tScript.calcip(tUser.sIP)
if userip ~= 0 then
for index,descIP in pairs(tScript.RangeDesc) do
local _,_,startRange,endRange,RangeDescript = string.find(descIP, "(.*)-(.*)-(.*)")
local startRange = tScript.calcip(startRange)
local endRange = tScript.calcip(endRange)
if userip >= startRange and userip <= endRange then
descript = RangeDescript
end
end
if descript == nil then
descript = "[Внешние сети]"
end
end
Core.SendToAll(descript)
local s,e,name,desc,speed,email,share = string.find(tUser.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
Core.SendToAll("$MyINFO $ALL "..name.." "..tScript.tProfileTag[tUser.iProfile].." "..descript.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$|")
end
end
OpConnected = UserConnected
RegConnected = UserConnected

function tScript.calcip(ipcalc)
local _,_,a,b,c,d = string.find(ipcalc, "(%d+).(%d+).(%d+).(%d+)")
local calc = 0
if (tonumber(a) and tonumber(b) and tonumber© and tonumber(d)) then
calc = a*16777216 + b*65536 + c*256 + d
return calc
else
return 0
end
end