GagCountry_ExcludeRangeIP, API2

local tExcludeParsed = {}

function OnStartup()    
    for k, v in pairs(tExclude) do        
        if v ~= true then
            tExcludeParsed[iIp(k)] = iIp(v)            
        else
            tExcludeParsed[k] = v
        end
    end
end

function IsGoodUser(tUser)
    if tProfile[tUser.iProfile] == 1 then
        local sCountryCode = IP2Country.GetCountryCode(tUser.sIP)
        local bDiap = false
        for iStartIP, iEndIP in pairs(tExcludeParsed) do
            if iEndIP ~= true then
                local iIP = iIp(tUser.sIP)
                if iIP >= iStartIP and iIP <= iEndIP then
                    bDiap = true
                    break
                end
            end
        end
        return not(tCountryGag[sCountryCode] and tExcludeParsed[tUser.sIP] == nil and not bDiap)
    end
    return true
end

function UserConnected(tUser)
    if not IsGoodUser(tUser) then
        Core.SendPmToNick(sAdmin, sBot, "*** Зашёл IP: « "..tUser.sIP.." » с гагнутой страны: « "..IP2Country.GetCountryCode(tUser.sIP).." »")
    end
end
RegConnected, OpCoonected = UserConnected, UserConnected

function ChatArrival(tUser, sData)
    if not IsGoodUser(tUser) then
        local sMsg = sData:match("%b<>%s+(.*)|$")
        Core.SendToUser(tUser, "<"..sBot.."> Извините, ваша страна заглушена, свяжитесь с администрацией если желаете общаться на хабе"..
        "/ Sorry, your country is muted, contact the hub to add your IP address or range of IP in the list of exceptions")
        Core.SendPmToNick(sAdmin, sBot, "*** Засветился IP: « "..tUser.sIP.." » с гагнутой страны: « "..IP2Country.GetCountryCode(tUser.sIP).." » Пытался написать в Чат: "..sMsg)
        return true
    end
end

function ToArrival(tUser, sData)
    if not IsGoodUser(tUser) then
        local sTo, sFrom, sMsg = sData:match("$To:%s(%S+)%sFrom:%s(%S+)%s$%S+%s+(.*)|$")
        if sTo and tGoodPmUser[sTo] then   -- Ники которым смогут писать в ЛС
            return
        end
        Core.SendPmToUser(tUser, sBot, "*** Извините, ваша страна заглушена, свяжитесь с администрацией если желаете общаться на хабе"..
        "/ Sorry, your country is muted, contact the hub to add your IP address or range of IP in the list of exceptions")
        Core.SendPmToNick(sAdmin, sBot, "*** Засветился IP: « "..tUser.sIP.." » с гагнутой страны: « "..IP2Country.GetCountryCode(tUser.sIP).." » Пытался написать в ЛС: "..sMsg)
        return true
    end
end

function OnStartup()
        for k, v in ipairs(tExclude) do
        tExclude[k][1], tExclude[k][2] = iIp[v[1]], iIp[v[2]]
    end
end

function ToArrival(tUser, sData)
        if tProfile[tUser.iProfile] == 1 then
        local value = tCountryGag[IP2Country.GetCountryCode(tUser.sIP)]
        local bDiap = false
        for sStartIP, sEndIP in pairs(tExclude) do
            if sEndIP ~= true then
        if iIp(tUser.sIP) >= iIp(sStartIP) and iIp(tUser.sIP) <= iIp(sEndIP) then
            bDiap = true
                    break
                end
            end
        end
        local sTo,sFrom,sMsg = sData:match"$To:%s(%S+)%sFrom:%s(%S+)%s$%S+%s+(.*)"
        if sTo and tGoodPmUser[sTo] then return end  -- Ники которым смогут писать в ЛС
        Core.SendPmToUser(tUser, sBot, "*** Извините, ваша страна заглушена, свяжитесь с администрацией если желаете общаться на хабе"..
        "/ Sorry, your country is muted, contact the hub to add your IP address or range of IP in the list of exceptions")
        Core.SendPmToNick(sAdmin, sBot, "*** Засветился IP: « "..tUser.sIP.." » с гагнутой страны: « "..IP2Country.GetCountryCode(tUser.sIP).." » Пытался написать в ЛС: "..sMsg)
        return true
        end
    end