bind pub - !fight competition
proc competition { nick uhost hand chan args } {
global sdate edate nick1 name1 nick2 name2
set sdate [lindex [split $args] 0]
set edate [lindex [split $args] 1]
set nick1 [lindex [split $args] 2]
set name1 [lindex [split $args] 3]
set nick2 [lindex [split $args] 4]
set name2 [lindex [split $args] 5]
set sdate [string trimleft $sdate "{"]
set name2 [string trimright $name2 " }"]
putserv "NOTICE $nick1 : poker $name1 $sdate $edate"
# Now the clients respond with a query, how to get the results?
}