Slitherine

local function RelocateAllHostedUnitsToNewHost(sourcetbl,destinationtbl)
  local retval, alreadymoved, source,dest = false,{},nil,nil;
  retval,source = pcall(ScenEdit_GetUnit,sourcetbl);
  if (retval == false) or source == nil then print('invalid sourcetbl. param'); return false; end
  retval,dest = pcall(ScenEdit_GetUnit,destinationtbl);
  if (retval == false) or dest == nil then print('invalid destinationtbl. param'); return false; end

  --relocate the embarked units.
  for _,guid in ipairs(source.embarkedUnits.Aircraft) do
    ScenEdit_HostUnitToParent({HostedUnitNameOrID=guid,SelectedHostNameOrID=dest.guid});
    alreadymoved[guid]=true;
  end
  for _,guid in ipairs(source.embarkedUnits.Boats) do
    ScenEdit_HostUnitToParent({HostedUnitNameOrID=guid,SelectedHostNameOrID=dest.guid});
    alreadymoved[guid]=true;
  end

  --now assign units that are assigned to the base but not there (in the air etc), the new base without 'moving' them.
  for _,guid in ipairs(source.assignedUnits.Aircraft) do
    if alreadymoved[guid] == nil then
      ScenEdit_SetUnit({guid=guid,base=dest.guid});
      alreadymoved[guid]=true;
    end
  end
  for _,guid in ipairs(source.assignedUnits.Boats) do
    if alreadymoved[guid] == nil then
      ScenEdit_SetUnit({guid=guid,base=dest.guid});
      alreadymoved[guid]=true;
    end
  end
  return true;
end
RelocateAllHostedUnitsToNewHost({side="Blue",name="SUA__1"},{side="Blue",name="SUA__2"});