| … | |
… | |
| 628 | sub update_board { |
628 | sub update_board { |
| 629 | my ($self) = @_; |
629 | my ($self) = @_; |
| 630 | |
630 | |
| 631 | return unless $self->{path}; |
631 | return unless $self->{path}; |
| 632 | |
632 | |
|
|
633 | $self->{board_label}->set_text ("Move " . ($self->{showmove} - 1)); |
|
|
634 | |
|
|
635 | $self->{cur_board} = new KGS::Game::Board $self->{size}; |
|
|
636 | $self->{cur_board}->interpret_path ([@{$self->{path}}[0 .. $self->{showmove} - 1]]); |
|
|
637 | |
| 633 | if ($self->{rules}{ruleset} == RULESET_JAPANESE) { |
638 | if ($self->{rules}{ruleset} == RULESET_JAPANESE) { |
| 634 | if ($self->{curnode}{move} == 0) { |
639 | if ($self->{curnode}{move} == 0) { |
| 635 | $self->{whosemove} = $self->{handicap} ? COLOUR_WHITE : COLOUR_BLACK; |
640 | $self->{whosemove} = $self->{handicap} ? COLOUR_WHITE : COLOUR_BLACK; |
| 636 | } else { |
641 | } else { |
| 637 | $self->{whosemove} = 1 - $self->{cur_board}{last}; |
642 | $self->{whosemove} = 1 - $self->{cur_board}{last}; |
| … | |
… | |
| 644 | $self->{whosemove} = $self->{handicap} ? COLOUR_WHITE : COLOUR_BLACK; |
649 | $self->{whosemove} = $self->{handicap} ? COLOUR_WHITE : COLOUR_BLACK; |
| 645 | } else { |
650 | } else { |
| 646 | $self->{whosemove} = 1 - $self->{cur_board}{last}; |
651 | $self->{whosemove} = 1 - $self->{cur_board}{last}; |
| 647 | } |
652 | } |
| 648 | } |
653 | } |
| 649 | |
|
|
| 650 | $self->{board_label}->set_text ("Move " . ($self->{showmove} - 1)); |
|
|
| 651 | |
|
|
| 652 | $self->{cur_board} = new KGS::Game::Board $self->{size}; |
|
|
| 653 | $self->{cur_board}->interpret_path ([@{$self->{path}}[0 .. $self->{showmove} - 1]]); |
|
|
| 654 | |
654 | |
| 655 | $self->update_cursor; |
655 | $self->update_cursor; |
| 656 | |
656 | |
| 657 | $self->{userpanel}[$_]->set_captures ($self->{cur_board}{captures}[$_]) |
657 | $self->{userpanel}[$_]->set_captures ($self->{cur_board}{captures}[$_]) |
| 658 | for COLOUR_WHITE, COLOUR_BLACK; |
658 | for COLOUR_WHITE, COLOUR_BLACK; |
