hedgewars/HHHandlers.inc
changeset 5507 1040c0946ef8
parent 5439 25d3784dc0f6
child 5511 13a222b00a9d
equal deleted inserted replaced
5505:a55aab592950 5507:1040c0946ef8
   371                       amJetpack, amBirdy,
   371                       amJetpack, amBirdy,
   372                  amFlamethrower, amLandGun,
   372                  amFlamethrower, amLandGun,
   373                   amResurrector, amStructure,
   373                   amResurrector, amStructure,
   374                        amTardis: CurAmmoGear:= newGear;
   374                        amTardis: CurAmmoGear:= newGear;
   375                   end;
   375                   end;
       
   376         if Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
       
   377             begin
       
   378             newGear^.TargetX:= TargetPoint.X;
       
   379             newGear^.TargetY:= TargetPoint.Y;
       
   380             TargetPoint.X := NoPointX
       
   381             end;
   376 
   382 
   377         // Clear FollowGear if using on a rope/parachute/saucer etc so focus stays with the hog's movement
   383         // Clear FollowGear if using on a rope/parachute/saucer etc so focus stays with the hog's movement
   378         if altUse then FollowGear:= nil;
   384         if altUse then FollowGear:= nil;
   379 
   385 
   380         if (newGear <> nil) and ((Ammoz[newGear^.AmmoType].Ammo.Propz and ammoprop_SetBounce) <> 0) then
   386         if (newGear <> nil) and ((Ammoz[newGear^.AmmoType].Ammo.Propz and ammoprop_SetBounce) <> 0) then