local function Initialize()
dumpAll()
end
Events.LoadScreenClose.Add(Initialize);
local player = Players[0]
local unit = nil
local playerUnits = player:GetUnits()
for i, u in playerUnits:Members() do
if u then
unit = u
end
end
local pConfig = PlayerConfigurations[0]
local city = nil
local playerCities = player:GetCities()
for i, c in playerCities:Members() do
if c then
city = c
end
end
local Plot = Map.GetPlot(0,0)
local GetBarbarianManager = nil
local GetFalloutManager = nil
local GetGossipManager = nil
local GetQuestsManager = nil
local GetTradeManager = nil
if Game.GetBarbarianManager then GetBarbarianManager = Game.GetBarbarianManager() end
if Game.GetFalloutManager then GetFalloutManager = Game.GetFalloutManager() end
if Game.GetGossipManager then GetGossipManager = Game.GetGossipManager() end
if Game.GetQuestsManager then GetQuestsManager = Game.GetQuestsManager() end
if Game.GetTradeManager then GetTradeManager = Game.GetTradeManager() end
local seenO = {}
local seenT = {}
listDump = {
Achievements = Achievements,
AutoplayManager = AutoplayManager,
Calendar = Calendar,
Cities = Cities,
CityManager = CityManager,
City = city,
CombatManager = CombatManager,
ContextPtr = ContextPtr,
DealManager = DealManager,
DiplomacyManager = DiplomacyManager,
Game = Game,
GameConfiguration = GameConfiguration,
GameEffects = GameEffects,
GetUnitStats = GetUnitStats,
GameGetBarbarianManager = GetBarbarianManager,
GameGetFalloutManager = GetFalloutManager,
GameGetGossipManager = GetGossipManager,
GameGetQuestsManager = GetQuestsManager,
GameGetTradeManager = GetTradeManager,
IconManager = IconManager,
InstanceManager = InstanceManager,
Locale = Locale,
MapConfiguration = MapConfiguration,
Map = Map,
NotificationManager = NotificationManager,
Options = Options,
PlayerConfigurations = pConfig,
PlayerManager = PlayerManager,
PlayerVisibilityManager = PlayerVisibilityManager,
Players = player,
Plot = Plot,
TTManager = TTManager,
UIManager = UIManager,
UITutorialManager = UITutorialManager,
Unit = unit,
UnitManager = UnitManager,
Units = Units,
UserConfiguration = UserConfiguration,
RiverManager = RiverManager,
ImprovementBuilder = ImprovementBuilder,
TerrainBuilder = TerrainBuilder,
GameClimate = GameClimate,
MapFeatureManager = MapFeatureManager,
TerrainManager = TerrainManager,
Territories = Territories,
MapManager = MapManager,
WorldBuilder = WorldBuilder,
ResourceBuilder = ResourceBuilder
}
listExceptionStr = {
"IsNone",
"ToPlot",
"ToArea",
"GetDiplomaticState",
"HasProductionProgress",
"ToolTip",
"HasBeenPlaced",
"GetAvailableProductionType",
"GetTurnsLeft",
"GetName",
"GetScienceYieldToolTip",
"GetPlayerName",
"GetLeaderName",
"Name",
"Description",
"Text",
"Password",
"GetNextEscapingSpyID",
"Advice",
"IsResourceExtractableAt",
"Tooltip",
"GetNextPursuedSpyID",
"GetTurnFromIndex",
"GetTurn",
"GetNthOffMapSpy",
"GetPlayerFromIndex",
"FromIndex",
"GetDiplomaticActionCost",
"Turn",
"Level",
"GetDiplomatic",
"GetCities",
"GetStartingPlot",
"GetActiveQuestReward",
}
function canTest(functionName)
local bCanTest = false
local get = string.find(functionName, "Get")
--local is = string.find(functionName, "Is")
--local has = string.find(functionName, "Has")
if get == 1 or is == 1 or has == 1 then
bCanTest = true
end
for k, str in pairs(listExceptionStr) do
if string.find(functionName, str) then
return false
end
end
return bCanTest
end
function dumpO(object,i)
seenO[object]=true
local s={}
local n=0
local meta = getmetatable(object).__index
if type(meta)=="function" then meta = getmetatable(object).__index() end
if not meta then return end
for k, v in pairs(meta) do
print(i,k)
if type(v)=="table" and not seenT[v] then
dumpT(v,i.."\t")
end
if type(v)=="function" then
object.f = object[k]
local value = nil
if canTest(tostring(k)) then
value = object:f()
--print(i.."\t - ".."return value :", value)
end
if getmetatable(v) and getmetatable(v).__index and not seenO[v] then
dumpO(v,i.."\t")
end
if value and getmetatable(value) and getmetatable(value).__index and not seenO[value] then
dumpO(value,i.."\t")
end
if value and type(value)=="table" and not seenT[value] then
dumpT(value,i.."\t")
end
end
end;
end
function dumpT(table,i)
seenT[table]=true
local s={}
local n=0
for k in pairs(table) do
n=n+1 s[n]=k
end
for k,v in ipairs(s) do
print(i,v)
v=table[v]
if type(v)=="table" and not seenT[v] then
dumpT(v,i.."\t")
end
end
end
function dumpAll()
local contextName = "Script"
if ContextPtr and ContextPtr.GetID then contextName = ContextPtr:GetID() end
print("-----------------------------------------------------------------------------------------------------")
print("-----------------------------------------------------------------------------------------------------")
print("-- STARTING DUMP FROM CONTEXT = ".. Locale.ToUpper(contextName))
print("-----------------------------------------------------------------------------------------------------")
print("-----------------------------------------------------------------------------------------------------")
local a = {}
for n in pairs(listDump) do table.insert(a, n) end
table.sort(a)
for i,k in ipairs(a) do
local v = listDump[k]
local i = ""
if type(v)=="function" then
local value = v()
print("return value :" .. value)
if getmetatable(v) and getmetatable(v).__index then
dumpO(v,i.."\t")
end
if getmetatable(value) and getmetatable(value).__index then
dumpO(value,i.."\t")
end
if type(value)=="table" then
dumpT(value,i.."\t")
end
end
if getmetatable(v) and getmetatable(v).__index then
print("--- object:", k)
dumpO(v,i)
print("--- ")
print("--------------------------------------")
end
if type(v)=="table" then
print("--- table:", k)
dumpT(v,i)
print("--- ")
print("--------------------------------------")
end
end
end
...
