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

[tvrsh]

Название: nosslban.tcl
Версия: 1.0
Автор: tvrsh, идея скрипта Spoofing (post1768.html#p1768)
Описание: post1768.html#p1768
Поддержка Suzi: Нет
Дополнительная информация: Скрипт не тестировал. Может не работать.

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

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

# Канал.
set nosslchan #egghelp

# Время бана.
set nosslbantime 10

# Сервер.
set nosslserv irc.qwertylife.ru

# Это менять не надо.
set sslsupport 0

# Процедура входа пользователя на канал.
bind join - * joinssl
proc joinssl {nick uhost hand chan} {
global nosslchan
    if {$chan == $nosslchan} {
        # Тут проверяем есть ли на канале +m, если нету то ставим.
        if {![string match *m* [getchanmode $chan]]} {
            putserv "MODE $chan +m"
        }
        # Хуизим ник.
        putserv "WHOIS $nick"
    }
}

#<- :irc.qwertylife.ru 312 tvrsh tvrsh irc.qwertylife.ru :QWERTY IRC Server, Moscow, Russia
#<- :irc.qwertylife.ru 671 tvrsh tvrsh :is using a Secure Connection (SSL)

# Бинд на проверку наличия SSL.
bind raw - 671 raw671
proc raw671 {from key msg} {
    global sslsupport
    # Присваиваем переменной 1.
    set sslsupport 1
}

# Бинд на проверку сервера.
bind raw - 312 raw312
proc raw312 {from key msg} {
global nosslchan nosslserv botnick nosslbantime sslsupport
    set server [lindex [split $msg] 2]
    # Если сервер не наш или нет SSL то баним негодяя.
    if {$server != $nosslserv || $sslsupport == "0"} {
        newchanban $nosslchan [lindex [split $msg] 0]!*@* $botnick "You need $nosslserv + SSL to join $nosslchan channel." $nosslbantime
    }
    # Если на канале все еще стоит +m то снимаем его.
    if {[string match *m* [getchanmode $chan]]} {
        putserv "MODE $chan -m"
    }
    # Ставим переменнную наличия SSL в 0.
    set sslsupport 0
}

putlog "nosslban.tcl by tvrsh and Spoofing loaded..."

Если кто решится попробовать отпишитесь о результатах.