equal
deleted
inserted
replaced
544 if ((Gear^.State and gstHHJumping) <> 0) and |
544 if ((Gear^.State and gstHHJumping) <> 0) and |
545 TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then SetLittle(Gear^.dX); |
545 TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then SetLittle(Gear^.dX); |
546 |
546 |
547 doStepHedgehogMoving(Gear); |
547 doStepHedgehogMoving(Gear); |
548 |
548 |
549 if (Gear^.State and gstMoving) = 0 then |
549 if ((Gear^.State and (gstMoving or gstDrowning)) = 0) then |
550 begin |
550 begin |
551 AddGearCI(Gear); |
551 AddGearCI(Gear); |
552 StepTicks:= 350 |
552 StepTicks:= 350 |
553 end; |
553 end; |
554 exit |
554 exit |
567 begin |
567 begin |
568 prevState:= Gear^.State; |
568 prevState:= Gear^.State; |
569 |
569 |
570 doStepHedgehogMoving(Gear); |
570 doStepHedgehogMoving(Gear); |
571 |
571 |
572 if (Gear^.State and gstMoving) <> 0 then |
572 if (Gear^.State and (gstMoving or gstDrowning)) <> 0 then |
573 begin |
573 begin |
574 AllInactive:= false; |
574 AllInactive:= false; |
575 exit |
575 exit |
576 end; |
576 end; |
577 |
577 |