Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.
⬅️ Volver###############################################
# #
# |����)�|����\�|����)��/���\�|�����| #
# |��_�\�|�|�)�||��_�\�|�|�|�|��|�|�� #
# |�|_)�||����<�|�|_)�||�|_|�|��|�|�� #
# |____/�|_|�\_\|____/��\___/���|_|�� #
# #
# Alugue Bots Com Qualidades #
# #
# Essa tcl foi pega no www.brbot.rg3.net, #
# entre no site e veja novas vers�es e #
# outras tcls! #
###############################################
####CHANNEL PING SCRIPT BY psych0tic@EFnet####
bind pubm - {* !ping} ping_tola
bind ctcr - ping ping_users
proc ping_users {nick uhost hand destr key arg} {
global server
set reply [expr [unixtime] - [lindex $arg 0]]
if {$reply < 10} {
puthelp "NOTICE $nick :Mira que lindo... Tu tiempo de LAG es bueno,\001 $reply\001 segundo(s)."
} elseif {$reply > 60} {
puthelp "NOTICE $nick :Aggg!!!, qu� tiempo tan horrible es muy LARGOOO...\001 $reply\001\
en segundos. Por favor cambie a mi servidor para tener menos.\
ocupa el siguiente comando\
/server [string range $server 0 [string last ":" $server]]6667"
} else {
puthelp "NOTICE $nick :Tu LAG no es tan malo\001 ($reply segundos)\001, pero...\
te aconsejo,\
cambiarte de servidor para disminuir el LAG, con el comando\
/server [string range $server 0 [string last ":" $server]]6667"
}
}
proc ping_tola {nick uhost handle channel text} {
set unixtime [unixtime]
putlog "* ping * $nick"
putserv "privmsg $nick :\001PING $unixtime\001"
}
proc repinga {} {
set unixtime [unixtime]
foreach chan [channels] {
putserv "privmsg $chan :\001PING $unixtime\001"
}
timer 40 {repinga }
}
#repinga
putlog "=== !Ping ==="👁️ 4 vistas • 📥 0 descargas