Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

MyDC.ru _ Kорзина _ Надо кое че подкрутить

Автор: VeNick 7.7.2009, 17:58

вот собсна скрипт:

Код
function UserConnected(user)
    Core.GetUserAllData(user)
GetCommands(user)
end

OpConnected = UserConnected

function GetCommands(user)
if (user.iProfile == 2) then
UserCommands(user)
end
if (user.iProfile == 4) then
UserCommands(user)
end
if (user.iProfile == 3) then
UserCommands(user)
end
if (user.iProfile == 1) then
UserCommands(user)
end
if (user.iProfile == 0) then
UserCommands(user)
end
if (user.iProfile == -1) then
UserCommands(user)
end
if (user.iProfile == 1) then
OpsCommands(user)
end
if (user.iProfile == 0) then
OpsCommands(user)
end
end

wMenu = "меню админа"

function OpsCommands(user)

-- Бан
Core.SendToNick(user.sNick,"$UserCommand 1 2 "..wMenu.."\\Меню бана\\Забанить$<%[mynick]> !nicktempban %[nick] 10m %[line:Введите Причину:]|")
Core.SendToNick(user.sNick,"$UserCommand 1 2 "..wMenu.."\\Меню бана\\Забанить навсегда$<%[mynick]> !ban %[line:Введите IP:] %[line:Введите причину:]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..wMenu.."\\Меню бана\\Список забаненых$<%[mynick]> !getbans|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..wMenu.."\\Меню бана\\Снять бан$<%[mynick]> !unban %[line:Введите ник или IP:]|")

-- Гаг
Core.SendToNick(user.sNick,"$UserCommand 1 2 "..wMenu.."\\Глушак$<%[mynick]> !gag %[line:Введите IP:] %[line:Введите причину:]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..wMenu.."\\Снять глушак$<%[mynick]> !ungag %[line:Введите ник или IP:]|")

-- Топик
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..wMenu.."\\Меню топика\\Установить новый топик$<%[mynick]> !topic %[line:Введите топик:]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..wMenu.."\\Меню топика\\Удалить текущий топик$<%[mynick]> !topic off|")

-- Сообщения    
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..wMenu.."\\Сообщения\\Послать всем ЛС$<%[mynick]> !massmsg %[line:Введите текст:]|")    
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..wMenu.."\\Сообщения\\Послать личку ОПам$<%[mynick]> !opmassmsg %[line:Введите текст:]|")

-- Управление хабом
curUser:SendData("$UserCommand 1 3 "..wMenu.."\\Общее управление\\Управление хабом\\Перезапустить хаб$<%[mynick]> !restart|")
curUser:SendData("$UserCommand 1 3 "..wMenu.."\\Общее управление\\Управление хабом\\Управление скриптами\\Запустить скрипт$<%[mynick]> !startscript %[line:Введите имя файла скрипта]|")
curUser:SendData("$UserCommand 1 3 "..wMenu.."\\Общее управление\\Управление хабом\\Управление скриптами\\Остановить скрипт$<%[mynick]> !stopscript %[line:Введите имя файла скрипта]|")
curUser:SendData("$UserCommand 1 3 "..wMenu.."\\Общее управление\\Управление хабом\\Управление скриптами\\Перезапустить скрипт$<%[mynick]> !restartscript %[line:Введите имя файла скрипта]|")
curUser:SendData("$UserCommand 1 3 "..wMenu.."\\Общее управление\\Управление хабом\\Управление скриптами\\Перезапустить все скрипты$<%[mynick]> !restartscripts %[line:Введите имя файла скрипта]|")
curUser:SendData("$UserCommand 1 3 "..wMenu.."\\Общее управление\\Управление хабом\\Управление скриптами\\Список скриптов$<%[mynick]> !getscripts|")
curUser:SendData("$UserCommand 1 3 "..wMenu.."\\Общее управление\\Управление хабом\\Перезапустить все текстовые файлы$<%[mynick]> !reloadtxt|")

end
RegConnected = UserConnected


При подключении админа к хабу скрипт отрубается и выдает следующую ошибку still_dreaming.gif
Цитата
22: attempt to call global 'UserCommands' (a nil value)


И ещё кое что, можно ли подкрутить к этому скрипту таблицу профилей которым будет разрешено пользоватся этим скриптом?
Спасибо за помощь!

Автор: alex82 7.7.2009, 18:01

Ответный вопрос.

Почему из всех скриптов, реализующих меню управления, нужно было выбрать самый кривой?

PS. Движок форума портит скрипты, поэтому их надо не постить, а прикреплять файлом.