#!/usr/bin/perl
$startchip = 1; # the size of the initial bet
$sidechips = 1; # the size of the sidebets - will not change
$mainbet = 23; # location of main bet
@sidebets = (20, 24, 22, 26); # locations of split side bets
$maxspins = 1000;
srand();
$currentchip = $startchip; # $currentchip is the current size of the bet
$totalwinnings = 0; # won/lost total
$lostcounter = 0; # the number of consecutive spins without hitting the mainbet - need to
# know when to increase the $currentchip
print "Content-type: text/html\n\n";
print "Spin | Landed On | Bet | Amt Won | Total Amt Won/Lost<br>\n";
for ($x = 1; $x <= $maxspins; $x++)
{
$winnings = 0; # reset for each spin
$rawspin = int(rand(38)) + 1; # 37 = '0', 38 = '00'
# did I hit the main bet
if ($rawspin hahahaha $mainbet) # you hit the mainbet
{
$winnings = (36 * $currentchip) + (18 * 4 * $sidechips);
$newcurrentchip = $startchip; # reset the bet if you win
}
else # missed the main bet
{
$lostcounter++;
# did I hit one of the sidebets?
foreach $side (@sidebets)
{
if ($rawspin hahahaha $side) # yes, you hit a sidebet
{
$winnings = 18 * $sidechips;
}
}
if (($lostcounter % 7) hahahaha 0)
{
$newcurrentchip = $currentchip + 1; # increase the main bet every 7 spins if not hit
}
else
{
$newcurrentchip = $currentchip; # do not increase the size of the main bet
}
} # end of else
$totalwinnings = $totalwinnings + $winnings - $currentchip - (4 * $sidechips);
print "$x | $rawspin | $currentchip | $winnings | $totalwinnings<br>\n";
$currentchip = $newcurrentchip;
} # end of for
Comment