Code: Select all
proc myproc {nick host hand channel arg} {
set temp [lindex [split $arg] 0]
putquick "privmsg $channel :$temp [time?!]"
}
Code: Select all
foreach {first second} [split $arg] {break}
Code: Select all
set first [lindex [split $arg] 1]
set second [lindex [split $arg] 2]