Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.
⬅️ Volver##########################################################
### Please do not edit anything below this line even if you know tcl! ###
#########################################################################
# update for Arnold_X-P network: DALnet irc.dal.net channel #tcls
# this tcl supports multiple irc... ###
#### set netsplit(auth) "\x61\x77\x79\x65\x61\x68"
set netsplit(ver) "v2.8.0"
set listc {
"*.*.net"
"*.*.com"
"*.*.org"
"*.*.cl"
"*irc.*.*"
}
bind raw - QUIT detect:netsplit
proc detect:netsplit {from key arg} {
global netsplit_detected listc
if {[info exists netsplit_detected]} { return 0 }
set arg [string trimleft [stripcodes bcruag $arg] :]
if {[string equal "Quit:" [string range $arg 0 4]]} {return 0}
if {![regexp -- {^([[:alnum:][:punct:]]+)[[:space:]]([[:alnum:][:punct:]]+)$} $arg _arg server1 server2]} {return 0}
foreach addserver $listc {
if {[string match "$addserver" $server1] && [string match "$addserver" $server2]} {
foreach chan [channels] {
putquick "PRIVMSG $chan :\001ACTION Netsplit detected in: 7$server1 & 3$server2" -next
putserv "TOPIC #TTRAFFIC-HELP :04Netsplit detected: \002$server1\002 just split from \002$server2\002"
}
set netsplit_detected 1
utimer 20 [list do:netsplit:unlock]
}
} }
proc do:netsplit:unlock {} {
global netsplit_detected
if {[info exists netsplit_detected]} {
unset netsplit_detected
}
}
putlog "=== Netsplit @ $netsplit(ver) ==="👁️ 4 vistas • 📥 0 descargas