Code:

bind PUB - !version version:pubbind CTCR - VERSION version:replysetudef flag versionproc version:pub {nick uhost hand chan arg} {global tempif {![channel get $chan version]} { return }set temp(who) [lindex [split $arg] 0]set temp(chan) $chanputserv "PRIVMSG $temp(who) :\001VERSION\001"}proc version:reply {nick uhost hand dest key vers} {global tempputserv "PRIVMSG $temp(chan) :$nick is using: [join [lrange [split $vers] 0 end]]"}

Code:

set chan "#channel"bind pub - !version vers_procbind ctcr - VERSION return_versbind pub - !utime utms_procbind ctcr - TIME return_utmsproc vers_proc {nick uhost hand chan arg} {  putserv "PRIVMSG $nick :\001VERSION\001"}proc return_vers {nick uhost hand dest key vers} {  global chan  set retvers [join [lrange [split $vers] 0 end]]  putserv "PRIVMSG $chan :$nick is using: $retvers"}proc utms_proc {nick uhost hand chan arg} {  putserv "PRIVMSG $nick :\001TIME\001"}proc return_utms {nick uhost hand dest key utms} {  global chan  set retutms [join [lrange [split $utms] 0 end]]  putserv "PRIVMSG $chan :$nick's date and time: $retutms"}