ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/bin/gtp-controller
(Generate patch)

Comparing kgsueme/bin/gtp-controller (file contents):
Revision 1.2 by pcg, Sat May 15 23:30:33 2004 UTC vs.
Revision 1.3 by pcg, Mon May 17 01:24:22 2004 UTC

… …
15 15
16our $VERSION = '0.0'; # be more confident.... 16our $VERSION = '0.0'; # be more confident....
17 17
18$SIG{QUIT} = sub { Carp::confess "SIGQUIT" }; 18$SIG{QUIT} = sub { Carp::confess "SIGQUIT" };
19 19
20my $conn = new KGS::Protocol;
20my $kgs; 21my $kgs;
21my $gtp; 22my $gtp;
22 23
23my $verbose = 1; 24my $verbose = 1;
24my $user = "gtpguest"; 25my $user = "gtpguest";
… …
47############################################################################# 48#############################################################################
48 49
49package kgs; 50package kgs;
50 51
51use base KGS::Listener; 52use base KGS::Listener;
52
53my $conn = new KGS::Protocol;
54 53
55sub new { 54sub new {
56 my $class = shift; 55 my $class = shift;
57 my $self = bless { @_ }, $class; 56 my $self = bless { @_ }, $class;
58 57
… …
119 my ($self, $msg) = @_; 118 my ($self, $msg) = @_;
120 119
121 return unless (lc $self->{conn}{name}) eq (lc $msg->{name2}); 120 return unless (lc $self->{conn}{name}) eq (lc $msg->{name2});
122 121
123 $gtp->send ("kgs-user-chat $msg->{name} $msg->{message}"); 122 $gtp->send ("kgs-user-chat $msg->{name} $msg->{message}");
123}
124
125sub inject_new_game {
126 my ($self, $msg) = @_;
127
128 $::lastnew = $msg->{channel};#d#
129 $gtp->send ("kgs-game-new $msg->{id} $msg->{channel}");
124} 130}
125 131
126############################################################################# 132#############################################################################
127 133
128package room; 134package room;
… …
310 316
311############################################################################# 317#############################################################################
312 318
313package gtp; 319package gtp;
314 320
321use Gtk2::GoBoard::Constants;
322use KGS::Constants;
323
315use Fcntl; 324use Fcntl;
316 325
317sub new { 326sub new {
318 my $class = shift; 327 my $class = shift;
319 bless { @_ }, $class; 328 bless { @_ }, $class;
… …
439 name => $kgs->{user}, 448 name => $kgs->{user},
440 name2 => $1, 449 name2 => $1,
441 message => $2); 450 message => $2);
442 $self->reply ($id, ""); 451 $self->reply ($id, "");
443 452
453 } elsif ($cmd =~ /^kgs-game-new-demo\s+(\d+)\s+(\d+)$/) {
454 my $tid = $conn->alloc_channel;
455 $kgs->send (new_game =>
456 channel => $1,
457 id => $tid,
458 gametype => 0,
459 rules => {
460 ruleset => 0,
461 size => $2,
462 komi => 0,
463 timesys => 0,
464 time => 0,
465 interval => 0,
466 count => 0,
467 });
468 $self->reply ($id, $tid);
469 } elsif ($cmd =~ /^kgs-game-edit\s+(\d+)\s+(.*)$/) {
470 my $gid = $1 || $::lastnew;#d#
471 my $spec = $2;
472 my @tree = ();
473 while ($spec =~ s/^([a-z])(\d+)\s+\+?(\S+)\s*//) { # should use mg
474 my ($x, $y, $spec) = ($1, $2, $3);
475 my $add = $spec !~ s/^-//;
476 $x = index "abcdefghjklmnopqrstuvwxyz", lc $x;
477 $y--;
478
479 if ($spec eq "b") { push @tree, [set_stone => 0, $x, $y];
480 } elsif ($spec eq "w") { push @tree, [set_stone => 1, $x, $y];
481 } elsif ($spec eq "n") { push @tree, [set_stone => 2, $x, $y];
482 } elsif ($spec eq "sb") { push @tree, [mark => $add, MARK_SMALL_B, $x, $y];
483 } elsif ($spec eq "sw") { push @tree, [mark => $add, MARK_SMALL_W, $x, $y];
484 } elsif ($spec eq "sn") { push @tree, [mark => 0, MARK_SMALL_B, $x, $y];
485 } elsif ($spec eq "triangle") { push @tree, [mark => $add, MARK_TRIANGLE, $x, $y];
486 } elsif ($spec eq "square") { push @tree, [mark => $add, MARK_SQUARE, $x, $y];
487 } elsif ($spec eq "circle") { push @tree, [mark => $add, MARK_CIRCLE, $x, $y];
488 } elsif ($spec =~ /label=(\S+)/) { push @tree, [mark => length $1, MARK_LABEL, $x, $y, $1];
489 } elsif ($spec eq "grayed") { push @tree, [mark => $add, MARK_GRAYED, $x, $y];
490 } else {
491 $self->reply_err ($id, "illegal edit spec '$spec'");
492 return;
493 }
494 }
495 $kgs->send (upd_tree =>
496 channel => $gid,
497 tree => \@tree);
498 $self->reply ($id, "");
499
444 } else { 500 } else {
445 $self->reply_err ($id, "illegal command"); 501 $self->reply_err ($id, "illegal command");
446 } 502 }
447} 503}
448 504
… …
488kgs-game-resign <gid> <color> 544kgs-game-resign <gid> <color>
489kgs-game-score <gid> <w-territory> <w-captures> <w-komi> <b-territory> <b-captures> <b-komi> 545kgs-game-score <gid> <w-territory> <w-captures> <w-komi> <b-territory> <b-captures> <b-komi>
490kgs-game-id <gid> # set id for following gid-less commands 546kgs-game-id <gid> # set id for following gid-less commands
491 547
492kgs-user-chat <user> <message> # got private message from user 548kgs-user-chat <user> <message> # got private message from user
549kgs-game-new <tid> <gid> # a new game was created with temporary id <tid>
493... 550...
494 551
495Commands usable by the client: 552Commands usable by the client as commands issued to the controller:
496 553
497kgs-room-list # ask for roomlist update 554kgs-room-list # ask for roomlist update
498kgs-room-join <rid> # join given room 555kgs-room-join <rid> # join given room
499kgs-room-chat <rid> <message> # say sth. in room 556kgs-room-chat <rid> <message> # say sth. in room
500kgs-room-part <rid> # leave gives room 557kgs-room-part <rid> # leave gives room
… …
502kgs-game-join <gid> # join the given game 559kgs-game-join <gid> # join the given game
503kgs-game-part <gid> # leave the given game 560kgs-game-part <gid> # leave the given game
504kgs-game-chat <gid> <message> # say sth. 561kgs-game-chat <gid> <message> # say sth.
505 562
506kgs-user-chat <user> <message> # send private msg to user 563kgs-user-chat <user> <message> # send private msg to user
564kgs-game-new-demo <rid> <size> # create new demo game (other agruments might get added)
565 # returns a temporary game id
566kgs-game-edit <gid> <coord> <editspec> <coord> <editspec>...
567 # editspec is one of
568 # b|w|n set black/white/no stone
569 # sb|sw|sn set/clear black/white/no small stone
570 # [+-]triangle set/clear triangle
571 # [+-]square set/clear square
572 # [+-]circle set/clear circle
573 # [+-]grayed set/clear grayed-flag
574 # label=xyz set label to xyz
507... 575...
508 576
509EOF 577EOF
510 exit shift; 578 exit shift;
511} 579}

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines