Zeug

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?

}