| … | |
… | |
| 124 | |
124 | |
| 125 | sub inject_new_game { |
125 | sub inject_new_game { |
| 126 | my ($self, $msg) = @_; |
126 | my ($self, $msg) = @_; |
| 127 | |
127 | |
| 128 | $::lastnew = $msg->{channel};#d# |
128 | $::lastnew = $msg->{channel};#d# |
| 129 | $gtp->send ("kgs-game-new $msg->{id} $msg->{channel}"); |
129 | $gtp->send ("kgs-game-new $msg->{cid} $msg->{channel}"); |
| 130 | } |
130 | } |
| 131 | |
131 | |
| 132 | ############################################################################# |
132 | ############################################################################# |
| 133 | |
133 | |
| 134 | package room; |
134 | package room; |
| … | |
… | |
| 452 | |
452 | |
| 453 | } elsif ($cmd =~ /^kgs-game-new-demo\s+(\d+)\s+(\d+)$/) { |
453 | } elsif ($cmd =~ /^kgs-game-new-demo\s+(\d+)\s+(\d+)$/) { |
| 454 | my $tid = $conn->alloc_channel; |
454 | my $tid = $conn->alloc_channel; |
| 455 | $kgs->send (new_game => |
455 | $kgs->send (new_game => |
| 456 | channel => $1, |
456 | channel => $1, |
| 457 | id => $tid, |
457 | cid => $tid, |
| 458 | gametype => 0, |
458 | gametype => 0, |
| 459 | rules => { |
459 | rules => { |
| 460 | ruleset => 0, |
460 | ruleset => 0, |
| 461 | size => $2, |
461 | size => $2, |
| 462 | komi => 0, |
462 | komi => 0, |
