equal
deleted
inserted
replaced
268 end; |
268 end; |
269 |
269 |
270 Gear^.X := Gear^.X + nx * len; |
270 Gear^.X := Gear^.X + nx * len; |
271 Gear^.Y := Gear^.Y + ny * len; |
271 Gear^.Y := Gear^.Y + ny * len; |
272 inc(RopePoints.Count); |
272 inc(RopePoints.Count); |
273 TryDo(RopePoints.Count <= MAXROPEPOINTS, 'Rope points overflow', true); |
273 if checkFails(RopePoints.Count <= MAXROPEPOINTS, 'Rope points overflow', true) then exit; |
274 Gear^.Elasticity := Gear^.Elasticity - len; |
274 Gear^.Elasticity := Gear^.Elasticity - len; |
275 Gear^.Friction := Gear^.Friction - len; |
275 Gear^.Friction := Gear^.Friction - len; |
276 haveDivided := true; |
276 haveDivided := true; |
277 break |
277 break |
278 end; |
278 end; |