Add command stop

rchastain · Jan 6, 2020 · 29952d0 · 29952d0
1 parent a2c3b95
commit 29952d0
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 0 deletions.
diff --git a/source/eschecs.pas b/source/eschecs.pas
@@ -98,6 +98,8 @@   TMainForm = class(TfpgForm)
     FXLegend, FYLegend, FXLegendInv, FYLegendInv: TBGRABitmap;
     FChess960: boolean;
     FOpeningName: string;
+    FSendMsgGoTime: cardinal;
+    FCheckTimeElapsed: boolean;
     procedure HandleKeyPress(var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean); override;
   public
     destructor Destroy; override;
@@ -527,6 +529,7 @@ procedure TMainForm.InitForm;
     BGRABitmapVersionStr
   ]));
 
+  FCheckTimeElapsed := FALSE;
   FTimer := TfpgTimer.Create(10);
   FTimer.OnTimer := @InternalTimerFired;
   FTimer.Enabled := TRUE;
@@ -786,6 +789,14 @@ procedure TMainForm.InternalTimerFired(Sender: TObject);
 var
   LAnimationTerminated: boolean;
 begin
+  if FWaiting and FCheckTimeElapsed then
+  begin
+    if GetTickCount64 - FSendMsgGoTime > FMoveTime then
+    begin
+      Send(MsgStop);
+      FCheckTimeElapsed := FALSE;
+    end;
+  end;
   if FChessboard.Animate(LAnimationTerminated) or FComputerCastling then
     FChessboardWidget.Invalidate
   else
@@ -803,6 +814,7 @@ procedure TMainForm.InternalTimerFired(Sender: TObject);
           end;
         1:
           begin
+            FCheckTimeElapsed := FALSE;
           end;
         2:
           begin
@@ -812,6 +824,8 @@ procedure TMainForm.InternalTimerFired(Sender: TObject);
             FWaiting := TRUE;
             FStatusBar.Text := GetText(txWaiting);
             FWaitingForUserMove := FALSE;
+            FCheckTimeElapsed := TRUE;
+            FSendMsgGoTime := GetTickCount64;
           end;
       end;
     end;

diff --git a/source/uci.pas b/source/uci.pas
@@ -9,6 +9,7 @@ function MsgNewGame: string;
 function MsgIsReady: string;
 function MsgPosition(const AFenPosition: string): string;
 function MsgGo(const AMoveTime: integer): string;
+function MsgStop: string;
 function MsgQuit: string;
 
 function IsMsgUciOk(const AMsg: string; out AEngineName, AAuthor: string; out AOptChess960: boolean): boolean;
@@ -28,6 +29,7 @@ implementation
     ucIsReady,
     ucPosition,
     ucGo,
+    ucStop,
     ucQuit
   );
 
@@ -39,6 +41,7 @@ implementation
     'isready',
     'position fen %s',
     'go movetime %d',
+    'stop',
     'quit'
   );
 
@@ -72,6 +75,11 @@ function MsgGo(const AMoveTime: integer): string;
   result := Format(CPatterns[ucGo], [AMoveTime]);
 end;
 
+function MsgStop: string;
+begin
+  result := CPatterns[ucStop];
+end;
+
 function MsgQuit: string;
 begin
   result := CPatterns[ucQuit];