hedgewars/uGearsHandlersMess.pas
changeset 15753 72f735c03fec
parent 15742 0b5aea8e5eab
child 15803 b06b33cf0a89
equal deleted inserted replaced
15752:f09db263bc2a 15753:72f735c03fec
  3231 procedure doStepAirAttack(Gear: PGear);
  3231 procedure doStepAirAttack(Gear: PGear);
  3232 var HHGear: PGear;
  3232 var HHGear: PGear;
  3233 begin
  3233 begin
  3234     AllInactive := false;
  3234     AllInactive := false;
  3235 
  3235 
       
  3236     HHGear:= nil;
       
  3237 
  3236     if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then
  3238     if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then
  3237         HHGear:= Gear^.Hedgehog^.Gear;
  3239         HHGear:= Gear^.Hedgehog^.Gear;
  3238 
  3240 
  3239     if (HHGear <> nil) then
  3241     if (HHGear <> nil) then
  3240         PlaySoundV(sndIncoming, Gear^.Hedgehog^.Team^.voicepack);
  3242         PlaySoundV(sndIncoming, Gear^.Hedgehog^.Team^.voicepack);