Fuck2UnReg, API1, API2 | Скрипт ограничений для незарегистрированных юзеров

-- что запрещаем при старте скрипта (1 - запрещено)
tConfig = {
    ["bMainChat"] = 1,    -- главный чат
    ["bPM"] = 1,        -- лички
    ["bDownload"] = 1,    -- скачку
}

-- диапазоны IP, на которых не применяются правила блокировки
tAllowedRanges = {
    ["127.0.0.1"]= "127.0.0.255",            -- localhost
}

local tTemp = {}
local tUsers = {}

function OnStartup()
    sBot = SetMan.GetString(21)
    DoTemp()
    local tUsersOnline = Core.GetOnlineUsers()
    for i, tUser in ipairs(tUsersOnline) do
        UserConnected(tUser)
    end
end

function UserConnected(tUser)
    local sNick = tUser.sNick
    tUsers[sNick] = checkIP(tUser.sIP)
end
OpConnected,RegConnected = UserConnected,UserConnected

function UserDisconnected(tUser)
    local sNick = tUser.sNick
    tUsers[sNick] = nil
end
RegDisconnected,OpDisconnected = UserDisconnected,UserDisconnected

function ChatArrival(tUser, sData)
    local sNick = tUser.sNick
    if tUser.iProfile == -1 and not tUsers[sNick] and tConfig["bMainChat"] == 1 then
        Core.SendPmToUser(tUser, sBot, "*** "..sNick..", главный чат для незарегистрированных пользователей запрещен, сообщение не отправлено! Зарегистрируйтесь, пожалуйста!")
        return true
    end
end

function ToArrival(tUser, sData)
    local sNick = tUser.sNick
    if tUser.iProfile == -1 and not tUsers[sNick] and tConfig["bPM"] == 1 then
        Core.SendPmToUser(tUser, sBot, "*** "..sNick..", приватные сообщения для незарегистрированных пользователей запрещены, сообщение не отправлено! Зарегистрируйтесь, пожалуйста!")
        return true
    end
end

function ConnectToMeArrival(tUser, sData)
    local sNick = tUser.sNick
    if tUser.iProfile == -1 and not tUsers[sNick] and tConfig["bDownload"] == 1 then
        Core.SendPmToUser(tUser, sBot, "*** "..sNick..", поиск и скачивание для незарегистрированных пользователей запрещены! Зарегистрируйтесь, пожалуйста!")
        return true
    end
end
SearchArrival = ConnectToMeArrival
MultiConnectToMeArrival = ConnectToMeArrival
RevConnectToMeArrival = ConnectToMeArrival
SRArrival = ConnectToMeArrival
UDPSRArrival = ConnectToMeArrival

function DoTemp()
    for a,b in pairs(tAllowedRanges) do
        tTemp[(computeIP(a))] = computeIP(b)
    end    
end

function computeIP(sIP)
    local _,_,a,b,c,d = string.find(sIP, "(%d+).(%d+).(%d+).(%d+)")
    return a*16777216 + b*65536 + c*256 + d
end

function checkIP(sIP)
    local iIP = computeIP(sIP)
    if iIP then
        for startRange,endRange in pairs(tTemp) do
            if (iIP >= startRange) and (iIP <= endRange) then
                return true
            end
        end
    end
end

function OnError(s)
    Core.SendToOpChat(s)
end