# Канал. 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..."