HelpForProfiles, API2 | Списки команд хаба для разных профилей

sBot = SetMan.GetString(21)
tFiles = {
[0] = Core.GetPtokaXPath().."texts/master.txt", --Пишем путь хелпа для Master
[1] = Core.GetPtokaXPath().."texts/op.txt", --Пишем путь хелпа для OP
[2] = Core.GetPtokaXPath().."texts/vip.txt", --Пишем путь хелпа для VIP
[3] = Core.GetPtokaXPath().."texts/reg.txt", --Пишем путь хелпа для Reg
[-1] = Core.GetPtokaXPath().."texts/unreg.txt", --Пишем путь хелпа для Unreg
}

function OnStartup()
tMessage = {}
for i,v in pairs(tFiles) do
local f = io.open(v,"r")
if f then
tMessage[i] = f:read("*all")
f:close()
end
end
end

function ChatArrival(user,data)
if data:match("%b<>%s+[!%+]help|") and tMessage[user.iProfile] then
Core.SendToUser(user,"<"..sBot.."> "..tMessage[user.iProfile])
return true
end
end

function ToArrival(user,data)
local sTo, sFrom, sMsg = data:match"^%$To:%s(%S+)%sFrom:%s(%S+)%s%$%b<>(.*)|"
if sTo == sBot then
if data:match("%b<>%s+[!%+]help|") and tMessage[user.iProfile] then
Core.SendPmToUser(user,sBot,tMessage[user.iProfile])
return true
end
end
end

function UserConnected(tUser)
Core.SendToUser(tUser,"$UserCommand 1 3 Меню хаба\\Список команд хаба$<%[mynick]> !help||")
end
RegConnected,OpConnected=UserConnected,UserConnected