+sub win
+{
+ my $self=shift;
+ $self->shout('win');
+ $self->deactivate_current_player($self->{player_count}-$self->{active_player_count}+1);
+ if ($self->{active_player_count}==1)
+ {
+ $self->next_player();
+ $self->shout('lose');
+ $self->deactivate_current_player($self->{player_count}-$self->{active_player_count}+1);
+ }
+}
+
+sub lose
+{
+ my $self=shift;
+ $self->shout('lose');
+ $self->deactivate_current_player($self->{active_player_count});
+ if ($self->{active_player_count}==1)
+ {
+ $self->next_player();
+ $self->shout('win');
+ $self->deactivate_current_player($self->{active_player_count});
+ }
+}
+