1405                 end

  1405                 end

  1406     else

  1406     else

  1407         if (HHGear^.Angle >= 1) then

  1407         if (HHGear^.Angle >= 1) then

  1408             dec(HHGear^.Angle);

  1408             dec(HHGear^.Angle);

  1409 

  1409 

  1413         begin

  1411         begin

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

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

  1415         DeleteGear(Gear);

  1413         DeleteGear(Gear);

  1416         AfterAttack

  1414         AfterAttack

  1417         end;

  1415         end;