Changeset 68 for trunk/UCore.pas

Timestamp:

Sep 28, 2014, 2:36:03 PM (10 years ago)

Author:

chronos

Message:

• Added: Option to change animation speed.
• Fixed: Shifted view during computer turn.

File:

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

trunk/UCore.pas

@@ -48 +48 @@
       CountRepeat: Integer; Update: Boolean; var Confirm: Boolean);
     procedure DoOnWin(Player: TPlayer);
+    procedure Delay(Time: Integer);
   public
     Game: TGame;
@@ -53 +54 @@
     DevelMode: Boolean;
     LastMapFileName: string;
-    View: TView;
+    AnimationSpeed: Integer;
     procedure UpdateActions;
     procedure Init;
@@ -106 +107 @@
 end;
 
+procedure TCore.Delay(Time: Integer);
+var
+  I: Integer;
+const
+  Slice = 50; // ms
+begin
+  while Time > 0 do begin
+    Application.ProcessMessages;
+    if Time > Slice then Sleep(Slice) else Sleep(Time);
+    Dec(Time, Slice);
+  end;
+end;
+
 procedure TCore.UpdateActions;
 begin
@@ -146 +160 @@
       Computer.Free;
       FormMain.Redraw;
-      for I := 0 to 10 do begin
-        Application.ProcessMessages;
-        Sleep(100);
-      end;
+      Delay(Trunc((100 - AnimationSpeed) / 100 * 2000));
     end;
     Game.NextTurn;
@@ -232 +243 @@
   XMLConfig1.SetValue('LastMapFileName', LastMapFileName);
   XMLConfig1.SetValue('DevelMode', DevelMode);
+  XMLConfig1.SetValue('AnimationSpeed', AnimationSpeed);
   FreeAndNil(Game);
 end;
@@ -242 +254 @@
   LastMapFileName := XMLConfig1.GetValue('LastMapFileName', '');
   DevelMode := XMLConfig1.GetValue('DevelMode', false);
+  AnimationSpeed := XMLConfig1.GetValue('AnimationSpeed', 50);
   CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(XMLConfig1.GetValue('Language', ''));
   for I := 0 to Game.Players.Count - 1 do