hedgewars/uGearsList.pas
changeset 15710 7383256f8535
parent 15656 c34cad72cd85
child 15711 4a8a1dd9528a
equal deleted inserted replaced
15709:6b04399c84a7 15710:7383256f8535
   316                     else Gear^.Boom := 3;
   316                     else Gear^.Boom := 3;
   317     gtPoisonCloud: Gear^.Boom := 20;
   317     gtPoisonCloud: Gear^.Boom := 20;
   318           gtKnife: Gear^.Boom := 40000; // arbitrary scaling factor since impact-based
   318           gtKnife: Gear^.Boom := 40000; // arbitrary scaling factor since impact-based
   319         gtCreeper: Gear^.Boom := 100;
   319         gtCreeper: Gear^.Boom := 100;
   320   gtMinigunBullet: Gear^.Boom := 2;
   320   gtMinigunBullet: Gear^.Boom := 2;
   321          gtSentry: Gear^.Boom := 25;
   321          gtSentry: Gear^.Boom := 40;
   322     end;
   322     end;
   323 
   323 
   324 case Kind of
   324 case Kind of
   325      gtGrenade,
   325      gtGrenade,
   326      gtClusterBomb,
   326      gtClusterBomb,
   836                 gear^.Pos:= 0; //uses non-global hit order
   836                 gear^.Pos:= 0; //uses non-global hit order
   837                 gear^.Data:= nil;
   837                 gear^.Data:= nil;
   838                 end;
   838                 end;
   839         gtSentry: begin
   839         gtSentry: begin
   840                 gear^.Radius:= cHHRadius;
   840                 gear^.Radius:= cHHRadius;
   841                 gear^.Health:= 100;
   841                 gear^.Health:= 60;
   842                 gear^.Friction:= _0_93;
   842                 gear^.Friction:= _0_93;
   843                 gear^.Elasticity:= _0_5;
   843                 gear^.Elasticity:= _0_05;
   844                 gear^.Tag:= 0;
   844                 gear^.Tag:= 0;
   845                 gear^.Timer:= 500;
   845                 gear^.Timer:= 500;
   846                 gear^.WDTimer:= 0;
   846                 gear^.WDTimer:= 0;
   847                 end;
   847                 end;
   848 gtGenericFaller:begin
   848 gtGenericFaller:begin