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); |
|
832 land:= 0; |
831 land:= 0; |
833 isUnderwater:= cWaterLine < hwRound(Gear^.Y) + Gear^.Radius; |
832 isUnderwater:= cWaterLine < hwRound(Gear^.Y) + Gear^.Radius; |
834 if Gear^.dX.QWordValue > 8160437862 then |
833 if Gear^.dX.QWordValue > 8160437862 then |
835 Gear^.dX.QWordValue:= 8160437862; |
834 Gear^.dX.QWordValue:= 8160437862; |
836 if Gear^.dY.QWordValue > 8160437862 then |
835 if Gear^.dY.QWordValue > 8160437862 then |
1273 end; |
1272 end; |
1274 |
1273 |
1275 //////////////////////////////////////////////////////////////////////////////// |
1274 //////////////////////////////////////////////////////////////////////////////// |
1276 procedure doStepHedgehog(Gear: PGear); |
1275 procedure doStepHedgehog(Gear: PGear); |
1277 begin |
1276 begin |
|
1277 WorldWrap(Gear); |
1278 CheckSum:= CheckSum xor Gear^.Hedgehog^.BotLevel; |
1278 CheckSum:= CheckSum xor Gear^.Hedgehog^.BotLevel; |
1279 if (Gear^.Message and gmDestroy) <> 0 then |
1279 if (Gear^.Message and gmDestroy) <> 0 then |
1280 begin |
1280 begin |
1281 DeleteGear(Gear); |
1281 DeleteGear(Gear); |
1282 exit |
1282 exit |