2073 begin |
2073 begin |
2074 if Gear^.Damage > 0 then |
2074 if Gear^.Damage > 0 then |
2075 begin |
2075 begin |
2076 // Normal, damaging explosion |
2076 // Normal, damaging explosion |
2077 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound); |
2077 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound); |
2078 // Remove land created by frozen air mine sprite pixel-perfectly |
2078 if ((Gear^.State and gstNoGravity) <> 0) then |
2079 EraseLand( |
2079 // Remove land created by frozen air mine sprite pixel-perfectly |
2080 hwRound(Gear^.X) - SpritesData[sprFrozenAirMine].Width div 2, |
2080 EraseLand( |
2081 hwRound(Gear^.Y) - SpritesData[sprFrozenAirMine].Height div 2, |
2081 hwRound(Gear^.X) - SpritesData[sprFrozenAirMine].Width div 2, |
2082 sprFrozenAirMine, 0, 0, false, false, false, false); |
2082 hwRound(Gear^.Y) - SpritesData[sprFrozenAirMine].Height div 2, |
|
2083 sprFrozenAirMine, 0, 0, false, false, false, false); |
2083 DeleteGear(Gear) |
2084 DeleteGear(Gear) |
2084 end; |
2085 end; |
2085 doStepFallingGear(Gear); |
2086 doStepFallingGear(Gear); |
2086 exit |
2087 exit |
2087 end; |
2088 end; |