ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/kgsueme/game.pl
(Generate patch)

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.47 by pcg, Thu Jun 5 20:06:03 2003 UTC vs.
Revision 1.57 by pcg, Sat Jun 14 11:53:24 2003 UTC

… …
154 154
155 $self->{imagebox}->remove ($_) for $self->{imagebox}->get_children; 155 $self->{imagebox}->remove ($_) for $self->{imagebox}->get_children;
156 $self->{imagebox}->add (gtk::image_from_data undef); 156 $self->{imagebox}->add (gtk::image_from_data undef);
157 $self->{imagebox}->show_all; 157 $self->{imagebox}->show_all;
158 158
159 if ($user->has_pic) {
159 # the big picture... 160 # the big picture...
160 appwin::userpic ($user->{name}, sub { 161 appwin::userpic ($user->{name}, sub {
161 return unless $self->{imagebox}; 162 return unless $self->{imagebox};
162 if ($_[0]) { 163 if ($_[0]) {
163 $self->{imagebox}->remove ($_) for $self->{imagebox}->get_children; 164 $self->{imagebox}->remove ($_) for $self->{imagebox}->get_children;
164 $self->{imagebox}->add (gtk::image_from_data $_[0]); 165 $self->{imagebox}->add (gtk::image_from_data $_[0]);
165 $self->{imagebox}->show_all; 166 $self->{imagebox}->show_all;
167 }
166 } 168 });
167 }); 169 }
168 } 170 }
169 171
170 $self->{clock}->configure (@{$rules}{qw(timesys time interval count)}); 172 $self->{clock}->configure (@{$rules}{qw(timesys time interval count)});
171} 173}
172 174
… …
197 $self = $self->SUPER::new(@_); 199 $self = $self->SUPER::new(@_);
198 200
199 $self->listen($self->{conn}); 201 $self->listen($self->{conn});
200 202
201 $self->{window} = new Gtk2::Window 'toplevel'; 203 $self->{window} = new Gtk2::Window 'toplevel';
202 my $title = $self->{channel} ? $self->owner->as_string." ".$self->opponent_string : "Game Window";
203 $self->{window}->set_title("KGS Game $title");
204 gtk::state $self->{window}, "game::window", undef, window_size => [600, 500]; 204 gtk::state $self->{window}, "game::window", undef, window_size => [600, 500];
205 205
206 $self->{window}->signal_connect(delete_event => sub { 206 $self->{window}->signal_connect(delete_event => sub {
207 $self->part; 207 $self->part;
208 $self->destroy; 208 $self->destroy;
… …
283 283
284sub event_update_users { 284sub event_update_users {
285 my ($self, $add, $update, $remove) = @_; 285 my ($self, $add, $update, $remove) = @_;
286 286
287 $self->{userlist}->update ($add, $update, $remove); 287 $self->{userlist}->update ($add, $update, $remove);
288
289 my %important;
290 $important{$self->{user1}{name}}++;
291 $important{$self->{user2}{name}}++;
292 $important{$self->{user3}{name}}++;
293
294 if (my @users = grep $important{$_->{name}}, @$add) {
295 $self->{text}->append_text ("\n<header>Joins:</header>");
296 $self->{text}->append_text (" <user>" . $_->as_string . "</user>") for @users;
297 }
298 if (my @users = grep $important{$_->{name}}, @$remove) {
299 $self->{text}->append_text ("\n<header>Parts:</header>");
300 $self->{text}->append_text (" <user>" . $_->as_string . "</user>") for @users;
301 }
302
288} 303}
289 304
290sub join { 305sub join {
291 my ($self) = @_; 306 my ($self) = @_;
292 return if $self->{joined}; 307 return if $self->{joined};
… …
649 return unless $self->{path}; 664 return unless $self->{path};
650 665
651 #$self->{update_board_cb} ||= add Glib::Idle sub { 666 #$self->{update_board_cb} ||= add Glib::Idle sub {
652 my $move = int $self->{moveadj}->get_value; 667 my $move = int $self->{moveadj}->get_value;
653 668
654 warn "update_board called $move\n";#d#
655
656 my $running = $move == @{$self->{path}}; 669 my $running = $move == @{$self->{path}};
657 670
658 $self->{board_label}->set_text ("Move " . ($move - 1)); 671 $self->{board_label}->set_text ("Move " . ($move - 1));
659 672
660 $self->{board} = new KGS::Game::Board $self->{size}; 673 $self->{board} = new KGS::Game::Board $self->{size};
… …
681 $self->{path} = $self->get_path; 694 $self->{path} = $self->get_path;
682 695
683 if ($self->{moveadj}) { 696 if ($self->{moveadj}) {
684 my $upper = $self->{moveadj}->upper; 697 my $upper = $self->{moveadj}->upper;
685 my $pos = $self->{moveadj}->get_value; 698 my $pos = $self->{moveadj}->get_value;
699 my $move = scalar @{$self->{path}};
686 700
687 $self->{moveadj}->upper (scalar @{$self->{path}}); 701 $self->{moveadj}->upper ($move);
688 702
689 warn "UPDATE_TREE $pos,$upper";#d#
690 $self->{moveadj}->changed; 703 $self->{moveadj}->changed;
691 if ($pos == $upper) { 704 if ($pos == $upper) {
692 $self->{moveadj}->set_value (scalar @{$self->{path}}); 705 $self->{moveadj}->value ($move);
693 } else { 706 $self->{moveadj}->value_changed;
694 $self->update_board;
695 } 707 }
696 } 708 }
697} 709}
698 710
699sub event_update_comments { 711sub event_update_comments {
… …
739} 751}
740 752
741sub event_part { 753sub event_part {
742 my ($self) = @_; 754 my ($self) = @_;
743 $self->SUPER::event_part; 755 $self->SUPER::event_part;
756 $self->destroy;
744} 757}
745 758
746sub event_move { 759sub event_move {
747 my ($self, $pass) = @_; 760 my ($self, $pass) = @_;
748 sound::play 1, $pass ? "pass" : "move"; 761 sound::play 1, $pass ? "pass" : "move";
… …
750 763
751sub event_update_game { 764sub event_update_game {
752 my ($self) = @_; 765 my ($self) = @_;
753 $self->SUPER::event_update_game; 766 $self->SUPER::event_update_game;
754 767
768 my $title = $self->{channel} ? $self->owner->as_string . " " . $self->opponent_string : "Game Window";
769 $self->{window}->set_title("KGS Game $title");
770 $self->{title}->set_text ($title);
771
755 $self->{user}[BLACK] = $self->{user1}; 772 $self->{user}[BLACK] = $self->{user1};
756 $self->{user}[WHITE] = $self->{user2}; 773 $self->{user}[WHITE] = $self->{user2};
757 774
758 # show board 775 # show board
759 776
760 $self->{left}->remove ($_) for $self->{left}->get_children; 777 $self->{left}->remove ($_) for $self->{left}->get_children;
761 if ($self->is_valid) { 778 if ($self->is_valid) {
762 $self->{left}->add ($self->{boardbox}); 779 $self->{left}->add ($self->{boardbox});
763 (delete $self->{challenge})->destroy if $self->{challenge}; 780 (delete $self->{challenge})->destroy if $self->{challenge};
764 } else { 781 } else {
… …
766 } 783 }
767 $self->{left}->show_all; 784 $self->{left}->show_all;
768 785
769 # view text 786 # view text
770 787
771 $text = "\n<header>Game Update</header>"; 788 my @ga;
772
773 $text .= "\nType: " . (util::toxml $gametype{$self->type}) 789 $ga[0] = "\nType: " . (util::toxml $gametype{$self->type})
774 . " (" . (util::toxml $gameopt{$self->option}) . ")"; 790 . " (" . (util::toxml $gameopt{$self->option}) . ")";
775 $text .= "\nFlags:"; 791 $ga[1] = "\nFlags:";
776 $text .= " valid" if $self->is_valid; 792 $ga[1] .= " valid" if $self->is_valid;
777 $text .= " adjourned" if $self->is_adjourned; 793 $ga[1] .= " adjourned" if $self->is_adjourned;
778 $text .= " scored" if $self->is_scored; 794 $ga[1] .= " scored" if $self->is_scored;
779 $text .= " saved" if $self->is_saved; 795 $ga[1] .= " saved" if $self->is_saved;
780 796
781 $text .= "\nWhite: <user>" . (util::toxml $self->{user2}->as_string) . "</user>";
782 $text .= "\nBlack: <user>" . (util::toxml $self->{user1}->as_string) . "</user>";
783 $text .= "\nOwner: <user>" . (util::toxml $self->{user3}->as_string) . "</user>" if $self->{user3}->is_valid; 797 $ga[2] = "\nOwner: <user>" . (util::toxml $self->{user3}->as_string) . "</user>" if $self->{user3}->is_valid;
798
799 $ga[3] = "\nPlayers: <user>" . (util::toxml $self->{user2}->as_string) . "</user>"
800 . " vs. <user>" . (util::toxml $self->{user1}->as_string) . "</user>"
801 if $self->is_valid;
784 802
785 if ($self->is_valid) { 803 if ($self->is_valid) {
786 $text .= "\nHandicap: " . $self->{handicap}; 804 $ga[4] = "\nHandicap: " . $self->{handicap};
787 $text .= "\nKomi: " . $self->{komi}; 805 $ga[5] = "\nKomi: " . $self->{komi};
788 $text .= "\nSize: " . $self->size_string; 806 $ga[6] = "\nSize: " . $self->size_string;
807 }
808
809 if ($self->is_scored) {
810 $ga[7] = "\nResult: " . $self->score_string;
811 }
812
813 $text = "\n<infoblock><header>Game Update</header>";
814 for (0..7) {
815 if ($self->{gatext}[$_] ne $ga[$_]) {
816 $text .= $ga[$_];
817 }
818 }
819 $text .= "</infoblock>";
820
821 $self->{gatext} = \@ga;
789 } 822
790
791 $self->{text}->append_text ("<infoblock>$text</infoblock>"); 823 $self->{text}->append_text ($text);
792} 824}
793 825
794sub event_update_rules { 826sub event_update_rules {
795 my ($self, $rules) = @_; 827 my ($self, $rules) = @_;
796 828
797 $self->{userpanel}[$_]->configure ($self->{user}[$_], $rules) 829 $self->{userpanel}[$_]->configure ($self->{user}[$_], $rules)
798 for BLACK, WHITE; 830 for BLACK, WHITE;
831
832 sound::play 3, "gamestart";
799 833
800 my $text = "\n<header>Game Rules</header>"; 834 my $text = "\n<header>Game Rules</header>";
801 835
802 $text .= "\nRuleset: " . $ruleset{$rules->{ruleset}}; 836 $text .= "\nRuleset: " . $ruleset{$rules->{ruleset}};
803 837
… …
820} 854}
821 855
822sub inject_resign_game { 856sub inject_resign_game {
823 my ($self, $msg) = @_; 857 my ($self, $msg) = @_;
824 858
859 sound::play 3, "resign";
860
825 $self->{text}->append_text ("\n<infoblock><header>Resign</header>" 861 $self->{text}->append_text ("\n<infoblock><header>Resign</header>"
826 . "\n<user>" 862 . "\n<user>"
827 . (util::toxml $self->{user}[$msg->{player}]->as_string) 863 . (util::toxml $self->{user}[$msg->{player}]->as_string)
828 . "</user> resigned.</infoblock>"); 864 . "</user> resigned.</infoblock>");
829} 865}

Diff Legend

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