hedgewars/uGears.pas
changeset 5501 0ba2dca673e6
parent 5498 fac3c15707d2
parent 5493 49769489af37
child 5507 1040c0946ef8
equal deleted inserted replaced
5498:fac3c15707d2 5501:0ba2dca673e6
   273        gtShell: begin
   273        gtShell: begin
   274                 gear^.Radius:= 4;
   274                 gear^.Radius:= 4;
   275                 gear^.Density:= _1;
   275                 gear^.Density:= _1;
   276                 end;
   276                 end;
   277        gtSnowball: begin
   277        gtSnowball: begin
       
   278                 gear^.ImpactSound:= sndMudballImpact;
       
   279                 gear^.nImpactSounds:= 1;
   278                 gear^.Radius:= 4;
   280                 gear^.Radius:= 4;
   279                 gear^.Elasticity:= _1;
   281                 gear^.Elasticity:= _1;
   280                 gear^.Friction:= _1;
   282                 gear^.Friction:= _1;
   281                 gear^.Density:= _0_5;
   283                 gear^.Density:= _0_5;
   282                 end;
   284                 end;
   326                 gear^.Radius:= 3;
   328                 gear^.Radius:= 3;
   327                 gear^.Friction:= _450 * _0_01 * cRopePercent;
   329                 gear^.Friction:= _450 * _0_01 * cRopePercent;
   328                 RopePoints.Count:= 0;
   330                 RopePoints.Count:= 0;
   329                 end;
   331                 end;
   330         gtMine: begin
   332         gtMine: begin
       
   333                 gear^.ImpactSound:= sndMineImpact;
       
   334                 gear^.nImpactSounds:= 1;
   331                 gear^.Health:= 10;
   335                 gear^.Health:= 10;
   332                 gear^.State:= gear^.State or gstMoving;
   336                 gear^.State:= gear^.State or gstMoving;
   333                 gear^.Radius:= 2;
   337                 gear^.Radius:= 2;
   334                 gear^.Elasticity:= _0_55;
   338                 gear^.Elasticity:= _0_55;
   335                 gear^.Friction:= _0_995;
   339                 gear^.Friction:= _0_995;