hedgewars/uGearsHandlersMess.pas
changeset 14003 23fb123bd70c
parent 14001 755f389a1e73
child 14010 31bdb759d98b
equal deleted inserted replaced
14002:971693c921ed 14003:23fb123bd70c
  5574         Gear^.Timer:= Gear^.Tag
  5574         Gear^.Timer:= Gear^.Tag
  5575         end;
  5575         end;
  5576 
  5576 
  5577     if (Gear^.Health = 0) or ((HHGear^.State and gstHHDriven) = 0) then
  5577     if (Gear^.Health = 0) or ((HHGear^.State and gstHHDriven) = 0) then
  5578         begin
  5578         begin
       
  5579         HHGear^.Message:= HHGear^.Message and (not (gmAttack or gmLeft or gmRight));
  5579         HHGear^.State := HHGear^.State and (not gstNotKickable);
  5580         HHGear^.State := HHGear^.State and (not gstNotKickable);
  5580         StopSoundChan(Gear^.SoundChannel, 300);
  5581         StopSoundChan(Gear^.SoundChannel, 300);
  5581         DeleteGear(Gear);
  5582         DeleteGear(Gear);
  5582         AfterAttack
  5583         AfterAttack
  5583         end
  5584         end
  5659         Gear^.Timer:= Gear^.Tag
  5660         Gear^.Timer:= Gear^.Tag
  5660         end;
  5661         end;
  5661 
  5662 
  5662     if (Gear^.Health = 0) or ((HHGear^.State and gstHHDriven) = 0) or ((HHGear^.Message and gmAttack) <> 0) then
  5663     if (Gear^.Health = 0) or ((HHGear^.State and gstHHDriven) = 0) or ((HHGear^.Message and gmAttack) <> 0) then
  5663         begin
  5664         begin
  5664         HHGear^.Message:= HHGear^.Message and (not gmAttack);
  5665         HHGear^.Message:= HHGear^.Message and (not (gmAttack or gmLeft or gmRight));
  5665         HHGear^.State := HHGear^.State and (not gstNotKickable);
  5666         HHGear^.State := HHGear^.State and (not gstNotKickable);
  5666         StopSoundChan(gear^.SoundChannel);
  5667         StopSoundChan(gear^.SoundChannel);
  5667         DeleteGear(Gear);
  5668         DeleteGear(Gear);
  5668         AfterAttack
  5669         AfterAttack
  5669         end
  5670         end