function UserConnected(tUser)
  Core.SendToUser(tUser,"$UserCommand 1 3 Меню хаба\\Правила хаба$<%[mynick]> !rules||"..
  "$UserCommand 1 3 Меню хаба\\Хабы-друзья$<%[mynick]> !hubs||"..
  "$UserCommand 1 3 Меню хаба\\Сетевое радио$<%[mynick]> !radio||")
end
RegConnected,OpConnected=UserConnected,UserConnected

-- LUA 5
--04/03/05
--TiMeTrAVelleRs Version

Bot = "[PB]Ares"   -- your main bot here
CDFolder = Core.GetPtokaXPath().."scripts/text" -- make folder in your scripts put your ascii there
SendComm = 1    -- Send user command [right click] "1"=yes "0"=no
tMenu = "Помощь" -- ArtBotMenu Name

SetTo = {
[0] = 1,   -- Admin
[1] = 1,   -- Moder
[2] = 1,   -- Vip
[3] = 1,   -- Reg
[-1] = 0,  -- Не зарегестрированый
}
--------------------------------------------------------------------------------------------------------------------

--$UserCommand 1 X  Where -> 1=Hub Menu 2=User Menu 3=Hub/User Menu
--
function UserConnected(user)
    if SendComm == 1 and SetTo[user.iProfile] == 1 then
        Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Ответы на вопросы$<%[mynick]> !faq||")
        Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Правила$<%[mynick]> !pravila||")
    end
end

OpConnected = UserConnected

function OnStartup()
  
end

function ChatArrival(user,data)
    Core.GetUserAllData(user)
   data=string.sub(data,1,string.len(data)-1)
   if( string.sub(data, 1, 1) == "<" ) then
      s,e,cmd = string.find(data,"%b<>%s+(%S+)")
      cmd = string.sub(cmd, 1,string.len(cmd))
      if io.open(CDFolder.."/"..cmd..".txt",r) ~= nil then
         showtext(user, cmd)
         return true
      end
   end
end

function showtext(user, file)
local contents ="\r\n\r\n"
    for line in io.lines(CDFolder.."/"..file..".txt") do
        contents = contents..line.."\r\n"
    end
        Core.SendToAll(user.sNick.."\r\n"..contents.."\r\n|")
end

function showtextold(user, cmd)
local lines="\r\n\r\n"
    for line in io.lines(file) do
        lines = lines..line.."\r\n"
    end
    Core.SendPmToNick(user.sNick,Bot, lines.." |")
end
RegConnected = UserConnected