equal
deleted
inserted
replaced
826 //////////////////////////////////////////////////////////////////////////////// |
826 //////////////////////////////////////////////////////////////////////////////// |
827 procedure doStepHedgehogMoving(Gear: PGear); |
827 procedure doStepHedgehogMoving(Gear: PGear); |
828 var isFalling, isUnderwater: boolean; |
828 var isFalling, isUnderwater: boolean; |
829 land: Word; |
829 land: Word; |
830 begin |
830 begin |
|
831 WorldWrap(Gear); |
831 land:= 0; |
832 land:= 0; |
832 isUnderwater:= cWaterLine < hwRound(Gear^.Y) + Gear^.Radius; |
833 isUnderwater:= cWaterLine < hwRound(Gear^.Y) + Gear^.Radius; |
833 if Gear^.dX.QWordValue > 8160437862 then |
834 if Gear^.dX.QWordValue > 8160437862 then |
834 Gear^.dX.QWordValue:= 8160437862; |
835 Gear^.dX.QWordValue:= 8160437862; |
835 if Gear^.dY.QWordValue > 8160437862 then |
836 if Gear^.dY.QWordValue > 8160437862 then |