I wrote a tcl ping script. I'm still a newbie in tcl. I hope somebody can help. Here's the script: bind PUB - !ping CheckPing proc CheckPing {nick uhost hand chan text} { putserv "privmsg $chan : [lindex [split $text] 0]" if { [lindex [split $text] 0] != "" } { set ::moo(arg) [li...