🚀 go-pugleaf

Here is a patch to fix a couple of problems in pl70.  One fixes the
pawn ram code and the other fixes the buggy pawnstorm code.

Kong Sian


*** /usr/people/kongsian/gnuchess-4.0/src/eval.c	Tue May 10 05:44:21 1994
--- eval.c	Sun May 22 10:01:07 1994
***************
*** 1356,1362 ****
  		if (PC2[fyle] == 0) s += PWEAKH;
  		if (color[sq - 8] != neutral) s += PBLOK;
  	    }
! 	  if(rank != 0 && color[sq-8] == white && board[sq+8] == pawn) s -= PCRASH;
  	  if (PC2[fyle] == 0)
  	    {
  		r = rank + ((side == white)?1:0);
--- 1356,1362 ----
  		if (PC2[fyle] == 0) s += PWEAKH;
  		if (color[sq - 8] != neutral) s += PBLOK;
  	    }
! 	  if(rank != 0 && color[sq-8] == white && board[sq-8] == pawn) s -= PCRASH;
  	  if (PC2[fyle] == 0)
  	    {
  		r = rank + ((side == white)?1:0);
***************
*** 1782,1789 ****
  	Developed[black] = (board[57] != knight && board[58] != bishop &&
  			    board[61] != bishop && board[62] != knight);
  /* Pawn Storm */
!     if (!PawnStorm && stage < 5)
! 	PawnStorm = ((column (wking) < 3 && column (bking) > 4) ||
  		     (column (wking) > 4 && column (bking) < 3));
  /* setup base tables */
      memcpy(Mknight[white],pknight,sizeof(pknight));
--- 1782,1790 ----
  	Developed[black] = (board[57] != knight && board[58] != bishop &&
  			    board[61] != bishop && board[62] != knight);
  /* Pawn Storm */
! /*    if (!PawnStorm && stage < 5)*/
!     PawnStorm = (stage < 5) &&
! 	           ((column (wking) < 3 && column (bking) > 4) ||
  		     (column (wking) > 4 && column (bking) < 3));
  /* setup base tables */
      memcpy(Mknight[white],pknight,sizeof(pknight));