<?php
/*
 * Copyright (c) 2006 Brandon Sterne
 * Licensed under the MIT license.
 * http://brandon.sternefamily.net/files/mit-license.txt
 * PHP Texas Hold 'Em
 */

// map the result code back to something a bit more readable
// pair, 2 pair, 3 of a kind, straight, flush, full house, four of a kind,
// straight flush, royal flush
$hands = array("pair" => "Pair", "2pair" => "2 Pair", "3ofakind" => "3 of a Kind",
               "straight" => "Straight", "flush" => "Flush", "fullhouse" => "Full House",
               "4ofakind" => "4 of a Kind", "straightflush" => "Straight Flush", 
               "royalflush" => "Royal Flush");

// see if a subset of the hand is a flush
function isFlush($theCards, $theHand) {
  // count number of each suit to calculate flushes, etc.
  $numClubs = 0;
  $numDiamonds = 0;
  $numHearts = 0;
  $numSpades = 0;
  foreach ($theCards as $i) {
    if($theHand[$i]->theSuit == "clubs")
      $numClubs++;
    if($theHand[$i]->theSuit == "diams")
      $numDiamonds++;
    if($theHand[$i]->theSuit == "hearts")
      $numHearts++;
    if($theHand[$i]->theSuit == "spades")
      $numSpades++;
  }
  if (($numClubs == 5) or ($numDiamonds == 5) or ($numHearts == 5) or ($numSpades == 5))
    return True;
  return False;
}

// pair, 2 pair, 3 of a kind, straight, flush, full house, four of a kind,
// straight flush, royal flush
function analyzeHand($theHand) {
  // sort hand by rank to allow easier calculation of pairs, etc.
  sort($theHand);
            
  // default -> high card
  $result = $theHand[6]->theRank . " high";
  // check for a pair
  if (($theHand[0]->theRank == $theHand[1]->theRank) or
      ($theHand[1]->theRank == $theHand[2]->theRank) or
      ($theHand[2]->theRank == $theHand[3]->theRank) or
      ($theHand[3]->theRank == $theHand[4]->theRank) or
      ($theHand[4]->theRank == $theHand[5]->theRank) or
      ($theHand[5]->theRank == $theHand[6]->theRank))
    $result = "pair";
  // check for 2 pair
  if ((($theHand[0]->theRank == $theHand[1]->theRank) and ($theHand[1]->theRank == $theHand[2]->theRank)) or
      (($theHand[0]->theRank == $theHand[1]->theRank) and ($theHand[2]->theRank == $theHand[3]->theRank)) or
      (($theHand[0]->theRank == $theHand[1]->theRank) and ($theHand[3]->theRank == $theHand[4]->theRank)) or
      (($theHand[0]->theRank == $theHand[1]->theRank) and ($theHand[4]->theRank == $theHand[5]->theRank)) or
      (($theHand[0]->theRank == $theHand[1]->theRank) and ($theHand[5]->theRank == $theHand[6]->theRank)) or
      (($theHand[1]->theRank == $theHand[2]->theRank) and ($theHand[2]->theRank == $theHand[3]->theRank)) or
      (($theHand[1]->theRank == $theHand[2]->theRank) and ($theHand[3]->theRank == $theHand[4]->theRank)) or
      (($theHand[1]->theRank == $theHand[2]->theRank) and ($theHand[4]->theRank == $theHand[5]->theRank)) or
      (($theHand[1]->theRank == $theHand[2]->theRank) and ($theHand[5]->theRank == $theHand[6]->theRank)) or
      (($theHand[2]->theRank == $theHand[3]->theRank) and ($theHand[3]->theRank == $theHand[4]->theRank)) or
      (($theHand[2]->theRank == $theHand[3]->theRank) and ($theHand[4]->theRank == $theHand[5]->theRank)) or
      (($theHand[2]->theRank == $theHand[3]->theRank) and ($theHand[5]->theRank == $theHand[6]->theRank)) or
      (($theHand[3]->theRank == $theHand[4]->theRank) and ($theHand[4]->theRank == $theHand[5]->theRank)) or
      (($theHand[3]->theRank == $theHand[4]->theRank) and ($theHand[5]->theRank == $theHand[6]->theRank)) or
      (($theHand[4]->theRank == $theHand[5]->theRank) and ($theHand[5]->theRank == $theHand[6]->theRank)))
    $result = "2pair";
  // check for 3 of a kind
  if ((($theHand[0]->theRank == $theHand[1]->theRank) and ($theHand[1]->theRank == $theHand[2]->theRank)) or
      (($theHand[1]->theRank == $theHand[2]->theRank) and ($theHand[2]->theRank == $theHand[3]->theRank)) or
      (($theHand[2]->theRank == $theHand[3]->theRank) and ($theHand[3]->theRank == $theHand[4]->theRank)) or
      (($theHand[3]->theRank == $theHand[4]->theRank) and ($theHand[4]->theRank == $theHand[5]->theRank)) or
      (($theHand[4]->theRank == $theHand[5]->theRank) and ($theHand[5]->theRank == $theHand[6]->theRank)))
    $result = "3ofakind";
  // check for straight
  if (((($theHand[0]->value == ($theHand[1]->value)-1) and ($theHand[1]->value == ($theHand[2]->value)-1) and
        ($theHand[2]->value == ($theHand[3]->value)-1) and ($theHand[3]->value == ($theHand[4]->value)-1))) or
      ((($theHand[1]->value == ($theHand[2]->value)-1) and ($theHand[2]->value == ($theHand[3]->value)-1) and
        ($theHand[3]->value == ($theHand[4]->value)-1) and ($theHand[4]->value == ($theHand[5]->value)-1))) or
      ((($theHand[2]->value == ($theHand[3]->value)-1) and ($theHand[3]->value == ($theHand[4]->value)-1) and
        ($theHand[4]->value == ($theHand[5]->value)-1) and ($theHand[5]->value == ($theHand[6]->value)-1))))
    $result = "straight";
  // check for flush
  if (isFlush(array(0,1,2,3,4,5,6), $theHand))
    $result = "flush";
  // check for full house
  if ((($theHand[0]->theRank == $theHand[1]->theRank) and ($theHand[2]->theRank == $theHand[3]->theRank) and
       ($theHand[3]->theRank == $theHand[4]->theRank)) or
      (($theHand[0]->theRank == $theHand[1]->theRank) and ($theHand[3]->theRank == $theHand[4]->theRank) and
       ($theHand[4]->theRank == $theHand[5]->theRank)) or
      (($theHand[0]->theRank == $theHand[1]->theRank) and ($theHand[4]->theRank == $theHand[5]->theRank) and
       ($theHand[5]->theRank == $theHand[6]->theRank)) or
      (($theHand[3]->theRank == $theHand[4]->theRank) and ($theHand[0]->theRank == $theHand[1]->theRank) and
       ($theHand[1]->theRank == $theHand[2]->theRank)) or
      (($theHand[4]->theRank == $theHand[5]->theRank) and ($theHand[0]->theRank == $theHand[1]->theRank) and
       ($theHand[1]->theRank == $theHand[2]->theRank)) or
      (($theHand[5]->theRank == $theHand[6]->theRank) and ($theHand[0]->theRank == $theHand[1]->theRank) and
       ($theHand[1]->theRank == $theHand[2]->theRank)) or
      (($theHand[1]->theRank == $theHand[2]->theRank) and ($theHand[3]->theRank == $theHand[4]->theRank) and
       ($theHand[4]->theRank == $theHand[5]->theRank)) or
      (($theHand[1]->theRank == $theHand[2]->theRank) and ($theHand[4]->theRank == $theHand[5]->theRank) and
       ($theHand[5]->theRank == $theHand[6]->theRank)) or
      (($theHand[4]->theRank == $theHand[5]->theRank) and ($theHand[1]->theRank == $theHand[2]->theRank) and
       ($theHand[2]->theRank == $theHand[3]->theRank)) or
      (($theHand[5]->theRank == $theHand[6]->theRank) and ($theHand[1]->theRank == $theHand[2]->theRank) and
       ($theHand[2]->theRank == $theHand[3]->theRank)) or
      (($theHand[2]->theRank == $theHand[3]->theRank) and ($theHand[4]->theRank == $theHand[5]->theRank) and
       ($theHand[5]->theRank == $theHand[6]->theRank)) or
      (($theHand[5]->theRank == $theHand[6]->theRank) and ($theHand[2]->theRank == $theHand[3]->theRank) and
       ($theHand[3]->theRank == $theHand[4]->theRank)))
    $result = "fullhouse";
  // check for 4 of a kind
  if ((($theHand[0]->theRank == $theHand[1]->theRank) and ($theHand[1]->theRank == $theHand[2]->theRank) and
       ($theHand[2]->theRank == $theHand[3]->theRank)) or
      (($theHand[1]->theRank == $theHand[2]->theRank) and ($theHand[2]->theRank == $theHand[3]->theRank) and
       ($theHand[3]->theRank == $theHand[4]->theRank)) or
      (($theHand[2]->theRank == $theHand[3]->theRank) and ($theHand[3]->theRank == $theHand[4]->theRank) and
       ($theHand[4]->theRank == $theHand[5]->theRank)) or
      (($theHand[3]->theRank == $theHand[4]->theRank) and ($theHand[4]->theRank == $theHand[5]->theRank) and
       ($theHand[5]->theRank == $theHand[6]->theRank)))
    $result = "4ofakind";
  // check for straight flush
  if ((((($theHand[0]->value == ($theHand[1]->value)-1) and ($theHand[1]->value == ($theHand[2]->value)-1) and
         ($theHand[2]->value == ($theHand[3]->value)-1) and ($theHand[3]->value == ($theHand[4]->value)-1))) and
       isFlush(array(0,1,2,3,4), $theHand)) or
      (((($theHand[1]->value == ($theHand[2]->value)-1) and ($theHand[2]->value == ($theHand[3]->value)-1) and
         ($theHand[3]->value == ($theHand[4]->value)-1) and ($theHand[4]->value == ($theHand[5]->value)-1))) and
       isFlush(array(1,2,3,4,5), $theHand))  or
      (((($theHand[2]->value == ($theHand[3]->value)-1) and ($theHand[3]->value == ($theHand[4]->value)-1) and
         ($theHand[4]->value == ($theHand[5]->value)-1) and ($theHand[5]->value == ($theHand[6]->value)-1))) and
       isFlush(array(2,3,4,5,6), $theHand)))
    $result = "straightflush";
  // check for royal flush
  if (((($theHand[0]->theRank == '10') and ($theHand[1]->theRank == 'J') and ($theHand[2]->theRank == 'Q') and
        ($theHand[3]->theRank == 'K') and ($theHand[4]->theRank == 'A')) and isFlush(array(0,1,2,3,4), $theHand)) or
      ((($theHand[1]->theRank == '10') and ($theHand[2]->theRank == 'J') and ($theHand[3]->theRank == 'Q') and
        ($theHand[4]->theRank == 'K') and ($theHand[5]->theRank == 'A')) and isFlush(array(1,2,3,4,5), $theHand)) or
      ((($theHand[2]->theRank == '10') and ($theHand[3]->theRank == 'J') and ($theHand[4]->theRank == 'Q') and
        ($theHand[5]->theRank == 'K') and ($theHand[6]->theRank == 'A')) and isFlush(array(2,3,4,5,6), $theHand)))
    $result = "royalflush";

  return $result;
} 
          
// shuffle order of cards (otherwise this won't be very interesting)
function shuffleDeck(&$theDeck) {
  srand((float)microtime() * 1000000);
  shuffle($theDeck);
  for ($i = 0 ; $i < 52 ; $i++)
    $theDeck[$i]->inPlay = False;
}
          
function dealHand(&$myDeck) {
  $myHand = array();
  while (count($myHand) < 2) {
    $i = array_rand($myDeck);
    $newCard = $myDeck[$i];
    if (!$newCard->inPlay) {
      array_push($myHand, $newCard);
      $myDeck[$i]->inPlay = True;
    }
  }
  return $myHand;
}
          
function dealTableCards(&$myDeck) {
  $tableCards = array();
  while (count($tableCards) < 5) {
    $i = array_rand($myDeck);
    $newCard = $myDeck[$i];
    if (!$newCard->inPlay) {
      array_push($tableCards, $newCard);
      $myDeck[$i]->inPlay = True;
    }
  }
  return $tableCards;
}
          
// print player's hand
function printHand($myHand) {
  print "<b>Your cards:</b><br/>";
  print "<table><tr>";
  for ($i=0 ; $i < count($myHand) ; $i++) {
    if (($myHand[$i]->theSuit=="diams") or ($myHand[$i]->theSuit=="hearts"))
      $myClass = "redcard";
    else
      $myClass = "blackcard";
    printf("<td class=\"%s\">%s</td>", $myClass, $myHand[$i]->theRank."&".$myHand[$i]->theSuit.";");
  }
  print "</tr></table>";
}
          
// print cards shared by the table
function printTableCards($tableCards){
  print "<b>Table cards:</b><br/>";
  print "<table><tr>";
  for ($i=0 ; $i < count($tableCards) ; $i++) {
    if(($tableCards[$i]->theSuit=="diams") or ($tableCards[$i]->theSuit=="hearts"))
      $myClass = "redcard";
    else
      $myClass = "blackcard";
    printf("<td class=\"%s\">%s</td>", $myClass, $tableCards[$i]->theRank."&".$tableCards[$i]->theSuit.";");
  }
  print "</tr></table>";
}
          
function printDeck($myDeck) {
  for ($i = 0 ; $i < 52 ; $i++)
    print $myDeck[$i]->theRank."&".$myDeck[$i]->theSuit."; ";
  print "<br/>";
}
          
$cardRanks = array(0 => "2", 1 => "3", 2 => "4", 3 => "5", 4 => "6", 5 => "7", 6 => "8",
                   7 => "9", 8 => "10", 9 => "J", 10 => "Q", 11 => "K", 12 => "A");
$cardSuits = array(0 => "clubs", 1 => "diams", 2 => "hearts", 3 => "spades");
class card {
  var $value; //to check for straights
  var $theRank;
  var $theSuit;
  var $inPlay = False;
}
?>
<html>
<head>
<title>Brandon Sterne - PHP Poker</title>
<style type="text/css">
td.blackcard{
  font-size:200%;
  text-align:center; 
  width:75px;
  height:105px;
  background-image:url(images/blank_card.gif);
  background-repeat:no-repeat;
  background-position:center center;
}
td.redcard{
  font-size:200%;
  text-align:center; 
  width:75px;
  height:105px;
  background-image:url(images/blank_card.gif);
  background-repeat:no-repeat;
  background-position:center center;
  color:red;
}  
</style>
</head>
<body>
  <h3 style="text-align:center">Texas Hold &#39;Em</h3>
<?php
// initialize deck of cards by assigning rank and suit to each card
$myDeck = array();
for ($i = 0 ; $i < 52 ; $i++) {
  $myDeck[$i] = new card();
  $myDeck[$i]->value = $i%13;
  $myDeck[$i]->theRank = $cardRanks[($i%13)];
  $myDeck[$i]->theSuit = $cardSuits[($i/13)];
}
          
$numHands = 0;
if ((!array_key_exists("hand",$_GET)) or (!array_key_exists($_GET["hand"], $hands))) {
  $myHand = array();
  $myTableCards = array();
  shuffleDeck($myDeck);
  $myHand = dealHand($myDeck);
  $myTableCards = dealTableCards($myDeck);
  // figure out how good our hand is
  $combinedHand = array_merge($myHand,$myTableCards);
  $result = analyzeHand($combinedHand);
  $numHands++;
 }
 else {
   do {
     $myHand = array();
     $myTableCards = array();
     shuffleDeck($myDeck);
     $myHand = dealHand($myDeck);
     $myTableCards = dealTableCards($myDeck);
     // figure out how good our hand is
     $combinedHand = array_merge($myHand,$myTableCards);
     $result = analyzeHand($combinedHand);
     $numHands++;
   }
   while ($result != $_GET["hand"]);
 }
          
// now that we have the hand we want print it out
print "<br/>\n";
printTableCards($myTableCards);
printHand($myHand);
print "<br/>\n";

if (!array_key_exists($result, $hands))
  print "<b>Result:</b> " . $result . "<br/>";
 else
   print "<b>Result:</b> " . $hands[$result] . "<br/>";
print "<b>Hands required:</b> " . $numHands;
?>
  <br/><br/>
  <b>Hand Type:</b><br/>
  <form method="get">
    <table>
      <tr>
        <td style="width:14%; text-align:center">Any</td><td style="width:5%; text-align:center"><input type="radio" name="hand" value="any" <?php if(($_GET["hand"]=="any") or (!array_key_exists("any",$_GET))){print " checked=\"checked\"";} ?> /></td>
        <td style="width:14%; text-align:center">Pair</td><td style="width:5%; text-align:center"><input type="radio" name="hand" value="pair" <?php if($_GET["hand"]=="pair"){print " checked=\"checked\"";} ?> /></td>
        <td style="width:14%; text-align:center">2 Pair</td><td style="width:5%; text-align:center"><input type="radio" name="hand" value="2pair" <?php if($_GET["hand"]=="2pair"){print " checked=\"checked\"";} ?> /></td>
        <td style="width:14%; text-align:center">3 of a Kind</td><td style="width:5%; text-align:center"><input type="radio" name="hand" value="3ofakind" <?php if($_GET["hand"]=="3ofakind"){print " checked=\"checked\"";} ?> /></td>
        <td style="width:14%; text-align:center">Straight</td><td style="width:5%; text-align:center"><input type="radio" name="hand" value="straight" <?php if($_GET["hand"]=="straight"){print " checked=\"checked\"";} ?> /></td>
      </tr>
      <tr>
        <td style="width:14%; text-align:center">Flush</td><td style="width:5%; text-align:center"><input type="radio" name="hand" value="flush" <?php if($_GET["hand"]=="flush"){print " checked=\"checked\"";} ?> /></td>
        <td style="width:14%; text-align:center">Full House</td><td style="width:5%; text-align:center"><input type="radio" name="hand" value="fullhouse" <?php if($_GET["hand"]=="fullhouse"){print " checked=\"checked\"";} ?> /></td>
        <td style="width:14%; text-align:center">4 of a Kind</td><td style="width:5%; text-align:center"><input type="radio" name="hand" value="4ofakind" <?php if($_GET["hand"]=="4ofakind"){print " checked=\"checked\"";} ?> /></td>
        <td style="width:14%; text-align:center">Straight Flush</td><td style="width:5%; text-align:center"><input type="radio" name="hand" value="straightflush" <?php if($_GET["hand"]=="straightflush"){print " checked=\"checked\"";} ?> /></td>
        <td style="width:14%; text-align:center">Royal Flush</td><td style="width:5%; text-align:center"><input type="radio" name="hand" value="royalflush" <?php if($_GET["hand"]=="royalflush"){print " checked=\"checked\"";} ?> /></td>
      </tr>
      <tr>
        <td colspan="10" style="text-align:center; padding:10px"><input type="submit" value="Deal Hand" /></td>
      </tr>
    </table>
  </form>
</body>
</html>