hedgewars/uGearsList.pas
changeset 15847 2839b68a3732
parent 15846 78745063cf33
equal deleted inserted replaced
15846:78745063cf33 15847:2839b68a3732
   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:= cSentryHealth;
   841                 gear^.Health:= cSentryHealth;
   842                 gear^.Friction:= _0_93;
   842                 gear^.Friction:= _0_999;
   843                 gear^.Elasticity:= _0_05;
   843                 gear^.Elasticity:= _0_35;
   844                 gear^.Density:= _3;
   844                 gear^.Density:= _3;
   845                 gear^.Tag:= 0;
   845                 gear^.Tag:= 0;
   846                 gear^.Timer:= 1000;
   846                 gear^.Timer:= 1000;
   847                 gear^.WDTimer:= 0;
   847                 gear^.WDTimer:= 0;
   848                 end;
   848                 end;