//
// Purpose: A simple blackjack program which can either Play
// a regular game, simulate many games or practice
// certain situations. I wrote this becase one,
// I would like to be able to practice certain
// situations (such as splits or Soft hands),
// without having to go through many hands to do so.
// Two, I wanted to verify that you could actually
// beat the game if counting cards.
// The simulation came out a little better than
// expected, I believe because the random number
// generator needs some work. I wrote my own using
// an algorithm from an old textbook which did not
// help much. I have also tried the
// Math::Math-TrulyRandom-1.0 without much luck.
// The Math-TrulyRandom-1.0 just hangs on my PC.
//
// I am basically just a good Pascal/C Programmer, so
// my code while not elegant should be fairly simple.
// Blackjack is a pretty simple game anyway.
//
// Copyright: sterlperl.com Steling Levell 2002.
//
// Author: Sterling Levell
function main() {
var $decks = 6;
var $suits = 4;
var $types = 13;
var $players = 1;
var $practice = 1;
var $simulate = 0;
var $bet_spread = 10;
var $shuffle_point = 5/6;
var $vary_strategy = 0;
var $shuffle_at = 5;
var $randomness = 1;
//
// graphic variables
//
var $graphic = 1;
var $cards_dir = "";
var $html_dir = "/var/www/html";
var $perl_dir = "http://sterl.com/perl";
var $unit = 1; // betting unit
var $hit_soft_17 = 0;
var $splits_allowed = 3;
// Decision Tables
// Variable Tables from Canfield's excellent "Black Jack your way to Riches"
// Buy the book if you can still find it, hard to find out of print now.
// I hope he will reissue
// 0 A 2 3 4 5 6 7 8 9 T J Q K
var $hard_totals =
[
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 0n/a
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 1n/a
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 2n/a
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 3n/a
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 4
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 5
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 6
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 7
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 8
[0,"H","H","D","D","D","D","H","H","H","H","H","H","H"], // 9
[0,"H","D","D","D","D","D","D","D","D","H","H","H","H"], // 10
[0,"H","D","D","D","D","D","D","D","D","D","D","D","D"], // 11
[0,"H","H","H","S","S","S","H","H","H","H","H","H","H"], // 12
[0,"H","S","S","S","S","S","H","H","H","H","H","H","H"], // 13
[0,"H","S","S","S","S","S","H","H","H","H","H","H","H"], // 14
[0,"H","S","S","S","S","S","H","H","H","H","H","H","H"], // 15
[0,"H","S","S","S","S","S","H","H","H","H","H","H","H"], // 16
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 17
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 18
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 19
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 20
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"] // 21
];
// 0 A 2 3 4 5 6 7 8 9 T J Q K
var $hard_totals2 =
[
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 0n/a
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 1n/a
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 2n/a
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 3n/a
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 4
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 5
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 6
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 7
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 8
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 9
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 10
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 11
[0,"H","H","H","S","S","S","H","H","H","H","H","H","H"], // 12
[0,"H","S","S","S","S","S","H","H","H","H","H","H","H"], // 13
[0,"H","S","S","S","S","S","H","H","H","H","H","H","H"], // 14
[0,"H","S","S","S","S","S","H","H","H","H","H","H","H"], // 15
[0,"H","S","S","S","S","S","H","H","H","H","H","H","H"], // 16
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 17
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 18
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 19
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 20
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"] // 21
];
// 0 A 2 3 4 5 6 7 8 9 T J Q K
var $hard_vary =
[
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 0n/a
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 1n/a
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 2n/a
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 3n/a
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 4
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 5
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 6
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 7
[0,"H","H","H", -6, -4, -3,"H","H","H","H","H","H","H"], // 8
[0,"H", -1, 0, 2, 5, 5, -4,"H","H","H","H","H","H"], // 9
[0, -5,"D","D","D","D","D","D", 5, 2, -6, -6, -6, -6], // 10
[0, -1,"D","D","D","D","D","D", 6, 5, 3, 3, 3, 3], // 11
[0,"H", -2, -1, 0, 2, 1,"H","H","H","H","H","H","H"], // 12
[0,"H", 1, 2, 3, 5, 5,"H","H","H","H","H","H","H"], // 13
[0,"H", 4, 5, 6,"S","S","H","H","H","H","H","H","H"], // 14
[0,"H", 6,"S","S","S","S","H","H","H", -4, -4, -4, -4], // 15
[0,"H","S","S","S","S","S","H","H", -5, 0, 0, 0, 0], // 16
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 17
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 18
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 19
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 20
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"] // 21
];
// 0 A 2 3 4 5 6 7 8 9 T J Q K
var $hard_vary2 =
[
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 0n/a
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 1n/a
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 2n/a
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 3n/a
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 4
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 5
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 6
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 7
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 8
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 9
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 10
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // 11
[0,"H", -2, -1, 0, 2, 1,"H","H","H","H","H","H","H"], // 12
[0,"H", 1, 2, 3, 5, 5,"H","H","H","H","H","H","H"], // 13
[0,"H", 4, 5, 6,"S","S","H","H","H","H","H","H","H"], // 14
[0,"H", 6,"S","S","S","S","H","H","H", -4, -4, -4, -4], // 15
[0,"H","S","S","S","S","S","H","H", -5, 0, 0, 0, 0], // 16
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 17
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 18
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 19
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // 20
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"] // 21
];
// 0 A 2 3 4 5 6 7 8 9 T J Q K
var $soft_totals = [
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 0
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 0
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // A-A
[0,"H","H","H","H","D","D","H","H","H","H","H","H","H"], // A-2
[0,"H","H","H","H","D","D","H","H","H","H","H","H","H"], // A-3
[0,"H","H","H","D","D","D","H","H","H","H","H","H","H"], // A-4
[0,"H","H","H","D","D","D","H","H","H","H","H","H","H"], // A-5
[0,"H","H","D","D","D","D","H","H","H","H","H","H","H"], // A-6
[0,"H","S","D","D","D","D","S","S","H","H","H","H","H"], // A-7
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // A-8
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // A-9
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // A-10
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // A-J
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // A-Q
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"] // A-K
];
// 0 A 2 3 4 5 6 7 8 9 T J Q K
var $soft_totals2 = [
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 0
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 0
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // A-A
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // A-2
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // A-3
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // A-4
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // A-5
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // A-6
[0,"H","S","S","S","S","S","S","S","H","H","H","H","H"], // A-7
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // A-8
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // A-9
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // A-10 [0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // A-J
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // A-Q
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"] // A-K
];
// 0 A 2 3 4 5 6 7 8 9 T J Q K
var $soft_vary = [
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 0
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 0
[0,"H","H","H","H","H","H","H","H","H","H","H","H","H"], // A-A
[0,"H","H","H", -3, 1, 2,"H","H","H","H","H","H","H"], // A-2
[0,"H","H", -6, -2, 2, 5,"H","H","H","H","H","H","H"], // A-3
[0,"H","H", -5, 1, 5,"D","H","H","H","H","H","H","H"], // A-4
[0,"H","H", -4, 1, 6,"D","H","H","H","H","H","H","H"], // A-5
[0,"H", -1, 2, 6,"D","D","H","H","H","H","H","H","H"], // A-6
[0,"H", -2, 1, 6,"D","D","S","S","H","H","H","H","H"], // A-7
[0,"S", -5, -4, -2, -2,"S","S","S","S","S","S","S","S"], // A-8
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // A-9
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // A-10 [0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // A-J
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"], // A-Q
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"] // A-K
];
// 0 A 2 3 4 5 6 7 8 9 T J Q K
var $split_totals = [
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 0 n/a
[0,"P","P","P","P","P","P","P","P","P","P","P","P","P"], // A-A
[0,"H","P","P","P","P","P","P","H","H","H","H","H","H"], // 2-2
[0,"H","P","P","P","P","P","P","H","H","H","H","H","H"], // 3-3
[0,"H","H","H","H","P","P","H","H","H","H","H","H","H"], // 4-4
[0,"H","D","D","D","D","D","D","D","D","H","H","H","H"], // 5-5
[0,"H","P","P","P","P","P","H","H","H","H","H","H","H"], // 6-6
[0,"H","P","P","P","P","P","P","H","H","H","H","H","H"], // 7-7
[0,"P","P","P","P","P","P","P","P","P","P","P","P","P"], // 8-8
[0,"S","P","P","P","P","P","S","P","P","S","S","S","S"], // 9-9
[0,"S","S","S","S","S","S","S","S","S","S","S","S","S"] // 10-10
];
// 0 A 2 3 4 5 6 7 8 9 T J Q K
var $split_vary = [
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], // 0 n/a
[0,"P","P","P","P","P","P","P","P","P","P","P","P","P"], // A-A
[0,"H","P","P","P","P","P","P","H","H","H","H","H","H"], // 2-2
[0,"H","P","P","P","P","P","P","H","H","H","H","H","H"], // 3-3
[0,"H","H","H", -4, -2, 0,"H","H","H","H","H","H","H"], // 4-4
[0,"H","D","D","D","D","D","D","D","D","H","H","H","H"], // 5-5
[0,"H","P", 1, 3, 5,"P","H","H","H","H","H","H","H"], // 6-6
[0,"H","P","P","P","P","P","P","H","H","H","H","H","H"], // 7-7
[0,"P","P","P","P","P","P","P","P","P","P","P","P","P"], // 8-8
[0, -5, 3, 4, 6,"P","P", -4,"P","P","S","S","S","S"], // 9-9
[0,"S","S","S","S", -5, -5,"S","S","S","S","S","S","S"] // 10-10
];
$ac = new Image (73,97);
$ac.src = "ac.gif";
$ad = new Image (73,97);
$ad.src = "ad.gif";
$as = new Image (73,97);
$as.src = "as.gif";
$ah = new Image (73,97);
$ah.src = "ah.gif";
$2c = new Image (73,97);
$2c.src = "2c.gif";
$2d = new Image (73,97);
$2d.src = "2d.gif";
$2s = new Image (73,97);
$2s.src = "2s.gif";
$2h = new Image (73,97);
$2h.src = "2h.gif";
$3c = new Image (73,97);
$3c.src = "3c.gif";
$3d = new Image (73,97);
$3d.src = "3d.gif";
$3s = new Image (73,97);
$3s.src = "3s.gif";
$3h = new Image (73,97);
$3h.src = "3h.gif";
$4c = new Image (73,97);
$4c.src = "4c.gif";
$4d = new Image (73,97);
$4d.src = "4d.gif";
$4s = new Image (73,97);
$4s.src = "4s.gif";
$4h = new Image (73,97);
$4h.src = "4h.gif";
$5c = new Image (73,97);
$5c.src = "5c.gif";
$5d = new Image (73,97);
$5d.src = "5d.gif";
$5s = new Image (73,97);
$5s.src = "5s.gif";
$5h = new Image (73,97);
$5h.src = "5h.gif";
$6c = new Image (73,97);
$6c.src = "6c.gif";
$6d = new Image (73,97);
$6d.src = "6d.gif";
$6s = new Image (73,97);
$6s.src = "6s.gif";
$6h = new Image (73,97);
$6h.src = "6h.gif";
$7c = new Image (73,97);
$7c.src = "7c.gif";
$7d = new Image (73,97);
$7d.src = "7d.gif";
$7s = new Image (73,97);
$7s.src = "7s.gif";
$7h = new Image (73,97);
$7h.src = "7h.gif";
$8c = new Image (73,97);
$8c.src = "8c.gif";
$8d = new Image (73,97);
$8d.src = "8d.gif";
$8s = new Image (73,97);
$8s.src = "8s.gif";
$8h = new Image (73,97);
$8h.src = "8h.gif";
$9c = new Image (73,97);
$9c.src = "9c.gif";
$9d = new Image (73,97);
$9d.src = "9d.gif";
$9s = new Image (73,97);
$9s.src = "9s.gif";
$9h = new Image (73,97);
$9h.src = "9h.gif";
$tc = new Image (73,97);
$tc.src = "tc.gif";
$td = new Image (73,97);
$td.src = "td.gif";
$ts = new Image (73,97);
$ts.src = "ts.gif";
$th = new Image (73,97);
$th.src = "th.gif";
$jc = new Image (73,97);
$jc.src = "jc.gif";
$jd = new Image (73,97);
$jd.src = "jd.gif";
$js = new Image (73,97);
$js.src = "js.gif";
$jh = new Image (73,97);
$jh.src = "jh.gif";
$qc = new Image (73,97);
$qc.src = "qc.gif";
$qd = new Image (73,97);
$qd.src = "qd.gif";
$qs = new Image (73,97);
$qs.src = "qs.gif";
$qh = new Image (73,97);
$qh.src = "qh.gif";
$kc = new Image (73,97);
$kc.src = "kc.gif";
$kd = new Image (73,97);
$kd.src = "kd.gif";
$ks = new Image (73,97);
$ks.src = "ks.gif";
$kh = new Image (73,97);
$kh.src = "kh.gif";
var $deck = new Array ($decks*$suits*$types);
var $card = [0,0,0,0,0,0,0,0,0,0,0,0,0,0];
var $top_card;
var $dev_ace;
var $run_count;
var $exact_count;
var $run_ace;
var $exact_ace;
var $shuffle_needed;
var $deck_count;
function shuffle () {
$run_count = 0;
$exact_count = 0;
$run_ace = 0;
$exact_ace = 0;
$shuffle_needed = 0;
var $c;
var $i;
$i = 1;
while ($i <= $decks*$suits*$types) {
$c = Math.floor(Math.random()*13 + 1);
if ($card[$c] < 24) {
$deck[$i] = $c;
$card[$c]++;
$i++;
}
}
$top_card = 1;
return 0;
}
function deal_card() {
var $card_dealt;
if ($top_card/($decks*$suits*$types) >= $shuffle_point) {
$shuffle_needed = 1;
}
$top_card++;
return ($deck[$top_card-1]);
}
var $player = [
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
];
var $suit = [
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
];
var $busted = [0,0,0,0,0,0];
var $dealer = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];
var $dealer_suit = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];
var $dealer_bust;
var $mode;
var $practice;
function deal () {
$player[1][1] = deal_card();
$suit[1][1] = Math.floor (Math.random() * 4 + 1);
$suit[1][1] = 3;
$dealer[1] = deal_card();
$dealer_suit[1] = Math.floor (Math.random() * 4 + 1);
$player[1][2] = deal_card();
$suit[1][2] = Math.floor (Math.random() * 4 + 1);
$dealer[2] = deal_card();
$dealer_suit[2] = Math.floor (Math.random() * 4 + 1);
$dealer[0] = 2;
$player[1][0] = 2;
$busted[1] = 0;
$dealer_bust = 0;
}
function hit ($hand) {
$player[$hand][0] = $player[$hand][0] + 1;
$player[$hand][$player[$hand][0]] = deal_card();
$suit[$hand][$player[$hand][0]] =
Math.floor (Math.random() * 4 + 1);
}
var $bet = [
[0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0,0,0,0,0,0]
];
function double_down ($hand) {
var $e;
$player[$hand][0]++;
$player[$hand][$player[$hand][0]] = deal_card();
$suit[$hand][$player[$hand][0]] = Math.floor (Math.random() * 4 + 1);
for ($e=1; $e <= $bet_spread; $e++) {
$bet[$hand][$e] = $bet[$hand][$e]*2;
}
}
var $total_hands;
var $total = [
[0,0,0,0,0],
[0,0,0,0,0],
[0,0,0,0,0],
[0,0,0,0,0],
[0,0,0,0,0],
[0,0,0,0,0]
];
var $play_hand = [0,0,0,0,0,0];
var $play = [0,0,0,0,0];
var $busted = [0,0,0,0,0];
function eval_player ($hand) {
var $ace_found = [0,0,0,0,0];
var $t;
var $s;
var $i;
var $two_aces = 0;
for ($t = 1; $t <= $splits_allowed+1; $t++) {
$ace_found[$t] = 0;
}
$total[1][1] = 0;
$total[1][2] = 0;
$total[2][1] = 0;
$total[2][2] = 0;
$total[3][1] = 0;
$total[3][2] = 0;
$total[4][1] = 0;
$total[4][2] = 0;
for ($s = 1; $s <= $total_hands; $s++) {
$busted[$hand] = 0;
for ($i = 1; $i <= $player[$s][0]; $i++) {
if (($player[$s][$i] >= 2) &&
($player[$s][$i] <= 9)) {
$total[$s][1] = $total[$s][1] +
$player[$s][$i];
$total[$s][2] = $total[$s][2] +
$player[$s][$i];
}
else if (($player[$s][$i] >= 10) &&
($player[$s][$i] <= 13)) {
$total[$s][1] = $total[$s][1] + 10;
$total[$s][2] = $total[$s][2] + 10;
}
else { // ace
if (!($ace_found[$s])) {
$total[$s][1] = $total[$s][1]
+ 1;
$total[$s][2] = $total[$s][2]
+ 11;
$ace_found[$s] = 1;
}
else {
$total[$s][1] = $total[$s][1]
+ 1;
$total[$s][2] = $total[$s][2]
+ 1;
}
}
}
if ($total[$s][2] > 21) {
$play_hand[$s] = $total[$s][1];
}
else {
$play_hand[$s] = $total[$s][2];
}
if (($play_hand[$s] > 21) && ($po[$s] == 1)) {
$play[$s] = 1; // stop playing on bust
$busted[$s] = 1;
}
else if ($play_hand[$s] > 21) {
$play[$s] = 1; // stop playing on bust
$busted[$s] = 1;
$chand++;
}
else if (($play_hand[$s] == 21) &&
($player[$s][0] == 2)) {
$play[$s] = 1; // stop play when blackjack
$chand++;
}
else if (($player[$s][1] == 1) && ($player[$s][2] != 1) && ($total_hands >=2)) {
$play[$s] = 1;
$chand++;
}
else if (($player[$s][1] == 1) && ($player[$s][2] == 1)) {
if (!$two_aces) {
$two_aces = $s;
}
}
} // for s
if ($two_aces) {
$chand = $two_aces;
}
}
var $dealer_total = [0,0,0];
var $dealer_hand;
function eval_dealer ($hand) {
var $ace_found = 0;
var i;
$dealer_total[1] = 0;
$dealer_total[2] = 0;
for ($i = 1; $i <= $dealer[0]; $i++) {
if (($dealer[$i] >= 2) && ($dealer[$i] <= 9)) {
$dealer_total[1] = $dealer_total[1] + $dealer[$i];
$dealer_total[2] = $dealer_total[2] + $dealer[$i];
}
else if (($dealer[$i] >= 10) && ($dealer[$i] <= 13)) {
$dealer_total[1] = $dealer_total[1] + 10;
$dealer_total[2] = $dealer_total[2] + 10;
}
else { // ace
if (!$ace_found) {
$dealer_total[1] = $dealer_total[1] + 1;
$dealer_total[2] = $dealer_total[2] + 11;
$ace_found = 1;
}
else {
$dealer_total[1] = $dealer_total[1] + 1;
$dealer_total[2] = $dealer_total[2] + 1;
}
}
}
if ($dealer_total[2] > 21) {
$dealer_hand = $dealer_total[1];
}
else {
$dealer_hand = $dealer_total[2];
}
if ($dealer_hand > 21) {
$dealer_bust = 1;
}
else if (($dealer_hand == 21) && ($dealer[0] == 2)) {
$play[$hand] = 1; // stop play when dealer blackjack
}
}
var $num_split = 0;
function split ($hand) {
var y;
var f;
var q;
for ($y = $total_hands; $y >= $chand; $y--) {
$player[$y+1][1] = $player[$y][1];
$suit[$y+1][1] = $suit[$y][1];
$player[$y+1][2] = $player[$y][2];
$suit[$y+1][2] = $suit[$y][2];
$player[$y+1][0] = 2;
}
$player[$hand][0] = 2;
$player[$hand+1][0] = 2;
$player[$hand+1][1] = $player[$hand][2];
$suit[$hand+1][1] = $suit[$hand][2];
$player[$hand][2] = deal_card();
$suit[$hand][2] = Math.floor (Math.random() * 4 + 1);
$player[$hand+1][2] = deal_card();
$suit[$hand+1][2] = Math.floor (Math.random() * 4 + 1);
$total_hands++;
$num_split++;
if ($player[$hand][1] == 1) {
for ($q = 1; $q <= $total_hands; $q++) {
if (($player[$q][2] == 1) && ($num_split > $splits_allowed)) {
$play[$q] = 1;
}
}
}
}
function hit_dealer (){
$dealer[0]++;
$dealer[$dealer[0]] = deal_card();
$dealer_suit[$dealer[0]] = Math.floor (Math.random() * 4 + 1);
}
var $bet_at = -1;
function bet ($hand) {
var $b;
for ($b = 1; $b <= $bet_spread; $b++) {
$bet[$hand][$b] = $unit;
if ($exact_ace <= $bet_at) {
$bet[$hand][$b] = $bet[$hand][$b]*$b;
}
}
}
var $decision = 0;
var $play_decision;
var $hard_card;
var $soft_card;
function make_decision ($hand) {
var $split_card;
var $dup;
var $decision_type;
var $play_total;
$dup = $dealer[1];
if (($dealer_hand == 21) && ($dealer[0] == 2)) {
$play[$hand] = 1;
$decision = 'S';
$display_decision = 'S';
}
else {
if ($num_split <= $splits_allowed) {
if ($player[$hand][0] == 2) { //check for splits
if ($player[$hand][1] == $player[$hand][2]) {
if ($player[$hand][1] == 1) {
if (($dealer_total[2] == 21) && ($dealer[0] == 2)) {
$play[$hand] = 1;
$decision = 'S';
$display_decision = 'S';
}
else {
$decision = 'P';
}
}
else {
$split_card = $total[$hand][1]/2;
if ($vary_strategy) {
$decision = $split_vary[$split_card][$dup];
}
else {
$decision = $split_totals[$split_card][$dup];
}
$decision_type = 'P';
}
}
else if ($total[$hand][1] != $total[$hand][2]) {
$soft_card = $total[$hand][1];
$play_total = $total[$hand][1];
if ($player[$hand][0] == 2) {
if ($vary_strategy) {
$decision = $soft_vary[$play_total][$dup];
}
else {
$decision = $soft_totals[$play_total][$dup]
}
}
else {
$decision = $soft_totals2[$total[$hand][1]][$dup];
}
$decision_type = 'S';
}
else { // hard total
$hard_card = $total[$hand][1];
$play_total = $total[$hand][1];
if ($player[$hand][0] == 2) {
if ($vary_strategy) {
$decision = $hard_vary[$play_total][$dup];
}
else {
$decision = $hard_totals[$play_total][$dup];
}
}
else {
if ($vary_strategy) {
$decision = $hard_vary2[$hard_card][$dup];
}
else {
$decision = $hard_totals2[$hard_card][$dup];
}
}
$decision_type = 'H';
}
}
// more than 2 cards
else if ($total[$hand][1] != $total[$hand][2]) {
if ($total[$hand][2] > 21) { // really a hard
$hard_card = $total[$hand][1];
$play_total = $total[$hand][1];
if ($vary_strategy) {
$decision = $hard_vary2[$hard_card][$dup];
}
else {
$decision = $hard_totals2[$hard_card][$dup];
}
$decision_type = 'H';
}
else { // must be a soft total
$soft_card = $total[$hand][1];
$play_total = $total[$hand][1];
$decision = $soft_totals2[$play_total][$dup];
$decision_type = 'S';
}
}
else {
$hard_card = $total[$hand][1];
$play_total = $total[$hand][1];
if ($vary_strategy) {
$decision = $hard_vary2[$hard_card][$dup];
}
else {
$decision = $hard_totals2[$hard_card][$dup];
}
$decision_type = 'H';
}
}
// soft totals already split
else if ($total[$hand][1] != $total[$hand][2]) {
// busted hands, really hard
if ($total[$hand][2] > 21) { // really a hard
$hard_card = $total[$hand][1];
$play_total = $total[$hand][1];
if ($player[$hand][0] == 2) {
if ($vary_strategy) {
$decision = $hard_vary[$play_total][$dup];
}
else {
$decision = $hard_totals[$play_total][$dup];
}
}
else {
if ($vary_strategy) {
$decision = $hard_vary2[$hard_card][$dup];
}
else {
$decision = $hard_totals2[$hard_card][$dup];
}
}
$decision_type = 'H';
}
else { // must be a soft total
$soft_card = $total[$hand][1];
$play_total = $total[$hand][1];
if ($player[$hand][0] == 2) {
if ($vary_strategy) {
$decision = $soft_vary[$play_total][$dup];
}
else {
$decision = $soft_totals[$play_total][$dup];
}
}
else {
$decision = $soft_totals2[$total[$hand][1]][$dup];
}
$decision_type = 'S';
}
}
else { // hard total already split
$hard_card = $total[$hand][1];
$play_total = $total[$hand][1];
if ($player[$hand][0] == 2) {
if ($vary_strategy) {
$decision = $hard_vary[$play_total][$dup];
}
else {
$decision = $hard_totals[$play_total][$dup];
}
}
else {
if ($vary_strategy) {
$decision = $hard_vary2[$play_total][$dup];
}
else {
$decision = $hard_totals2[$play_total][$dup];
}
}
$decision_type = 'H';
}
if (($dealer_total[2] == 21) && $dealer[0] == 2) {
$play_decision = 'S';
}
} // else dealer blackjack
}
var $bankroll = [0,0,0,0,0,0,0,0,0,0,0];
function calc_bank ($amount, $hand) {
var g;
for ($g = 1; $g <= $bet_spread; $g++) {
$bankroll[$g] = $bankroll[$g] + $bet[$hand][$g] * $amount
}
}
var $result = [0,0,0,0,0,0];
function pay_bet ($hand) {
if ($busted[$hand] == 1) {
calc_bank (-1, $hand);
$result[$hand] = "PLAYER BUST";
}
else {
if (!$dealer_bust) {
if ($dealer_hand > $play_hand[$hand]) {
if (($dealer_hand == 21) && ($dealer[0] == 2)) {
$result[$hand] = "DEALER BLACKJACK";
calc_bank (-1, $hand);
}
else {
$result[$hand] = "DEALER WINS";
calc_bank (-1, $hand);
}
}
else if ($dealer_hand < $play_hand[$hand]) {
if ($play_hand[$hand] == 21) {
if ($player[$hand][0] == 2) {
if ($total_hands >= 2) {
$result[$hand] = "PLAYER WINS";
calc_bank (1, $hand);
}
else {
$result[$hand] = "BLACKJACK";
calc_bank (1.5, $hand);
}
}
else {
calc_bank (1, $hand);
$result[$hand] = "PLAYER WINS";
}
}
else {
calc_bank (1, $hand);
$result[$hand] = "PLAYER WINS";
}
}
else {
if ($dealer_hand == 21) {
if ($dealer[0] == 2) { //dealer blackjack
if ($player[$hand][0] == 2) { //player blackjack
$result[$hand] = "PUSH";
}
else {
$result[$hand] = "DEALER BLACKJACK";
calc_bank (-1, $hand);
}
}
else if ($player[$hand][0] == 2) {//player black jack, dealer 21
if ($total_hands >= 2) {
$result[$hand] = "PUSH";
}
else {
$result[$hand] = "BLACKJACK";
}
}
else { //push, three hand 21
$result[$hand] = "PUSH";
}
}
else {
$result[$hand] = "PUSH";
// otherwise push
}
}
}
else {
if ($play_hand[$hand] == 21) {
if ($player[$hand][0] == 2) {
if ($total_hands >= 2) {
$result[$hand] = "DELAER BUST";
calc_bank (1, $hand);
}
else {
$result[$hand] = "BLACKJACK";
// calc_bank (1.5, $hand);
}
}
else {
$result[$hand] = "DEALER BUST";
calc_bank (1, $hand);
}
}
else {
calc_bank (1, $hand);
$result[$hand] = "DEALER BUST";
}
}
}
}
var $hand_over;
function display_dealer ($just_dealt, $chand) {
var $i;
eval_dealer(1);
if ($just_dealt) {
$dealer_cards = 1;
}
else {
$dealer_cards = $dealer[0];
}
document.write("\n");
document.write("");
document.write("");
document.write("\n");
for ($i = 1; $i <= $dealer_cards; $i++) {
if ($dealer[$i] == 1) {
if ($dealer_suit[$i] == 1) {
$str = "![](\"")
";
document.write($str);
}
else if ($dealer_suit[$i] == 2) {
document.write("");
}
else if ($dealer_suit[$i] == 3) {
document.write("");
}
else if ($dealer_suit[$i] == 4) {
document.write("");
}
}
else if ($dealer[$i] == 2) {
if ($dealer_suit[$i] == 1) {
document.write("");
}
else if ($dealer_suit[$i] == 2) {
document.write("");
}
else if ($dealer_suit[$i] == 3) {
document.write("");
}
else if ($dealer_suit[$i] == 4) {
document.write("");
}
}
else if ($dealer[$i] == 3) {
if ($dealer_suit[$i] == 1) {
document.write("");
}
else if ($dealer_suit[$i] == 2) {
document.write("");
}
else if ($dealer_suit[$i] == 3) {
document.write("");
}
else if ($dealer_suit[$i] == 4) {
document.write("");
}
}
else if ($dealer[$i] == 4) {
if ($dealer_suit[$i] == 1) {
document.write("");
}
else if ($dealer_suit[$i] == 2) {
document.write("");
}
else if ($dealer_suit[$i] == 3) {
document.write("");
}
else if ($dealer_suit[$i] == 4) {
document.write("");
}
}
else if ($dealer[$i] == 5) {
if ($dealer_suit[$i] == 1) {
document.write("");
}
else if ($dealer_suit[$i] == 2) {
document.write("");
}
else if ($dealer_suit[$i] == 3) {
document.write("");
}
else if ($dealer_suit[$i] == 4) {
document.write("");
}
}
else if ($dealer[$i] == 6) {
if ($dealer_suit[$i] == 1) {
document.write("");
}
else if ($dealer_suit[$i] == 2) {
document.write("");
}
else if ($dealer_suit[$i] == 3) {
document.write("");
}
else if ($dealer_suit[$i] == 4) {
document.write("");
}
}
else if ($dealer[$i] == 7) {
if ($dealer_suit[$i] == 1) {
document.write("");
}
else if ($dealer_suit[$i] == 2) {
document.write("");
}
else if ($dealer_suit[$i] == 3) {
document.write("");
}
else if ($dealer_suit[$i] == 4) {
document.write("");
}
}
else if ($dealer[$i] == 8) {
if ($dealer_suit[$i] == 1) {
document.write("");
}
else if ($dealer_suit[$i] == 2) {
document.write("");
}
else if ($dealer_suit[$i] == 3) {
document.write("");
}
else if ($dealer_suit[$i] == 4) {
document.write("");
}
}
else if ($dealer[$i] == 9) {
if ($dealer_suit[$i] == 1) {
document.write("");
}
else if ($dealer_suit[$i] == 2) {
document.write("");
}
else if ($dealer_suit[$i] == 3) {
document.write("");
}
else if ($dealer_suit[$i] == 4) {
document.write("");
}
}
else if ($dealer[$i] == 10) {
if ($dealer_suit[$i] == 1) {
document.write("");
}
else if ($dealer_suit[$i] == 2) {
document.write("");
}
else if ($dealer_suit[$i] == 3) {
document.write("");
}
else if ($dealer_suit[$i] == 4) {
document.write("");
}
}
else if ($dealer[$i] == 11) {
if ($dealer_suit[$i] == 1) {
document.write("");
}
else if ($dealer_suit[$i] == 2) {
document.write("");
}
else if ($dealer_suit[$i] == 3) {
document.write("");
}
else if ($dealer_suit[$i] == 4) {
document.write("");
}
}
else if ($dealer[$i] == 12) {
if ($dealer_suit[$i] == 1) {
document.write("");
}
else if ($dealer_suit[$i] == 2) {
document.write("");
}
else if ($dealer_suit[$i] == 3) {
document.write("");
}
else if ($dealer_suit[$i] == 4) {
document.write("");
}
}
else if ($dealer[$i] == 13) {
if ($dealer_suit[$i] == 1) {
document.write("");
}
else if ($dealer_suit[$i] == 2) {
document.write("");
}
else if ($dealer_suit[$i] == 3) {
document.write("");
}
else if ($dealer_suit[$i] == 4) {
document.write("");
}
}
}
if ($hand_over == $total_hands) {
if ($dealer_total[1] != $dealer_total[2]) {
if ($dealer_total[2] <= 21) {
document.write("= " + $dealer_total[2]);
}
else {
document.write("= " + $dealer_total[1]);
}
}
else {
if ($dealer_total[2] > 21) {
document.write("= " + $dealer_total[1]);
}
else {
document.write("= " + $dealer_total[2]);
}
}
}
}
function display_player ($just_dealt, $hand) {
var $j;
var $k;
document.write("");
$j = $hand;
for ($k = 1; $k <= $player[$hand][0]; $k++) {
if ($player[$j][$k] == 1) {
if ($suit[$j][$k] == 1) {
document.write("");
}
else if ($suit[$j][$k] == 2) {
document.write("");
}
else if ($suit[$j][$k] == 3) {
document.write("");
}
else if ($suit[$j][$k] == 4) {
document.write("");
}
}
else if ($player[$j][$k] == 2) {
if ($suit[$j][$k] == 1) {
document.write("");
}
else if ($suit[$j][$k] == 2) {
document.write("");
}
else if ($suit[$j][$k] == 3) {
document.write("");
}
else if ($suit[$j][$k] == 4) {
document.write("");
}
}
else if ($player[$j][$k] == 3) {
if ($suit[$j][$k] == 1) {
document.write("");
}
else if ($suit[$j][$k] == 2) {
document.write("");
}
else if ($suit[$j][$k] == 3) {
document.write("");
}
else if ($suit[$j][$k] == 4) {
document.write("");
}
}
else if ($player[$j][$k] == 4) {
if ($suit[$j][$k] == 1) {
document.write("");
}
else if ($suit[$j][$k] == 2) {
document.write("");
}
else if ($suit[$j][$k] == 3) {
document.write("");
}
else if ($suit[$j][$k] == 4) {
document.write("");
}
}
else if ($player[$j][$k] == 5) {
if ($suit[$j][$k] == 1) {
document.write("");
}
else if ($suit[$j][$k] == 2) {
document.write("");
}
else if ($suit[$j][$k] == 3) {
document.write("");
}
else if ($suit[$j][$k] == 4) {
document.write("");
}
}
else if ($player[$j][$k] == 6) {
if ($suit[$j][$k] == 1) {
document.write("");
}
else if ($suit[$j][$k] == 2) {
document.write("");
}
else if ($suit[$j][$k] == 3) {
document.write("");
}
else if ($suit[$j][$k] == 4) {
document.write("");
}
}
else if ($player[$j][$k] == 7) {
if ($suit[$j][$k] == 1) {
document.write("");
}
else if ($suit[$j][$k] == 2) {
document.write("");
}
else if ($suit[$j][$k] == 3) {
document.write("");
}
else if ($suit[$j][$k] == 4) {
document.write("");
}
}
else if ($player[$j][$k] == 8) {
if ($suit[$j][$k] == 1) {
document.write("");
}
else if ($suit[$j][$k] == 2) {
document.write("");
}
else if ($suit[$j][$k] == 3) {
document.write("");
}
else if ($suit[$j][$k] == 4) {
document.write("");
}
}
else if ($player[$j][$k] == 9) {
if ($suit[$j][$k] == 1) {
document.write("");
}
else if ($suit[$j][$k] == 2) {
document.write("");
}
else if ($suit[$j][$k] == 3) {
document.write("");
}
else if ($suit[$j][$k] == 4) {
document.write("");
}
}
else if ($player[$j][$k] == 10) {
if ($suit[$j][$k] == 1) {
document.write("");
}
else if ($suit[$j][$k] == 2) {
document.write("");
}
else if ($suit[$j][$k] == 3) {
document.write("");
}
else if ($suit[$j][$k] == 4) {
document.write("");
}
}
else if ($player[$j][$k] == 11) {
if ($suit[$j][$k] == 1) {
document.write("");
}
else if ($suit[$j][$k] == 2) {
document.write("");
}
else if ($suit[$j][$k] == 3) {
document.write("");
}
else if ($suit[$j][$k] == 4) {
document.write("");
}
}
else if ($player[$j][$k] == 12) {
if ($suit[$j][$k] == 1) {
document.write("");
}
else if ($suit[$j][$k] == 2) {
document.write("");
}
else if ($suit[$j][$k] == 3) {
document.write("");
}
else if ($suit[$j][$k] == 4) {
document.write("");
}
}
else if ($player[$j][$k] == 13) {
if ($suit[$j][$k] == 1) {
document.write("");
}
else if ($suit[$j][$k] == 2) {
document.write("");
}
else if ($suit[$j][$k] == 3) {
document.write("");
}
else if ($suit[$j][$k] == 4) {
document.write("");
}
}
}// for k
if ($total[$j][1] != $total[$j][2]) {
if ($total[$j][2] <= 21) {
document.write("= " + $total[$j][1] + " "
+ $total[$j][2]);
}
else {
document.write("= " + $total[$j][1]);
}
}
else {
document.write("= " + $total[$j][1]);
}
if ($result[$j]) {
document.write( " " + $result[$j] + "");
}
document.write(" Hand = " + $hand + " Current Hand = " + $chand);
// } //for j
document.write("<\/form>\n");
}
function dealer_complete() {
var $dealer_fini = 0;
do {
eval_dealer();
if ($hit_soft_17) {
if ($dealer_hand <= 17) {
hit_dealer();
}
else {
$dealer_fini = 1;
}
}
else {
if ($dealer_hand <= 16) {
hit_dealer();
}
else {
$dealer_fini = 1;
}
}
} while (!$dealer_fini);
eval_dealer();
}
var $po = [0, 0, 0, 0, 0, 0];
function parse_args() {
var $i;
var $j;
var $k;
var $l;
var $position;
$total_hands = 0;
$position = $arg.indexOf("=");
$play_decision = $arg.substring($position+1,$arg.length)
$arg = $arg.substring(0,$position)
$arg = $arg.split("_");
$j = 1;
for ($i = 1; $i <= $arg.length-1; $i = $i+2) {
if ($arg[$i] == "p") {
break;
}
if ($arg[$i] == "po") {
break;
}
else {
$dealer[$j] = $arg[$i] - 0;
$dealer_suit[$j] = $arg[$i+1]
$dealer[0] = $j;
}
$j++;
}
$j = 0;
for ($k = $i; $k <= $arg.length-1; $k = $k + 2) {
if ($arg[$k] == "p") {
$j++;
$k++;
$l = 1;
$total_hands++;
$num_split = $total_hands;
}
if ($arg[$k] == "po") {
$j++;
$k++;
$l = 1;
$total_hands++;
$chand = $total_hands+1;
for ($i = 1; $i <= $total_hands; $i++) {
if (!($player[$i][1] == 1) && (!$player[$i][2] ==1)) {
$play[$i] = 1;
}
}
$dhand = $total_hands+1;
$po[$total_hands] = 1;
$num_split = $total_hands;
}
if ($arg[$k] != "0") {
$player[$j][$l] = $arg[$k] - 0;
$player[$j][0] = $l;
}
$suit[$j][$l] = $arg[$k+1];
$l++;
}
}
function display_form () {
var $hit;
var $hit_button;
var $stand;
var $double;
var $split;
var $i;
var $j;
document.write("\n");
document.write("\n");
document.write("\n");
document.write("\n");
}
function display_table() {
var $q;
document.write ("");
document.write ("");
document.write ("");
document.write ("Wrong Decision, Correct Decision = " + $decision + "\n");
document.write ("Key: H - Hit, S - Stand, D - Double, P - Split");
document.write ("");
document.write ("");
document.write ("");
document.write ("
");
document.write ("| Dealer's Up Card | ");
document.write ("
");
document.write ("| 2 | ");
document.write (" 3 | ");
document.write (" 4 | ");
document.write (" 5 | ");
document.write (" 6 | ");
document.write (" 7 | ");
document.write (" 8 | ");
document.write (" 9 | ");
document.write (" T | ");
document.write (" J | ");
document.write (" Q | ");
document.write (" K | ");
document.write (" A | ");
document.write ("<\/tr>");
if (($player[$dhand][1] == $player[$dhand][2]) && ($player[$dhand][0] == 2) && ($display_decision == "S")) {
document.write ("
");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $split_totals[$player[$dhand][1]][$q]
+ " | ");
}
document.write ("" + $split_totals[$player[$dhand][1]][1]
+ " | ");
document.write ("
");
}
else if (($player[$dhand][1] == $player[$dhand][2]) && ($num_split > $splits_allowed)) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $hard_totals[$hard_card][$q]
+ " | ");
}
document.write ("" + $hard_totals[$hard_card][1]
+ " | ");
document.write ("
");
}
else if (($player[$dhand][1] == $player[$dhand][2]) && ($player[$dhand][0] == 2) && ($display_decision == "P")) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $split_totals[$player[$dhand][1]][$q]
+ " | ");
}
document.write ("" + $split_totals[$player[$dhand][1]][1]
+ " | ");
document.write ("
");
}
else if (($player[$dhand][1] == $player[$dhand][2]) && ($player[$dhand][0] == 3) && ($display_decision != "S")) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $split_totals[$player[$dhand][1]][$q]
+ " | ");
}
document.write ("" + $split_totals[$player[$dhand][1]][1]
+ " | ");
document.write ("
");
}
else if (($player[$dhand][1] == $player[$dhand+1][1]) && ($player[$dhand][0] == 2) && ($display_decision == "P")) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $split_totals[$player[$dhand][1]][$q]
+ " | ");
}
document.write ("" + $split_totals[$player[$dhand][1]][1]
+ " | ");
document.write ("
");
}
else if (($player[$dhand][1] == $player[$dhand][2]) && ($player[$dhand][0] >= 4)) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $hard_totals2[$hard_card][$q]
+ " | ");
}
document.write ("" + $hard_totals2[$hard_card][1]
+ " | ");
document.write ("
");
}
else if (($player[$dhand][1] == 1) && ($player[$dhand][2] == 1) && ($player[$dhand][0] == 2)) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $split_totals[$player[$dhand][1]][$q]
+ " | ");
}
document.write ("" + $split_totals[$player[$dhand][1]][1]
+ " | ");
document.write ("
");
}
else if (($total[$dhand][1] == $total[$dhand][2]) && ($player[$dhand][0] == 2) && ($display_decision == "S")) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $hard_totals[$hard_card][$q]
+ " | ");
}
document.write ("" + $hard_totals[$hard_card][1]
+ " | ");
document.write ("
");
}
else if (($total[$dhand][1] == $total[$dhand][2]) && ($player[$dhand][0] == 2) && ($display_decision == "P")) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $hard_totals[$hard_card][$q]
+ " | ");
}
document.write ("" + $hard_totals[$hard_card][1]
+ " | ");
document.write ("
");
}
else if (($total[$dhand][1] == $total[$dhand][2]) && ($player[$dhand][0] >= 3) && ($display_decision == "S")) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $hard_totals2[$hard_card][$q]
+ " | ");
}
document.write ("" + $hard_totals2[$hard_card][1]
+ " | ");
document.write ("
");
}
else if (($total[$dhand][1] == $total[$dhand][2]) && ($player[$dhand][0] == 3) && ($display_decision != "S")) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $hard_totals[$hard_card][$q]
+ " | ");
}
document.write ("" + $hard_totals[$hard_card][1]
+ " | ");
document.write ("
");
}
else if (($total[$dhand][1] == $total[$dhand][2]) && ($player[$dhand][0] >= 4)) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $hard_totals2[$hard_card][$q]
+ " | ");
}
document.write ("" + $hard_totals2[$hard_card][1]
+ " | ");
document.write ("
");
}
else if (($total[$dhand][1] != $total[$dhand][2]) && ($player[$dhand][0] == 2) && ($display_decision == "S")) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $soft_totals[$soft_card][$q]
+ " | ");
}
document.write ("" + $soft_totals[$soft_card][1]
+ " | ");
document.write ("
");
}
else if (($total[$dhand][1] != $total[$dhand][2]) && ($player[$dhand][0] >= 3) && ($display_decision == "S") && ($total[$dhand][2] <= 21)) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $soft_totals2[$soft_card][$q]
+ " | ");
}
document.write ("" + $soft_totals2[$soft_card][1]
+ " | ");
document.write ("
");
}
else if (($total[$dhand][1] != $total[$dhand][2]) && ($player[$dhand][0] >= 3) && ($display_decision == "S") && ($total[$dhand][2] > 21)) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $hard_totals2[$hard_card][$q]
+ " | ");
}
document.write ("" + $hard_totals2[$hard_card][1]
+ " | ");
document.write ("
");
}
else if (($total[$dhand][1] != $total[$dhand][2]) && ($player[$dhand][0] == 3) && ($display_decision != "S") && ($total[$dhand][2] <= 21)) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $soft_totals[$soft_card][$q]
+ " | ");
}
document.write ("" + $soft_totals[$soft_card][1]
+ " | ");
document.write ("
");
}
else if (($total[$dhand][1] != $total[$dhand][2]) && ($player[$dhand][0] == 3) && ($display_decision != "S") && ($total[$dhand][2] > 21)) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $hard_totals2[$hard_card][$q]
+ " | ");
}
document.write ("" + $hard_totals2[$hard_card][1]
+ " | ");
document.write ("
");
}
else if (($total[$dhand][1] != $total[$dhand][2]) && ($player[$dhand][0] >= 4) && ($total[$dhand][2] <= 21)) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $soft_totals2[$soft_card][$q]
+ " | ");
}
document.write ("" + $soft_totals2[$soft_card][1]
+ " | ");
document.write ("
");
}
else if (($total[$dhand][1] != $total[$dhand][2]) && ($player[$dhand][0] >= 4) && ($total[$dhand][2] > 21)) {
document.write ("");
for ($q = 2; $q <= 13; $q++) {
document.write ("| " + $hard_totals2[$hard_card][$q]
+ " | ");
}
document.write ("" + $hard_totals2[$hard_card][1]
+ " | ");
document.write ("
");
}
document.write ("
");
document.write ("");
document.write ("");
}
var $hands;
var $u;
var $x;
var $h;
var $p;
var $chand = 1;
var $players_bust;
var $input_form;
var $hit;
var $stand;
var $double;
var $split;
var $display_decision;
var $dhand = 1;
var $after_stand = 0;
shuffle();
$hands = 1;
$num_split = 0;
bet ($players, $total_hands);
$args = location.search;
$arg = $args.substring(1);
if ($arg) {
parse_args();
}
else {
deal();
$total_hands = 1;
}
if ($chand > $total_hands) {
$chand = $total_hands;
}
$hand_over = 0;
document.open();
eval_player($chand);
if ($chand > $total_hands) {
$chand = $total_hands;
}
eval_dealer();
make_decision ($chand);
if ($play_decision == "Hit") {
hit($chand);
$display_decision = "H";
}
else if ($play_decision == "STAND") {
$play[$chand] = 1;
$chand++;
$display_decision = "S";
$after_stand = 1;
}
else if ($play_decision == "DOUBLE") {
if ($player[$chand][0] == 2) {
double_down($chand);
$play[$chand] = 1;
$chand++;
$display_decision = "D";
}
}
else if ($play_decision == "SPLIT") {
if ($player[$chand][1] == $player[$chand][2]) {
if ($num_split <= $splits_allowed) {
split($chand);
}
}
$display_decision = "P";
}
if ($play_decision) {
if ($display_decision != $decision) {
display_table();
}
}
if (!$after_stand) {
eval_player($chand);
}
if ($chand > $total_hands) {
$chand = $total_hands;
}
for ($i = 1; $i <= $total_hands; $i++) {
$hand_over = $hand_over + $play[$i];
}
if ($hand_over == $total_hands) {
dealer_complete();
}
if ($hand_over == $total_hands) {
for ($i = 1; $i <= $total_hands; $i++) {
pay_bet($i);
}
display_dealer(0,$chand);
}
else {
display_dealer(1,$chand);
}
for ($x = 1; $x <= $total_hands; $x++) {
display_player(1, $x);
document.write("");
}
display_form();
} // end main
main();