Untouchables, Disconnect, Unreg By Kick|ban, API1 | Три простых скрипта

KickArrival(tUser, sData)

function KickArrival(user,data)
   data=string.sub(data,1,string.len(data)-1)
   _,_,nick = string.find( data, "%p%S+%s(%S+)")
   if nick then
      if Untouchable[nick] == 1 then
         user:SendData(Bot, "*** Пользователь "..nick.." в списке неприкасаемых, команда не может быть применена! ")    
         return 1
      end
   end
end

Bot = SetMan.GetString(21)
-- или можно так
-- Bot = SetMan.GetHubBot()

OpConnected = function(user, data)
      Core.SendToUser (user, "$UserCommand 1 3 Дисконнект\\Дисконнект этого юзера$<%[mynick]> !disc %[nick]|")
end

function ChatArrival (user, data)
      data = string.sub (data,1,string.len(data)-1)
      local _,_,cmd = string.find (data, "%b<>%s+(%S+)")      
      if cmd == "!disc" then
            if user.bOperator then
                  local _,_,nick = string.find (data, "%b<>%s+%S+%s+(%S+)")
                  if nick then
                        local usr = Core.GetUser (nick) -- get the object
                        if usr then -- if online
                              Core.SendToOps ('<'..Bot.sNick..'> *** Юзер '..nick..' был отключен. Отключил: '..RegMan.GetRegsByProfile (user.iProfile)..' '..user.sNick..'.')
                              Core.Disconnect (usr)
                        else
                              Core.SendToUser(user, '<'..Bot.sNick..'> *** Юзер '..nick..' не на хабе.')
                        end
                  end
            else
                  Core.SendToUser(user, '<'..Bot.sNick..'> *** Извините, у вас нет права использовать эту команду.')
            end
            return true
      end
end

function KickArrival(tUser, sData)
local sData = sData:sub(1,-2)
local _,_,sNick = sData:find("$Kick%s+(%S+)")
if sNick == "Jaska" then
Core.SendToUser(tUser,"Нельзя!")
return true
end
end