6722         CreateShellForGear(Gear, Gear^.Tag and 1);

  6722         CreateShellForGear(Gear, Gear^.Tag and 1);

  6723     end;

  6723     end;

  6724 

  6724 

  6725     if (Gear^.Timer = 0) or ((HHGear^.State and gstHHDriven) = 0) then

  6725     if (Gear^.Timer = 0) or ((HHGear^.State and gstHHDriven) = 0) then

  6726     begin

  6726     begin

  6727         HHGear^.State := HHGear^.State and (not gstNotKickable);

  6729         HHGear^.State := HHGear^.State and (not gstNotKickable);

  6728         ClearHitOrder();

  6730         ClearHitOrder();

  6729         DeleteGear(Gear);

  6731         DeleteGear(Gear);

  6730         AfterAttack

  6732         AfterAttack

  6731     end

  6733     end