hedgewars/uGears.pas
changeset 4396 3cfd2e15464a
parent 4393 883b979697e4
child 4398 36d7e4b6ca81
equal deleted inserted replaced
4395:54dedd218dde 4396:3cfd2e15464a
   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;