X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=dart%2FDart.pm;h=ebb36bb1831a904d6b1818a05c89f67b5ff72fe5;hb=fbcacc8fc81bfa35bffd28ab03d300582de30ac4;hp=634f149071e0be985e424428d77c3008cff0b940;hpb=75a44243194cb0c7ec800e4870c1c8a60a5cdc76;p=svn42.git diff --git a/dart/Dart.pm b/dart/Dart.pm index 634f149..ebb36bb 100644 --- a/dart/Dart.pm +++ b/dart/Dart.pm @@ -90,6 +90,8 @@ sub run $self->callback('undo'); } elsif ($mult eq 'reset') { $self->reset_game(); + } elsif ($mult eq 'quit') { + return; } push @history, Clone::clone($self); $self->callback('before_shoot'); @@ -186,6 +188,12 @@ sub get_next_active_player return ($current_player,$new_round); } +sub finish_player_round +{ + my $self=shift; + $self->{current_shoot_count} = $self->{max_shoots_per_player}; +} + sub next_round { my $self=shift;