ping.tcl

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"
 }
}

Add comment

Fill out the form below to add your own comments

User data





Add your comment