equal
deleted
inserted
replaced
605 //////////////////////////////////////////////////////////////////////////////// |
605 //////////////////////////////////////////////////////////////////////////////// |
606 procedure doStepHedgehogMoving(Gear: PGear); |
606 procedure doStepHedgehogMoving(Gear: PGear); |
607 var isFalling, isUnderwater: boolean; |
607 var isFalling, isUnderwater: boolean; |
608 begin |
608 begin |
609 isUnderwater:= cWaterLine < hwRound(Gear^.Y) + Gear^.Radius; |
609 isUnderwater:= cWaterLine < hwRound(Gear^.Y) + Gear^.Radius; |
610 if Gear^.dX > _0_995 then Gear^.dX:= _0_995; |
610 if Gear^.dX.QWordValue > 8160437862 then Gear^.dX.QWordValue:= 8160437862; |
611 if Gear^.dY > _0_995 then Gear^.dY:= _0_995; |
611 if Gear^.dY.QWordValue > 8160437862 then Gear^.dY.QWordValue:= 8160437862; |
|
612 |
612 if PHedgehog(Gear^.Hedgehog)^.Unplaced then |
613 if PHedgehog(Gear^.Hedgehog)^.Unplaced then |
613 begin |
614 begin |
614 Gear^.dY:= _0; |
615 Gear^.dY:= _0; |
615 Gear^.dX:= _0; |
616 Gear^.dX:= _0; |
616 Gear^.State:= Gear^.State and not gstMoving; |
617 Gear^.State:= Gear^.State and not gstMoving; |