Text 61, 67 rader
Skriven 2004-09-20 12:40:24 av Kurt Kuzba (1:261/38)
Ärende: [C] numdrop4 v4.4 - [2 of 6]
====================================
From: "Kurt Kuzba" <kkuzba@centurytel.net>

/*_|_|  numdrop4.c  v4.4  PUBLIC DOMAIN 9/20/2004 by Kurt Kuzba
_|_|_|  Part 2 of 6
_|_|*/
int compress_down(sGameColumns *GC) {
  int x, y, iStatus = 0;
  for(y = 9; y > 0; y--)
    for(x = 0; x < 10; x++)
      if(GC->C[y].L[x] == ' ')
      {
        swapsquares(&GC->C[y].L[x], &GC->C[y - 1].L[x]);
        if(GC->C[y].L[x] != ' ')
          iStatus++;
      }
  return iStatus;
}
int compress_right(sGameColumns *GC) {
  int x, y, iStatus = 0;
    for(y = 0; y < 10; y++)
      for(x = 9; x > 0; x--)
        if(GC->C[y].L[x] == ' ')
        {
          swapsquares(&GC->C[y].L[x], &GC->C[y].L[x - 1]);
          if(GC->C[y].L[x] != ' ')
            iStatus++;
        }
  return iStatus;
}
void numberdrop(sGameHistory* GBs, int isc, int iy, int ix) {
  sGameColumns* GC = &GBs->B[GBs->Move];
 /* handy pointer to current game grid */
  int y = GC->Y, x = GC->X;
 /* handy grid xy integer values */
  GC->Score += isc;
 /* add points to score */
  GC->C[y].L[x] = GC->C[y + iy].L[x + ix] = (char)' ';
 /* remove numerical characters from grid */
  do {
    isc = compress_down(GC) + compress_right(GC);
    show_array(GBs);
  } while(isc > 0);
 /* slide numbers down and then right into empty spaces */
}
int addsuptoten(sGameHistory* GBs, int y, int x, int mid) {
  sGameColumns* GC = &GBs->B[GBs->Move];
 /* handy pointer to current game grid */
  int iSTen = squarevalue(GBs, GC->Y + y, GC->X + x);
 /* create integer to use in math comparison process */
  iSTen = (iSTen >= 1 && iSTen <= 9) ? iSTen : 0;
 /* test for numerical value 1-9 and set to 0 on failure */
  iSTen += mid;
 /* add to value of number under cursor */
  if(iSTen == 10)
  {
    GBs->B[GBs->Move + 1] = GBs->B[GBs->Move];
    GBs->Move++;
    numberdrop(GBs, mid, y, x);
  }
 /* if result is 10, remove numbers and move remaining data */
  return (iSTen == 10);
 /* return 1 for success and 0 for failure */
}
/*_|_|  end numdrop4.c  v4.4  Part 2 of 6  _|_|*/

--- BBBS/LiI v4.01 Flag-5
 * Origin: Prism's_Point (1:261/38.1)