2821     HHGear^.dY := HHGear^.dY + cGravity;

  2821     HHGear^.dY := HHGear^.dY + cGravity;

  2822     if Gear^.Timer > 0 then dec(Gear^.Timer);

  2822     if Gear^.Timer > 0 then dec(Gear^.Timer);

  2823     if not (HHGear^.dY.isNegative) or (Gear^.Timer = 0) then

  2823     if not (HHGear^.dY.isNegative) or (Gear^.Timer = 0) then

  2824         begin

  2824         begin

  2825         HHGear^.State := HHGear^.State or gstMoving;

  2825         HHGear^.State := HHGear^.State or gstMoving;

  2826         DeleteGear(Gear);

  2827         DeleteGear(Gear);

  2827         AfterAttack;

  2828         AfterAttack;

  2828         exit

  2829         exit

  2829         end;

  2830         end;

  2830 

  2831 

  2842     DeleteCI(HHGear);

  2843     DeleteCI(HHGear);

  2843     //HHGear^.X := int2hwFloat(hwRound(HHGear^.X)) - _0_5; WTF?

  2844     //HHGear^.X := int2hwFloat(hwRound(HHGear^.X)) - _0_5; WTF?

  2844     HHGear^.dX := SignAs(cLittle, Gear^.dX);

  2845     HHGear^.dX := SignAs(cLittle, Gear^.dX);

  2845 

  2846 

  2846     HHGear^.dY := - _0_3;

  2847     HHGear^.dY := - _0_3;

  2847 

  2850 

  2848     Gear^.X := HHGear^.X;

  2851     Gear^.X := HHGear^.X;

  2849     Gear^.dX := SignAs(_0_45, Gear^.dX);

  2852     Gear^.dX := SignAs(_0_45, Gear^.dX);

  2850     Gear^.dY := - _0_9;

  2853     Gear^.dY := - _0_9;

  2851     Gear^.doStep := @doStepFirePunchWork;

  2854     Gear^.doStep := @doStepFirePunchWork;