pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpchess: Had forgotten to make AI moves in its board

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1877 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-08-30 15:42:10 +00:00
parent 0caf78ba9d
commit 7d9cde1a4e
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
applications/fpchess/engines/kcchess/mod_kcchess.pas
View File

@ -255,6 +255,8 @@ begin
StartupInitialize();
DefaultBoard();
Game.GameFinished := false;
if vChessGame.FirstPlayerIsWhite then
begin
ComputerColor := C_BLACK;
@ -277,6 +279,7 @@ var
UserMovement, AIMovement: MoveType;
Escape: boolean;
Score: Integer;
lMoved: Boolean;
begin
// initialization
Escape := False;
@ -301,12 +304,16 @@ begin
{ Now get the computer move }
GetComputerMove(ComputerColor, False, AIMovement, Escape);
MakeMove(AIMovement, True, Score);
{ And write it to our board }
vChessGame.MovePiece(
lMoved := vChessGame.MovePiece(
Point(AIMovement.FromCol, AIMovement.FromRow),
Point(AIMovement.ToCol, AIMovement.ToRow));
if not lMoved then raise Exception.Create(Format('Moving failed from %s to %s',
[vChessGame.BoardPosToChessCoords(AFrom), vChessGame.BoardPosToChessCoords(ATo)]));
end;
initialization