hedgewars/GSHandlers.inc
changeset 9076 6ae43e121882
parent 9073 6cffcbef02e4
child 9077 e8d9d94c122f
equal deleted inserted replaced
9075:201e00bafcd1 9076:6ae43e121882
  5138     i, j, t, gX, gY: LongInt;
  5138     i, j, t, gX, gY: LongInt;
  5139     hogs: PGearArrayS;
  5139     hogs: PGearArrayS;
  5140     vg: PVisualGear;
  5140     vg: PVisualGear;
  5141 begin
  5141 begin
  5142     HHGear := Gear^.Hedgehog^.Gear;
  5142     HHGear := Gear^.Hedgehog^.Gear;
  5143     if (Gear^.Message and gmAttack <> 0) or (Gear^.Health = 0) or (HHGear = nil) or (HHGear^.Damage <> 0) then
  5143     if (Gear^.Message and gmAttack <> 0) or (Gear^.Health = 0) or (HHGear = nil) or (HHGear^.Damage <> 0) or (HHGear^.dX.QWordValue > 4294967)  then
  5144         begin
  5144         begin
  5145         StopSoundChan(Gear^.SoundChannel);
  5145         StopSoundChan(Gear^.SoundChannel);
  5146         DeleteGear(Gear);
  5146         DeleteGear(Gear);
  5147         AfterAttack;
  5147         AfterAttack;
  5148         exit
  5148         exit