# HG changeset patch # User nemo # Date 1547214311 18000 # Node ID 5e4df5413e1eb93d27cf2cc3a8058740e85174db # Parent 945bf1d4d1a4a95ba41252e63bf4539f6c216e1a tabs to spaces diff -r 945bf1d4d1a4 -r 5e4df5413e1e 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