Форум о ботах Eggdrop/Windrop

[Bender]

Здравствуйте! Нужен скрипт для выдачи пользователем моды (типо +W +p итд) при идентификации ника в сервисах...
Желательно чтоб считывал с канала #services "(Global) NickServ: Nick!ident@hostmaska identified for nick Nick"
Список ников в файле или сразу в скрипте... Заранее спасибо!

[tvrsh]

Вот пробуй:

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

# Биндим любой текст на канале #services
bind pubm - "#services *" umode
proc umode {nick uhost hand chan text} {
    # Список ников.
    set nicklist "nick1 nick2 nick3 nick4 nick5"
    # Проверяем, если фразу сказал не никсерв, то останавливаем процедуру.
    if {$nick != "Global" && [lindex [split $text] 0] != "NickServ:" } {
        return 0
    }
    # Выделяем ник из фразы никсерва.
    set ircnick [lindex [split $text] 5]
    # Перебираем все ники из списка, и если среди них есть тот же, что и в фразе никсерва то вешаем ему мод.
    foreach nickname [split $nicklist] {
        if {$nickname == $ircnick} {
            putserv "MODE $ircnick +p"
            return 0
        }
    }
}
putlog "umode.tcl loaded."

Если будут ошибки показывай их с .set errorInfo

[Bender]

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

 [22:48:32] Tcl error [umode]: invalid bareword "nick"
 in expression "nick != "NickServ"";
should be "$nick" or "{nick}" or "nick(...)" or ...

[tvrsh]

Поправил, пробуй.

[Bender]

Вообще не какой реакции...
Хочу уточнить в канале #services пишет не NickServ а Global (Текс такой  14[0708:20:4914]  14(07Global14) NickServ: user!ident@217.118.64.52 identified for nick user) может из за этого??

[tvrsh]

Снова пробуй.

[Bender]

Спасибо большое сработало!:))

[Bender]

А как сделать так чтобы пользователь с списка мог брать моды по команде в привате к примеру: !mod +W

[tvrsh]

А как сделать так чтобы пользователь с списка мог брать моды по команде в привате к примеру: !mod +W

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

bind msg - !mod userumode
proc userumode {nick uhost hand text} {
global lastbind
    set handlist "hand1 hand2 hand3 hand4 hand5"
    set modelist "+W +p"
    foreach handle [split $handlist] {
        if {$handle == [nick2hand $nick]} {
            foreach mode [split $modelist] {
                if {$mode == $text} {
                    putserv "MODE $nick $text"
                    return 0
                }
            }
            putserv "NOTICE $nick :$nick, мода $text нет в списке допустимых к установке. Список модов: [string trimright [join $modelist ", "] ","]."
            return 0        
        }
    }
    putserv "NOTICE $nick :$nick, вам запрещено использовать команду $lastbind."
    return 0        
}
putlog "userumode.tcl loaded."

Скрипт определяет хэндл того, кто использовал команду !mod с помощью команды nick2hand и если его хэндл есть в списке, то после этого проверяется есть ли указанный им мод в списке допустимых. Если все положительно то мод ставится.
Учти, что маски можно подделать и мод может получить тот, кому он не предназначен.

[Bender]

Спасибо! Все работает отлично!