-------------------------------------------------------------------------------------------------------------------------
-- Invite Great Person
-------------------------------------------------------------------------------------------------------------------------
local Decisions_InviteGreatPerson = {}
Decisions_InviteGreatPerson.Name = "TXT_KEY_DECISIONS_INVITEGREATPERSON"
Decisions_InviteGreatPerson.Desc = "TXT_KEY_DECISIONS_INVITEGREATPERSON_DESC"
Decisions_InviteGreatPerson.CanFunc = (
function(pPlayer)
local iEra = load(pPlayer, "Decisions_InviteGreatPerson")
local iCurrentEra = pPlayer:GetCurrentEra()
if iEra ~= nil then
if iEra < iCurrentEra then
save(pPlayer, "Decisions_InviteGreatPerson", nil)
else
Decisions_InviteGreatPerson.Desc = Locale.ConvertTextKey("TXT_KEY_DECISIONS_INVITEGREATPERSON_ENACTED_DESC")
return false, false, true
end
end
if pPlayer:GetNumCities() < 1 then
return false, false
end
local iCost = math.ceil((iCurrentEra + 1) * 250 * iMod)
Decisions_InviteGreatPerson.Desc = Locale.ConvertTextKey("TXT_KEY_DECISIONS_INVITEGREATPERSON_DESC", iCost)
if iCurrentEra == GameInfoTypes.ERA_ANCIENT or iCurrentEra == GameInfoTypes.ERA_CLASSICAL then
return true, false
end
if (pPlayer:GetGold() >= iCost) then
return true, true
else
return true, false
end
end
)
Decisions_InviteGreatPerson.DoFunc = (
function(pPlayer)
local iCurrentEra = pPlayer:GetCurrentEra()
local iCost = math.ceil((iCurrentEra + 1) * 250 * iMod)
pPlayer:ChangeGold(-iCost)
local tGreatPeople = {}
local tInclude = {["UNITCLASS_SCIENTIST"] = 1, ["UNITCLASS_ENGINEER"] = 1, ["UNITCLASS_MERCHANT"] = 1, ["UNITCLASS_GREAT_GENERAL"] = 1}
for Unit in GameInfo.Units() do
if Unit.Special == "SPECIALUNIT_PEOPLE" and tInclude[Unit.Class] == 1 then
table.insert(tGreatPeople, Unit.ID)
end
end
local pPlot = pPlayer:GetCapitalCity():Plot()
pPlayer:InitUnit(tGreatPeople[GetRandom(1, #tGreatPeople)], pPlot:GetX(), pPlot:GetY())
save(pPlayer, "Decisions_InviteGreatPerson", pPlayer:GetCurrentEra())
end
)
tDecisions["Decisions_InviteGreatPerson"] = Decisions_InviteGreatPerson
If it helps, the Middle Earth Civilizations and A Mod of Ice and Fire mod does the same thing at the start where it just freezes. So perhaps it's just my Civ download glitching out...
I've had my first few events in a test game and I'm really enjoying it. It adds a depth I felt was missing from Civ V and goes well with R.E.D. and the PerfectWorld 3 mods. Keep up the great work and thanks for the epic mod! 
