anchor.diff:      function GetOrderTarget: TKMUnit;
       function GetOrderHouseTarget: TKMHouse;
       procedure SetOrderHouseTarget(aHouse: TKMHouse);
  +
  +    procedure TakeNextOrder;
  +    procedure ChaseTargetUnit;
     public
       OnKilled: TKMWarriorEvent;
       OnPickedFight: TKMWarrior2Event;
  
positive.code:                       end;
                      end;
    end;
  
  
    //Do the chase
    //--We don't take advantage of ChangeWalkTo yet for the sake of simplicity?
    if (fOrder = woAttackUnit)
    and not InFight
    and (GetOrderTarget <> nil)
    and CanInterruptAction then
    begin
      if IsRanged then
      begin
        //Check target in range, and if not - chase it / back up from it
        if (KMLength(GetPosition, fOrderTargetUnit.GetPosition) > GetFightMaxRange) then
        begin
          //Too far away
          if (GetUnitAction is TUnitActionWalkTo)
          and not TUnitActionWalkTo(GetUnitAction).DoingExchange then
            TUnitActionWalkTo(GetUnitAction).ChangeWalkTo(GetOrderTarget, GetFightMaxRange)
          else
          if CanInterruptAction then
            SetActionWalkToUnit(GetOrderTarget, GetFightMaxRange, ua_Walk);
        end
        else
        if (KMLength(GetPosition, fOrderTargetUnit.GetPosition) < GetFightMinRange) then
        begin
          //Too close
        end
        else
          //WithinRange
          FightEnemy(fOrderTargetUnit);
      end
      else
      begin
        //Melee
      end;
    end;
  
  
    if (fTicker mod 5 = 0) then
      CheckForEnemy; //Split into seperate procedure so it can be called from other places
  
negative.code: end;
  
  
  
  //Override current action if there's an Order in queue paying attention
  //to unit WalkTo current position (let the unit arrive on next tile first!)
  //As well let the unit finish it's curent Attack action before taking a new order
  //This should make units response a bit delayed.
  procedure TKMUnitWarrior.TakeNextOrder;
  begin
    case fNextOrder of
      woNone: ;
      woWalk:         begin
  