equal
deleted
inserted
replaced
226 gear^.Hedgehog:= CurrentHedgehog; |
226 gear^.Hedgehog:= CurrentHedgehog; |
227 gear^.IntersectGear:= CurrentHedgehog^.Gear |
227 gear^.IntersectGear:= CurrentHedgehog^.Gear |
228 end; |
228 end; |
229 |
229 |
230 case Kind of |
230 case Kind of |
231 gtBomb, |
231 gtGrenade, |
232 gtClusterBomb, |
232 gtClusterBomb, |
233 gtGasBomb: begin |
233 gtGasBomb: begin |
234 gear^.ImpactSound:= sndGrenadeImpact; |
234 gear^.ImpactSound:= sndGrenadeImpact; |
235 gear^.nImpactSounds:= 1; |
235 gear^.nImpactSounds:= 1; |
236 gear^.AdvBounce:= 1; |
236 gear^.AdvBounce:= 1; |