Проблема С Регистрационым Скриптом

--[[

RegMe 1.0f LUA 5.11 [Strict][API 2]

By Mutor 04/07/07

Self Registration / Change Password Script

-Checks if user is already registered
-Checks for invalid characters in nick and password
-Context menus [right click]
-Responds to user in PM only
-Existing password required to changed password

+Changes from 1.0 04/07/07 Requested by Yahoo
+Added block unregistered user file transfer/search/chat and pm to non ops
+Added 'block' message to unregistered user at connect attempt
+Added report new self-registered user to online ops.

+Changes from 1.0b 04/13/07
+Added report Unregistered User login to OpNick Requested by Yahoo

+Changes from 1.0c 10/21/07
~Converted for the new PtokaX API

+Changes from 1.0d 10/21/07
~Bugfix in user reg, forgot all user data must be requested. Report by DarkElf

+Changes from 1.0e 02/16/08
+Added RegOnly/RegChat/RegPms options. Requested by Giorgos
+Added Report option
~Changed all SendToNick to SendToUser [faster call]



RegMe Command Help

Command Description
!rmhelp RegMe Command Help
!regme Register Yourself
!passwd Register Yourself

]]

--//--
-- Disable transfer and search by unregistered users? true/false
local RegOnly = false
-- Disable chat for unregistered users? true/false
local RegChat = false
-- Disable private messages for unregistered users? true/false [pm's to ops are never blocked]
local RegPms = false
-- Report unregistered user logins to OpNick? true/false
local Report = false
-- Report nick for error messages and unregistered user logins [if Report = true]
local OpNick = "Daywalker"
--//--


local Bot,Scp,Pfx = SetMan.GetString(21),"Регистрация",SetMan.GetString(29):sub(1,1)
local Menu,SubMenu = SetMan.GetString(0),"Регистрация"
local BlockMsg = "\r\n\r\n\tUnregistered users may not chat, pm, search or transfer files in this hub.\r\n"..
"\tYou may pm operators for assistance. You may also self-register by typing.\r\n"..
"\t!regme <password> or use context menu commands [right click].\r\n\r\n"

UserConnected = function(user)
SendCmds(user)
if user.iProfile == -1 then
if Report then
OnError("The Unregistered User: "..user.sNick.." has logged in to "..SetMan.GetString(0))
end
if RegOnly then
return Core.SendToUser(user,"<"..Bot.."> "..BlockMsg..RegCmds["rmhelp"](user,data,cmd))
end
end
end
OpConnected,RegConnected = UserConnected,UserConnected

ChatArrival = function(user,data)
local _,_,cmd = data:find("%b<> %p(%w+)")
if cmd then
cmd = cmd:lower()
if cmd and RegCmds[cmd] then
return Core.SendPmToUser(user,Bot,RegCmds[cmd](user,data,cmd)), true
end
else
local _,_,to,from = string.find(data,"^$To: (%S+) From: (%S+)")
if to and from then
if RegPms and user.iProfile == -1 then
local prof = Core.GetUser(to)
if prof then
if not Core.GetUserValue(prof,11) then
return Core.SendPmToUser(user,to,"<"..Bot.."> "..BlockMsg),true
end
else
return true
end
end
else
if RegChat and user.iProfile == -1 then
return Core.SendToUser(user,"<"..Bot.."> "..BlockMsg),true
end
end
end
end
ToArrival = ChatArrival

ConnectToMeArrival = function(user, data)
if RegOnly and user.iProfile == -1 then
local CtmMsg = "\t*Please remove this transfer from your download queue.*"
return Core.SendToNick(user.sNick,"<"..Bot.."> "..BlockMsg..
CtmMsg:gsub(" ",string.char(160)).."\r\n\r\n|"),true
end
end
RevConnectToMeArrival = ConnectToMeArrival

SearchArrival = function (user, data)
if RegOnly and user.iProfile == -1 then
local SrMsg = "\t*Please close the search window right away.*"
local _,_,search = string.find(data,"([^%?]+)|$")
search = search or ""
local res = "Unknown Path"..string.char(92)..user.sNick..", search is "..
"disabled for you :P "..string.rep("\t",75)..search
return Core.SendToUser(user,"$SR "..SetMan.GetString(21).." "..res.." 0 0/0"..
SetMan.GetString(0).." ("..Core.GetHubIP()..":"..SetMan.GetString(4)..")"),
Core.SendToUser(user,"<"..Bot.."> "..BlockMsg..
SrMsg:gsub(" ",string.char(160)).."\r\n\r\n|"),true
end
end

OnError = function(msg)
local user = Core.GetUser(OpNick)
if user then
Core.SendToUser(user,"<"..Bot.."> "..msg)
end
end

SendCmds = function(user)
local Prof = "Не зарегистрированый"
if user.iProfile > -1 then
Prof = ProfMan.GetProfile(user.iProfile).sProfileName
end
for i,v in pairs(RegCmds) do
local desc,arg1,arg2 = RegCmds[i]()
Core.SendToNick(user.sNick,"$UserCommand 1 1 Регистрация\\"..SubMenu.."\\"..
desc.."$<%[mynick]> "..Pfx..i..arg1.."|")
Core.SendToNick(user.sNick,"$UserCommand 1 2 "..SubMenu.."\\"..
desc.."$<%[mynick]> "..Pfx..i..arg2.."|")
end
Core.SendToUser(user,"<"..Bot.."> "..Prof.."'s "..Scp.." commands "..
"enabled. Для регистрации воспользуйтесь меню.")
end

FormatSize = function(int)
local i,u,x = tonumber(int) or 0,{"","K","M","G","T","P"},1
while i > 1024 do i,x = i/1024,x+1 end return string.format("%.2f %sB.",i,u[x])
end

RegCmds = {
regme = function(user,data,cmd)
if user then
local nick = user.sNick
if user.iProfile ~= -1 then
return "Don't be silly "..nick.." you're already registered here."
elseif Core.GetUserAllData(user) then
local _,_,pwd = data:find("%b<> %p%w+ (%S+)|$")
if pwd then
if nick:find("[%c\$\|\<\>\:\?\*\"\/\\]") then
return "Your nickname contains invalid charachters. "..
"Please choose a new one."
end
if pwd:find("[%c\$\|\<\>\:\?\*\"\/\\]") then
return "Your password contains invalid charachters. "..
"Please choose a new one."
end
local hub = SetMan.GetString(0)
local addy = SetMan.GetString(2)..":"..SetMan.GetString(3)
local share,ip = FormatSize(user.iShareSize),user.sIP
local slots = user.iSlots or 0
local mode = "Пассив"
if user.bActive then mode = "Актив" end
if user.sMode and user.sMode == "5" then mode = "Socks5" end
local opmsg = "\r\n\r\n\tЗарегистрировался новый юзер\r\n"..
"\tвот детали регистрации:\r\n"..
"\t"..string.rep("=",22).."\r\n"..
"\tНик:\t"..nick.."\r\n"..
"\tПароль:\t"..pwd:gsub(".","x").."\r\n"..
"\tШара:\t"..share.."\r\n"..
"\tIP:\t"..ip.."\r\n"..
"\tРежим работы:\t"..mode.."\r\n"..
"\tОткрыто слотов:\t"..slots.."\r\n"
RegMan.AddReg(nick, pwd, 3)
Core.SendToOps("<"..Bot.."> "..opmsg)
return "\r\n\r\n\tПриветствую. Вы удачно "..
"зарегистрировались.\r\n\t"..string.rep("=",40).."\r\n"..
"\tНазвание хаба:\t"..hub.."\r\n"..
"\tАдрес хаба:\t"..addy.."\r\n"..
"\tНик:\t"..nick.."\r\n"..
"\tПароль:\t"..pwd.."\r\n\r\n"..
"\t"..string.rep("=",40).."\r\n"..
"\tПожалуйста обратите внимание на эту информацию.\r\n"..
"\tПожалуйста перезайдите на хаб, чтобы активизировать ваш статус.\r\n"
else
return "Error! Usage: "..Pfx..cmd.." <password>"
end
end
else
return "Зарегистрироваться"," %[line:Пароль]"," %[line:Пароль]"," <password>>"
end
end,
passwd = function(user,data,cmd)
if user then
if user.iProfile == -1 then
return "Don't be silly "..user.sNick.." you're not registered here."
elseif Core.GetUserAllData(user) then
local _,_,oldpass,newpass = data:find("%b<> %p%w+ (%S+) (.+)|$")
if oldpass and newpass then
local pwd,prof = RegMan.GetReg(user.sNick).sPassword,user.iProfile
if pwd and prof then
if oldpass:lower() ~= pwd:lower() then
return "That is not your correct password. "..
"Please try again. [case insensitive]"
end
if newpass:find("[%c\$\|\<\>\:\?\*\"\/\\]") then
return "Your new password contains invalid charachters. "..
"Please choose a new one."
end
if newpass:lower() == oldpass:lower() then
return "Your cannot change to the same password. "..
"Please choose a new one."
end
RegMan.ChangeReg(user.sNick, newpass, prof)
return "You have successfully changed your password from "..
oldpass.." to "..newpass
end
else
return "Error! Usage: ."..Pfx..cmd.." <old password> <new password>"
end
end
else
return "Сменить пароль"," %[line:Текущий пароль] %[line:Новый пароль]",
" %[line:Текущий пароль] %[line:Новый пароль]"," <old password> <new password>"
end
end,
rmhelp = function(user,data,cmd)
if user then
local reply = "\r\n\r\n\t"..Scp.." Help\r\n\r\n\tCommand\t\tDescription\r\n"..
"\t"..string.rep("=",40).."\r\n"
for i,v in pairs(RegCmds) do
local desc = RegCmds[i]()
reply = reply.."\t"..Pfx..string.format("%-15s",i).."\t"..desc.."\r\n"
end
return reply.."\n\t"..string.rep("=",40).."\r\n\r\n"
else
return "Справка","",""
end
end,
}

RegMan.AddReg(nick, pwd, 3)

RegMan.AddReg(nick, pwd, 3)