uLand.pas: Remove unused variable
authorWuzzy <Wuzzy2@mail.ru>
Wed, 19 Jun 2019 19:02:49 +0200
changeset 15184 cd38295cac16
parent 15183 d3998dcc076f
child 15185 061a3085d6d8
uLand.pas: Remove unused variable
hedgewars/uGearsHandlersMess.pas
hedgewars/uLand.pas
--- 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);
--- a/hedgewars/uLand.pas	Wed Jun 19 18:51:02 2019 +0200
+++ b/hedgewars/uLand.pas	Wed Jun 19 19:02:49 2019 +0200
@@ -282,7 +282,7 @@
 
 
 procedure GenDrawnMap;
-var lowerX, upperX, lowerY, upperY, lowerFS, upperFS, value: LongInt;
+var lowerX, upperX, lowerY, upperY, lowerFS, upperFS: LongInt;
 begin
     if (cFeatureSize <= 6) then
         MaxHedgehogs:= 6 + (cFeatureSize-1) * 2