projects
/
svn42.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
maybee working version of framework maybeeeee
[svn42.git]
/
dart
/
dart-cricket.pl
diff --git
a/dart/dart-cricket.pl
b/dart/dart-cricket.pl
index
b026b04
..
de18e0e
100755
(executable)
--- a/
dart/dart-cricket.pl
+++ b/
dart/dart-cricket.pl
@@
-1,7
+1,8
@@
#!/usr/bin/perl
#!/usr/bin/perl
-# use strict;
+use strict;
use Dart;
use Dart;
+our $sieb =1; # Spielmodus Zahlensieb
$|=1;
$|=1;
@@
-13,11
+14,10
@@
my $dart = new Dart(player_names=>\@player,
next_player=>\&next_player,
}
);
next_player=>\&next_player,
}
);
-exit $dart->run(STDIN,STDOUT);
+exit $dart->run();
### ===============================
### ===============================
-my $sieb =1; # Spielmodus Zahlensieb
sub gueltig
{
my ($zahl,$mult) = @_;
sub gueltig
{
my ($zahl,$mult) = @_;
@@
-44,7
+44,7
@@
sub shoot
{
$score->{$zahl}++;
$self_scored++;
{
$score->{$zahl}++;
$self_scored++;
- if ($sieb && ($score->{$zahl} == 3))
+ if ($main::sieb && ($score->{$zahl} == 3))
{
for my $count (2..21)
{
{
for my $count (2..21)
{