<!--
 //Copyright: Axel Hennig - www.australienbilder.de
 var relDir = "";
 var ImgType = ".jpg";
 var ImgName = "mkatie";
 var ImgOffset = 0;
 var PairsCount = 0;
 var Open = 0;
 var Try = 0;
 var Tile1 = 0;
 var Tile2 = 0;
 var b1 = -1;
 var b2 = -2;
 var P = new CreatePatch();
 var M = new CreatePatch();
 var newWin;

 function CreatePatch()
  {
   this.length = 24;
   for (var i = 0; i < this.length; i++)
   {this[i] = Math.floor(i/2)+1;}
  }

 function NewMemory()
  {
   var x, y, tmp, cards;
   for (x = 0; x < P.length; x++)
    {
     document.images[x+ImgOffset].src = relDir + "mleer.gif";
     y = Math.round(Math.random() * (P.length-1));
     tmp = P[x];
     P[x] = P[y];
     P[y] = tmp;
    }
   for (x = 0; x < P.length; x++)
     {M[x] = P[x];}
   PairsCount = 0;
   Open = 0;
   Try = 0;
   document.score.tries.value = Try;
   cards = window.open("mkarttie.htm","Karten","height=580,width=560");
  }

 function TestPairs()
  {
   if (b1 == b2)
    {
     document.images[Tile1+ImgOffset].src = relDir + "mfertig" + ImgType;
     document.images[Tile2+ImgOffset].src = relDir + "mfertig" + ImgType;
     var atext;
     P[Tile1] = -1;
     P[Tile2] = -1;
     Open = 0;
     if (PairsCount == 11)
      {
       for (var sh = 0; sh < M.length; sh++)
         {document.images[sh+ImgOffset].src = ImgName + M[sh] + ImgType;}
       atext="Sie haben die Hundebilder in "+Try+" Zügen aufgedeckt.";
       alert(atext);
      }
     else
      {
       PairsCount++;
      }
    }
   else
    {
     document.images[Tile1+ImgOffset].src = relDir + "mleer.gif";
     document.images[Tile2+ImgOffset].src = relDir + "mleer.gif";
     Open = 0;
    }
  }

 function TestCard(Tile)
  {
   if (Open == 2)
    { TestPairs(); }
   else if (P[Tile] != -1)
    {
     document.images[Tile+ImgOffset].src = ImgName + P[Tile] + ImgType;
     if ((Open == 1) && (Tile != Tile1))
      {
       Open = 2;
       Tile2 = Tile;
       b2 = P[Tile];
       Try = (eval(Try) + 1);
       document.score.tries.value = Try;
      }
     if (Open == 0)
      {
       Open = 1;
       Tile1 = Tile;
       b1 = P[Tile];
      }
    }
   return; 
  }

 //-->