hedgewars/uGearsHedgehog.pas
changeset 8744 6c87486fd89b
parent 8658 e7df553193ba
child 8753 1dfc456b7d50
equal deleted inserted replaced
8743:0097855532f6 8744:6c87486fd89b
   426             if Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
   426             if Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
   427                 begin
   427                 begin
   428                 newGear^.Target.X:= TargetPoint.X;
   428                 newGear^.Target.X:= TargetPoint.X;
   429                 newGear^.Target.Y:= TargetPoint.Y
   429                 newGear^.Target.Y:= TargetPoint.Y
   430                 end;
   430                 end;
   431             if (newGear <> nil) and (newGear^.CollisionMask and $80 <> 0) then newGear^.CollisionMask:= newGear^.CollisionMask and (not $80);
   431             if (newGear <> nil) and (newGear^.CollisionMask and lfCurrentHog <> 0) then newGear^.CollisionMask:= newGear^.CollisionMask and (not lfCurrentHog);
   432 
   432 
   433             // Clear FollowGear if using on a rope/parachute/saucer etc so focus stays with the hog's movement
   433             // Clear FollowGear if using on a rope/parachute/saucer etc so focus stays with the hog's movement
   434             if altUse then
   434             if altUse then
   435                 FollowGear:= nil;
   435                 FollowGear:= nil;
   436 
   436