hedgewars/GSHandlers.inc
changeset 8814 01e13871f578
parent 8812 fdac638c6f9a
child 8822 fc9877ff7f1a
equal deleted inserted replaced
8812:fdac638c6f9a 8814:01e13871f578
  5128     ndX, ndY: hwFloat;
  5128     ndX, ndY: hwFloat;
  5129     i, t, gX, gY: LongInt;
  5129     i, t, gX, gY: LongInt;
  5130     hogs: PGearArrayS;
  5130     hogs: PGearArrayS;
  5131 begin
  5131 begin
  5132     HHGear := Gear^.Hedgehog^.Gear;
  5132     HHGear := Gear^.Hedgehog^.Gear;
  5133     if (Gear^.Message and gmAttack <> 0) or (HHGear = nil) or (HHGear^.Damage <> 0) then
  5133     if (Gear^.Message and gmAttack <> 0) or (Gear^.Health = 0) or (HHGear = nil) or (HHGear^.Damage <> 0) then
  5134         begin
  5134         begin
  5135         DeleteGear(Gear);
  5135         DeleteGear(Gear);
  5136         AfterAttack;
  5136         AfterAttack;
  5137         exit
  5137         exit
  5138         end
  5138         end