anchor.diff:      I: Integer;
       Priority: Single;
       Ware, WT, POM_WT: TKMWareType;
  -    WareOrder: array[0..5] of TKMWareType;
  -    WarePriority: array[0..5] of Single;
  +    WareOrder: array[0..10] of TKMWareType;
  +    WarePriority: array[0..10] of Single;
     begin
       Output := False;
       // Basic producing houses (secure resources for building)
  
positive.code: begin
    case aNode.FieldType of
      ftRoad: NODE_TYPE := AVOID_BUILDING_NODE_LOCK_ROAD;
      else     NODE_TYPE := AVOID_BUILDING_NODE_LOCK_FIELD;
    end;
    with aNode.FieldList do
      for I := 0 to Count-1 do
  
negative.code:       if not IsDeadOrDying then
        begin
          if (gHands[fOwner].Units[I] is TKMUnitSerf) AND IsIdle then
            gRenderAux.Quad(GetPosition.X, GetPosition.Y, $44000000 OR COLOR_BLUE)
          else if (gHands[fOwner].Units[I] is TKMUnitWorker) AND IsIdle then
            gRenderAux.Quad(GetPosition.X, GetPosition.Y, $44000000 OR COLOR_NEW2);
        end;
  
    Color := 0; // For compiler
  