Скрипт регестрации:

--[[

Простой скрипт регистрации
от NRJ v. 1.2 (22/09/06)

Команды:
!regme <pass> - зарегистрироваться
!passwd <new_pass> - изменить пароль (встроенная команда)
!unreg - удалить регистрацию

Changelog:

**1.2**
- незарегистрированные пользователи при входе на хаб получают сообщение о неоходимости регистрации
- добавлена команда !reghelp

**1.1**
- добавлена команда !unreg
- добавлено меню для зарегистрированного пользователя

]]--

----------------------------------------------------- Конфигурация -----------------------------------------------------
------------------------------------------------------------------------------------------------------------------------

ShowInfo = 1 -- позазывать дополнительную информацию о том, как можно избежать повторных вводов пароля при входе на хаб
ShowToAll = 1 -- показывать всем пользователям, что на хабе новый зарегистрированный участник

------------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------------

bot = frmHub:GetHubBotName()

function NewUserConnected(user)
if not(user.bRegistered) and not (frmHub:isNickRegged(user.sName)) then
    local msg = "\r\n\r\n"..
    "\t~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\r\n"..
    "\t\tВЫ НЕ ЗАРЕГИСТРИРОВАНЫ НА ХАБЕ ! ! !\r\n"..
    "\t~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\r\n\r\n"..
    "\tПомощь по регистрации: !reghelp\r\n\r\n"..
    "\t"..string.rep("-", 112).."\r\n"
    user:SendPM(bot,msg)
end
UserMenu(user)
end

function ChatArrival(user,data)
local data = string.sub(data,1,-2)
local s,e,cmd =string.find(data, "%b<>%s+(%S+)")
if cmd == "!regme" then
    if not(user.bRegistered) and not (frmHub:isNickRegged(user.sName)) then
    local s,e,pass = string.find(data, "%b<>%s+%S+%s+(%S+)")
    if (pass == nil) then
        local pass=math.random(os.date("%H%M%S"))
        AddRegUser(user.sName, pass, 3)
        user:SendData(bot,"Вы зарегистрировались на хабе. Ваш ник:"..user.sName.." Пароль: "..pass..". Не забудьте перезайти на хаб!")
        if (ShowInfo == 1) then
        user:SendData(bot,"Теперь для входа на хаб под вашим ником необходимо знать пароль. Вы можете вводить его каждый раз вручную, либо прописать пароль в настройках клиента. Для этого найдите в списке избранных хабов этот хаб, зайдите в его свойства и пропишите в строках Nick и Password ваши ник и пароль.")
        end
        if (ShowToAll == 1) then
        SendToAll(bot,"Поприветствуем нового зарегистрировавшегося участника - "..user.sName.." !!!")
        end
    else
        AddRegUser(user.sName, pass, 3)
        user:SendData(bot,"Вы были зарегистрированы на хабе. Ваш ник:"..user.sName.." Пароль: "..pass..". Не забудьте перезайти на хаб!")
        if (ShowInfo == 1) then
        user:SendData(bot,"Теперь для входа на хаб под вашим ником необходимо знать пароль. Вы можете вводить его каждый раз вручную, либо прописать пароль в настройках клиента. Для этого найдите в списке избранных хабов этот хаб, зайдите в его свойства и пропишите в строках Nick и Password ваши ник и пароль.")
        end
        if (ShowToAll == 1) then
        SendToAll(bot,"Поприветствуем нового зарегистрировавшегося участника - "..user.sName.." !!!")
        end
    end
    else
    user:SendData(bot,"Вы уже зарегистрированы!")
    end
    return 1
end
if cmd == "!unreg" then
    if (user.iProfile == 3) then
    DelRegUser(user.sName)
    user:SendData(bot,"Ваш аккаунт был был удален")
    else
    user:SendData(bot,"Команда доступна только для зарегистрированных пользователей!")
    end
    return 1
end
if cmd == "!reghelp" then
    local msg = "\r\n\r\n"..
    "\t"..string.rep("=", 50).."\r\n"..
    "\t\tПомощь по регистрации\r\n"..
    "\t"..string.rep("-", 100).."\r\n\r\n"..
    "\t!reghelp\t\t - Этот файл помощи\r\n"..
    "\t!regme <пасс>\t - Зарегистрироваться (можно не указывать пасс)\r\n"..
    "\t!passwd <пасс>\t - Сменить пароль (встроенная команда хаба)\r\n"..
    "\t!unreg\t\t - Удалить аккаунт\r\n\r\n"..
    "\tТакже все команды доступны в меню хаба:\r\n"..
    "\tНажмите правой кнопкой мыши на любого пользователя\r\n"..
    "\tи выбирете подменю 'Регистрация'\r\n"
    user:SendPM(bot,msg)
end
end

ToArrival = ChatArrival

function UserMenu(user)
if (user.iProfile == -1) then
    user:SendData("$UserCommand 0 3")
    user:SendData("$UserCommand 1 3 Регистрация\\Зарегистрироваться$<%[mynick]> !regme %[line:Введите пароль или оставьте поле пустым]|")
end
if (user.iProfile == 3) then
    user:SendData("$UserCommand 0 3")
    user:SendData("$UserCommand 1 3 Регистрация\\Сменить пароль$<%[mynick]> !passwd %[line:Введите новый пароль]|")
    user:SendData("$UserCommand 1 3 Регистрация\\Удалить регистрацию$<%[mynick]> !unreg|")
end
end

Дигалка - двигает название хаба, угарная штука:

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--                RidingHubName by Nickolya aka AУA™
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Конфиг бота:

-- Шаг хода названия (на сколько пробелов увеличится от изначального):
sMax = 3

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
function Main()
sHub = frmHub:GetHubName()
sTimes =  0
sBegin = "  "
sBefore = sBegin
sAfter = ""
DoBot()
SetTimer(100)
StartTimer()
end

function OnExit()
SendToAll("$Quit "..sFormat)
end

function DoBot()
sFormat = sBefore..sHub..sAfter
SendToAll("$OpList "..sFormat)
end

function OnTimer()
sTimes = sTimes + 1
if sTimes <= sMax then
    sBefore = sBefore.." "
elseif sTimes <= sMax*4 - 1 then
    sBefore = sBegin
    m = sMax*2  - sTimes
    for n = 1, m do
    sBefore = sBefore.." "
    end
else
    sBefore = sBegin
    sTimes = 0
end
OnExit()
DoBot()
end

function NewUserConnected(curUser)
curUserO=OendData("$OpList "..sFormat)
end
OpConnected = NewUserConnected
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------