| … | |
… | |
| 650 | } else { |
650 | } else { |
| 651 | $self->{whosemove} = 1 - $self->{cur_board}{last}; |
651 | $self->{whosemove} = 1 - $self->{cur_board}{last}; |
| 652 | } |
652 | } |
| 653 | } |
653 | } |
| 654 | |
654 | |
| 655 | $self->update_cursor; |
|
|
| 656 | |
|
|
| 657 | $self->{userpanel}[$_]->set_captures ($self->{cur_board}{captures}[$_]) |
655 | $self->{userpanel}[$_]->set_captures ($self->{cur_board}{captures}[$_]) |
| 658 | for COLOUR_WHITE, COLOUR_BLACK; |
656 | for COLOUR_WHITE, COLOUR_BLACK; |
| 659 | |
657 | |
| 660 | my $start_time = $self->{rules}{time}; |
658 | my $start_time = $self->{rules}{time}; |
| 661 | |
659 | |
| … | |
… | |
| 683 | . "Black: $self->{cur_board}{score}[COLOUR_BLACK]" |
681 | . "Black: $self->{cur_board}{score}[COLOUR_BLACK]" |
| 684 | . "</score>"); |
682 | . "</score>"); |
| 685 | } elsif ($self->{score_inlay}) { |
683 | } elsif ($self->{score_inlay}) { |
| 686 | (delete $self->{score_inlay})->clear; |
684 | (delete $self->{score_inlay})->clear; |
| 687 | } |
685 | } |
|
|
686 | |
|
|
687 | $self->update_cursor; |
|
|
688 | |
| 688 | } |
689 | } |
| 689 | |
690 | |
| 690 | sub event_update_tree { |
691 | sub event_update_tree { |
| 691 | my ($self) = @_; |
692 | my ($self) = @_; |
| 692 | |
693 | |
