#!/usr/bin/perl -w
#copyright [email protected] , License http://www.gnu.org/licenses/gpl.html

$incr = 2.5;
$win = 0;

$num_wins = 0;
$num_losses = 0;

$bet_start = 0.03;
$bet1=$bet_start;
$bet1_cum=0;
$bet1_profit=0;
$bet1_win=0;
$bet1_cum_win=0;
$bet1_reset=0;

$pot=3000; # amount of cash we have to play with

$table_max=100;
$hitmax=0; # should we goto table max before reseting if next bet would be greater than table max

# reset bets if we have won N amount recently.
# the idea is it stops the odds getting out of control and simulates seprate games if you played to N amount each time

$profit = 0;

$count=20000;
$c=0;

$b1="";

$lose_multiplier = 0.004089;
$win_multiplier = 1.984;

$win_factor = 3;

$r=rand;
$outfile = "/tmp/gamblingsim.$r.html";
$log_outfile = "/tmp/gamblingsim.$r.log";

open(FILE, ">$outfile") or die "couldnt open html file $!\n";
open(FILE_LOG, ">$log_outfile") or die "couldnt open log file $!\n";

$headercount=0;
$header =
"

#
rand
Bet
win
cum
cum win
Profit

";

print FILE
"

Max rounds to play:		$count
Pot:				\$$pot
table_max			\$$table_max

Win Factor			Potx$win_factor

bet increment multiplier	$incr

Hit table max bet ?:		$hitmax

$header
";

for($c=0;$c<$count;$c++)
{
$bet1_win = 0;
$bet1_cum += $bet1;

$rand = int(rand(2)); # 0 = win, 1 = lose

# bet wins
$bet1_win = 0;
if($rand == 0)
{
$bet1_win = $bet1 * $win_multiplier;
                $num_wins++;
}
else
{
$bet1_win = $bet1 * $lose_multiplier;
                $num_losses++;
}
$bet1_cum_win += $bet1_win;

# calculate profits etc

$bet1_profit = $bet1_cum_win - $bet1_cum;
$profit = $bet1_profit;

# ========================
# End Game Checks

if($profit < (0-$pot)) # check to see if we are out of money
{
$lose = 1;
last;
}

# stop if hit target profit
if($profit > ($pot * $win_factor))
{
$win=1;
last;
}

# html stuff
# set html table colours

$headercount++;
if($headercount>10)
{
print FILE $header;
$headercount=0;
}

if($rand == 0)
{
$r_col = "green";
}
elsif($rand == 1)
{
$r_col = "red";
}

# bold profit when we are at a posiive balance
if($profit > 0)
{
$b1 = "";
$b2 = "";
}
else
{
$b1 = $b2 = "";
}

# output results to csv file
print FILE_LOG "$c,$bet1,$bet1_profit\n";

# output results to html file
print FILE
"










";

#####################################################
# SET BETS FOR NEXT ROUND

# increment bet amounts if didnt win last bet.
$bet1*= $incr;

if($rand == 0)
{
$bet1 = $bet_start;
}

# TABLE MAX, reset bets

if($bet1_reset == 1)
{
$bet1=$bet_start;
$bet1_reset=0;
}

if($bet1>$table_max)
{
if($hitmax)
{
$bet1=$table_max;
$bet1_reset =1;
}
else
{
$bet1=$bet_start;
}
}
}

if($lose)
{
print FILE "


";
}

if($win)
{
print FILE "


";
}
print FILE "

$b1$c$b2

$b1$rand$b2

$b1$bet1$b2

$b1$bet1_win$b2

$b1$bet1_cum$b2

$b1$bet1_cum_win$b2

$b1$bet1_profit$b2

LOSE

WIN FACTOR $win_factor ACHIVED

---

# of wins: $num_wins
# of losses: $num_losses";
close(FILE);
close(FILE_LOG);

#system("/home/mem/apps/gambling/chartit.pl $log_outfile");
#system("firefox $outfile && firefox $log_outfile.png");
system("firefox $outfile");

sleep(1);

exit 0;

$lose_multiplier = 0; #  0EV

$incr =  2.2; # always > 2
$bet_start = 0.5; # 0.5% of bankroll.
$pot=100;
$table_max=2.42; # 3rd and last consecutive bet.
$hitmax=1; # resets after 3rd consecutive loss.
$win_multiplier = $incr; # no house's edge / vig / juice.

$r=rand;
$rand = int(rand(2)); # 0 = win, 1 = lose