Changeset 25 for trunk/UCore.pas

Timestamp:

Mar 3, 2014, 12:42:16 AM (11 years ago)

Author:

chronos

Message:

• Added: Implement basic computer strategy to attack to weaker neighbours.

File:

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

trunk/UCore.pas

@@ -89 +89 @@
   FormMain.Redraw;
   while Game.Running and (Game.CurrentPlayer.Mode <> pmHuman) do begin
+    if Game.CurrentPlayer.Mode = pmComputer then
+      Game.CurrentPlayer.ComputerTurn;
     Game.NextTurn;
     FormMain.Redraw;