hedgewars/GSHandlers.inc
changeset 6792 f72c8b5d421c
parent 6787 8a4cd042d191
child 6803 0e70f3ea3bf8
equal deleted inserted replaced
6791:6907194f2c57 6792:f72c8b5d421c
  2903                             dy := -dy;
  2903                             dy := -dy;
  2904                         FrameTicks:= random(400) + 250
  2904                         FrameTicks:= random(400) + 250
  2905                         end
  2905                         end
  2906                 end;
  2906                 end;
  2907         AfterAttack;
  2907         AfterAttack;
       
  2908         DeleteGear(HHGear);
  2908         DeleteGear(Gear);
  2909         DeleteGear(Gear);
  2909         DeleteGear(HHGear);
       
  2910     end
  2910     end
  2911     else
  2911     else
  2912         begin
  2912         begin
  2913         dec(Gear^.Health, Gear^.Damage);
  2913         dec(Gear^.Health, Gear^.Damage);
  2914         Gear^.Damage := 0
  2914         Gear^.Damage := 0