bind pub - !fight competition
proc competition {nick uhost hand chan text} {
global sdate edate nick1 name1 nick2 name2
set sdate [lindex $text 0]
set edate [lindex $text 1]
set nick1 [lindex $text 2]
set name1 [lindex $text 3]
set nick2 [lindex $text 4]
set name2 [lindex $text 5]
putnotc $nick1 "poker $name1 $sdate $edate"
# Now the clients respond with a query, how to get the results?
}
bind msg - response response
proc response {nick uhost hand text} {
# same as proc competition then
}