Untitled

#!/usr/bin/perl
$bet = 1;
$budget = 100;


sub play() {
  for(my $x=0; $x<rand(1000); $x++) {
    $number = int(rand(37));
  }
  return $number;
}

print "\n\n\n";
print "+---------------+---------------+\n";
print "!      BET      !     Budget    !\n";
print "+---------------+---------------+";
$failed = 0;
while(1) {
  if($failed > 3) {
    $bet = 1;
    $failed = 0;
  }
  print "\n!\t$bet\t!\t$budget\t!";
  $budget = $budget - $bet;
  if($budget<0) {
    print "\n+---------------+---------------+\n";
    print "!            F A I L            !\n";
    print "+-------------------------------+\n";
    exit;
  }
  if(play()>24) {
    $budget = $budget + ($bet*3);
    $bet = 1;
    print "  Win";
    $failed = 0;
  }
  else {
    $bet = ($bet*2);
    print "  Loss";
    $failed++;
  }
  select(undef, undef, undef, 0.1); #some shit to do a 10ms sleep
}