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