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.49 by pcg, Tue Jun 10 09:06:39 2003 UTC vs.
Revision 1.50 by pcg, Tue Jun 10 09:29:53 2003 UTC

… …
739} 739}
740 740
741sub event_part { 741sub event_part {
742 my ($self) = @_; 742 my ($self) = @_;
743 $self->SUPER::event_part; 743 $self->SUPER::event_part;
744 $self->destroy;
744} 745}
745 746
746sub event_move { 747sub event_move {
747 my ($self, $pass) = @_; 748 my ($self, $pass) = @_;
748 sound::play 1, $pass ? "pass" : "move"; 749 sound::play 1, $pass ? "pass" : "move";

Diff Legend

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