VideoRec: Fix many effects not being recorded
authorWuzzy <Wuzzy2@mail.ru>
Tue, 20 Feb 2018 19:07:32 +0100
changeset 13045 a87d3119c962
parent 13044 aed4b25ff242
child 13046 e0d5b63f4e37
VideoRec: Fix many effects not being recorded
ChangeLog.txt
hedgewars/hwengine.pas
hedgewars/uVisualGearsList.pas
--- a/ChangeLog.txt	Tue Feb 20 17:52:22 2018 +0100
+++ b/ChangeLog.txt	Tue Feb 20 19:07:32 2018 +0100
@@ -13,6 +13,7 @@
  * Fix time box being usable in Sudden Death with 0 health decrease
  * Fix chat input key being sometimes registered twice
  * Fix not displaying current volume status after pressing mute key
+ * Fix many effects not being correctly recorded by the video recorder
 
 Frontend:
  + Schemes are now stored in separate files under Schemes
--- a/hedgewars/hwengine.pas	Tue Feb 20 17:52:22 2018 +0100
+++ b/hedgewars/hwengine.pas	Tue Feb 20 19:07:32 2018 +0100
@@ -332,6 +332,7 @@
     while LoadNextCameraPosition(newRealTicks, newGameTicks) do
     begin
         IPCCheckSock();
+        RealTicks:= newRealTicks;
         DoGameTick(newGameTicks - oldGameTicks);
         if GameState = gsExit then
             break;
--- a/hedgewars/uVisualGearsList.pas	Tue Feb 20 17:52:22 2018 +0100
+++ b/hedgewars/uVisualGearsList.pas	Tue Feb 20 19:07:32 2018 +0100
@@ -63,8 +63,9 @@
     sp: real;
 begin
 AddVisualGear:= nil;
-if ((GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) or fastScrolling) and // we are scrolling now
-   ((Kind <> vgtCloud) and (not Critical)) then
+if (GameType <> gmtRecord) and
+   (((GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) or fastScrolling) and // we are scrolling now
+   ((Kind <> vgtCloud) and (not Critical))) then
        exit;
 
 if ((cReducedQuality and rqAntiBoom) <> 0) and