endTech = 0;
for tech in GameInfo.Technologies() do
if( tech.Repeat ) then
endTech = tech.ID;
end
end
for index,pPlayer in pairs (Players) do
if( pPlayer ~= nil and pPlayer:IsAlive() and not (pPlayer:IsBarbarian()) ) then
pTnum = pPlayer:GetTeam();
pTeam = Teams[pTnum];
teamtech = pTeam:GetTeamTechs();
repCount = teamtech:GetTechCount(endTech);
-- print( " Repeated tech count: ",pPlayer:GetName(),repCount)
if ( repCount > 0 ) then
local pHappy = pPlayer:GetHappiness();
pPlayer:SetHappiness(pHappy + repCount);
end
end
end