# HG changeset patch # User nemo # Date 1547214671 18000 # Node ID 3be619402d6bf6a08c019f9a90da62fdaac303e3 # Parent 397b2f4502c16a152d4b2a67fb703739431001d1# Parent 5e4df5413e1eb93d27cf2cc3a8058740e85174db merge release branch diff -r 397b2f4502c1 -r 3be619402d6b QTfrontend/CMakeLists.txt --- a/QTfrontend/CMakeLists.txt Fri Jan 11 08:08:28 2019 -0500 +++ b/QTfrontend/CMakeLists.txt Fri Jan 11 08:51:11 2019 -0500 @@ -248,7 +248,7 @@ endif() if(CMAKE_CXX_COMPILER MATCHES "clang*") - list(APPEND HW_LINK_LIBS stdc++ m) + list(APPEND HW_LINK_LIBS stdc++ m atomic) endif() if(WIN32 AND VCPKG_TOOLCHAIN) diff -r 397b2f4502c1 -r 3be619402d6b hedgewars/uGearsHandlersMess.pas --- 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