45a7900c4e
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2168 8e941d3f-bd1b-0410-a28a-d453659cc2b4
106 lines
2.5 KiB
ObjectPascal
106 lines
2.5 KiB
ObjectPascal
unit mod_winboard;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils,
|
|
StdCtrls, Forms, Controls,
|
|
chessmodules, chessgame;
|
|
|
|
type
|
|
|
|
{ TWinboardChessModule }
|
|
|
|
TWinboardChessModule = class(TChessModule)
|
|
private
|
|
textEnginePatch : TStaticText;
|
|
editEnginePatch : TEdit;
|
|
EngineStringList: TStringList;
|
|
side : boolean; //Side to move true=human.
|
|
public
|
|
constructor Create; override;
|
|
procedure CreateUserInterface(); override;
|
|
procedure ShowUserInterface(AParent: TWinControl); override;
|
|
procedure HideUserInterface(); override;
|
|
procedure FreeUserInterface(); override;
|
|
procedure PrepareForGame(); override;
|
|
procedure HandleOnMove(AFrom, ATo: TPoint); override;
|
|
end;
|
|
|
|
implementation
|
|
uses winboardConn;
|
|
|
|
{ TSinglePlayerChessModule }
|
|
|
|
constructor TWinboardChessModule.Create;
|
|
begin
|
|
inherited Create;
|
|
|
|
SelectionDescription := 'Play against a winboard engine';
|
|
PlayingDescription := 'Play against a winboard engine';
|
|
Kind := cmkAgainstComputer;
|
|
end;
|
|
|
|
procedure TWinboardChessModule.CreateUserInterface;
|
|
begin
|
|
textEnginePatch := TStaticText.Create(nil);
|
|
textEnginePatch.SetBounds(20, 20, 180, 50);
|
|
textEnginePatch.Caption := 'Full patch to the engine';
|
|
|
|
editEnginePatch := TEdit.Create(nil);
|
|
editEnginePatch.SetBounds(200, 20, 150, 50);
|
|
editEnginePatch.Text := 'gnuchess';
|
|
end;
|
|
|
|
procedure TWinboardChessModule.ShowUserInterface(AParent: TWinControl);
|
|
begin
|
|
textEnginePatch.Parent := AParent;
|
|
editEnginePatch.Parent := AParent;
|
|
end;
|
|
|
|
procedure TWinboardChessModule.HideUserInterface();
|
|
begin
|
|
textEnginePatch.Parent := nil;
|
|
editEnginePatch.Parent := nil;
|
|
end;
|
|
|
|
procedure TWinboardChessModule.FreeUserInterface();
|
|
begin
|
|
textEnginePatch.Free;
|
|
editEnginePatch.Free;
|
|
end;
|
|
|
|
procedure TWinboardChessModule.HandleOnMove(AFrom, ATo: TPoint);
|
|
var
|
|
moveStr : String;
|
|
CompMove: moveInCoord;
|
|
begin
|
|
moveStr:=vwinboardConn.coordToString(AFrom,ATo,vChessGame.PreviousMove.PieceMoved,vChessGame.PreviousMove.PieceEaten);
|
|
|
|
vwinboardConn.tellMove(moveStr);
|
|
compMove:=vwinboardConn.engineMove;
|
|
vChessGame.MovePiece(CompMove[1],CompMove[2]);
|
|
end;
|
|
|
|
procedure TWinboardChessModule.PrepareForGame;
|
|
var i: integer;
|
|
CompMove: moveInCoord;
|
|
begin
|
|
vwinboardConn.startEngine(editEnginePatch.text);
|
|
if not vChessGame.FirstPlayerIsWhite then
|
|
begin
|
|
vwinboardConn.tellMove('go');
|
|
compMove:=vwinboardConn.engineMove;
|
|
vChessGame.MovePiece(CompMove[1],CompMove[2]);
|
|
end;
|
|
|
|
end;
|
|
|
|
initialization
|
|
RegisterChessModule(TWinboardChessModule.Create);
|
|
finalization
|
|
vwinboardConn.stopEngine;
|
|
end.
|