hedgewars/uGearsHedgehog.pas
changeset 13463 f1d349a52bc7
parent 13399 3d6aae2ae698
child 13532 ee77086fc5fa
equal deleted inserted replaced
13462:4c47a480009b 13463:f1d349a52bc7
   491             if Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
   491             if Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
   492                 begin
   492                 begin
   493                 newGear^.Target.X:= TargetPoint.X;
   493                 newGear^.Target.X:= TargetPoint.X;
   494                 newGear^.Target.Y:= TargetPoint.Y
   494                 newGear^.Target.Y:= TargetPoint.Y
   495                 end;
   495                 end;
   496             if (newGear <> nil) and (newGear^.CollisionMask and lfCurrentHog <> 0) then newGear^.CollisionMask:= newGear^.CollisionMask and (not lfCurrentHog);
   496             if (newGear <> nil) and (newGear^.CollisionMask and lfCurHogCrate <> 0) then newGear^.CollisionMask:= newGear^.CollisionMask and (not lfCurHogCrate);
   497 
   497 
   498             // Clear FollowGear if using on a rope/parachute/saucer etc so focus stays with the hog's movement
   498             // Clear FollowGear if using on a rope/parachute/saucer etc so focus stays with the hog's movement
   499             if altUse then
   499             if altUse then
   500                 FollowGear:= nil;
   500                 FollowGear:= nil;
   501 
   501