NSvoice.tcl

Просьбы о написании новых скриптов или поиске уже существующих.

Модератор: Модераторы

NSvoice.tcl

Сообщение Stefan » 02 дек 2010 16:05

Nickname who join channel and identify in NickServ give autovoice(+v).


REGARDS
Stefan
 
Сообщения: 23
Зарегистрирован: 02 окт 2010 15:13
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.

Re: NSvoice.tcl

Сообщение tvrsh » 06 дек 2010 00:58

TCL: [ Скачать ] [ Скрыть ]
namespace eval vonjoin {}
bind join * vonjoin
proc vonjoin {nick uhost hand chan text} {
global vonjoin
set vonjoin(chan) $chan
bind raw - 307 raw307
putserv "WHOIS $nick"
}

proc raw307 {from key msg} {
global vonjoin
if {[string match "*is a registered and identified nick*" $msg} {
    putserv "MODE $vonjoin(chan) +v [lindex [split $msg] 2]"
}
unbind raw - 307 raw307
}
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi


Вернуться в Заявки на скрипты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

cron