KGS

 view release on metacpan or  search on metacpan

kgsueme/game.pl  view on Meta::CPAN

543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
      $self->{userpanel}[$_]->configure ($self->{app}, $self->{user}[$_], $rules)
         for COLOUR_BLACK, COLOUR_WHITE;
   }
 
   sound::play 3, "gamestart";
   $self->{rules_inlay}->refresh;
}
 
### BOARD DISPLAY ###########################################################
 
sub update_timers {
   my ($self, $timers) = @_;
 
   my $running = $self->{showmove} == @{$self->{path}} && !$self->{teacher};
 
   for my $colour (COLOUR_BLACK, COLOUR_WHITE) {
      my $t = $timers->[$colour];
      $self->{userpanel}[$colour]->set_timer (
            $running && $colour == $self->{whosemove} && $t->[0],
            $t->[1] || $self->{rules}{time}
                       + ($self->{rules}{timesys} == TIMESYS_BYO_YOMI

kgsueme/game.pl  view on Meta::CPAN

571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
 
   $self->{timers} = [
      [$msg->{NOW}, $msg->{black_time}, $msg->{black_moves}],
      [$msg->{NOW}, $msg->{white_time}, $msg->{white_moves}],
   ];
 
   $self->update_timers ($self->{timers})
      if $self->{showmove} == @{$self->{path}};
}
 
sub update_cursor {
   my ($self) = @_;
 
   return unless $self->{cur_board};
 
   if ($self->{rules}{ruleset} == RULESET_JAPANESE) {
      if ($self->{curnode}{move} == 0) {
         $self->{whosemove} = $self->{handicap} ? COLOUR_WHITE : COLOUR_BLACK;
      } else {
         $self->{whosemove} = 1 - $self->{cur_board}{last};
      }

kgsueme/game.pl  view on Meta::CPAN

667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
      }
   } else {
      $self->{button_undo}->hide;
      $self->{button_resign}->hide;
      $self->{button_pass}->hide;
      $self->{board}->set (cursor => undef);
      #TODO# # implement coordinate-grabbing
   }
}
 
sub update_board {
   my ($self) = @_;
 
   return unless $self->{path};
 
   $self->{board_label}->set_text ("Move " . ($self->{showmove} - 1));
 
   $self->{cur_board} = new KGS::Game::Board $self->{size};
   $self->{cur_board}->interpret_path ([@{$self->{path}}[0 .. $self->{showmove} - 1]]);
 
   $self->{userpanel}[$_]->set_captures ($self->{cur_board}{captures}[$_])

kgsueme/gamelist.pl  view on Meta::CPAN

127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
   $self->{view2}->signal_connect(row_activated => sub {
      my ($widget, $path, $column) = @_;
      my $game = $self->{model2}->get ($self->{model2}->get_iter ($path), 0);
      $self->{app}->open_game (%$game) unless $game->is_private;
      1;
   });
 
   $self;
}
 
sub update {
   my ($self, $room, $add, $update, $remove) = @_;
 
   $self->{games}{$room->{name}} = $room->{games};
 
   my $m1 = $self->{model1};
   my $m2 = $self->{model2};
 
   for (@$remove) {
      (delete $_->{model})->remove (delete $_->{iter}) if $_->{model};
   }

kgsueme/userlist.pl  view on Meta::CPAN

37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
      my ($widget, $path, $column) = @_;
      my $user = $self->{users}{$self->{model}->get ($self->{model}->get_iter ($path), 0)}
         or return 1;
      warn "selected user $user\n";
      1;
   });
 
   $self;
}
 
sub update {
   my ($self, $add, $update, $remove) = @_;
 
   my $l = $self->{model};
 
   for (@$remove) {
      $l->remove (delete $_->{iter}) if $_->{iter};
   }
 
   for (@$add, @$update) {
      $l->set ($_->{iter} ||= $l->append,

lib/KGS/Game/Tree.pm  view on Meta::CPAN

18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
);
 
sub init_tree {
   my ($self) = @_;
   $self->{tree} = [ {
      id   => 0,
      move => -1,
   } ];
}
 
sub update_tree {
   my ($self, $tree) = @_;
 
   my $node = $self->{curnode};
 
   my $up_tree;
   my $up_move;
 
   #Carp::cluck KGS::Listener::Debug::dumpval $tree;#d#
 
   #warn "update_tree = ".KGS::Listener::Debug::dumpval $tree;#d#