Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
MyDC.ru _ Kорзина _ Мини Бот
Автор: Goblin 10.4.2009, 20:20
У кого есть такой бот? Очень нужен.
сообщения:
написать всем unreg.
написать всем оп.
написать всем reg.
написать всем.
--------------------
баны:
забанить по ник.
забанить по ип.
--------------------
чат:
заглушить юзера.
снять заглушку.
Очистка чата.
---------------------
Сам бот запрещает:
нельзя писать unreg в общем чате и pm.
нельзя качать unreg.
Нельзя общаться самим собой т.е. как в скрипте "stop_trep"
------------------------
Скрипт нужен под Ptokax 0.4.1.1
Автор: Wariner 14.4.2009, 19:21
протестил. теперь всё должно работать!
Автор: Goblin 15.4.2009, 8:24
Цитата(Wariner @ 14.4.2009, 19:21) 
протестил. теперь всё должно работать!
Спасибо, все работает.
Цитата
Core.SendPmToUser(curUser.sNick,sBot, "*** "..curUser.sNick..", Сообщение ")
Как правильно написать чтобы сообщение отправлялось в PM
Правильно меню сделал?
Код
Core.SendToUser(tUser,"$UserCommand 1 3 Меню админа\\Баны\\Временно забанить юзера по IP$<%[mynick]> !tempbanip %[line:Введите ip] %[line:Укажите время 1m= 1 мин 1h = 1 час] %[line:Укажите причину]||")
Core.SendToUser(tUser,"$UserCommand 1 3 Меню админа\\Баны\\Временно забанить ник$<%[mynick]> !nicktempban %[line:Введите ник] %[line:Укажите время 1m= 1 мин 1h = 1 час] %[line:Укажите причину]||")
Core.SendToUser(tUser,"$UserCommand 1 2 Меню админа\\Чат\\Заглушить этого юзера$<%[mynick]> !gag %[nick]||")
Core.SendToUser(tUser,"$UserCommand 1 2 Меню админа\\Чат\\Снять заглушку с этого юзера$<%[mynick]> !ungag %[nick]||")
Core.SendToUser(tUser,"$UserCommand 1 3 Меню админа\\Чат\\Заглушить юзера$<%[mynick]> !gag %[line:Введите ник]||")
Core.SendToUser(tUser,"$UserCommand 1 3 Меню админа\\Чат\\Снять заглушку$<%[mynick]> !ungag %[line:Введите ник]||")
Core.SendToUser(tUser,"$UserCommand 1 3 Меню админа\\Баны\\Временно забанить ник$<%[mynick]> !nicktempban %[line:Введите ник] %[line:Укажите время 1m= 1 мин 1h = 1 час] %[line:Укажите причину]||")
Core.SendToUser(tUser,"$UserCommand 1 2 Меню админа\\Чат\\Заглушить этого юзера$<%[mynick]> !gag %[nick]||")
Core.SendToUser(tUser,"$UserCommand 1 2 Меню админа\\Чат\\Снять заглушку с этого юзера$<%[mynick]> !ungag %[nick]||")
Core.SendToUser(tUser,"$UserCommand 1 3 Меню админа\\Чат\\Заглушить юзера$<%[mynick]> !gag %[line:Введите ник]||")
Core.SendToUser(tUser,"$UserCommand 1 3 Меню админа\\Чат\\Снять заглушку$<%[mynick]> !ungag %[line:Введите ник]||")
И последние как добавить функцию сообщения новым пользователям в PM.
Код
Core.SendToNick(user.sNick,"Чтобы добавить хаб, наберите /fav")
Автор: Wariner 15.4.2009, 9:17
отправка в PM
Код
Core.SendPmToUser(tUser, sBot, "*** "..tUser.sNick..", Сообщение ")
Меню вроде правильно
А нового юзера определить невозможно! только лишь собирая базу по никам или ипам! а это будет тормозить хаб!!!
Автор: Goblin 15.4.2009, 9:33
Цитата
А нового юзера определить невозможно! только лишь собирая базу по никам или ипам! а это будет тормозить хаб!!!
Если сделать для унрег это сообщение
Автор: Wariner 15.4.2009, 9:43
функцию OpConnected замени на
Код
function UserConnected(tUser)
if tProfiles[tUser.iProfile] == 1 then
local sMsg = "$UserCommand 1 3 Меню администрации\\Сообщения\\Всем мастерам$<%[mynick]> !profilemsg 0 %[line:Введите сообщение]||"..
"$UserCommand 1 3 Меню администрации\\Сообщения\\Всем опам$<%[mynick]> !profilemsg 1 %[line:Введите сообщение]||"..
"$UserCommand 1 3 Меню администрации\\Сообщения\\Всем випам$<%[mynick]> !profilemsg 2 %[line:Введите сообщение]||"..
"$UserCommand 1 3 Меню администрации\\Сообщения\\Всем регам$<%[mynick]> !profilemsg 3 %[line:Введите сообщение]||"..
"$UserCommand 1 3 Меню администрации\\Сообщения\\Всем анрегам$<%[mynick]> !profilemsg -1 %[line:Введите сообщение]||"..
"$UserCommand 1 3 Меню администрации\\Очистка чата$<%[mynick]> !clearchat||"
Core.SendToUser(tUser, sMsg)
end
if tUser.iProfile == -1 then
Core.SendToUser(tUser,"Чтобы добавить хаб в избранное, наберите /fav")
end
end
OpConnected = UserConnected
RegConnected = UserConnected
if tProfiles[tUser.iProfile] == 1 then
local sMsg = "$UserCommand 1 3 Меню администрации\\Сообщения\\Всем мастерам$<%[mynick]> !profilemsg 0 %[line:Введите сообщение]||"..
"$UserCommand 1 3 Меню администрации\\Сообщения\\Всем опам$<%[mynick]> !profilemsg 1 %[line:Введите сообщение]||"..
"$UserCommand 1 3 Меню администрации\\Сообщения\\Всем випам$<%[mynick]> !profilemsg 2 %[line:Введите сообщение]||"..
"$UserCommand 1 3 Меню администрации\\Сообщения\\Всем регам$<%[mynick]> !profilemsg 3 %[line:Введите сообщение]||"..
"$UserCommand 1 3 Меню администрации\\Сообщения\\Всем анрегам$<%[mynick]> !profilemsg -1 %[line:Введите сообщение]||"..
"$UserCommand 1 3 Меню администрации\\Очистка чата$<%[mynick]> !clearchat||"
Core.SendToUser(tUser, sMsg)
end
if tUser.iProfile == -1 then
Core.SendToUser(tUser,"Чтобы добавить хаб в избранное, наберите /fav")
end
end
OpConnected = UserConnected
RegConnected = UserConnected
Автор: Goblin 15.4.2009, 10:00
Ошибок в скрипте нет, но отправка сообщений не работает т.е. не отправляет. :(
Автор: Wariner 15.4.2009, 19:32
не работает на каких профилях?
пробуй
Автор: Goblin 16.4.2009, 8:44
Цитата
не работает на каких профилях?
На всех
Цитата(Wariner @ 15.4.2009, 20:32)
пробуй
Работает, но когда добавил меню опять не работает.
Посмотри что не так в годе
MiniBot.lua ( 3.8 килобайт )
: 2