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 or EXPLDontDraw); |
2076 // Normal, damaging explosion |
2077 DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom+1); |
2077 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound); |
|
2078 // Remove land created by frozen air mine sprite pixel-perfectly |
|
2079 EraseLand( |
|
2080 hwRound(Gear^.X) - SpritesData[sprFrozenAirMine].Width div 2, |
|
2081 hwRound(Gear^.Y) - SpritesData[sprFrozenAirMine].Height div 2, |
|
2082 sprFrozenAirMine, 0, 0, false, false, false, false); |
2078 DeleteGear(Gear) |
2083 DeleteGear(Gear) |
2079 end; |
2084 end; |
2080 doStepFallingGear(Gear); |
2085 doStepFallingGear(Gear); |
2081 exit |
2086 exit |
2082 end; |
2087 end; |