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 EXPLForceDraw); |
2076 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound or EXPLDontDraw); |
|
2077 DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom+1); |
2077 DeleteGear(Gear) |
2078 DeleteGear(Gear) |
2078 end; |
2079 end; |
2079 doStepFallingGear(Gear); |
2080 doStepFallingGear(Gear); |
2080 exit |
2081 exit |
2081 end; |
2082 end; |