Etwas

proc competition { nick uhost hand chan args } {
  global sdate edate nick1 name1 nick2 name2 switch1
  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 " }"]
  set switch1 0
  putnotc $nick1 "poker $name1 $sdate $edate"
  # here i need a pause otherwise the switch is 1 all the time
  set switch1 1
  putnotc $nick2 "poker $name2 $sdate $edate"
}

bind msg - response response

proc response { nick uhost hand text } {
   global switch1
   if {$switch1 == 0} {
     set sdatep1 [lindex [split $text] 0]
     set edatep1 [lindex [split $text] 1]
     set screen1 [lindex [split $text] 2]
     set limit1  [lindex [split $text] 3]
     set bigb1 [lindex [split $text] 4]
     set site1 [lindex [split $text] 5]
     set hands1 [lindex [split $text] 6]
     set vpip1 [lindex [split $text] 7]
     set pfr1 [lindex [split $text] 8]
     set wtsd1 [lindex [split $text] 9]
     set wasd1 [lindex [split $text] 10]
     set won1 [lindex [split $text] 11]
     set bb1 [lindex [split $text] 12]
     putserv "PRIVMSG #kaffeezug : Temp Player 1"
     putserv "PRIVMSG #kaffeezug : $sdatep1 $edatep1 $screen1"
     putserv "PRIVMSG #kaffeezug : $limit1 $bigb1"
     putserv "PRIVMSG #kaffeezug : $site1 $hands1 $vpip1 $pfr1 $wtsd1 $wasd1 $won1 $bb1"
   }
   if {$switch1 == 1} {
     set sdatep2 [lindex [split $text] 0]
     set edatep2 [lindex [split $text] 1]
     set screen2 [lindex [split $text] 2]
     set limit2 [lindex [split $text] 3]
     set bigb2 [lindex [split $text] 4]
     set site2 [lindex [split $text] 5]
     set hands2 [lindex [split $text] 6]
     set vpip2 [lindex [split $text] 7]
     set pfr2 [lindex [split $text] 8]
     set wtsd2 [lindex [split $text] 9]
     set wasd2 [lindex [split $text] 10]
     set won2 [lindex [split $text] 11]
     set bb2 [lindex [split $text] 12]
     putserv "PRIVMSG #kaffeezug : Temp Player 2"
     putserv "PRIVMSG #kaffeezug : $sdatep2 $edatep2 $screen2"
     putserv "PRIVMSG #kaffeezug : $limit2 $bigb2"
     putserv "PRIVMSG #kaffeezug : $site2 $hands2 $vpip2 $pfr2 $wtsd2 $wasd2 $won2 $bb2"
   }
}