equal
deleted
inserted
replaced
675 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
675 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
676 DeleteCI(HHGear); |
676 DeleteCI(HHGear); |
677 if (HHGear^.State and gstMoving) <> 0 then |
677 if (HHGear^.State and gstMoving) <> 0 then |
678 if TestCollisionYwithGear(HHGear, 1) then |
678 if TestCollisionYwithGear(HHGear, 1) then |
679 begin |
679 begin |
|
680 CheckHHDamage(HHGear); |
680 HHGear^.dY:= _0; |
681 HHGear^.dY:= _0; |
681 CheckHHDamage(HHGear); |
|
682 HHGear^.State:= HHGear^.State and not (gstMoving or gstHHJumping); |
682 HHGear^.State:= HHGear^.State and not (gstMoving or gstHHJumping); |
683 end else |
683 end else |
684 begin |
684 begin |
685 if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX); |
685 if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX); |
686 HHGear^.X:= HHGear^.X + HHGear^.dX; |
686 HHGear^.X:= HHGear^.X + HHGear^.dX; |