Версия: 1.0
Автор: tvrsh, идея скрипта Spoofing (post1768.html#p1768)
Описание: post1768.html#p1768
Поддержка Suzi: Нет
Дополнительная информация: Скрипт не тестировал. Может не работать.
# Канал.
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..."
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..."
Если кто решится попробовать отпишитесь о результатах.