Registration_1_.v2, API1, API2 | Скрипт регистрации

--//----------------------------------------//--
--//-- Регистрация v 2.1
--//-- Автор: DestroyNet © 09.10.2007
--//-- Мод: [fwx]Diver (4:16 11.07.2008)
--//-- Добавлен запрет на регистрацию выбранным никам,IP, диапазонам IP(11.07.2009)
--//-- Запрошено : Артём ; Реализовано : district
--//-- Оригинал: NRJ (22.09.06)
--//----------------------------------------//--
--[[
Возможность блокировать незареганым поиск/скачку/Чат (по выбору)
--
Выбор метода регистрации: самоличная/требуется подтверждение Оператора
--
При отказе в регистрации ника оператор может указать причину,
если юзер успел уйти с хаба, причину отказа ему покажет при следующем заходе
]]

Синтаксис [string "--//---------------------------------------..."]:45: attempt to index global 'Core' (a nil value)

--//----------------------------------------//--
--//-- Регистрация v 2.1
--//-- Автор: DestroyNet © 09.10.2007
--//-- Мод: [fwx]Diver (4:16 11.07.2008)
--//-- Добавлен запрет на регистрацию выбранным никам,IP, диапазонам IP(11.07.2009)
--//-- Запрошено : Артём; Реализовано : district
--//-- Оригинал: NRJ (22.09.06)
--//----------------------------------------//--
--[[
Возможность блокировать незареганым поиск/скачку/Чат (по выбору)
--
Выбор метода регистрации: самоличная/требуется подтверждение Оператора
--
При отказе в регистрации ника оператор может указать причину,
если юзер успел уйти с хаба, причину отказа ему покажет при следующем заходе
]]
--=========================================================================

-- IP диапазоны и ники, которым запрещено регистрироваться :
local tRefusedRanges = {
["0.0.0.0"] = "0.0.0.0",
}
local tRefusedNicks = {
["ass"] = true,
}
-- Впишите сообщение юзеру, регистрация которого будет отклонена в авторежиме
local sMsgToRefused = "В регистрации отказано"
--=========================================================================

--[[        Конфигурация                    ]]--
local sBot        = "ServiceBot"
local sHubName = "Share Hub" -- ВПИШИТЕ ИМЯ СВОЕГО ХАБА
--//----------------------------------------//--
local BlockSearch = 1 -- Блокировать поиск незарегесрированным
local BlockDL        = 1 -- Блокировать скачку незарегесрированным
local BlockChat    = 1 -- Блокировать чат незарегесрированным
local BlockPM        = 1 -- Блокировать личку незарегистрированным
--//----------------------------------------//--
local ShowInfo    = 1    -- позазывать дополнительную информацию о том, как можно избежать повторных вводов пароля при входе на хаб
local ShowToAll    = 1    -- показывать всем пользователям, что на хабе новый зарегистрированный участник
local ShowNag        = 1 -- предлагать гостям зарегисрироваться на хабе при входе
--//----------------------------------------//--
local RegMode        = 1 -- 1 - Пользователь может сам зарегестрироваться / 0 - Требуется подтверждение оператора/Включено автоотклонение
--//----------------------------------------//--
local NeedRegFile    = Core.GetPtokaXPath().."scripts/Registration.dat"
--//----------------------------------------//--
-- Сообщение показываемое незарегестрированным пользователям
local sBord = ("•••"):rep(30)
local rMsg = "\r\n"..
        "\t"..sBord.."\r\n"..
        "\t\tВЫ НЕ ЗАРЕГИСТРИРОВАНЫ НА ХАБЕ ! ! !\r\n"..
        "\t"..sBord.."\r\n"..
        "\t¤Не зарегестрированным пользователям запрещено общение в чате\r\n"..
        "\t\r\n"..
        "\t¤Для регистрации на хабе используйте меню:\r\n"..
        "\t\r\n"..
        "\t¤С помощью меню можно отправить запрос на регистрацию Администрации хаба.\r\n"..
        "\t\r\n"..
        "\t¤Также все команды доступны в меню хаба Ваше меню --> -=Запрос на регистрацию=-:\r\n"..
        "\t\r\n"..
        "\t¤Нажмите правой кнопкой на закладке хаба\r\n"..
        "\t\r\n"..
        "\t¤и выбирете подменю 'Ваше меню'-->'-=Запрос на регистрацию=-'\r\n"..
        "\t\r\n"..
        "\t¤Помощь по регистрации: !reghelp\r\n\r\n"..
        "\t"..sBord
--//----------------------------------------//--

--[[    Основной Код скрипта                ]]--
--[[    Не редактируйте если не уверены        ]]--
local NeedReg = {}
local bNotPM = true
local CanDo ={[0]=1,[1]=1,}

function OnStartup()
    dofile(NeedRegFile)
end

tRefusedRanges = {
    ["0.0.0.0"] = "0.0.0.0",
}
tRefusedNicks = {
    ["ass"] = true,
}

sMsgToRefused = "В регистрации отказано"

sBot        = "ServiceBot"
sHubName = "Share Hub"

BlockSearch = 1
BlockDL        = 1
BlockChat    = 1
BlockPM        = 1

ShowInfo    = 1
ShowToAll    = 1
ShowNag        = 1

RegMode        = 1
NeedRegFile    = "scripts/Registration.dat"
sBord = ("•••"):rep(30)
rMsg = "\r\n"..
        "\t"..sBord.."\r\n"..
        "\t\tВЫ НЕ ЗАРЕГИСТРИРОВАНЫ НА ХАБЕ ! ! !\r\n"..
        "\t"..sBord.."\r\n"..
        "\t¤Не зарегестрированным пользователям запрещено общение в чате\r\n"..
        "\t\r\n"..
        "\t¤Для регистрации на хабе используйте меню:\r\n"..
        "\t\r\n"..
        "\t¤С помощью меню можно отправить запрос на регистрацию Администрации хаба.\r\n"..
        "\t\r\n"..
        "\t¤Также все команды доступны в меню хаба Ваше меню --> -=Запрос на регистрацию=-:\r\n"..
        "\t\r\n"..
        "\t¤Нажмите правой кнопкой на закладке хаба\r\n"..
        "\t\r\n"..
        "\t¤и выбирете подменю 'Ваше меню'-->'-=Запрос на регистрацию=-'\r\n"..
        "\t\r\n"..
        "\t¤Помощь по регистрации: !reghelp\r\n\r\n"..
        "\t"..sBord

NeedReg = {}
bNotPM = true
CanDo ={[0]=1,[1]=1,}

function OnStartup()
    NeedRegFile = Core.GetPtokaXPath()..NeedRegFile
    dofile(NeedRegFile)
end

[string "--//---------------------------------------..."]

local CanDo ={[0]=1,[1]=1,}

local CanDo ={[3]=1,[2]=1,[1]=1,[0]=1,}

local sBot        = SetMan.GetString(21)    -- Имя бота.

local sBot        = "Регистрация"    -- Имя бота.