Changeset 29 for trunk/UCore.pas

Timestamp:

Oct 6, 2019, 9:53:39 PM (5 years ago)

Author:

chronos

Message:

• Added: Computer player accessible from Tools menu in Debug mode. It is not able to win game yet.

File:

• trunk/UCore.pas (modified) (8 diffs)

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UTheme, UPersistentForm, UApplicationInfo, UTranslator,
-  URegistry, UGame, ActnList, Forms, Controls;
+  URegistry, UGame, ActnList, Forms, Controls, Dialogs;
 
 type
@@ -15 +15 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AComputer: TAction;
     AHelp: TAction;
     AUndo: TAction;
@@ -26 +27 @@
     Translator1: TTranslator;
     procedure AAboutExecute(Sender: TObject);
+    procedure AComputerExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
     procedure AHelpExecute(Sender: TObject);
@@ -35 +37 @@
   private
     procedure GameChange(Sender: TObject);
+    procedure GameWin(Sender: TObject);
+    procedure GameOver(Sender: TObject);
   public
     Game: TGame;
@@ -50 +54 @@
 
 uses
-  UFormMain, UFormSettings, UFormAbout, UFormNew, UFormHelp;
+  UFormMain, UFormSettings, UFormAbout, UFormNew, UFormHelp, UFormComputer;
+
+resourcestring
+  SGameOverCaption = 'Lost';
+  SGameOverMessage = 'Game over!';
+  SWinCaption = 'Win';
+  SWinMessage = 'You reached %d and won! You can continue to play to get higher score.';
 
 { TCore }
@@ -66 +76 @@
   Game.Board.Size := Point(4, 4);
   Game.OnChange := GameChange;
+  Game.OnWin := GameWin;
   LoadConfig;
 end;
@@ -92 +103 @@
   finally
     FreeAndNil(FormAbout);
+  end;
+end;
+
+procedure TCore.AComputerExecute(Sender: TObject);
+begin
+  FormComputer := TFormComputer.Create(nil);
+  try
+    FormComputer.ShowModal;
+  finally
+    FreeAndNil(FormComputer);
   end;
 end;
@@ -136 +157 @@
 end;
 
+procedure TCore.GameWin(Sender: TObject);
+begin
+  MessageDlg(SWinCaption, Format(SWinMessage, [Game.WinScore]), mtInformation, [mbOk], 0);
+end;
+
+procedure TCore.GameOver(Sender: TObject);
+begin
+  MessageDlg(SGameOverCaption, SGameOverMessage, mtInformation, [mbOK], 0);
+end;
+
 procedure TCore.UpdateInterface;
 begin
   AUndo.Enabled := Game.CanUndo;
+  {$IFDEF DEBUG}
+  AComputer.Enabled := True;
+  {$ELSE}
+  AComputer.Enabled := False;
+  {$ENDIF}
 end;