Запрет На Пассивный Режим

sBot = frmHub:GetHubBotName()
function NewUserConnected(user)
    if user.sMode=="P" then
    user:SendData(sBot, "у вас пассивное соединение, согласно политики провайдера, на хаб можно заходить только при активном соединении")
    user:SendData(sBot, "зайдите в файл -> настройки -> настройки соединения и поставьте активный режим")
    user:Disconnect()
    end
end
UserConnected=NewUserConnected
OpConnected=NewUserConnected

--[[
Max Passive 1.0 LUA 5.1 [Strict]

By Mutor 04/10/07
Requested by Northwind

Get / Set the maximum number of passive users allowed in hub.
-Get/Set/Clear passive user limit
-Commands/Menus permission by profile per command
-Checks for mode change after login/connection
-Option to exclude operators
-Context menus [right click]

]]

--User Settings

--Initial number of passive user allowed to connect
local MaxPsv = 1
--Exclude operators from check? "yes"/no"
local CheckOps = "yes"
--End User Settings


local Bot,Scp,Pfx = frmHub:GetHubBotName(),"Max Passive 1.0",frmHub:GetPrefixes()[1]
local Limit,Menu,SubMenu = {[1]= {MaxPsv,"Script"}},frmHub:GetHubName(),"Passive User Limit"
PsvCmds = {
setmaxpsv = function(user,data,cmd)
if user then
local s,e,psv = data:find("%b<> %p%a+ (%d+)|$")
if psv then
psv = tonumber(psv)
local profile = GetProfileName(user.iProfile) or "Unregistered User"
Limit[1] = {psv,profile.." "..user.sName}
return "Max passive user limit set to "..Limit[1][1].." by "..Limit[1][2]
else
return "Error! Usage: "..Pfx..cmd.." <user limit>"
end
else
return "Set Max Passive Users"," %[line:Passive User Limit]"," %[line:Passive User Limit]",
-- Adjust To Your Profiles
{[-1] = 0,[0] = 1,[1] = 1,[2] = 0,[3] = 0,[4] = 1,[5] = 1,[6] = 1,}
end
end,
getmaxpsv = function(user,data,cmd)
if user then
return "Max passive user limit set to "..Limit[1][1].." by "..Limit[1][2]
else
return "Get Max Passive Users","","",
-- Adjust To Your Profiles
{[-1] = 0,[0] = 1,[1] = 1,[2] = 0,[3] = 0,[4] = 1,[5] = 1,[6] = 1,}
end
end,
clrmaxpsv = function(user,data,cmd)
if user then
local profile = GetProfileName(user.iProfile) or "Unregistered User"
Limit[1] = {0,profile.." "..user.sName}
return "Max passive user limit set to "..Limit[1][1].." by "..Limit[1][2]
else
return "Clear Max Passive Users","","",
-- Adjust To Your Profiles
{[-1] = 0,[0] = 1,[1] = 1,[2] = 0,[3] = 0,[4] = 1,[5] = 1,[6] = 1,}
end
end,
maxpsvhlp = function(user,data,cmd)
if user then
local x
local reply = "\r\n\r\n\tMax Passive Command Help\r\n\r\n\tCommand\t\tDescription\r\n"..
"\t"..string.rep("?",40).."\r\n"
for i,v in pairs(PsvCmds) do
local desc,_,_,tab = PsvCmds[i]()
if tab[user.iProfile] and tab[user.iProfile] == 1 then
x = 1
reply = reply.."\t"..Pfx..
string.format("%-15s",i).."\t"..desc.."\r\n"
end
end
if x then
return reply.."\n\t"..string.rep("?",40).."\r\n\r\n"
else
return "Sorry "..user.sName.." Max Passive commands are disabled for your profile."
end
else
return "Max Passive 1.0 Help","","",
-- Adjust To Your Profiles
{[-1] = 0,[0] = 1,[1] = 1,[2] = 0,[3] = 0,[4] = 1,[5] = 1,[6] = 1,}
end
end,
}

NewUserConnected = function(user)
CheckPsv(user)
SendCmds(user)
end
OpConnected = NewUserConnected

MyINFOArrival = function(user,data)
CheckPsv(user)
end

CheckPsv = function(user)
if not user.bOperator or CheckOps ~= "yes" then
if not user.bActive then
if CountPsv() > Limit[1][1] then
return user:SendData(Bot,"Sorry! We have no room for another "..
"passive user, current passive limit is "..Limit[1][1]),user:Disconnect(),1
end
end
end
end

CountPsv = function()
local count = 0
for i,user in ipairs(frmHub:GetOnlineUsers()) do
if not user.bActive then
count = count + 1
end
end
return count
end

ChatArrival = function(user,data)
local s,e,cmd = data:find("%b<> %p(%w+)")
if cmd then
cmd = cmd:lower()
if cmd and PsvCmds[cmd] then
local _,_,_,tab = PsvCmds[cmd]()
if tab[user.iProfile] and tab[user.iProfile] == 1 then
return user:SendData(Bot,PsvCmds[cmd](user,data,cmd)),1
end
end
end
end
ToArrival = ChatArrival

SendCmds = function(user)
local x
local profile = GetProfileName(user.iProfile) or "Unregistered User"
for i,v in pairs(PsvCmds) do
local _,_,_,tab = PsvCmds[i]()
if tab[user.iProfile] and tab[user.iProfile] == 1 and i ~= "passwd" then
x = 1
local desc,arg1,arg2 = PsvCmds[i]()
user:SendData("$UserCommand 1 1 "..Menu.."\\"..SubMenu.."\\"..
desc.."$<%[mynick]> "..Pfx..i..arg1.."|")
user:SendData("$UserCommand 1 2 "..Menu.."\\"..SubMenu.."\\"..
desc.."$$To: "..Bot.." From: %[mynick] $<%[mynick]> "..Pfx..i..arg2.."|")
end
end
if x then
user:SendData(Bot,profile.."'s "..Scp.." commands "..
"enabled. See hub tab or user list for a menu.")
end
end

sBot = SetMan.GetString(21)
function UserConnected(user)
Core.GetUserAllData(user)
    if user.sMode=="P" then
    Core.SendToUser(user,"у вас пассивное соединение, согласно политики провайдера, на хаб можно заходить только при активном соединении")
    Core.SendToUser(user,"зайдите в файл -> настройки -> настройки соединения и поставьте активный режим")
    Core.Disconnect(user)
    end
end
OpConnected = UserConnected
RegConnected = UserConnected

sBot = frmHub:GetHubBotName()
function NewUserConnected(user)
Core.GetUserAllData(user)
    if user.sMode=="P" then
    user:SendData(sBot, "у вас пассивное соединение, согласно политики провайдера, на хаб можно заходить только при активном соединении")
    user:SendData(sBot, "зайдите в файл -> настройки -> настройки соединения и поставьте активный режим"")
    user:Disconnect()
    end
end
UserConnected=NewUserConnected
OpConnected=NewUserConnected