MyDC.ru _ Запросы скриптов для PtokaX _ Нужен скрипт
Автор: DriverZX-10 29.8.2009, 21:46
Ребят,нужен скрипт,который бы вписывал по IP в описание город из пиринговых сетей,диапазоны IP/города известны. http://mydc.ru/r/?http://imageshost.ru/links/fe5070823fe444426eb5e6ab60f4f3d6 Нашёл в инете нечто похожее,переконвертировал в API2:
CODE
-- Этот скрипт конвертирован программой 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