hedgewars/uGearsHandlersMess.pas
changeset 15246 4aa19b21707d
parent 15244 44533b2e4fb1
child 15253 000d3262244c
equal deleted inserted replaced
15245:395563ffc8b5 15246:4aa19b21707d
  3351     // if not infattack mode wait for hedgehog finish falling to collect cases
  3351     // if not infattack mode wait for hedgehog finish falling to collect cases
  3352     if ((GameFlags and gfInfAttack) <> 0)
  3352     if ((GameFlags and gfInfAttack) <> 0)
  3353     or (HHGear = nil)
  3353     or (HHGear = nil)
  3354     or ((HHGear^.State and gstMoving) = 0)
  3354     or ((HHGear^.State and gstMoving) = 0)
  3355     or (HHGear^.Damage > 0)
  3355     or (HHGear^.Damage > 0)
  3356     or ((HHGear^.State and gstDrowning) = 1) then
  3356     or ((HHGear^.State and gstDrowning) <> 0) then
  3357         begin
  3357         begin
  3358         DeleteGear(Gear);
  3358         DeleteGear(Gear);
  3359         AfterAttack
  3359         AfterAttack
  3360         end
  3360         end
  3361 end;
  3361 end;