Отправка сообщения в ПМ, в зависиммости от IP

-- IP адреса кому рассылка не производится
local tRanks = {
    {"10.0.0.0","10.255.255.255"},
    {"192.168.0.0","192.168.255.255"},
}
-- Профили которые могут осуществлять расссылку
tProfiles = {
    [0] = 1,
    [1] = 0,
    [2] = 0,
    [3] = 0,
    [-1] = 0,
}
---------------------------------------------------------------
function iIp(sIP)
        local a, b, c, d = sIP:match"^(%d+)%.(%d+)%.(%d+)%.(%d+)$"
        return a * 16777216 + b * 65536 + c * 256 + d
end

function OnStartup()
        for k, v in ipairs(tRanks) do
            tRanks[k][1], tRanks[k][2] = iIp(v[1]), iIp(v[2])
        end
    sBot = SetMan.GetString(21)
end

function ChatArrival(tUser, sData)
    if tProfiles[tUser.iProfile] == 1 then
    local cmd = sData:match"%b<>%s+(%S+).*|"
    if sCmd then
        if sCmd == "!pmmsg" then
                local t = Core.GetOnlineUsers() or {}
                local iIP = iIp(tUser.sIP)
                    local bIsLocal = false
                    for _, v in ipairs(tRanks) do
                        if iIP > v[1] and iIP < v[2] then
                            bIsLocal = true
                            break
                        end
                    end
                    if not bIsLocal then
                        Core.SendPmToNick(tUser.sNick, sbot, sMsg)
                    end
        return true
        end
    end
    else
        Core.SendToUser(tUser, "<"..sBot.."> *** Вам недоступна данная функция")
    end
end


function OpConnected(tUser)
        Core.SendToUser(tUser, "$UserCommand 1 3 Управление\\Рассылка сообщений\\Сообщение в приват интернет пользователям $<%[mynick]> !pmmsg %[line:Сообщение:]|")
end