hedgewars/uGearsHandlersMess.pas
changeset 15184 cd38295cac16
parent 15153 95b72e81a866
child 15185 061a3085d6d8
--- a/hedgewars/uGearsHandlersMess.pas	Wed Jun 19 18:51:02 2019 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Wed Jun 19 19:02:49 2019 +0200
@@ -149,7 +149,7 @@
 implementation
 uses uConsts, uVariables, uVisualGearsList, uRandom, uCollisions, uGearsList, uUtils, uSound
     , SDLh, uScript, uGearsHedgehog, uGearsUtils, uIO, uCaptions, uLandGraphics
-    , uGearsHandlers, uTextures, uRenderUtils, uAmmos, uTeams, uLandTexture
+    , uConsole, uGearsHandlers, uTextures, uRenderUtils, uAmmos, uTeams, uLandTexture
     , uStore, uAI, uStats, uLocale;
 
 procedure doStepPerPixel(Gear: PGear; step: TGearStepProcedure; onlyCheckIfChanged: boolean);
@@ -3062,7 +3062,7 @@
 begin
     AllInactive := false;
     Gear^.X := Gear^.X + cAirPlaneSpeed * Gear^.Tag;
-
+    WriteLnToConsole('X='+IntToStr(hwRound(Gear^.X))+' dX='+cstr(gear^.dx)+' PLUS='+cstr(Gear^.dx+cAirPlaneSpeed));
     if (Gear^.Health > 0) and (not (Gear^.X < Gear^.dX)) and (Gear^.X < Gear^.dX + cAirPlaneSpeed) then
         begin
         dec(Gear^.Health);