hedgewars/uGearsList.pas
changeset 15715 e0cdb6ae88ab
parent 15711 4a8a1dd9528a
child 15820 b6379a7ed674
equal deleted inserted replaced
15714:7a4b719ac611 15715:e0cdb6ae88ab
   840                 gear^.Radius:= cHHRadius;
   840                 gear^.Radius:= cHHRadius;
   841                 gear^.Health:= cSentryHealth;
   841                 gear^.Health:= cSentryHealth;
   842                 gear^.Friction:= _0_93;
   842                 gear^.Friction:= _0_93;
   843                 gear^.Elasticity:= _0_05;
   843                 gear^.Elasticity:= _0_05;
   844                 gear^.Tag:= 0;
   844                 gear^.Tag:= 0;
   845                 gear^.Timer:= 500;
   845                 gear^.Timer:= 1000;
   846                 gear^.WDTimer:= 0;
   846                 gear^.WDTimer:= 0;
   847                 end;
   847                 end;
   848 gtGenericFaller:begin
   848 gtGenericFaller:begin
   849                 gear^.AdvBounce:= 1;
   849                 gear^.AdvBounce:= 1;
   850                 gear^.Radius:= 1;
   850                 gear^.Radius:= 1;