hedgewars/uGears.pas
changeset 2935 b80800979436
parent 2934 e0f2b0f97c2b
child 2937 da06c25edf1d
equal deleted inserted replaced
2934:e0f2b0f97c2b 2935:b80800979436
   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_995;
   332                 gear^.Friction:= _0_999;
   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