hedgewars/uGearsHedgehog.pas
changeset 7738 abcc7012de0b
parent 7733 a1476c09403f
child 7754 e81dc9bef8b8
equal deleted inserted replaced
7737:ff63da8a3202 7738:abcc7012de0b
   396         if Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
   396         if Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
   397             begin
   397             begin
   398             newGear^.Target.X:= TargetPoint.X;
   398             newGear^.Target.X:= TargetPoint.X;
   399             newGear^.Target.Y:= TargetPoint.Y
   399             newGear^.Target.Y:= TargetPoint.Y
   400             end;
   400             end;
   401         if (newGear <> nil) and (newGear^.CollisionMask and $80 <> 0) then newGear^.CollisionMask:= newGear^.CollisionMask and not $80;
   401         if (newGear <> nil) and (newGear^.CollisionMask and $80 <> 0) then newGear^.CollisionMask:= newGear^.CollisionMask and (not $80);
   402 
   402 
   403         // Clear FollowGear if using on a rope/parachute/saucer etc so focus stays with the hog's movement
   403         // Clear FollowGear if using on a rope/parachute/saucer etc so focus stays with the hog's movement
   404         if altUse then
   404         if altUse then
   405             FollowGear:= nil;
   405             FollowGear:= nil;
   406 
   406