hedgewars/uGearsHandlersMess.pas
changeset 10663 9bbb29d2bd68
parent 10659 79e466c393f7
child 10676 7111b4a46b5c
equal deleted inserted replaced
10662:e0d7d499c851 10663:9bbb29d2bd68
  4747         else if (Gear^.Radius > 1) then
  4747         else if (Gear^.Radius > 1) then
  4748             begin
  4748             begin
  4749             if (Gear^.Health <= (initHealth div 6)) then
  4749             if (Gear^.Health <= (initHealth div 6)) then
  4750                 dec(Gear^.Radius)
  4750                 dec(Gear^.Radius)
  4751             end;
  4751             end;
  4752 
       
  4753     until (Gear^.Health <= 0);
  4752     until (Gear^.Health <= 0);
  4754 
  4753 
  4755     DeleteGear(Gear);
  4754     DeleteGear(Gear);
  4756     AfterAttack;
  4755     AfterAttack;
  4757 end;
  4756 end;