#!/usr/bin/perl
$|=1;
#$automatic=true;
  sub statistik{
    print "\n\n\n Ok, dann machen wir halt schluss!\n";
    print "Statistik: \n";
    print "\t Guthaben Ende:          \t\t $main::guthaben    \n";
    print "\t Gewonnen Insgesamt:     \t\t $main::gewonnen    \n";
    print "\t Niederlagen Insgesamt:  \t\t $main::niederlagen \n";
    print "\t Gewinne (€) insgesamt:  \t\t $main::gewinne     \n";
    print "\t Verluste (€) Insgesamt: \t\t $main::verluste    \n";
    exit 1;
  }
use vars qw/$einsatz $guthaben $gewonnen $niederlagen $gewinne $verluste/;
$einsatz=$guthaben=$gewonnen=$niederlagen=$gewinne=$verluste=0;
$SIG{INT}=\&statistik;
print "Wir werden ein schönes Spiel haben.\n Die Chance, dass du gewinnst ist 50%. Setze ein soviel du willst! \n Dein Startguthaben beträgt 50 €!\n\n";
$guthaben=50;
$einsatz = 1;
while ($einsatz != 0){
print "Dein Einsatz (<=$guthaben)-> ";
if($automatic){
  $einsatz = 1;
  #$einsatz = int($guthaben * 0.5);
  @printer = split //, $einsatz;
    select(undef,undef,undef, 1);
  for(0 .. $#printer){
    print $printer[$_];
    select(undef,undef,undef, 1);
  }
  print "\n";
} else{

chomp($einsatz = <STDIN>);
}
print "Dein Einsatz ist: $einsatz\n";
if($einsatz == ""){
  $einsatz=$guthaben;
}
if($einsatz == "-1"){
  statistik();
}
if($einsatz < 0){
  print "  Du bist ein elender Betrüger! \n  Was bitte soll den ein MINUS Einsatz sein? Bye, bye ....\n";
  statistik();
}
if($einsatz > $guthaben){
  print "  Du bist ein elender Betrüger! \n  Willst wohl Kredit nehmen, oder was? Bye, bye ....\n";
  statistik();
}
srand(time);
$number = rand;

if($number < 0.5){
  $gewonnen++;
  $gewinne += $einsatz;
  $guthaben += $einsatz;
  print "Du hast gewonnen. Dein Guthaben beträgt nun $guthaben!\n";
}
else{
  $niederlagen++;
  $verluste += $einsatz;
  $guthaben -= $einsatz;
  print "Du hast verloren! Dein Guthaben beträgt nun $guthaben!\n";
}
print "-----------------------------\n\n\n\n";
if($automatic == true && $gewonnen+$niederlagen >1000){
  statistik();
}

}