hedgewars/uGears.pas
changeset 2938 451f917ac46c
parent 2937 da06c25edf1d
child 2940 c02119eee12a
equal deleted inserted replaced
2937:da06c25edf1d 2938:451f917ac46c
   327                 gear^.Elasticity:= _0_3
   327                 gear^.Elasticity:= _0_3
   328                 end;
   328                 end;
   329   gtExplosives: begin
   329   gtExplosives: begin
   330                 gear^.Radius:= 16;
   330                 gear^.Radius:= 16;
   331                 gear^.Elasticity:= _0_4;
   331                 gear^.Elasticity:= _0_4;
   332                 gear^.Friction:= _0_999;
   332                 gear^.Friction:= _0_995;
   333                 gear^.Health:= cBarrelHealth
   333                 gear^.Health:= cBarrelHealth
   334                 end;
   334                 end;
   335   gtDEagleShot: begin
   335   gtDEagleShot: begin
   336                 gear^.Radius:= 1;
   336                 gear^.Radius:= 1;
   337                 gear^.Health:= 50
   337                 gear^.Health:= 50