hedgewars/uGearsHandlersMess.pas
changeset 14740 2d859d34e6f6
parent 14737 52916435d9b1
child 14747 2e8213c0951f
equal deleted inserted replaced
14739:e57c8ace7d96 14740:2d859d34e6f6
  3044         exit;
  3044         exit;
  3045         end;
  3045         end;
  3046 
  3046 
  3047     if (HHGear <> nil) then
  3047     if (HHGear <> nil) then
  3048         PlaySoundV(sndIncoming, Gear^.Hedgehog^.Team^.voicepack);
  3048         PlaySoundV(sndIncoming, Gear^.Hedgehog^.Team^.voicepack);
       
  3049     AfterAttack;
       
  3050     CurAmmoGear := nil;
  3049 
  3051 
  3050     if Gear^.X.QWordValue = 0 then
  3052     if Gear^.X.QWordValue = 0 then
  3051         begin
  3053         begin
  3052         Gear^.Tag :=  1;
  3054         Gear^.Tag :=  1;
  3053         Gear^.X := -_2048;
  3055         Gear^.X := -_2048;