hedgewars/uGears.pas
changeset 997 d828d1d1ecc4
parent 994 ea415d03968c
child 999 8dcf263c9e8f
equal deleted inserted replaced
996:a6a21a91bc6a 997:d828d1d1ecc4
   201 case Kind of
   201 case Kind of
   202    gtAmmo_Bomb,
   202    gtAmmo_Bomb,
   203  gtClusterBomb: begin
   203  gtClusterBomb: begin
   204                 Result^.Radius:= 4;
   204                 Result^.Radius:= 4;
   205                 Result^.Elasticity:= _0_6;
   205                 Result^.Elasticity:= _0_6;
   206                 Result^.Friction:= _0_995;
   206                 Result^.Friction:= _0_96;
   207                 end;
   207                 end;
   208     gtHedgehog: begin
   208     gtHedgehog: begin
   209                 Result^.Radius:= cHHRadius;
   209                 Result^.Radius:= cHHRadius;
   210                 Result^.Elasticity:= _0_35;
   210                 Result^.Elasticity:= _0_35;
   211                 Result^.Friction:= _0_999;
   211                 Result^.Friction:= _0_999;