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.53 by pcg, Thu Jun 12 21:26:40 2003 UTC vs.
Revision 1.56 by pcg, Thu Jun 12 23:24:53 2003 UTC

… …
748 748
749sub event_update_game { 749sub event_update_game {
750 my ($self) = @_; 750 my ($self) = @_;
751 $self->SUPER::event_update_game; 751 $self->SUPER::event_update_game;
752 752
753 my $title = $self->{channel} ? $self->owner->as_string." ".$self->opponent_string : "Game Window"; 753 my $title = $self->{channel} ? $self->owner->as_string . " " . $self->opponent_string : "Game Window";
754 $self->{window}->set_title("KGS Game $title"); 754 $self->{window}->set_title("KGS Game $title");
755 $self->{title}->set_text ($title);
755 756
756 $self->{user}[BLACK] = $self->{user1}; 757 $self->{user}[BLACK] = $self->{user1};
757 $self->{user}[WHITE] = $self->{user2}; 758 $self->{user}[WHITE] = $self->{user2};
758 759
759 # show board 760 # show board
… …
779 $ga[1] .= " saved" if $self->is_saved; 780 $ga[1] .= " saved" if $self->is_saved;
780 781
781 $ga[2] = "\nOwner: <user>" . (util::toxml $self->{user3}->as_string) . "</user>" if $self->{user3}->is_valid; 782 $ga[2] = "\nOwner: <user>" . (util::toxml $self->{user3}->as_string) . "</user>" if $self->{user3}->is_valid;
782 783
783 $ga[3] = "\nPlayers: <user>" . (util::toxml $self->{user2}->as_string) . "</user>" 784 $ga[3] = "\nPlayers: <user>" . (util::toxml $self->{user2}->as_string) . "</user>"
784 . " vs. <user>" . (util::toxml $self->{user1}->as_string) . "</user>"; 785 . " vs. <user>" . (util::toxml $self->{user1}->as_string) . "</user>"
786 if $self->is_valid;
785 787
786 if ($self->is_valid) { 788 if ($self->is_valid) {
787 $ga[4] = "\nHandicap: " . $self->{handicap}; 789 $ga[4] = "\nHandicap: " . $self->{handicap};
788 $ga[5] = "\nKomi: " . $self->{komi}; 790 $ga[5] = "\nKomi: " . $self->{komi};
789 $ga[6] = "\nSize: " . $self->size_string; 791 $ga[6] = "\nSize: " . $self->size_string;
… …
809sub event_update_rules { 811sub event_update_rules {
810 my ($self, $rules) = @_; 812 my ($self, $rules) = @_;
811 813
812 $self->{userpanel}[$_]->configure ($self->{user}[$_], $rules) 814 $self->{userpanel}[$_]->configure ($self->{user}[$_], $rules)
813 for BLACK, WHITE; 815 for BLACK, WHITE;
816
817 sound::play 3, "gamestart";
814 818
815 my $text = "\n<header>Game Rules</header>"; 819 my $text = "\n<header>Game Rules</header>";
816 820
817 $text .= "\nRuleset: " . $ruleset{$rules->{ruleset}}; 821 $text .= "\nRuleset: " . $ruleset{$rules->{ruleset}};
818 822
… …
835} 839}
836 840
837sub inject_resign_game { 841sub inject_resign_game {
838 my ($self, $msg) = @_; 842 my ($self, $msg) = @_;
839 843
844 sound::play 3, "resign";
845
840 $self->{text}->append_text ("\n<infoblock><header>Resign</header>" 846 $self->{text}->append_text ("\n<infoblock><header>Resign</header>"
841 . "\n<user>" 847 . "\n<user>"
842 . (util::toxml $self->{user}[$msg->{player}]->as_string) 848 . (util::toxml $self->{user}[$msg->{player}]->as_string)
843 . "</user> resigned.</infoblock>"); 849 . "</user> resigned.</infoblock>");
844} 850}

Diff Legend

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