[LUA] Transferring a Great Work

function GetNextFreeSlot (iBuilding, pCity)
	local pBuilding = GameInfo.Buildings[iBuilding]
	local iAvailableSlots = pBuilding.GreatWorkCount
	for iSlot = 0, iAvailableSlots-1, 1 do
          local iWork = pCity:GetBuildingGreatWork(GameInfoTypes[pBuilding.BuildingClass], iSlot)

          if (iWork == -1) then
            return iSlot
          end
    end
end

function AddArti (playerID, sBuildingArtType) 
	local greatWorkArtID	= GameInfoTypes["GREAT_WORK_SLOT_ART_ARTIFACT"]
	local pPlayer = Players[playerID]
	if (pPlayer:HasAvailableGreatWorkSlot(greatWorkArtID)) then
		local capital = pPlayer:GetCapitalCity()
		local capx = capital:GetX()
		local capy = capital:GetY()
		local dummybuildingID		= GameInfoTypes[sBuildingArtType]
		capital:SetNumRealBuilding(dummybuildingID, 1)
		local iBuilding = pPlayer:GetBuildingOfClosestGreatWorkSlot(capx, capy, greatWorkArtID);
		print ("targetbuilding: ".. iBuilding)
		local pCity = pPlayer:GetCityOfClosestGreatWorkSlot(capx, capy, greatWorkArtID);
		local cityID = pCity:GetID()
		local cityname = pPlayer:GetCityByID(cityID):GetName()
		print ("targetcity " ..cityname)
		local slotID = GetNextFreeSlot (iBuilding, pCity)
		print ("targetslot" ..slotID)
		Network.SendMoveGreatWorks(playerID, capital:GetID(), dummybuildingID, 0, cityID, iBuilding, slotID)
		print ("transfered")

		--capital:SetNumRealBuilding(dummybuildingID, 0)
	end
end

INSERT INTO Buildings		
		(Type, 					BuildingClass, 		 	FreeGreatWork,	Cost, 	FaithCost,	GreatWorkSlotType,		GreatWorkCount,	GoldMaintenance, PlotCultureCostModifier,	Description, 			ConquestProb,	IconAtlas,	PortraitIndex)
VALUES		('BUILDING_XO_PION', 		'BUILDINGCLASS_XO_PION', 	'GREAT_WORK_XO_PION',	-1, 	-1,		'GREAT_WORK_SLOT_ART_ARTIFACT',	1,	0, 			 -1,			'TXT_KEY_ARTIFACT_XO_PION', 		100,			'UNIT_ATLAS_1',	24);

Network.SendMoveGreatWorks(	activePlayerID, 
	g_CurrentGreatWorkSlot.CityID, g_CurrentGreatWorkSlot.Building[B][COLOR="Red"]Class[/COLOR][/B]ID, g_CurrentGreatWorkSlot.GreatWorkSlotIndex, 
	selectionPoint.CityID, selectionPoint.Building[COLOR="red"][B]Class[/B][/COLOR]ID, selectionPoint.GreatWorkSlotIndex)

local iGwArtOrArtifactSlot = GameInfoTypes.GREAT_WORK_SLOT_ART_ARTIFACT
 
function GetNextFreeSlot(pCity, iBuilding)
    local pBuilding = GameInfo.Buildings[iBuilding]
    local iAvailableSlots = pBuilding.GreatWorkCount
    
    for iSlot = 0, iAvailableSlots-1, 1 do
          local iWork = pCity:GetBuildingGreatWork(GameInfoTypes[pBuilding.BuildingClass], iSlot)
 
          if (iWork == -1) then
            return iSlot
          end
    end
end
 
function AddArti (iPlayer, sBuildingArtType) 
    local pPlayer = Players[iPlayer]
    
    if (pPlayer:HasAvailableGreatWorkSlot(iGwArtOrArtifactSlot)) then
        local pCapital = pPlayer:GetCapitalCity()
        local iCapX = pCapital:GetX()
        local iCapY = pCapital:GetY()
        
        local pCity = pPlayer:GetCityOfClosestGreatWorkSlot(iCapX, iCapY, iGwArtOrArtifactSlot)
        local iBuilding = pPlayer:GetBuildingOfClosestGreatWorkSlot(iCapX, iCapY, iGwArtOrArtifactSlot)
        local iBuildingClass = GameInfoTypes[GameInfo.Buildings[iBuilding].BuildingClass]
        local iSlot = GetNextFreeSlot(pCity, iBuilding)
        print(string.format("target city = %s, building = %s, slot = %i", pCity:GetName(), GameInfo.Buildings[iBuilding].Type, iSlot))
 
        local iDonorBuildingClass = GameInfoTypes[GameInfo.Buildings[sBuildingArtType].BuildingClass]
        pCapital:SetNumRealBuilding(iDonorBuilding, 1)
        
        Network.SendMoveGreatWorks(iPlayer, pCapital:GetID(), iDonorBuildingClass, 0, pCity:GetID(), iBuildingClass, iSlot)
        print("transfered")
 
        --pCapital:SetNumRealBuilding(iDonorBuilding, 0)
    end
end