hedgewars/uGears.pas
changeset 5137 b6140f35735f
parent 5121 2d34ec60992c
child 5139 090a8b8d1083
equal deleted inserted replaced
5136:948da1e50205 5137:b6140f35735f
   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;