|
Ping TCL anti maling
coz selama pake ping.tcl yg ini botku ga pernah kecolongan :-)
bind pub - .ping pingnickpub
bind pub - !ping pingnickpub
bind ctcr - PING pingreply
proc pingnickpub {nick uhost hand chan text} {
pingnick $nick
return 0
}
proc pingnick {nick} {
putquick "PRIVMSG $nick :\001PING [expr {abs([clock clicks -milliseconds])}]\001"
}
proc pingreply {nick uhost hand dest key args} {
set pingnum [lindex $args 0]
set pingserver [lindex [split $::server :] 0]
if {[regexp -- {^-?[0-9]+$} $pingnum]} {
putquick "NOTICE $nick :Ping RepLy Kamu : [expr {abs([expr [expr {abs([clock clicks -milliseconds])} - $pingnum] / 1000.000])}] detik jika diukur dari 3$pingserver"
}
}
|