TGB Card Deck Example

$CARD_TYPE_CLUB = 0;
$CARD_TYPE_HEART = 1;
$CARD_TYPE_DIAMOND = 2;
$CARD_TYPE_SPADE = 3;

// $CARD_VALUE_1 -> $CARD_VALUE_10 can be created, or just assumed Static ;)
// the $CARD_VALUE_J-A is useful in case statements
// to perform specific logic based on those cards, usually 1-10 are not 
// special in any way, so there's no need to pre-define them for code readability
$CARD_VALUE_J = 11;
$CARD_VALUE_Q = 12;
$CARD_VALUE_K = 13;
$CARD_VALUE_A = 1; // Ace is first, or last? :)

datablock t2dSceneObjectDatablock(CardDataBlock)
{
   cardFace = $CARD_TYPE_HEART;
   cardValue = $CARD_VALUE_A;
};

function CreateNewDeck(%sort, %scenegraph)
{
   %cardDeck = new SimSet();
   for(%x = 0; %x < 4; %x++)
   {
      for(%y = 1; %y < 14; %y++)
      {
         %card = new t2dStaticSprite()
         {
            defaultConfig = CardDataBlock;
            scenegraph = %scenegraph;
            size = "8.875 12.000";
            imageMap = deckImageMap;
            cardFace = %x;
            cardValue = %y;
            //cardSomething = %y;
            //cardAnotherThing = %x;
            position = deckHolder.getPosition();
            frame = (%y - 1) + (%x * 13);
         };
         echo("Adding: " @ %card.cardSomething @ " -- " @ %card.cardFace);
         %cardDeck.add(%card);
      }
   }
   if(%sort $= "" || !%sort) return %cardDeck;
   echo("Sorting Deck...");
   // now to randomize the card deck
   %cardDeckSorter = %cardDeck;
   %cardDeck = new SimSet();
   while(%cardDeckSorter.getCount() > 0)
   {
      %card = %cardDeckSorter.getObject(getRandom(0, %cardDeckSorter.getCount()-1));
      %cardDeck.add(%card);
      %cardDeckSorter.remove(%card);
   }
   return %cardDeck;
}

function clearSimSet(%set)
{
   while(%set.getCount() > 0)
   {
      %obj = %set.getObject(0);
      %set.remove(%obj);
      %obj.delete();
   }
}

function dealNext(%deck)
{
   %card = %deck.getObject(0);
   %deck.remove(%card);
   return %card;
}

echo("SCENEGRAPH: " @ sceneWindow2D.getSceneGraph());
$cardDeck = CreateNewDeck(true, sceneWindow2D.getSceneGraph());

// generic code to display the codes in a spread
// to show how dealing works -- echos to the console
// to show the cardValue and cardFace values -- should
// match the card spread
$lastX = -40;
$lastY = -9;
for(%x = 0; %x < 3; %x++)
{
   for(%y = 0; %y < 7; %y++)
   {
      %card = dealNext($cardDeck);
      %card.setPosition($lastX, $lastY);
      %face = "Club";
      switch(%card.cardFace)
      {
         case $CARD_TYPE_CLUB: %face = "Club";
         case $CARD_TYPE_DIAMOND: %face = "Diamond";
         case $CARD_TYPE_HEART: %face = "Heart";
         case $CARD_TYPE_SPADE: %face = "Spade";
      }
      echo("Card: " @ %card.cardValue @ "   -- Face: " @ %face);
      $lastX += 1 + getWord(%card.getSize(), 1);
   }
   $lastX = -40;
   $lastY += 4 + getWord(%card.getSize(),0);
}

   new t2dImageMapDatablock(deckImageMap) {
      imageName = "TGBCardDemo/Data/images/deck";
      imageMode = "CELL";
      frameCount = "-1";
      filterMode = "SMOOTH";
      filterPad = "1";
      preferPerf = "1";
      cellRowOrder = "1";
      cellOffsetX = "0";
      cellOffsetY = "0";
      cellStrideX = "0";
      cellStrideY = "0";
      cellCountX = "13";
      cellCountY = "4";
      cellWidth = "71";
      cellHeight = "96";
      preload = "1";
      allowUnload = "0";
   };