Write-Host "Satoshidice"

$min_bet = 0.01
$max_bet = 0.1
$address = "1dice8EMZmqKvrGE4Qc9bUFf9PX3xaYDp" 


$bet = $min_bet
$total_fees = 0
$count = 0 
$count_won = 0


$starting_balance = ./bitcoind getbalance

while ($bet -le $max_bet -AND $count_won -le 100) { 

	$count ++ 
	$balance_a = ./bitcoind getbalance

	$tx = ./bitcoind sendtoaddress "$address" $bet
	
	$balance_b = ./bitcoind getbalance
	
	$fee = $balance_a - $balance_b - $bet
	$total_fees += $fee
	
	Write-Host "Game: $count"
	Write-Host "Balance: $balance_a"
	Write-Host "Bet: $bet"
	Write-Host "Fee: $fee"
	Write-Host "Total Fees: $total_fees"
	Write-Host –NoNewLine "Balance: $balance_b Waiting "
	
	$balance_c = 0
	$last_c = 0
	
	while ($balance_b -ge $balance_c)
	{
		$balance_c = ./bitcoind getbalance		
		
		if(  ($balance_c -eq $last_c) -OR ($last_c -eq 0) )
		{
			Write-Host –NoNewLine "."
		}else
		{
			Write-Host "Balance: $balance_c"
		}
		
		$last_c = $balance_c
		
	}

	$diff = $balance_c - $balance_b
	
	if ($diff -gt $bet)
	{
		$bet = $min_bet
		$count_won = $count_won + 1
		Write-Host "Win! ($count_won out of $count)"
	}else
	{
		$bet = $bet * 2
		Write-Host "Lose!"
	}
	
	Write-Host ""
}