/* ---------------------------------------------------
    Uses the Arimaa "Scoring System" formula for the evaluation:

  TotScore = MyScore - OppScore

  Score = R + P*(C+1)

  R = Points given for how far the players Rabbits have progressed.
      The row to which each rabbit has progressed is cubed (i.e.
      raised to the power of 3) and these values are summed up to
      determine R.  The first row is 1 and the goal row is 8.
  C = The number of Rabbits the player still has on the board.
  P = Points given for the pieces the player still has on the board.
      The value of each piece on the board is summed.

  Value of each piece is:

  1 - Rabbit
  2 - Cat
  3 - Dog
  4 - Horse
  5 - Camel
  6 - Elephant

   ---------------------------------------------------- */

int  eval( position *p )
{
  int   i;
  int   c;
  int   tot[2] = { 0, 0 };
  u64   dom;                   // bit board of dominant pieces.
  u64   non;                   // bb of non-dominant pieces

  int sC; // the C value of the score
  int sP; // the P value of the score
  int sR; // you guessed it

  for (c=0; c<2; c++)  // c = color, 0 or 1
  {
    int  e = c^1;  // enemy for convienence.

// calculate the P value of the score
    sP = 0;
    for (i=1; i<7; i++) // i loops over the types of pieces 1=rabbit .. 6=ele
      sP += bit_count( p->bd[c][i] ) * i;

// calculate the C value of the score
    sC = bit_count( p->bd[c][1] ) * 1;

// calculate the R value of the score
    sR = 0;
    for (i=0; i<8; i++) // i loops over the rows of the board
      sR += bit_count( p->bd[c][1] & adv[i+1][c] ) * (i+1)*(i+1)*(i+1);

    tot[c] = sR + sP*(sC+1);
  }

  if (p->ply & 1)
    return(tot[1] - tot[0]);

  return(tot[0] - tot[1]);
}