equal
deleted
inserted
replaced
2071 targ:= nil; |
2071 targ:= nil; |
2072 if (Gear^.State and gstFrozen) <> 0 then |
2072 if (Gear^.State and gstFrozen) <> 0 then |
2073 begin |
2073 begin |
2074 if Gear^.Damage > 0 then |
2074 if Gear^.Damage > 0 then |
2075 begin |
2075 begin |
2076 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound); |
2076 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound or EXPLForceDraw); |
2077 DeleteGear(Gear) |
2077 DeleteGear(Gear) |
2078 end; |
2078 end; |
2079 exit |
2079 exit |
2080 end; |
2080 end; |
2081 isUnderwater:= CheckCoordInWater(hwRound(Gear^.X), hwRound(Gear^.Y) + Gear^.Radius); |
2081 isUnderwater:= CheckCoordInWater(hwRound(Gear^.X), hwRound(Gear^.Y) + Gear^.Radius); |