-- Motown
-- Author: kadacorp
-- DateCreated: 2/12/2016 5:12:36 PM
--------------------------------------------------------------
local bDummy = GameInfoTypes.BUILDING_DUMMY_UNEMPLOYED;
local bDummy1 = GameInfoTypes.BUILDING_DUMMY_TOURISM_1;
local bDummy2 = GameInfoTypes.BUILDING_DUMMY_TOURISM_2;
local bDummy4 = GameInfoTypes.BUILDING_DUMMY_TOURISM_4;
local bDummy8 = GameInfoTypes.BUILDING_DUMMY_TOURISM_8;
local bDummy16 = GameInfoTypes.BUILDING_DUMMY_TOURISM_16;
local bDummy32 = GameInfoTypes.BUILDING_DUMMY_TOURISM_32;
local bDummy64 = GameInfoTypes.BUILDING_DUMMY_TOURISM_64;
local bDummy128 = GameInfoTypes.BUILDING_DUMMY_TOURISM_128;



function toBits(num)
    -- returns a table of bits, least significant first.
	t={} -- will contain the bits
    while num>0 do
        local rest=math.fmod(num,2)
        t[#t+1]=rest
        num=(num-rest)/2
    end
    return t
end



--Define DummyFromUnemployed function
function DummyFromUnemployed(iPlayer, pPlayer)
	local pPlayer = Players[iPlayer];
	if (pPlayer:IsAlive()) then
		for pCity in pPlayer:Cities() do
			if pCity:IsHasBuilding(GameInfoTypes.BUILDING_KADA_MOTOWN) then
				for p2City in pPlayer:Cities() do
					tCity = {}
					tCity[p2City:GetJONSCulturePerTurn()] = p2City
				end
				for iLowestCulture,p3City in pairs(tCity) do
					local p4City = p3City
					break
				end
			--local cCitizen = pCity:GetSpecialistCount(sCitizen);
				local num = p4City:GetJONSCulturePerTurn()/25;
				toBits(num)
				pCity:SetNumRealBuilding(bDummy, num);
				pCity:SetNumRealBuilding(bDummy1, t[1]);
				pCity:SetNumRealBuilding(bDummy2, t[2]);
				pCity:SetNumRealBuilding(bDummy4, t[3]);
				pCity:SetNumRealBuilding(bDummy8, t[4]);
				pCity:SetNumRealBuilding(bDummy16, t[5]);
				pCity:SetNumRealBuilding(bDummy32, t[6]);
				pCity:SetNumRealBuilding(bDummy64, t[7]);
				pCity:SetNumRealBuilding(bDummy128, t[8]);
			end
		end
	end
end


function DummyFromUnemployedTurnStart(iPlayer, pPlayer)
	--print ("Turn Trigger")
	local pPlayer = Players[iPlayer]
	local bIsTurnStart = true
	DummyFromUnemployed(iPlayer, pPlayer)
end

function DummyFromUnemployedDirty()
	local iPlayer = Game.GetActivePlayer()
	local pPlayer = Players[iPlayer]
	if pPlayer:IsTurnActive() then
		--print ("Swap Trigger")
		local bIsTurnStart = false
		DummyFromUnemployed(iPlayer, pPlayer)
	end
end

GameEvents.PlayerDoTurn.Add(DummyFromUnemployedTurnStart)
Events.SerialEventCityInfoDirty.Add(DummyFromUnemployedDirty)