X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_panel.pas;h=ffd7c50ffc52fa8e093598b6fb62911aafc004b8;hb=15ef0fb2d44e381afb8d0ea07cdb31fd3903ba7b;hp=041a142b3865f54926ca6b81ba14877e1b249f06;hpb=ef67a1b1cbdbde85e1a562ef2dda50824f32db21;p=d2df-sdl.git

diff --git a/src/game/g_panel.pas b/src/game/g_panel.pas
index 041a142..ffd7c50 100644
--- a/src/game/g_panel.pas
+++ b/src/game/g_panel.pas
@@ -167,6 +167,11 @@ type
 
   TPanelArray = Array of TPanel;
 
+var
+  g_dbgpan_mplat_active: Boolean = {$IF DEFINED(D2F_DEBUG)}false{$ELSE}true{$ENDIF};
+  g_dbgpan_mplat_step: Boolean = false; // one step, and stop
+
+
 implementation
 
 uses
@@ -606,7 +611,7 @@ begin
     FCurFrameCount := FTextureIDs[FCurTexture].AnTex.CurrentCounter;
   end;
 
-  if mMovingActive and (not mMovingSpeed.isZero) then
+  if mMovingActive and (not mMovingSpeed.isZero) and g_dbgpan_mplat_active then
   begin
     monMoveListUsed := 0;
     nx := X+mMovingSpeed.X;