equal
deleted
inserted
replaced
649 or TestCollisionYwithGear(HHGear, 1) then |
649 or TestCollisionYwithGear(HHGear, 1) then |
650 begin |
650 begin |
651 DeleteGear(Gear); |
651 DeleteGear(Gear); |
652 exit |
652 exit |
653 end; |
653 end; |
|
654 |
|
655 HedgehogChAngle(HHGear); |
654 |
656 |
655 if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX); |
657 if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX); |
656 if HHGear^.dY.isNegative and TestCollisionYwithGear(HHGear, -1) then HHGear^.dY:= _0; |
658 if HHGear^.dY.isNegative and TestCollisionYwithGear(HHGear, -1) then HHGear^.dY:= _0; |
657 HHGear^.X:= HHGear^.X + HHGear^.dX; |
659 HHGear^.X:= HHGear^.X + HHGear^.dX; |
658 HHGear^.Y:= HHGear^.Y + HHGear^.dY; |
660 HHGear^.Y:= HHGear^.Y + HHGear^.dY; |