2658     if not valid then

  2658     if not valid then

  2659         begin

  2659         begin

  2660         HHGear^.Message := HHGear^.Message and (not gmAttack);

  2660         HHGear^.Message := HHGear^.Message and (not gmAttack);

  2661         HHGear^.State := HHGear^.State and (not gstAttacking);

  2661         HHGear^.State := HHGear^.State and (not gstAttacking);

  2662         HHGear^.State := HHGear^.State or gstHHChooseTarget;

  2662         HHGear^.State := HHGear^.State or gstHHChooseTarget;

  2664         isCursorVisible := true;

  2663         isCursorVisible := true;

  2665         warn:= AddVisualGear(Gear^.Target.X, oy, vgtNoPlaceWarn, 0, true);

  2664         warn:= AddVisualGear(Gear^.Target.X, oy, vgtNoPlaceWarn, 0, true);

  2666         if warn <> nil then

  2665         if warn <> nil then

  2667             warn^.Tex := GetPlaceCollisionTex(lx, ty, sprHHTelepMask, 0);

  2666             warn^.Tex := GetPlaceCollisionTex(lx, ty, sprHHTelepMask, 0);

  2669         end

  2670         end

  2670     else

  2671     else

  2671         begin

  2672         begin

  2672         DeleteCI(HHGear);

  2673         DeleteCI(HHGear);

  2673         SetAllHHToActive;

  2674         SetAllHHToActive;