equal
deleted
inserted
replaced
737 exit |
737 exit |
738 end; |
738 end; |
739 |
739 |
740 HedgehogChAngle(HHGear); |
740 HedgehogChAngle(HHGear); |
741 |
741 |
742 if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX); |
742 if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then |
|
743 begin |
|
744 {$IFDEF DEBUGFILE}if HHGear^.dX.QWordValue > 1 then AddFileLog('Stopping hedgehog after rope attack due to wall collision');{$ENDIF} |
|
745 SetLittle(HHGear^.dX); |
|
746 end; |
|
747 |
743 if HHGear^.dY.isNegative and TestCollisionYwithGear(HHGear, -1) then HHGear^.dY:= _0; |
748 if HHGear^.dY.isNegative and TestCollisionYwithGear(HHGear, -1) then HHGear^.dY:= _0; |
744 HHGear^.X:= HHGear^.X + HHGear^.dX; |
749 HHGear^.X:= HHGear^.X + HHGear^.dX; |
745 HHGear^.Y:= HHGear^.Y + HHGear^.dY; |
750 HHGear^.Y:= HHGear^.Y + HHGear^.dY; |
746 HHGear^.dY:= HHGear^.dY + cGravity; |
751 HHGear^.dY:= HHGear^.dY + cGravity; |
747 |
752 |