DiapasonGag, тихая заглушка по диапазону (удобно против динамич. IP)

DiapasonGag.lua:65: attempt to compare number with nil

--- Скрипт тихой заглушки юзеров-нарушителей по диапазону (особенно удобно против диапазонов с динамическими IP), а также информирования админа о приходе юзера с заглушенного диапазона.
---
--- Название скрипта: DiapasonGag.lua
--- Версия: 1.0
--- Платформа: PtokaX 0.4.1.*
--- API: API 2
--- Автор: Ksan (aka Trans)
--- Город: Томск
--- Дата написания: 04-04-10 (начальная версия - в декабре 2009г)
--- Описание: Глушит по диапазонам из таблицы, при входе юзера с таких диапазонов сообщает админу о его приходе (опционально), заносит ник в отдельную таблицу, далее при попытке написать в чат и приват сначала проверяется наличие в таблице заглуш. ников, если там нет (например, скрипт перезапустили, а юзер уже в хабе, и он не попадет в таблицу) - проверяется по диапазону ещё раз. Имеется таблица команд, которые юзеру разрешено использовать даже при заглушке. Имеется таблица ников-исключений. Опов не глушит.
--- В принципе, можно сохранять таблицу заглуш. ников в файл, но особой нужды в этом нет.

local sBot = SetMan.GetString(21)
local sBot2 = "ReportBot"
local sAdmin = "Dimon"

local sCmd2 = "!showdiapazgag"
local sCmd3 = "!showindiapazgag"
local bFlag2 = false --- Сообщать или нет админу о заглушках
local bFlag3 = false --- Сообщать или нет админу о приходе юзера с заглуш. диапазона

sUngagable = { --- Незаглушаемые ники
["Ева"] = 1,
["Dimon"] = 1,
["Тест"] = 0,
}

tDiap = { --- Диапазоны (начало и конец)
["109.195.168.0"] = "109.195.175.255", --- что-то динамич. со спамом
["176.212.168.0"] = "176.212.175.255", --- что-то динамич. со спамом
["176.212.184.0"] = "176.212.191.255", -- что-то динамич. со спамом
["109.195.160.0"] = "109.195.167.255", -- что-то динамич. со спамом
["176.212.176.0"] = "176.212.183.255", -- что-то динамич. со спамом
["37.113.248.0"] = "37.113.255.255", -- что-то динамич. со спамом
["37.113.232.0"] = "37.113.239.255", -- что-то динамич. со спамом
["37.113.224.0"] = "37.113.231.255", -- что-то динамич. со спамом
["37.113.192.0"] = "37.113.199.255", -- что-то динамич. со спамом
["37.113.200.0"] = "37.113.207.255", -- что-то динамич. со спамом
["37.113.240.0"] = "37.113.247.255", -- что-то динамич. со спамом
["37.113.208.0"] = "37.113.215.255", -- что-то динамич. со спамом
["37.113.216.0"] = "37.113.223.255", -- что-то динамич. со спамом
["94.180.8.0"] = "94.180.15.255", -- что-то динамич. со спамом
["37.112.104.0"] = "37.112.111.255", -- что-то динамич. со спамом
}

tUnforbid = { -- Разрешенные команды для заглушенных
"!старт",
"!стоп",
"!игроки",
"!подскажи",
"!countrystats",
}
tGagNicks = {} -- Заготовка под таблицу с заглуш. никами

function UserConnected(tUser)
if tUser.sNick == sAdmin then
Core.SendToUser(tUser, "$UserCommand 1 1 • Админка •\\Переключения\\ДиапазонГАГ\\Показ заглушек$<%[mynick]> "..sCmd2.."|")
Core.SendToUser(tUser, "$UserCommand 1 1 • Админка •\\Переключения\\ДиапазонГАГ\\Показ прихода$<%[mynick]> "..sCmd3.."|")
end
local tAdmin = Core.GetUser(sAdmin)
if not tUser.bOperator and sUngagable[tUser.sNick] ~= 1 then
for i, v in pairs(tDiap) do --- По диапазону
decIP1 = IPtoDec(i)
decIP2 = IPtoDec(v)
if iIP >= decIP1 and iIP <= decIP2 then
if tAdmin and bFlag3 then
Core.SendPmToNick(sAdmin, sBot2, " Пришёл юзер с заглушенного диапазона. Ник - "..tUser.sNick.." IP - "..sIP)
tGagNicks[tUser.sNick] = true
end
end
end
collectgarbage()
end
end
RegConnected = UserConnected
OpConnected = UserConnected

function ChatArrival(tUser, sData)
Core.GetUserAllData(tUser)
local s,e,sMsg = string.find(sData,"%b<>%s*(.*)%|")
local sData = string.sub(sData, 1, -2)
local sIP = tUser.sIP
local tAdmin = Core.GetUser(sAdmin)
iIP = IPtoDec(sIP)
if not tUser.bOperator and sUngagable[tUser.sNick] ~= 1 then
if not CheckUnforbid(sData) then
if tGagNicks[tUser.sNick] then
Core.SendToUser(tUser, sData)
if tAdmin and bFlag2 then
Core.SendPmToNick(sAdmin, sBot2, "( "..sIP.." ) Заглушка по диапазону. "..sData)
end
else
for i, v in pairs(tDiap) do --- По диапазону
decIP1 = IPtoDec(i)
decIP2 = IPtoDec(v)
if iIP >= decIP1 and iIP <= decIP2 then
Core.SendToUser(tUser, sData)
return true
end
end
end
collectgarbage()
end
end
end
ToArrival = ChatArrival

function IPtoDec(sIP) --- Конвертирование IP в целочисленный вид
if sIP then
local a,b,c,d = sIP:match("^(%d+)%.(%d+)%.(%d+)%.(%d+)$")
if a and b and c and d then
return a*16777216 + b*65536 + c*256 + d
end
end
end

function CheckUnforbid(sArgument) -- Проверка на разрешённые слова
sArgument = StringLower(sArgument)
for i = 1, #tUnforbid do
sUnforbidi = StringLower(tUnforbid[i])
--- if string.find(sArgument, sUnforbidi, 1, true) then
if sUnforbidi == sArgument:match("^(%S+).*") then -- если вдруг будет ошибка на этой строке, то её надо закомментить и раскомментить предыдущую
return true
end
end
end

function StringLower(arg) -- Приведение к строчным буквам
local res = ""
local Byte, Len = nil, string.len(arg)
arg = string.lower(arg)
for i = 1, Len do
Byte = string.byte(arg, i)
if (Byte >= 192) and (Byte < 224) then
Byte = Byte + 32
end
if (Byte == 168) or (Byte == 184) then
Byte = 229
end
res = res..string.char(Byte)
end
return res
end

function OnError(s) --- Отправка ошибки в Опчат
Core.SendToOpChat(s)
end

function UserConnected(tUser)

local tAdmin = Core.GetUser(sAdmin)

    local sIP = tUser.sIP
    local iIP = IPtoDec(sIP)