equal
deleted
inserted
replaced
1641 |
1641 |
1642 //////////////////////////////////////////////////////////////////////////////// |
1642 //////////////////////////////////////////////////////////////////////////////// |
1643 procedure doStepTeleportAfter(Gear: PGear); |
1643 procedure doStepTeleportAfter(Gear: PGear); |
1644 var HHGear: PGear; |
1644 var HHGear: PGear; |
1645 begin |
1645 begin |
|
1646 PHedgehog(Gear^.Hedgehog)^.Unplaced:= false; |
1646 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
1647 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
1647 HHGear^.Y:= HHGear^.Y + HHGear^.dY; // hedgehog falling to collect cases |
1648 HHGear^.Y:= HHGear^.Y + HHGear^.dY; // hedgehog falling to collect cases |
1648 HHGear^.dY:= HHGear^.dY + cGravity; |
1649 HHGear^.dY:= HHGear^.dY + cGravity; |
1649 if TestCollisionYwithGear(HHGear, 1) |
1650 if TestCollisionYwithGear(HHGear, 1) |
1650 or CheckGearDrowning(HHGear) then |
1651 or CheckGearDrowning(HHGear) then |