equal
deleted
inserted
replaced
251 end; |
251 end; |
252 |
252 |
253 procedure doStepHedgehog(Gear: PGear); forward; |
253 procedure doStepHedgehog(Gear: PGear); forward; |
254 //////////////////////////////////////////////////////////////////////////////// |
254 //////////////////////////////////////////////////////////////////////////////// |
255 procedure doStepHedgehogMoving(Gear: PGear); |
255 procedure doStepHedgehogMoving(Gear: PGear); |
256 var prevState: Longword; |
256 var isFalling: boolean; |
257 isFalling: boolean; |
257 begin |
258 begin |
|
259 prevState:= Gear^.State; |
|
260 isFalling:= not TestCollisionYKick(Gear, 1); |
258 isFalling:= not TestCollisionYKick(Gear, 1); |
261 if isFalling then |
259 if isFalling then |
262 begin |
260 begin |
263 if (Gear^.dY.isNegative) and TestCollisionYKick(Gear, -1) then Gear^.dY:= _0; |
261 if (Gear^.dY.isNegative) and TestCollisionYKick(Gear, -1) then Gear^.dY:= _0; |
264 Gear^.State:= Gear^.State or gstMoving; |
262 Gear^.State:= Gear^.State or gstMoving; |