tabs to spaces 0.9.25
authornemo
Fri, 11 Jan 2019 08:45:11 -0500
branch0.9.25
changeset 14561 5e4df5413e1e
parent 14560 945bf1d4d1a4
child 14562 3be619402d6b
child 14590 8736f3a0ff7f
tabs to spaces
hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Fri Jan 11 08:42:15 2019 -0500
+++ b/hedgewars/uGearsHandlersMess.pas	Fri Jan 11 08:45:11 2019 -0500
@@ -1188,7 +1188,7 @@
             end
         end
     else
-		DeleteGear(Gear);
+        DeleteGear(Gear);
 end;
 
 procedure CreateShellForGear(Gear: PGear; startFrame: Longword);
@@ -2037,7 +2037,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
@@ -2081,7 +2081,7 @@
                     hwRound(Gear^.Y) - SpritesData[sprFrozenAirMine].Height div 2,
                     sprFrozenAirMine, 0, 0, false, false, false, false);
             DeleteGear(Gear);
-			exit
+            exit
             end;
         doStepFallingGear(Gear);
         exit
@@ -2470,18 +2470,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
@@ -3173,7 +3173,7 @@
         begin
         DeleteGear(Gear);
         AfterAttack;
-		exit
+        exit
         end;
     inc(Gear^.Timer);
     if Gear^.Timer = 65 then
@@ -6480,19 +6480,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