hedgewars/uGears.pas
changeset 4406 beb4de0af990
parent 4403 0dfe26f48ec1
child 4417 6bf00d99fc47
equal deleted inserted replaced
4405:ed78465973f6 4406:beb4de0af990
   271                 gear^.Radius:= 8;
   271                 gear^.Radius:= 8;
   272                 gear^.Timer:= 125
   272                 gear^.Timer:= 125
   273                 end;
   273                 end;
   274         gtRope: begin
   274         gtRope: begin
   275                 gear^.Radius:= 3;
   275                 gear^.Radius:= 3;
   276                 gear^.Friction:= _450;
   276                 gear^.Friction:= _450 * _0_01 * cRopePercent;
   277                 RopePoints.Count:= 0;
   277                 RopePoints.Count:= 0;
   278                 end;
   278                 end;
   279         gtMine: begin
   279         gtMine: begin
   280                 gear^.Health:= 10;
   280                 gear^.Health:= 10;
   281                 gear^.State:= gear^.State or gstMoving;
   281                 gear^.State:= gear^.State or gstMoving;