hedgewars/uGearsList.pas
changeset 15640 8416b08ffdbb
parent 15639 afeffdb4a712
child 15641 8e93ce81e850
equal deleted inserted replaced
15639:afeffdb4a712 15640:8416b08ffdbb
   833                 gear^.Health:= 2;
   833                 gear^.Health:= 2;
   834                 end;
   834                 end;
   835         gtSentry: begin
   835         gtSentry: begin
   836                 gear^.Radius:= cHHRadius;
   836                 gear^.Radius:= cHHRadius;
   837                 gear^.Health:= 100;
   837                 gear^.Health:= 100;
       
   838                 gear^.Friction:= _0_93;
       
   839                 gear^.Elasticity:= _0_5;
       
   840                 gear^.Tag:= 0;
       
   841                 gear^.Timer:= 500;
   838                 end;
   842                 end;
   839 gtGenericFaller:begin
   843 gtGenericFaller:begin
   840                 gear^.AdvBounce:= 1;
   844                 gear^.AdvBounce:= 1;
   841                 gear^.Radius:= 1;
   845                 gear^.Radius:= 1;
   842                 gear^.Elasticity:= _0_9;
   846                 gear^.Elasticity:= _0_9;