Скрипт Показывающий Юзеру Какой У Него Профиль

local tProfiles={
  [-1]="незарегистрированный",
  [0]="админ",
  [1]="оператор",
  [2]="вип",
  [3]="пользователь"
}
function UserConnected(tUser)
  Core.SendToUser(tUser,"Приветствуем Вас, "..tProfiles[tUser.iProfile].." "..tUser.sNick)
end
RegConnected=UserConnected
OpConnected=UserConnected

function UserConnected(user)
    Core.GetUserData(user, 12)
    if user.bUserCommand then
           if (pCustom[user.iProfile] == 1) and string.lower(tVar.sRCEnable) == "on" then
        Core.SendToUser(user, "$UserCommand 1 3 "..tVar.sRCName.."\\Помощь$<%[mynick]> !"..tCmd.sHelp.."|")
        Core.SendToUser(user, "$UserCommand 1 3 "..tVar.sRCName.."\\Мои приветсвия$<%[mynick]> !"..tCmd.sShow.."|")
             Core.SendToUser(user, "$UserCommand 1 3 "..tVar.sRCName.."\\Новое приветсвие$<%[mynick]> !"..tCmd.sAddIn.." %[line:Введи текст , * = Твой ник.]|")
             Core.SendToUser(user, "$UserCommand 1 3 "..tVar.sRCName.."\\Новое прощание$<%[mynick]> !"..tCmd.sAddOut.." %[line:Введи текст , * = Твой ник.]|")
             Core.SendToUser(user, "$UserCommand 1 3 "..tVar.sRCName.."\\Удалить приветвие$<%[mynick]> !"..tCmd.sDelIn.." %[line:Введи номер]|")
             Core.SendToUser(user, "$UserCommand 1 3 "..tVar.sRCName.."\\Удалить прощание$<%[mynick]> !"..tCmd.sDelOut.." %[line:Введи номер]|")
              end
           if (pAdmin[user.iProfile] == 1) and string.lower(tVar.sRCEnable) == "on" then
        Core.SendToUser(user, "$UserCommand 1 3 "..tVar.sRCName.."\\Админ\\Изм. начало приветсвий$<%[mynick]> !"..tCmd.sChHdr.." %[line:Введите текст, Текущ.: "..tVar.sHeader.."]|")
        Core.SendToUser(user, "$UserCommand 1 3 "..tVar.sRCName.."\\Админ\\Изм. конец приветсвий$<%[mynick]> !"..tCmd.sChFtr.." %[line:Введите текст, Текущ.: "..tVar.sFooter.."]|")
        Core.SendToUser(user, "$UserCommand 1 3 "..tVar.sRCName.."\\Админ\\Показать все приветсвия$<%[mynick]> !"..tCmd.sAll.."|")
        Core.SendToUser(user, "$UserCommand 1 3 "..tVar.sRCName.."\\Админ\\Удалить..$<%[mynick]> !"..tCmd.sDel.." %[line:<cust/rand> , Случайное или чье-то приветсвие?] %[line:<in/out> , Приветсвие или прощание?] %[line:<#> , Номер?] %[line:<ник> , Ник пользователя?] %[line:<причина> , Будем писать причину?]|")
        Core.SendToUser(user, "$UserCommand 1 3 "..tVar.sRCName.."\\Админ\\Доб. приветствие юзеру$<%[mynick]> !"..tCmd.sCAdd.." %[line:<in/out> , Приветсвие или прощание?] %[line:<ник> , Ник пользователя?] %[line:<текст> , * = ник юзера]|")
              Core.SendToUser(user, "$UserCommand 1 3 "..tVar.sRCName.."\\Админ\\Доб. случ. приветсвие$<%[mynick]> !"..tCmd.sRAdd.." %[line:<in/out> , Приветсвие или прощание?] %[line:<текст> , * = ник юзера]|")
              Core.SendToUser(user, "$UserCommand 1 3 "..tVar.sRCName.."\\Админ\\Изм. назв. профиля к нику$<%[mynick]> !"..tCmd.sProfile.." %[line:<master/op/vip/reg/unreg/cust1/cust2> профиль?] %[line:<текст> , Новое описание?]|")
        end
       end
       sendGreeting(user,tMsgIn);
    
    [b]Core.SendToUser(user,"Приветствуем Вас, "..tProfiles[user.iProfile].." "..user.sNick)[/b]
end