From 3311c2a78c87d6428b8aeca2b14e8d86f49505fd Mon Sep 17 00:00:00 2001 From: realraum Date: Sun, 3 Jul 2011 21:12:44 +0000 Subject: [PATCH] maybee working version of framework maybeeeee --- dart/Dart.pm | 10 ++++++---- dart/dart-cricket.pl | 8 ++++---- 2 files changed, 10 insertions(+), 8 deletions(-) diff --git a/dart/Dart.pm b/dart/Dart.pm index bf501cb..b355395 100644 --- a/dart/Dart.pm +++ b/dart/Dart.pm @@ -12,7 +12,7 @@ sub new my (%params) =@_; my $self = bless {}, $class; die "Missing player_names" if not ref $params{player_names} eq 'ARRAY'; - die "Missing player_names" if @{$params{player_names}}; + die "Missing player_names" if not @{$params{player_names}}; $self->{player}=[]; $self->{current_player}=0; my $player_counter=0; @@ -56,7 +56,8 @@ sub run # $sound_out_fh ||= STDOUT; $self->{sound_out_fh}=$sound_out_fh; - while ( my $shoot_data = <$data_in_fh>) + #while ( my $shoot_data = <$data_in_fh>) + while ( my $shoot_data = ) { #print STDERR $schuss; my ($mult,$number) = split /\s+/, $shoot_data; @@ -102,7 +103,8 @@ sub shout my $self=shift; my ($what)=@_; my $fh = $self->{sound_out_fh}; - print $fh "$what\n"; + print "$what\n"; + #print $fh "$what\n"; } sub get_current_player @@ -115,7 +117,7 @@ sub get_player { my $self=shift; my ($player_idx)=@_; - die if $player_idx < 0 or $player_idx >= $self->{player_count}; + die "Illegal Player Index $player_idx" if $player_idx < 0 or $player_idx >= $self->{player_count}; return $self->{player}[$player_idx]; } diff --git a/dart/dart-cricket.pl b/dart/dart-cricket.pl index b026b04..de18e0e 100755 --- a/dart/dart-cricket.pl +++ b/dart/dart-cricket.pl @@ -1,7 +1,8 @@ #!/usr/bin/perl -# use strict; +use strict; use Dart; +our $sieb =1; # Spielmodus Zahlensieb $|=1; @@ -13,11 +14,10 @@ my $dart = new Dart(player_names=>\@player, next_player=>\&next_player, } ); -exit $dart->run(STDIN,STDOUT); +exit $dart->run(); ### =============================== -my $sieb =1; # Spielmodus Zahlensieb sub gueltig { my ($zahl,$mult) = @_; @@ -44,7 +44,7 @@ sub shoot { $score->{$zahl}++; $self_scored++; - if ($sieb && ($score->{$zahl} == 3)) + if ($main::sieb && ($score->{$zahl} == 3)) { for my $count (2..21) { -- 1.7.10.4