equal
deleted
inserted
replaced
951 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
951 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
952 DeleteCI(HHGear); |
952 DeleteCI(HHGear); |
953 if (HHGear^.State and gstMoving) <> 0 then |
953 if (HHGear^.State and gstMoving) <> 0 then |
954 begin |
954 begin |
955 if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX); |
955 if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX); |
|
956 if HHGear^.dY.isNegative and TestCollisionYwithGear(HHGear, -1) then HHGear^.dY:= _0; |
|
957 |
956 HHGear^.X:= HHGear^.X + HHGear^.dX; |
958 HHGear^.X:= HHGear^.X + HHGear^.dX; |
957 Gear^.X:= Gear^.X + HHGear^.dX; |
959 Gear^.X:= Gear^.X + HHGear^.dX; |
958 |
960 |
959 if TestCollisionYwithGear(HHGear, 1) then |
961 if TestCollisionYwithGear(HHGear, 1) then |
960 begin |
962 begin |