Historical Spawn Dates

trying something, will post the result after the test.

 

the TechDiffusion.lua I'm testing if you want it...

Spoiler :

Code:

-- Tech Diffusion
-- Author: Afforess, modified by Erendir, adapted to G+K/HSD/AH by Gedemon
-- DateCreated: 10/8/2010 8:52:20 PM
--------------------------------------------------------------

iTechsBehindReq = 4;
iTechsBehindFullBenefit = 12;

iHasMetBonus		=  0.25; -- Bonus for having met the civ
iIsAtwarMalus		= -0.75; -- Malus for being at war
iDenouncedMalus		= -0.50; -- Malus for being denounced (but denouncing does not give malus)
iEmbassyBonus		=  0.50; -- Bonus for having an Embassy
iOpenBorderBonus	=  0.75; -- Bonus for open border
iFriendBonus		=  0.50; -- Bonus for being friend
iDefPactBonus		=  0.25; -- Bonus for having a defensive pact
iResearchBonus		=  1.50; -- Bonus for having a research agreement

function TechDiffusion()
	print("-------------------------------------")
	print("Tech Diffusion...") 	
	for iPlayerLoop = 0, GameDefines.MAX_MAJOR_CIVS-1, 1 do
		local pPlayer = Players[ iPlayerLoop ];
		if pPlayer ~= nil and pPlayer:IsAlive() and pPlayer:GetNumCities() > 0 then
			local pTeam = Teams[pPlayer:GetTeam()];
			local pTeamTechs = pTeam:GetTeamTechs();

			local iTechsBehindLead = numberOfTechsBehindLeadTeam(pTeam);
			print()
			print(string.format("Techs Behind Lead Team: %d", iTechsBehindLead));

			if (iTechsBehindReq < iTechsBehindLead) then
				local sum, num = 0, 0
				for eTech in GameInfo.Technologies() do
					if not pTeam:IsHasTech(eTech.ID) then

						local knownExp = 0;
						for iOtherTeam = 0, GameDefines.MAX_CIV_TEAMS-1, 1 do
							pOtherTeam = Teams[iOtherTeam];
							if(pOtherTeam ~= nil) and iOtherTeam ~= pTeam:GetID() and not Players[pOtherTeam:GetLeaderID()]:IsMinorCiv() then
								if pOtherTeam:IsHasTech(eTech.ID) and pTeam:IsHasMet(iOtherTeam) then
									local teamExp = iHasMetBonus;
									if (pTeam:GetCurrentEra() < pOtherTeam:GetCurrentEra()) then
										teamExp = teamExp + (pOtherTeam:GetCurrentEra() - pTeam:GetCurrentEra() / 2);
									end
									if pTeam:IsAtWar(iOtherTeam) then
										teamExp = teamExp + iIsAtwarMalus;
									end
									if (pPlayer:IsDenouncedPlayer(pOtherTeam:GetLeaderID())) then
										teamExp = teamExp + iDenouncedMalus;
									end
									if pTeam:HasEmbassyAtTeam(iOtherTeam) then
										teamExp = teamExp + iEmbassyBonus;
									end
									if pTeam:IsAllowsOpenBordersToTeam(iOtherTeam) then
										teamExp = teamExp + iOpenBorderBonus;
									end
									if (pPlayer:IsFriends(pOtherTeam:GetLeaderID())) then
										teamExp = teamExp + iFriendBonus;
									end
									if (pTeam:IsDefensivePact(iOtherTeam)) then
										teamExp = teamExp + iDefPactBonus;
									end	
									if (pTeam:IsHasResearchAgreement(iOtherTeam)) then
										teamExp = teamExp + iResearchBonus;
									end	
									knownExp = knownExp + teamExp;
									print(string.format("%g teamExp From %s", teamExp, Players[pOtherTeam:GetLeaderID()]:GetCivilizationShortDescription()));
									--print(Players[pTeam:GetLeaderID()]:GetCivilizationShortDescription(),'<',Players[pOtherTeam:GetLeaderID()]:GetCivilizationShortDescription(),'teamExp='..teamExp,'EraDiff: '..pTeam:GetCurrentEra()..'-'..pOtherTeam:GetCurrentEra(),'IsAtWar:'..tostring(pTeam:IsAtWar(pOtherTeam:GetID())), 'IsAllowsOpenBorderToTeam:'..tostring(pTeam:IsAllowsOpenBordersToTeam(pOtherTeam:GetID())), 'IsDefensivePact:'..tostring(pTeam:IsDefensivePact(pOtherTeam:GetID())), 'pPlayer:', 'IsFriends:'..tostring(pPlayer:IsFriends(pOtherTeam:GetLeaderID())), 'IsDoF:'..tostring(pPlayer:IsDoF(pOtherTeam:GetLeaderID())) )
								end
							end
						end
						--print(string.format("Tech Numerator for %s: %d", eTech.Type, knownExp));

						local iModifier = 100;
						local techDiffMod = 50;
						if (knownExp > 0.0) then
							--print(string.format("Tech Numerator: %g", knownExp));
							iModifier = iModifier + (techDiffMod - math.floor((techDiffMod * math.pow(0.85, knownExp) + 0.5)));
						end

						-- Tech flows downhill to those who are far behind
						local iTechScorePercent = getBestKnownTechScorePercent(pTeam);
						local iWelfareThreshold = 75;
						local iWelfareModifier = 50;
						if( iTechScorePercent < iWelfareThreshold ) then
							if( knownExp > 0.0 ) then
								iModifier = iModifier + (iWelfareModifier * Game:GetCurrentEra() * (iWelfareThreshold - iTechScorePercent))/200;
							end
						end

						--Teams don't recieve full effect unless very far behind
						if (iModifier > 100) then
							--print(string.format("Tech Modifier for %s: %d", eTech.Type, iModifier));
							iModifier = iModifier * math.pow(iTechsBehindLead / iTechsBehindFullBenefit, 0.45);
						end

						--print(string.format("Tech Modifier for %s: %d", eTech.Type, iModifier));

						if (iModifier > 100) then
							local iTechCost = pTeamTechs:GetResearchCost(eTech.ID);
							local iFreeBeakers = ((iTechCost * iModifier) / 100) - iTechCost;
							iFreeBeakers = math.pow(iFreeBeakers,0.40);
							iFreeBeakers = math.floor(iFreeBeakers * 100);

							print(string.format("Free Beakers for %s for %s: %d", Players[pTeam:GetLeaderID()]:GetCivilizationShortDescription(), eTech.Type, (iFreeBeakers / 100)));
							sum = sum + iFreeBeakers; num = num + 1;
							
							pTeamTechs:ChangeResearchProgressTimes100(eTech.ID, iFreeBeakers);
						end
					end
				end
				
				print(string.format("Free Beakers for %s: %d in %d tech(s)", Players[pTeam:GetLeaderID()]:GetCivilizationShortDescription(), sum/100, num ));
				
				if iPlayerLoop == Game.GetActivePlayer() then
					Events.GameplayAlertMessage(string.format("You get %d [ICON_RESEARCH] in %d tech(s) from other Civilizations", sum/100, num ))
				end
			end
		end
	end
	print("-------------------------------------")
end

function getBestKnownTechScorePercent(pTeam)
	local iOurTechScore = 0;
	local iBestKnownTechScore = 0;

	for iPlayerLoop = 0, GameDefines.MAX_MAJOR_CIVS-1, 1 do
		local pPlayer = Players[ iPlayerLoop ];
		if pPlayer ~= nil and pPlayer:IsAlive() and pPlayer:GetNumCities() > 0 and pPlayer.GetTechScore then
			if Teams[pPlayer:GetTeam()]:GetID() == pTeam:GetID() then
				iOurTechScore = math.max( iOurTechScore, pPlayer:GetTechScore() );
			elseif (pTeam:IsHasMet(pPlayer:GetTeam())) then
				iBestKnownTechScore = math.max( iBestKnownTechScore, pPlayer:GetTechScore() );
			end
		end
	end

	iBestKnownTechScore = math.max( iBestKnownTechScore, iOurTechScore );

	return ((100*iOurTechScore)/math.max(iBestKnownTechScore, 1));
end

function numberOfTechsBehindLeadTeam(pTeam)

	local pBestTeam = Teams[0];
	local iBestTeamTechCount = 0;
	for iTeamLoop = 0, GameDefines.MAX_CIV_TEAMS-1, 1 do
		local pOtherTeam = Teams[iTeamLoop];
		local pOtherTeamTechs = pOtherTeam:GetTeamTechs();
		if(pOtherTeam ~= nil) and pOtherTeam:GetID() ~= pTeam:GetID() then
			local iTechCount = 0;
			for eTech in GameInfo.Technologies() do
				if pOtherTeam:IsHasTech(eTech.ID) then
					iTechCount = iTechCount + 1;
				end
			end	
			if (iTechCount > iBestTeamTechCount) then
				pBestTeam = pOtherTeam;
				iBestTeamTechCount = iTechCount;
			end
		end
	end

	local iTechCount = 0;
	for eTech in GameInfo.Technologies() do
		if pTeam:IsHasTech(eTech.ID) then
			iTechCount = iTechCount + 1;
		end
	end	

	return iBestTeamTechCount - iTechCount;
end


Events.ActivePlayerTurnEnd.Add(TechDiffusion);

 

I'll make a multiple update tomorrow, the code above should give you what you want if you really want to start it now.

Else, wait for tomorrow

 

I've not finished my test game yet, but I think it should be over tonight.

I'll post another component I'm using then, it balance things a bit, and it will be also the first step to my Dynamic History mod.

Basically it raise the cost of settler to slow down the early civilizations, and give the later civilizations global advantage (in science, production, gold, etc...) using an unique Palace for each of them. And it also remove all traits, else Egypt, for example, is able to build all wonders... My mod won't use leaders anyway.

 

"traits" are planned.

but not like they are now.

More like specific objectives, specific units, specific advantages.

Some changes will be radical, but, I hope, more immersive for that kind of mod.

For example, one of the small mods I never released is removing the ability to build settlers for the Huns, but give all their melee units a strong bonus against cities (I really didn't like the way their city names was handled ). I could go further on that path and add the ability to gain more gold, beakers, culture, etc when attacking cities, without the ability to capture them.

I may use that kind of thing, maybe "tribe" civilizations without any city, we'll see.

the "unique palaces" I use for balance are kind of "traits" already, calibrated for the maps I plan to use the mod on. Russia gain territory very fast for example. European civs start late, but, added to the starting "boost", they have bonuses in their yields of science, production, gold, culture, etc...

That helps to balance the small territory available for them.

In my current test game (20 civs Large Europe, standard speed, Emperor level) Celts and England are in, it's 1923 (turns 343) and England is 4th on the civ's rank, Celts are 18th...

The tech flow seems good, playing as Russia I've just finished my first great wars bomber, will make my first landship soon (have to repair a pillaged oil well ), and my riflemen, cossack & artilleries are fighting against Austria great war infantry, hussars and canons.

I've the feeling that I will get to big of an advantage in late game in science, I need to finish it to see if Tech Diffusion is allowing the other civs to follow not to far away.

Just for reference on balance, the 10 leading civs:
Russia (me) 1513 pts
Greece 1247
Austria 945
England 905
Babylon 781
France 721
Germany 711
Egypt 704
Songhai 697
Spain 652

"Real Name Earth" is a mod I've followed since the start, I do want real city name, but the task is huge, I will request help here for the city list & position.

FramedArchitect as already coded a mod to do that on any map, I just need to add a "name by era & civilization" layer to his mod, then people will "only" have to fill the XML files with name and coordinates...

 

Small update, and I'll post the small initial version of what will (hopefully) become my main mod in a new thread.

v.4 (May 23, 2013) :
- Bugfix: check if an unit is still on the plot where looping on before trying to convert it.
- Auto-close "Who's Winning" and Natural Wonders popups for "sleeping" human player.


Edit: thread for the dynamic history project is here

 

Yes, and thanks, I've already changed some, but I forgot to add that to the change note, sorry.