Changeset 25 for trunk/UFormMain.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/UFormMain.pas (modified) (1 diff)

trunk/UFormMain.pas

@@ -73 +73 @@
 procedure TFormMain.PaintBox1Paint(Sender: TObject);
 begin
-  if Core.Game.Running then
+  //if Core.Game.Running then
+  if Assigned(Core.Game.CurrentPlayer) then
   with Core.Game.CurrentPlayer do begin
     View.DestRect := Bounds(0, 0, PaintBox1.Width, PaintBox1.Height);