#!/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