Скрипт чтобы прятал шару Админа

--[[

    HideShare 2.2 LUA 5.1x [Strict] [API 2]

    By Mutor        07/30/08

    A share hider script. Nothing new but the code method.
    Imperfect because MyINFO is not blockable, nor should it be.
    I never liked any such script that resends MyINFO, but I try
    not to force my opinions on others.  :P

    - Hides user shares per profile
    - Shares restored on script exit

    +Changes from 2.0    08/14/08
        + Added hideprof and hidenick commands. Request by kalle370
        + Added command permission per profile
        + Added context menus [right click]
        + Added configuration saved to file for hub/script restarts
        + Added script is restated if profile settings are changed

    +Changes from 2.01    03/04/10
        + Added CTM/RCTM block for hidden users
        + Added Search block for hidden users
]]


--[[ Start User Settings ]]--

-- "Botname" ["" = hub bot]
local Bot = "[RequestChat]"
-- "Command Menu" ["" = hub name]
local Menu = ""
-- "Command SubMenu" ["" = script name]
local SubMenu = ""
-- File to save configuration to. "Filename.ext"
local File = "HideShare.dat"
-- Delay [in ms] to delay resend of MyINFO
local Delay = 250
-- Always send script replies in private message?
local OnlyPm = true
-- Default profile settings
HsCfg = {
    -- Set your profiles / permissions here.
    -- [#] = true/false, (true = Hide Share / false = Show Share)
Profiles = {
    [-1] = false,    -- Unregistered User
    [0] = true,    -- Master
    [1] = false,    -- Operator
    [2] = false,    -- Vip
    [3] = false,    -- Reg
    },
-- Hide these nicks
-- ["Nick"] = true/false,
Exclude = {
    ["Mutor"] = true,
    },
}

--[[ End User Settings ]]--


local Tmr,Temp,Path,Scp = 0,{},Core.GetPtokaXPath().."scripts/","HideShare 2.2"
OnStartup = function()
    if Bot == "" then Bot = SetMan.GetString(21) end
    if Menu == "" then Menu = SetMan.GetString(0) end
    if SubMenu == "" then SubMenu = Scp end
    if not File:find("^"..Path,1,true) then File = Path..File end
    if loadfile(File) then dofile(File) else Save_File(File,HsCfg,"HsCfg") end
    for _,user in ipairs(Core.GetOnlineUsers()) do DoInfo(user) end
    Mem()
end

OnExit = function()
    for _,user in ipairs(Core.GetOnlineUsers()) do local mi = Core.GetUserValue(user,1) Core.SendToAll(mi.."|") end
end

OnTimer = function(Id)
    if Id == Tmr then
        for i,v in pairs(Temp) do Core.SendToAll(v.."|") i = nil end
        TmrMan.RemoveTimer(Tmr)
        Tmr = 0
    end
end

UserConnected = function(user)
    DoInfo(user)
    for _,user in ipairs(Core.GetOnlineUsers()) do DoInfo(user) end
    local str,stp,uc,m,p = "","","$UserCommand 1 3 "..Menu.."\\"..SubMenu.."\\","$<%[mynick]> ","||"
    local pfx = SetMan.GetString(29):sub(1,1)
    for k,v in pairs(HsCmds) do
        if v[2][user.iProfile] then local d,a = v[1]() str = str..uc..d..m..pfx..k..a..p end
    end
    if str:len() > 0 then Core.SendToUser(user,str) end
    Mem()
end
OpConnected,RegConnected = UserConnected,UserConnected

MyINFOArrival = function(user,data) if Core.GetUserValue(user,9) then DoInfo(user) end end

ChatArrival = function(user,data)
    local _,_,cmd = data:find("%b<> ["..SetMan.GetString(29).."](%a+)")
    if cmd and HsCmds[cmd] and HsCmds[cmd][2][user.iProfile] then
        reply = HsCmds[cmd][1](user,data,SetMan.GetString(29):sub(1,1)..cmd)
        if reply then return Core.SendToUser(user,"<"..Bot.."> "..reply.."|"),true end
    end
end
ToArrival = ChatArrival

ConnectToMeArrival = function(user,data)
    local p,n = user.iProfile,user.sNick
    local Ctms = {[1] = "^$ConnectToMe ([^ ]-) ",[2] = "^$RevConnectToMe [^ ]- (.+)",}
    for i,v in ipairs(Ctms) do
        local _,_,s = data:sub(1,-2):find(v)
        if s and not HsCfg.Exclude[s] then
            local msg1,msg2 = "You requested a file from "..s:format("%q")..", transfers from this user are blocked.|",
            "Please clear "..string.format("%q",s).." from your download queue. Thank you.|"
            if OnlyPm then
                return Core.SendPmToUser(user,Bot,msg1),
                Core.SendPmToUser(user,Bot,msg2),true
            else
                return Core.SendToUser(user,"<"..Bot.."> "..msg1),
                Core.SendToUser(user,"<"..Bot.."> "..msg2),true
            end
        end
    end
end
RevConnectToMeArrival = ConnectToMeArrival

SearchArrival = function (user,data)
    local t = Core.GetOnlineUsers()
    if next(t) then
        for _,usr in ipairs(t) do
            local n = usr.sNick
            if not HsCfg.Exclude[n] then Core.SendToUser(usr,data) end
        end
    end
    return true
end

DoInfo = function(user)
    local bool
    if not HsCfg.Exclude[user.sNick] and HsCfg.Profiles[user.iProfile] then bool = true end
    if bool then
        local s = tostring(Core.GetUserValue(user,16))
        Temp[user.sNick] = Core.GetUserValue(user,1):gsub(s,"0")
        if Tmr == 0 then Tmr = TmrMan.AddTimer(Delay) end
    end
end

Mem = function() collectgarbage("collect") return string.format("%-.2f Kb.",collectgarbage("count")) end

GetProf = function(i)
    local Prof = "Unregistered User"
    if i ~= -1 then Prof = ProfMan.GetProfile(i).sProfileName end
    return Prof
end

Save_Serialize = function(tTable, sTableName, hFile, sTab)
    sTab = sTab or "";
    hFile:write(sTab..sTableName.." = {\n" )
    for key, value in pairs(tTable) do
        local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key)
        if(type(value) == "table") then
            Save_Serialize(value, sKey, hFile, sTab.."\t")
        else
            local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value)
            hFile:write(sTab.."\t"..sKey.." = "..sValue)
        end
        hFile:write(",\n")
    end
    hFile:write(sTab.."}")
end

Save_File = function(file,table, tablename )
    local hFile = io.open (file , "wb")
    Save_Serialize(table, tablename, hFile)
    hFile:close()
    Mem()
end

HsCmds = {
    hideprof = {function(user,data,cmd)
        if user then
            local _,_,prof,val = data:find("%b<> %p%a+ ([-%d]+) ([%a]+)|$")
            if prof then
                if val then
                    local bool,valid,chg
                    if val:lower() == "true" then bool,valid = true,true end
                    if val:lower() == "false" then bool,valid = false,true end
                    if valid then
                        t = {["true"] = "enabled",["false"] = "disabled"}
                        prof = tonumber(prof)
                        if HsCfg.Profiles[prof] ~= bool then chg = true end
                        HsCfg.Profiles[prof] = bool
                        if chg then Save_File(File,HsCfg,"HsCfg") end
                        local restart = function()
                            local scp = ScriptMan.GetScript().sName
                            if scp then return ScriptMan.RestartScript(scp) end
                        end
                        return "Hidden share for "..GetProf(prof).."'s"..
                        " is now "..t[tostring(HsCfg.Profiles[prof])],restart()
                    else
                        return "Error, Invalid Value! Usage:"..cmd.." <profile> '<true/false>'"
                    end
                else
                    return "Error, Value Omitted! Usage:"..cmd.." <profile> '<true/false>'"
                end
            else
                return "Error, Profile Omitted! Usage:"..cmd.." '<profile>' <true/false>"
            end
        else
            local s = "< -1"
            for i = 0,#ProfMan.GetProfiles() do
                s = s.." / "..tostring(i)
            end
            return "Enable / Disable Hidden Share For Profile",
            " %[line:Profile Number "..s.." >] %[line:Setting <*true/false> *true = hide / false = unhide]"
        end
    end,
    {[-1] = false,[0] = true,[1] = true,[2] = false,[3] = false,},
    },
    hidenick = {function(user,data,cmd)
        if user then
            local _,_,val = data:find("%b<> %p%a+ ([%a]+)|$")
            local t = {["true"] = "disabled",["false"] = "enabled",["nil"] = "enabled"}
            if val then
                local bool,valid
                if val:lower() == "true" then bool,valid = true,true end
                if val:lower() == "false" then bool,valid = false,true end
                if valid then
                    HsCfg.Exclude[user.sNick] = bool
                    Save_File(File,HsCfg,"HsCfg")
                    if not bool then
                        DoInfo(user)
                    else
                        Core.SendToAll(Core.GetUserValue(user,1).."|")
                    end
                    return "Hidden share for "..user.sNick..
                    " is now "..t[tostring(HsCfg.Exclude[user.sNick])]
                else
                    return "Error, Invalid Value! Usage:"..cmd.." '<true/false>'"
                end
            else
                return "Hidden share for "..user.sNick..
                " is currently "..t[tostring(HsCfg.Exclude[user.sNick])]
            end
        else
            return "Exclude Your Nick From Hidden Share"," %[line:Setting <true/false> (Blank for current setting))]"
        end
    end,
    {[-1] = false,[0] = true,[1] = true,[2] = true,[3] = false,},
    },
}