ПОМОГИТЕ, Как дать определенному нику права администратора в любом скрипте ?

--###################################################################################
-- HubMenuPro v.1 by ZVER
-- API2 (PtokaX 0.4.x.x)
--###################################################################################

Menu = "Меню хаба\\"
UserMenu = "Юзер\\"
AdminMenu = "Управление\\"

ScriptEasy = false --Упрощенное меню управления скриптами

Prefix = "!"

--###################################################################################

function OnStartup()
local tTmp = SetMan.GetHubBot()
bot = tTmp.sNick
end

function UserConnected(user)
local t = ProfMan.GetProfilePermissions(user.iProfile)
--Глобальные команды
Core.SendToUser(user,"$UserCommand 1 3 "..Menu.."Помощь$<%[mynick]> "..Prefix.."help|")
Core.SendToUser(user,"$UserCommand 1 3 "..Menu.."Показать ваш IP адрес$<%[mynick]> "..Prefix.."myip|")
if t then
if t.bGetInfo then
Core.SendToUser(user,"$UserCommand 1 2 "..UserMenu.."Показать информацию$<%[mynick]> "..Prefix.."getinfo %[nick]|")
if t.bDrop or t.bKick or t.bTempBan or t.bBan or t.bMassMsg then
Core.SendToUser(user,"$UserCommand 0 2")
end
end
if t.bMassMsg then
Core.SendToUser(user,"$UserCommand 1 2 "..UserMenu.."Сообщение от имени бота$<%[mynick]> "..Prefix.."frombot %[nick] %[line:Введите текст сообщения]|")
if t.bDrop or t.bKick or t.bTempBan or t.bBan then
Core.SendToUser(user,"$UserCommand 0 2")
end
end
if t.bDrop then
Core.SendToUser(user,"$UserCommand 1 2 "..UserMenu.."Отключить$<%[mynick]> "..Prefix.."disconnect %[nick]|")
end
if t.bKick then
Core.SendToUser(user,"$UserCommand 1 2 "..UserMenu.."Кикнуть$<%[mynick]> "..Prefix.."drop %[nick] %[line:Причина]|")
end
if t.bTempBan then
Core.SendToUser(user,"$UserCommand 1 2 "..UserMenu.."Бан 1 час$<%[mynick]> "..Prefix.."tempban %[nick] 1h %[line:Причина]|")
Core.SendToUser(user,"$UserCommand 1 2 "..UserMenu.."Бан 24 часа$<%[mynick]> "..Prefix.."tempban %[nick] 1d %[line:Причина]|")
end
if t.bBan then
Core.SendToUser(user,"$UserCommand 1 2 "..UserMenu.."Постоянный бан$<%[mynick]> "..Prefix.."ban %[nick] %[line:Причина]|")
end
--Управление хабом
if t.bTopic then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Топик\\Установить топик$<%[mynick]> "..Prefix.."topic %[line:Введите текст]|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Топик\\Очистить топик$<%[mynick]> "..Prefix.."topic off|")
end
if t.bRefreshTxt then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Текстовые файлы\\Перезап. текст. файлы$<%[mynick]> "..Prefix.."reloadtxt|")
end
if t.bMassMsg then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Рассылка сообщений\\Массовая рассылка$<%[mynick]> "..Prefix.."massmsg %[line:Введите текст сообщения]|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Рассылка сообщений\\Рассылка ОПам$<%[mynick]> "..Prefix.."opmassmsg %[line:Введите текст сообщения]|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Сообщение от имени бота$<%[mynick]> "..Prefix.."frombot %[line:Ник] %[line:Введите текст сообщения]|")
end
--Списки банов
if t.bGetBans then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны\\Список банов$<%[mynick]> "..Prefix.."getbans|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны\\Список временных банов$<%[mynick]> "..Prefix.."gettempbans|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны\\Список постоянных банов$<%[mynick]> "..Prefix.."getpermbans|")
Core.SendToUser(user,"$UserCommand 0 3")
end
--Временные баны
if t.bTempBan then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны\\Временный бан$<%[mynick]> "..Prefix.."nicktempban %[line:Ник] %[line:Время (m = минут, h = часов, d = дней, w = недель)] %[line:Причина]|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны\\Временный бан IP$<%[mynick]> "..Prefix.."tempbanip %[line:Укажите IP] %[line:Время (m = минут, h = часов, d = дней, w = недель)] %[line:Причина]|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны\\Временный бан IP (полный)$<%[mynick]> "..Prefix.."fulltempbanip %[line:Укажите IP] %[line:Время (m = минут, h = часов, d = дней, w = недель)] %[line:Причина]|")
Core.SendToUser(user,"$UserCommand 0 3")
end
if t.bTempUnban then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны\\Снять временный бан$<%[mynick]> "..Prefix.."tempunban %[line:IP или ник]|")
Core.SendToUser(user,"$UserCommand 0 3")
end
--Постоянные баны
if t.bBan then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны\\Бан$<%[mynick]> "..Prefix.."nickban %[line:Ник] %[line:Причина]|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны\\Бан IP$<%[mynick]> "..Prefix.."banip %[line:Укажите IP] %[line:Причина]|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны\\Бан IP (полный)$<%[mynick]> "..Prefix.."fullbanip %[line:Укажите IP] %[line:Причина]|")
Core.SendToUser(user,"$UserCommand 0 3")
end
if t.bUnban then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны\\Снять бан$<%[mynick]> "..Prefix.."unban %[line:Ник или IP]|")
Core.SendToUser(user,"$UserCommand 0 3")
end
--Списки диапазонов банов
if t.bGetRangeBans then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны диапазонов\\Список диапазонов банов $<%[mynick]> "..Prefix.."getrangebans|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны диапазонов\\Список временных банов диапазонов$<%[mynick]> "..Prefix.."getrangetempbans|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны диапазонов\\Список постоянных банов диапазонов$<%[mynick]> "..Prefix.."getrangepermbans|")
Core.SendToUser(user,"$UserCommand 0 3")
end
--Временные баны диапазонов
if t.bRangeTempBan then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны диапазонов\\Временный бан диапазона$<%[mynick]> "..Prefix.."rangetempban %[line:Начальный IP диапазона] %[line:Конечный IP диапазона] %[line:Время (m = минут, h = часов, d = дней, w = недель)] %[line:Причина]|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны диапазонов\\Временный бан диапазона (полный)$<%[mynick]> "..Prefix.."fullrangetempban %[line:Начальный IP диапазона] %[line:Конечный IP диапазона] %[line:Время (m = минут, h = часов, d = дней, w = недель)] %[line:Причина]|")
Core.SendToUser(user,"$UserCommand 0 3")
end
if t.bRangeTempUnban then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны диапазонов\\Снять временный бан диапазона$<%[mynick]> "..Prefix.."tempunban %[line:Начальный IP диапазона] %[line:Конечный IP диапазона]|")
Core.SendToUser(user,"$UserCommand 0 3")
end
--Постоянные баны диапазонов
if t.bRangeBan then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны диапазонов\\Бан диапазона$<%[mynick]> "..Prefix.."rangeban %[line:Начальный IP диапазона] %[line:Конечный IP диапазона] %[line:Причина]|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны диапазонов\\Бан диапазона (полный)$<%[mynick]> "..Prefix.."fullrangeban %[line:Начальный IP диапазона] %[line:Конечный IP диапазона] %[line:Причина]|")
Core.SendToUser(user,"$UserCommand 0 3")
end
if t.bRangeUnban then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Баны диапазонов\\Снять бан диапазона$<%[mynick]> "..Prefix.."rangepermunban %[line:Начальный IP диапазона] %[line:Конечный IP диапазона]|")
Core.SendToUser(user,"$UserCommand 0 3")
end
--Управление пользователями
if t.bAddRegUser then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Управление пользователями\\Зарегистрировать пользователя$<%[mynick]> "..Prefix.."addreguser %[line:Ник] %[line:Пароль] %[line:Имя профиля]|")
end
if t.bDelRegUser then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Управление пользователями\\Удалить регистрацию$<%[mynick]> "..Prefix.."delreguser %[line:Ник]|")
end
--Управление скриптами
if t.bRestartScripts then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Скрипты\\Посмотреть список$<%[mynick]> "..Prefix.."getscripts|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Скрипты\\Перезапустить скрипты$<%[mynick]> "..Prefix.."restartscripts|")
Core.SendToUser(user,"$UserCommand 0 3")
if ScriptEasy then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Скрипты\\Перезапуск$<%[mynick]> "..Prefix.."restartscript %[line:Имя файла]|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Скрипты\\Старт$<%[mynick]> "..Prefix.."startscript %[line:Имя файла]|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Скрипты\\Стоп$<%[mynick]> "..Prefix.."stopscript %[line:Имя файла]|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Скрипты\\Сдвинуть вверх$<%[mynick]> "..Prefix.."scriptmoveup %[line:Имя файла]|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Скрипты\\Сдвинуть вниз$<%[mynick]> "..Prefix.."scriptmovedown %[line:Имя файла]|")
else
tScripts = ScriptMan.GetScripts()
for script in pairs(tScripts) do
local CurScript = tScripts[script].sName
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Скрипты\\"..CurScript.."\\Перезапуск$<%[mynick]> "..Prefix.."restartscript "..CurScript.."|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Скрипты\\"..CurScript.."\\Старт$<%[mynick]> "..Prefix.."startscript "..CurScript.."|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Скрипты\\"..CurScript.."\\Стоп$<%[mynick]> "..Prefix.."stopscript "..CurScript.."|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Скрипты\\"..CurScript.."\\Сдвинуть вверх$<%[mynick]> "..Prefix.."scriptmoveup "..CurScript.."|")
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Скрипты\\"..CurScript.."\\Сдвинуть вниз$<%[mynick]> "..Prefix.."scriptmovedown "..CurScript.."|")
end
end
end
end
end

OpConnected = UserConnected
RegConnected = UserConnected

function ChatArrival(user,data)
data = string.sub(data,1,string.len(data)-1)
local t = ProfMan.GetProfilePermissions(user.iProfile)
local s,e,pre,cmd = string.find(data, "^%b<>%s+(%p)(%S+)")
local s,e,param = string.find(data, "^%b<>%s+%p%S+%s+(.+)")
if pre == Prefix then
if t then
if t.bRestartScripts then
if cmd and cmd == "scriptmoveup" then
if param then
result = ScriptMan.MoveUp(param)
if result then
ToOps(user.sNick..": Скрипт "..param.." перемещён вверх на одну позицию.")
else
ToUser(user,"Ошибка: скрипт "..param.." переместить не удалось.")
end
else
ToUser(user,"<"..bot.."> Ошибка. Вы должны указать имя файла.")
end
return true
elseif cmd and cmd == "scriptmovedown" then
if param then
result = ScriptMan.MoveDown(param)
if result then
ToOps(user.sNick..": Скрипт "..param.." перемещён вниз на одну позицию.")
else
ToUser(user,"Ошибка: скрипт "..param.." переместить не удалось.")
end
else
ToUser(user,"<"..bot.."> Ошибка. Вы должны указать имя файла.")
end
return true
end
end
if t.bDrop then
if cmd and cmd == "disconnect" then
if param then
local CurUser = Core.GetUser(param)
if CurUser then
Core.Disconnect(CurUser)
else
ToUser(user,"Ошибка: юзер "..param.." не найден на хабе")
end
else
ToUser(user,"Ошибка: Вы должны указать ник.")
end
return true
end
end
if t.bMassMsg then
if cmd and cmd == "frombot" then
local s,e,nick,msg = string.find(param, "^(%S+)%s+(.+)$")
if nick and msg then
local CurUser = Core.GetUser(nick)
if CurUser then
FromBot(CurUser,msg)
ToUser(user,"Сообщение отправлено")
ToOps(user.sNick.." отправил сообщение от имени бота юзеру "..nick.." :"..msg)
else
ToUser(user,"Ошибка: юзер "..nick.." не найден на хабе")
end
else
ToUser(user,"Ошибка синтаксиса. Синтаксис: "..Prefix.."frombot <ник> <текст сообщения>")
end
return true
end
end
end
end
end

function ToUser(user,msg)
Core.SendToUser(user,"<"..bot.."> "..msg)
end

function ToOps(msg)
Core.SendToOps("<"..bot.."> "..msg)
end

function FromBot(user,msg)
Core.SendPmToUser(user,bot,msg)
end

--Управление пользователями
if t.bAddRegUser then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Управление пользователями\\Зарегистрировать пользователя$<%[mynick]> "..Prefix.."addreguser %[line:Ник] %[line:Пароль] %[line:Имя профиля]|")
end
if t.bDelRegUser then
Core.SendToUser(user,"$UserCommand 1 3 "..AdminMenu.."Управление пользователями\\Удалить регистрацию$<%[mynick]> "..Prefix.."delreguser %[line:Ник]|")
end