equal
deleted
inserted
replaced
407 procedure doStepRopeAttach(Gear: PGear); |
407 procedure doStepRopeAttach(Gear: PGear); |
408 var |
408 var |
409 HHGear: PGear; |
409 HHGear: PGear; |
410 tx, ty, tt: hwFloat; |
410 tx, ty, tt: hwFloat; |
411 begin |
411 begin |
|
412 if (TurnTimeLeft > 0) then dec(TurnTimeLeft); |
|
413 |
412 Gear^.X := Gear^.X - Gear^.dX; |
414 Gear^.X := Gear^.X - Gear^.dX; |
413 Gear^.Y := Gear^.Y - Gear^.dY; |
415 Gear^.Y := Gear^.Y - Gear^.dY; |
414 Gear^.Elasticity := Gear^.Elasticity + _1; |
416 Gear^.Elasticity := Gear^.Elasticity + _1; |
415 |
417 |
416 HHGear := Gear^.Hedgehog^.Gear; |
418 HHGear := Gear^.Hedgehog^.Gear; |