hedgewars/HHHandlers.inc
changeset 4994 2d9a52d6ea24
parent 4976 088d40d8aba2
child 5013 04789ba3f200
equal deleted inserted replaced
4993:905b349af377 4994:2d9a52d6ea24
   319                                   FollowGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, 0, SignAs(_0_03, dX), _0, 0);
   319                                   FollowGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, 0, SignAs(_0_03, dX), _0, 0);
   320                                   FollowGear^.Hedgehog:= Gear^.Hedgehog;
   320                                   FollowGear^.Hedgehog:= Gear^.Hedgehog;
   321                                   end;
   321                                   end;
   322                   end;
   322                   end;
   323 
   323 
       
   324         // Clear FollowGear if using on a rope/parachute/saucer etc so focus stays with the hog's movement
       
   325         if altUse then FollowGear:= nil;
       
   326 
   324         uStats.AmmoUsed(CurAmmoType);
   327         uStats.AmmoUsed(CurAmmoType);
   325 
   328 
   326         if not (SpeechText = '') then
   329         if not (SpeechText = '') then
   327             begin
   330             begin
   328             tmpGear:= AddVisualGear(0, 0, vgtSpeechBubble);
   331             tmpGear:= AddVisualGear(0, 0, vgtSpeechBubble);