hedgewars/uGearsHandlersMess.pas
changeset 14557 3be619402d6b
parent 14554 397b2f4502c1
parent 14556 5e4df5413e1e
child 14560 45c6c12c12e2
--- a/hedgewars/uGearsHandlersMess.pas	Fri Jan 11 08:08:28 2019 -0500
+++ b/hedgewars/uGearsHandlersMess.pas	Fri Jan 11 08:51:11 2019 -0500
@@ -1191,7 +1191,7 @@
             end
         end
     else
-		DeleteGear(Gear);
+        DeleteGear(Gear);
 end;
 
 procedure CreateShellForGear(Gear: PGear; startFrame: Longword);
@@ -2040,7 +2040,7 @@
                     begin
                     doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound);
                     DeleteGear(Gear);
-					exit   // redundant but we've had too many delete gear bugs
+                    exit   // redundant but we've had too many delete gear bugs
                     end
                 else
                     begin
@@ -2084,7 +2084,7 @@
                     hwRound(Gear^.Y) - SpritesData[sprFrozenAirMine].Height div 2,
                     sprFrozenAirMine, 0, 0, false, false, false, false);
             DeleteGear(Gear);
-			exit
+            exit
             end;
         doStepFallingGear(Gear);
         exit
@@ -2473,18 +2473,18 @@
         else if k = gtTarget then
             uStats.TargetHit()
         else if k = gtExplosives then
-			begin
-			doMakeExplosion(x, y, Gear^.Boom, hog, EXPLAutoSound);
-			for i:= 0 to 31 do
-				begin
-				dX := AngleCos(i * 64) * _0_5 * (getrandomf + _1);
-				dY := AngleSin(i * 64) * _0_5 * (getrandomf + _1);
-				AddGear(x, y, gtFlame, 0, dX, dY, 0);
-				AddGear(x, y, gtFlame, gstTmpFlag, -dX, -dY, 0);
-				end
-			end;
+            begin
+            doMakeExplosion(x, y, Gear^.Boom, hog, EXPLAutoSound);
+            for i:= 0 to 31 do
+                begin
+                dX := AngleCos(i * 64) * _0_5 * (getrandomf + _1);
+                dY := AngleSin(i * 64) * _0_5 * (getrandomf + _1);
+                AddGear(x, y, gtFlame, 0, dX, dY, 0);
+                AddGear(x, y, gtFlame, gstTmpFlag, -dX, -dY, 0);
+                end
+            end;
         DeleteGear(Gear);
-		exit
+        exit
         end;
 
     if k = gtExplosives then
@@ -3176,7 +3176,7 @@
         begin
         DeleteGear(Gear);
         AfterAttack;
-		exit
+        exit
         end;
     inc(Gear^.Timer);
     if Gear^.Timer = 65 then
@@ -6485,19 +6485,19 @@
                                     (hwRound(iter^.Y) > topY+16) and (hwRound(iter^.Y) < LAND_HEIGHT-16) then
                                     begin
                                     AddCI(iter);
-									iter^.X:= int2hwFloat(min(RightX-16,max(hwRound(iter^.X), LeftX+16)));
-									iter^.Y:= int2hwFloat(min(LAND_HEIGHT-16,max(hwRound(iter^.Y),TopY+16)));
+                                    iter^.X:= int2hwFloat(min(RightX-16,max(hwRound(iter^.X), LeftX+16)));
+                                    iter^.Y:= int2hwFloat(min(LAND_HEIGHT-16,max(hwRound(iter^.Y),TopY+16)));
                                     ForcePlaceOnLand(hwRound(iter^.X)-16, hwRound(iter^.Y)-16, sprFrozenAirMine, 0, lfIce, $FFFFFFFF, false, false, false);    
                                     iter^.State:= iter^.State or gstInvisible
                                     end
                                 else
-									begin
-									updateTarget(Gear, ndX, ndY);
-									FlightTime := 0;
-									Timer := iceWaitCollision;
-									Power := GameTicks;
+                                    begin
+                                    updateTarget(Gear, ndX, ndY);
+                                    FlightTime := 0;
+                                    Timer := iceWaitCollision;
+                                    Power := GameTicks;
                                     iter^.State:= iter^.State and (not gstNoGravity)
-									end
+                                    end
                                 end
                             else // gtExplosives
                                 begin