Changeset 65 for trunk/UCore.pas

Timestamp:

Sep 28, 2014, 12:07:12 AM (10 years ago)

Author:

chronos

Message:

• Modified: Computer strategy as separate class TComputer.
• Modified: Computer move more units to borders.

File:

• trunk/UCore.pas (modified) (1 diff)

trunk/UCore.pas

@@ -133 +133 @@
 
 procedure TCore.AGameEndTurnExecute(Sender: TObject);
+var
+  I: Integer;
+  Computer: TComputer;
 begin
   Game.NextTurn;
   FormMain.Redraw;
   while Game.Running and (Game.CurrentPlayer.Mode <> pmHuman) do begin
-    if Game.CurrentPlayer.Mode = pmComputer then
-      Game.CurrentPlayer.ComputerTurn;
+    if Game.CurrentPlayer.Mode = pmComputer then begin
+      Computer := TComputer.Create;
+      Computer.Game := Game;
+      Computer.Process;
+      Computer.Free;
+      FormMain.Redraw;
+      for I := 0 to 10 do begin
+        Application.ProcessMessages;
+        Sleep(100);
+      end;
+    end;
     Game.NextTurn;
     FormMain.Redraw;