myDC.ru

Здравствуйте, гость ( Вход | Регистрация )

 
 
Ответить в данную темуНачать новую тему

> Надо кое че подкрутить

Теги
Нет тегов для показа
Akaick
сообщение 7.7.2009, 17:58
Сообщение #1


Участник
**

Группа: Пользователи
Сообщений: 35
Регистрация: 7.7.2009
Из: Тула
Пользователь №: 3 818
Спасибо сказали: 3 раза




вот собсна скрипт:
Код
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)


И ещё кое что, можно ли подкрутить к этому скрипту таблицу профилей которым будет разрешено пользоватся этим скриптом?
Спасибо за помощь!
Go to the top of the page
+Quote Post
alex82
сообщение 7.7.2009, 18:01
Сообщение #2


Местный
*******

Группа: Неактивированные
Сообщений: 908
Регистрация: 26.12.2008
Пользователь №: 1 574
Спасибо сказали: 1406 раз




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

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

PS. Движок форума портит скрипты, поэтому их надо не постить, а прикреплять файлом.
Go to the top of the page
+Quote Post

Ответить в данную темуНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

Collapse

> Похожие темы

  Тема Ответов Автор Просмотров Последнее сообщение
No New Posts очень надо скрипт
скрипт
3 dimavolna 6 668 23.2.2010, 21:49 Посл. сообщение: dimavolna
No New Posts Переделать надо однако =)
4 Akaick 7 355 31.10.2009, 18:49 Посл. сообщение: Jaska
No New Posts Topic has attachmentsНадо изменить
7 Akaick 9 211 10.7.2009, 15:36 Посл. сообщение: fixx
Moved Надо изменить
0 Akaick 0 7.7.2009, 18:43 Посл. сообщение: Akaick

 



RSS Сейчас: 26.4.2024, 18:09