Author Topic: Please convert to New API  (Read 3965 times)

0 Members and 1 Guest are viewing this topic.

Offline KauH

  • Newbie
  • *
  • Posts: 3
  • Karma: +0/-2
  • Obscurus Angelus
    • omg
Please convert to New API
« on: 01 July, 2008, 09:11:40 »
PtokaX LUA API converter not help  :-[ :-[ :-[
Please convert this scripts correctly   :-[
P.S. scripts have same russian words , dont scare them  ;)
« Last Edit: 01 July, 2008, 09:34:23 by KauH »

PtokaX forum

Please convert to New API
« on: 01 July, 2008, 09:11:40 »

Offline F_O_X

  • Junior Member
  • **
  • Posts: 24
  • Karma: +9/-0
Re: Please convert to New API
« Reply #1 on: 01 July, 2008, 11:16:03 »
PtokaX LUA API converter not help  :-[ :-[ :-[
Please convert this scripts correctly   :-[
P.S. scripts have same russian words , dont scare them  ;)

For, take.
Code: [Select]
-- данный скрипт позволяет добавлять приставку к тэгам ЗАРЕГИСТРИРОВАННЫХ пользователей.
-- by X-Ray 02/11/05

Minutes =  1
tProfileTag = {
[1] = "[OPeRaToR]",
[2] = "[ViP]",
[3] = "[ReG]",
[4] = "[ModeRaToR]",
[5] = "[Хозяин_хаба]",
[0] = "[MaSTeR]",
[-1] = "[UnReG]",
}

-- список подсетей и описания, вставляемое в тэг.
RangeDesc = {
"127.0.0.1  -  127.0.0.255 -[Твой_Комп]",

"10.0.1.1  10.0.1.254 -[InterLan]",
"10.0.3.1  10.0.7.254 -[Netorn]",
"10.0.8.1  10.0.8.254 -[InterLan]",
"10.0.40.1  10.0.47.254 -[OpenLan]",
"10.1.0.1  10.9.255.254 -[NetByNet]",
"10.10.0.1  10.10.10.254 -[NetByNet]",
"10.10.11.1  10.10.21.254 -[Koptevo]",
"10.10.22.1  10.10.22.254 -[NetByNet]",
"10.10.25.1  10.10.255.254 -[Koptevo]",
"10.11.0.1  10.11.63.254 -[Ostankino]",
"10.11.64.1  10.11.127.254 -[Natural_Way]",
"10.13.0.1  10.13.255.254 -[NetByNet]",
"10.14.0.1  10.14.255.254 -[UnionLine]",
"10.15.0.1  10.16.255.254 -[NetByNet]",
"10.17.0.1  10.17.0.254 -[Informedia]",
"10.18.0.1  10.19.255.254 -[G-Net]",
"10.20.0.1  10.20.255.254 -[NetByNet]",
"10.24.0.1  10.27.255.254 -[NetByNet]",
"10.28.0.1  10.28.255.254 -[G-Net]",
"10.32.0.1  10.35.255.254 -[PROV]",
"10.36.0.1  10.37.255.254 -[ImSYS]",
"10.38.0.1  10.38.255.254 -[G-Net]",
"10.39.0.1  10.39.255.254 -[ImSYS]",
"10.40.0.1  10.41.255.254 -[SVAO]",
"10.42.0.1  10.44.255.254 -[CordSYS]",
"10.46.0.1  10.46.255.254 -[ImSYS]",
"10.48.0.1  10.55.255.254 -[G-Net]",
"10.56.0.1  10.63.255.254 -[U-Tech]",
"10.69.0.1  10.69.255.254 -[InterLan]",
"10.100.0.1  - 10.101.255.254 -[Sviblovo]",
"10.104.0.1  10.108.255.255 -[Kvidex]",
"10.111.0.1  10.111.255.254 -[G-Net]",
"10.120.0.1  10.120.255.254 -[Koptevo]",
"10.145.0.1  10.146.255.254 -[Degunino]",
"10.147.0.1  10.147.255.254 -[UnionLine]",
"10.148.0.1  10.154.255.254 -[Degunino]",
"10.155.0.1  10.155.255.254 -[UnionLine]",
"10.156.0.1  10.162.255.254 -[Degunino]",
"10.167.0.1  10.167.255.254 -[Savelovo]",
"10.168.0.1  10.168.255.254 -[Netorn]",
"10.170.0.1  10.170.255.254 -[korolev.net]",
"10.192.0.1  10.192.255.254 -[VilVit]",
"10.193.0.1  10.193.255.254 -[Netorn]",
"10.193.0.1  10.193.255.254 -[Beirel г.Пушкино]",
"10.194.0.1  10.194.255.254 -[Netorn]",

"172.16.0.1 - 172.16.255.254 -[HutorNet]",
"172.17.0.1 - 172.17.54.254 -[CLN]",
"172.17.55.1 - 172.17.55.254 -[Informedia]",
"172.17.56.1 - 172.17.95.254 -[CLN]",
"172.17.96.1 - 172.17.111.254 -[Informedia]",
"172.17.112.1 - 172.17.255.254 -[CLN]",
"172.18.0.1 - 172.18.255.254 -[Netorn]",
"172.19.0.1 - 172.20.255.254 -[Yauza]",
"172.21.26.1 - 172.21.31.254 -[Gelikon]",
"172.22.0.1 - 172.22.255.254 -[Netorn]",
"172.23.0.1 - 172.23.103.254 -[InterLan]",
"172.23.104.1 - 172.23.111.254 -[Kornet]",
"172.23.112.1 - 172.23.135.254 -[InterLan]",
"172.23.136.1 - 172.23.143.254 -[Kornet]",
"172.23.144.1 - 172.23.147.254 -[FastComm]",
"172.23.148.1 - 172.23.255.254 -[InterLan]",
"172.24.0.1 - 172.24.255.254 -[Vawe Net]",
"172.25.0.1 - 172.25.255.254 -[Netorn]",
"172.26.0.1 - 172.26.255.254 -[Netorn]",
"172.27.0.1 - 172.27.255.254 -[Intek-M г.Мытищи]",
"172.28.0.1 - 172.28.255.254 -[MasterLink]",
"172.29.0.1 - 172.29.15.254 -[MasterLine]",

"193.125.32.1 - 193.125.39.254 -[Kvidex]",
"193.125.88.1 - 193.125.95.254 -[Kvidex]",
"193.125.128.1 - 193.125.135.254 -[Kvidex]",
"193.125.232.1 - 193.125.235.254 -[Kvidex]",
"193.125.236.1 - 193.125.237.254 -[Kvidex]",

"194.6.220.1 - 194.6.223.254 -[PROV]",

"195.90.145.1 - 195.90.145.254 -[Gelikon]",
"195.90.177.1 - 195.90.177.254 -[Gelikon]",
"195.225.128.1 - 195.225.128.254 -[PROV]",
"195.225.130.1 - 195.225.131.254 -[PROV]",

"79.120.0.1 - 79.120.31.254 -[NetByNet]",

"80.86.240.1 - 80.86.255.254 -[U-Tech]",
"80.87.144.1 - 80.87.147.254 -[Ostankino]",

"81.211.38.1 - 81.211.39.254 -[Koptevo]",
"81.211.40.1 - 81.211.40.254 -[Koptevo]",

"82.138.57.1 - 82.138.57.1 -[korolev.net]",
"82.148.11.1 - 82.148.11.254 -[CommSol]",
"82.148.12.1 - 82.148.12.254 -[Gelikon]",
"82.148.15.1 - 82.148.15.62 -[InterLan]",
"82.148.16.129 - 82.148.16.254 -[Kornet]",
"82.148.17.1 - 82.148.17.254 -[InterLan]",
"82.148.18.1 - 82.148.18.254 -[InterLan]",
"82.148.19.1 - 82.148.19.14 -[InterLan]",
"82.148.23.1 - 82.148.23.254 -[CommSol]",

"84.23.32.1 - 84.23.63.254 -[ImSYS]",

"85.192.16.1 - 85.192.23.254 -[Yauza]",
"85.192.24.1 - 85.192.31.254 -[SVAO]",

"86.111.2.1 - 86.111.2.254 -[Gelikon]",

"87.118.246.1 - 87.118.246.254 -[MasterLine]",
"87.118.247.1 - 87.118.247.254 -[Млан-телеком]",
"87.118.248.1 - 87.118.248.254 -[Млан-телеком]",
"87.118.249.1 - 87.118.249.254 -[MasterLine]",

"88.210.51.1 - 88.210.51.254 -[VilVit]",

"89.20.128.1 - 89.20.139.254 -[NetByNet]",
"89.191.224.1 - 89.191.231.254 -[CommSol]",
"89.191.240.1 - 89.191.240.254 -[MasterLink]",
"89.208.126.1 - 89.208.127.254 -[ImSYS]",
"89.222.128.1 - 89.222.163.254 -[Netorn]",
"89.222.164.1 - 89.222.167.254 -[Beirel г.Пушкино]",
"89.222.176.1 - 89.222.179.254 -[Sviblovo]",
"89.222.180.1 - 89.222.255.254 -[Netorn]",

"212.1.224.1 - 212.1.235.254 -[NetByNet]",
"212.5.65.1 - 212.5.65.254 -[Млан-телеком]",
"212.5.164.1 - 212.5.164.254 -[Gelikon]",
"212.118.37.1 - 212.118.37.254 -[ImSYS]",
"212.118.54.1 - 212.118.55.254 -[ImSYS]",

"213.141.128.1 - 213.141.159.254 -[NetByNet]",
"213.145.52.1 - 213.145.52.254 -[Sviblovo]",
"213.148.16.1 - 213.148.16.30 -[InterLan]",
"213.148.17.1 - 213.148.17.254 -[InterLan]",
"213.148.18.209 - 213.148.18.214 -[Gelikon]",
"213.148.21.1 - 213.148.21.254 -[Netorn]",
"213.148.22.1 - 213.148.23.254 -[Netorn]",
"213.148.24.1 - 213.148.24.254 -[Vawe Net]",
"213.148.25.1 - 213.148.25.254 -[Sviblovo]",
"213.148.27.161 - 213.148.27.190 -[InterLan]",
"213.148.27.193 - 213.148.27.206 -[InterLan]",
"213.148.29.1 - 213.148.29.62 -[Gelikon]",
"213.208.173.1 - 213.208.173.254 -[Natural_Way]",
"213.208.174.1 - 213.208.174.254 -[Ostankino]",
"213.219.208.1 - 213.219.209.254 -[Netorn]",
"213.219.211.1 - 213.219.211.254 -[Netorn]",
"213.219.212.1 - 213.219.215.254 -[Netorn]",
"213.219.212.65 - 213.219.215.126 -[VilVit]",
"213.219.219.1 - 213.219.219.254 -[Netorn]",
"213.219.220.1 - 213.219.223.254 -[Netorn]",
"213.247.130.1 - 213.247.130.254 -[MasterLine]",
"213.247.133.1 - 213.247.133.254 -[MasterLine]",
"213.247.134.1 - 213.247.135.254 -[MasterLine]",
"213.247.136.1 - 213.247.137.254 -[MasterLine]",
"213.247.137.1 - 213.247.137.254 -[Млан-телеком]",
"213.247.146.1 - 213.247.147.254 -[MasterLine]",
"213.247.147.1 - 213.247.147.254 -[Млан-телеком]",
"213.247.149.1 - 213.247.149.254 -[MasterLine]",
"213.247.169.1 - 213.247.169.254 -[MasterLine]",
"213.247.201.1 - 213.247.201.254 -[MasterLine]",

"217.70.16.1 - 217.70.31.254 -[ImSYS]",
"217.78.176.1 - 217.78.191.254 -[Koptevo]",
}

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 = "[Сеть Неизвестна]"
end
end
local s,e,name,desc,speed,email,share = string.find(user.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
Core.SendToAll("$MyINFO $ALL "..name.." "..descript.." "..tProfileTag[user.iProfile].." ["..user.sIP.."] "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
end
end
end

-- функция РАСЧЁТА адреса 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(c) and tonumber(d)) then
calc = a*16777216 + b*65536 + c*256 + d
return calc
else return 0
end
end

A second script take here:
http://forum.ptokax.org/index.php?topic=7540.0
« Last Edit: 01 July, 2008, 11:24:14 by F_O_X »

PtokaX forum

Re: Please convert to New API
« Reply #1 on: 01 July, 2008, 11:16:03 »