… | |
… | |
85 | my ($self, $msg) = @_; |
85 | my ($self, $msg) = @_; |
86 | |
86 | |
87 | print STDERR "login: $msg->{message}\n" if $verbose >= 2; |
87 | print STDERR "login: $msg->{message}\n" if $verbose >= 2; |
88 | |
88 | |
89 | $gtp->send ("kgs-login $msg->{message}"); |
89 | $gtp->send ("kgs-login $msg->{message}"); |
|
|
90 | |
|
|
91 | # use KGS::Listener::User; |
|
|
92 | # $user = new KGS::Listener::User name => "tetra"; |
|
|
93 | # $user->listen ($self->{conn}); |
|
|
94 | # $user->game_record; |
90 | } |
95 | } |
91 | |
96 | |
92 | sub inject_msg_room { |
97 | sub inject_msg_room { |
93 | my ($self, $msg) = @_; |
98 | my ($self, $msg) = @_; |
94 | |
99 | |
… | |
… | |
124 | |
129 | |
125 | sub inject_new_game { |
130 | sub inject_new_game { |
126 | my ($self, $msg) = @_; |
131 | my ($self, $msg) = @_; |
127 | |
132 | |
128 | $::lastnew = $msg->{channel};#d# |
133 | $::lastnew = $msg->{channel};#d# |
129 | $gtp->send ("kgs-game-new $msg->{id} $msg->{channel}"); |
134 | $gtp->send ("kgs-game-new $msg->{cid} $msg->{channel}"); |
|
|
135 | } |
|
|
136 | |
|
|
137 | sub inject_idle_warn { |
|
|
138 | my ($self, $msg) = @_; |
|
|
139 | |
|
|
140 | $self->send ("idle_reset"); |
130 | } |
141 | } |
131 | |
142 | |
132 | ############################################################################# |
143 | ############################################################################# |
133 | |
144 | |
134 | package room; |
145 | package room; |
… | |
… | |
160 | |
171 | |
161 | for (@$add, @$upd) { |
172 | for (@$add, @$upd) { |
162 | $gtp->send (sprintf "kgs-game-update %d %d %s %s %s %s %d %d %f %d %d %d %d %s", |
173 | $gtp->send (sprintf "kgs-game-update %d %d %s %s %s %s %d %d %f %d %d %d %d %s", |
163 | $self->{channel}, $_->{channel}, |
174 | $self->{channel}, $_->{channel}, |
164 | $_->type_char, |
175 | $_->type_char, |
|
|
176 | ::format_user $_->{black}, |
|
|
177 | ::format_user $_->{white}, |
165 | ::format_user $_->{user1}, |
178 | ::format_user $_->{owner}, |
166 | ::format_user $_->{user2}, |
|
|
167 | ::format_user $_->{user3}, |
|
|
168 | $_->size, |
179 | $_->size, |
169 | $_->{handicap}, |
180 | $_->{handicap}, |
170 | $_->{komi}, |
181 | $_->{komi}, |
171 | $_->moves, |
182 | $_->moves, |
172 | $_->{flags}, |
183 | $_->{flags}, |
… | |
… | |
449 | name2 => $1, |
460 | name2 => $1, |
450 | message => $2); |
461 | message => $2); |
451 | $self->reply ($id, ""); |
462 | $self->reply ($id, ""); |
452 | |
463 | |
453 | } elsif ($cmd =~ /^kgs-game-new-demo\s+(\d+)\s+(\d+)$/) { |
464 | } elsif ($cmd =~ /^kgs-game-new-demo\s+(\d+)\s+(\d+)$/) { |
454 | my $tid = $conn->alloc_channel; |
465 | my $tid = $conn->alloc_clientid; |
455 | $kgs->send (new_game => |
466 | $kgs->send (new_game => |
456 | channel => $1, |
467 | channel => $1, |
457 | id => $tid, |
468 | cid => $tid, |
458 | gametype => 0, |
469 | type => 0, |
459 | rules => { |
470 | rules => { |
460 | ruleset => 0, |
471 | ruleset => 0, |
461 | size => $2, |
472 | size => $2, |
462 | komi => 0, |
473 | komi => 0, |
463 | timesys => 0, |
474 | timesys => 0, |
… | |
… | |
532 | Command extension used by the controller: |
543 | Command extension used by the controller: |
533 | |
544 | |
534 | kgs-login message |
545 | kgs-login message |
535 | kgs-room-update <rid> <name> # update room info |
546 | kgs-room-update <rid> <name> # update room info |
536 | kgs-room-chat <rid> <user> <message> # somebody says sth. |
547 | kgs-room-chat <rid> <user> <message> # somebody says sth. |
537 | kgs-game-update <rid> <gid> <type> <user1> <user2> \ |
548 | kgs-game-update <rid> <gid> <type> <black> <white> \ |
538 | <user3> <size> <handicap> <komi> <moves> \ |
549 | <owner> <size> <handicap> <komi> <moves> \ |
539 | <flags> <observers> <saved> <notes> |
550 | <flags> <observers> <saved> <notes> |
540 | kgs-game-delete <rid> <gid> # game removed |
551 | kgs-game-delete <rid> <gid> # game removed |
541 | kgs-user-update <rid> <user> # user added/updated |
552 | kgs-user-update <rid> <user> # user added/updated |
542 | kgs-user-delete <rid> <user> # user removed |
553 | kgs-user-delete <rid> <user> # user removed |
543 | |
554 | |