От: CheckPreFix, От темы с ID: 1947

-- Этот скрипт конвертирован программой PtokaX LUA API Конвертор v0.9. Русская версия 08/29/09 21:09:22
-- BotName --
HubBot = SetMan.GetString(21)
--time after user connect to overwrite the description
TimeOverWrite = 10 -- time in second
-- range ip overwrite ="begin ip range-end ip range-description"
-- not teste whit space in description
tProfileTag= {
[1] = "[Op]", -- Названия профилей как они будут выглядеть в описании , меняем на свои ))
[2] = "[Reg]",
[3] = "[VIP]",
[4] = "[Moder]",
[0] = "[Master]",
[-1] = "[Unreg]"
}

RangeDesc = {
[1]="10.202.0.0-10.202.255.255-[Щёлково]", -- Забиваем сдесь свой диапазон и название Сети (без пробела), далее продолжаем так же под следующим номером , диапазоном и названием
[2]="172.20.0.0-172.20.255.255-[Щёлково]", -- и так далее , только следите чтобы диапазоны не пересекались )) , у меня забито более 130 диапазонов
[3]="192.168.0.0-192.168.255.255-[Щёлково]",
[4]="10.239.0.0-10.239.255.255-[Ивантеевка]",
}

-- Info Path --
InfoLog = "UserInfo/" -- Create this folder before starting the script

function OnStartup()

end

-- New User Connect Info Arrival
function MyINFOArrival(curUser,data)
Core.GetUserAllData(curUser)
if GetTimer() == nil then StartTimer() end
end

function OnTimer(tmr)
OverWrite(HubBot)
TmrMan.RemoveTimer(tmr)
end

function rebuilmyinfo(curUser)
local descript,userip = nil,calcip(curUser.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 = "[хз]" end -- в скобках название для неизвестной Сети (пишем своё , только без пробела)
local s,e,nick,desc,speed,email,share = string.find(curUser.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
local addtag = tProfileTag[curUser.iProfile].." "..descript
Core.SendToAll("$MyINFO $ALL "..nick.." "..addtag.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
end
end


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

function OverWrite(curUser)
local tableover = Core.GetOnlineUsers(true)
for i, Userover in pairs(tableover) do
rebuilmyinfo(Userover)
end
end