Версия для печати темы

-- This script is converted with PtokaX LUA API Converter v0.9 at 04/03/08 02:04:51. Authtor: Alligator
Minutes = 1
tProfileTag = {
[1] = "[Оператор]",
[2] = "[VIP]",
[3] = "Зарегистрированый",
[0] = "[Админ]",
[-1] = "",
}

RangeDesc = {
[1]="10.128.162.28-192.168.255.255-[Локальные Сети]",
}

OnStartup = function()

tmr = TmrMan.AddTimer(60000 * Minutes)
end

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

-- ["..user.sIP.."]

-- функция РАСЧЁТА адреса IP
function 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
--end
RegConnected = UserConnected
OpConnected = UserConnected

RangeDesc = {
             [1]="10.128.162.28-192.168.255.255-[Локальные Сети]",