92 lines
4.5 KiB
Lua
92 lines
4.5 KiB
Lua
-- AD Fleet Names
|
|
-- Konsol "spuNameFleet": traktorer/lastbiler uden for flows får spillets butiksnavn (nummereret når der er flere
|
|
-- af samme model), og deres egen AD-parkering hedder "P <navn>". Flow-traktorer beholder flowets navn (mod'en
|
|
-- sætter det selv); selvkørende maskiner (mejetærsker, roeoptager …) beholder deres navn.
|
|
|
|
ADFleetNames = {}
|
|
ADFleetNames.LOG_PREFIX = "ADSmartPickup: navne: "
|
|
|
|
-- ---- ren logik ----
|
|
|
|
-- vehicles = {{id, model, name, inRun, selfPropelled}} -> {{id, name, parkName, rename}}
|
|
-- parkUse = {[parkIndex] = antal køretøjer (også redskaber) med den parkering}: delte parkeringer røres ikke.
|
|
function ADFleetNames.plan(vehicles, parkUse)
|
|
local byModel = {}
|
|
for _, vehicle in ipairs(vehicles or {}) do
|
|
if not vehicle.inRun and not vehicle.selfPropelled then
|
|
byModel[vehicle.model] = byModel[vehicle.model] or {}
|
|
table.insert(byModel[vehicle.model], vehicle)
|
|
end
|
|
end
|
|
local newNames = {}
|
|
for model, list in pairs(byModel) do
|
|
table.sort(list, function(a, b) return tostring(a.id) < tostring(b.id) end)
|
|
for index, vehicle in ipairs(list) do
|
|
newNames[vehicle.id] = #list > 1 and string.format("%s %d", model, index) or model
|
|
end
|
|
end
|
|
local result = {}
|
|
for _, vehicle in ipairs(vehicles or {}) do
|
|
local name = newNames[vehicle.id] or vehicle.name or vehicle.model
|
|
local ownPark = vehicle.park == nil or ((parkUse or {})[vehicle.park] or 1) <= 1
|
|
table.insert(result, {id = vehicle.id, name = name, parkName = "P " .. name,
|
|
rename = newNames[vehicle.id] ~= nil and name ~= vehicle.name,
|
|
renamePark = newNames[vehicle.id] ~= nil and ownPark})
|
|
end
|
|
return result
|
|
end
|
|
|
|
-- ---- spil ----
|
|
|
|
function ADFleetNames.apply(adEnv)
|
|
local vehicles, byId, parkUse = {}, {}, {}
|
|
local farmId = g_currentMission:getFarmId()
|
|
for _, any in pairs(g_currentMission.vehicleSystem.vehicles) do
|
|
local index = any.advd ~= nil and any.advd.parkDestination or nil
|
|
if type(index) == "number" and index >= 1 and any.getOwnerFarmId ~= nil and any:getOwnerFarmId() == farmId then
|
|
parkUse[index] = (parkUse[index] or 0) + 1
|
|
end
|
|
end
|
|
for _, vehicle in ipairs(ADRunsController.getFarmVehicles(adEnv)) do
|
|
local id = ADRunsController.getVehicleId(vehicle)
|
|
if id ~= nil and vehicle.getName ~= nil then
|
|
local ownIndex = vehicle.advd ~= nil and vehicle.advd.parkDestination or nil
|
|
table.insert(vehicles, {id = id, model = tostring(vehicle:getName()), name = ADRuns.vehicleLabel(vehicle),
|
|
park = type(ownIndex) == "number" and ownIndex >= 1 and ownIndex or nil,
|
|
inRun = ADRunsController.getRunForVehicle(vehicle) ~= nil,
|
|
selfPropelled = not ADPool.canPull(ADPool.ownRole(vehicle))})
|
|
byId[id] = vehicle
|
|
end
|
|
end
|
|
local renamed, parks = 0, 0
|
|
for _, entry in ipairs(ADFleetNames.plan(vehicles, parkUse)) do
|
|
local vehicle = byId[entry.id]
|
|
local module = vehicle.ad ~= nil and vehicle.ad.stateModule or nil
|
|
if entry.rename and module ~= nil and module.setName ~= nil then
|
|
module:setName(entry.name)
|
|
if module.raiseDirtyFlag ~= nil then module:raiseDirtyFlag() end
|
|
renamed = renamed + 1
|
|
end
|
|
local index = vehicle.advd ~= nil and vehicle.advd.parkDestination or nil
|
|
local marker = type(index) == "number" and index >= 1 and adEnv.ADGraphManager:getMapMarkerById(index) or nil
|
|
if entry.renamePark and marker ~= nil and marker.name ~= entry.parkName then
|
|
adEnv.ADGraphManager:renameMapMarker(entry.parkName, index)
|
|
parks = parks + 1
|
|
end
|
|
end
|
|
Logging.info(ADFleetNames.LOG_PREFIX .. "%d maskiner omdøbt, %d parkeringer omdøbt", renamed, parks)
|
|
return renamed, parks
|
|
end
|
|
|
|
function ADFleetNames:consoleNameFleet()
|
|
local adEnv = ADFieldSilos ~= nil and ADFieldSilos.adEnv or nil
|
|
if adEnv == nil then return "spuNameFleet: AutoDrive er ikke klar endnu" end
|
|
local ok, renamed, parks = pcall(ADFleetNames.apply, adEnv)
|
|
if not ok then return "spuNameFleet: fejl: " .. tostring(renamed) end
|
|
return string.format("spuNameFleet: %d maskiner og %d parkeringer omdøbt — gem spillet", renamed, parks)
|
|
end
|
|
|
|
if addConsoleCommand ~= nil then
|
|
addConsoleCommand("spuNameFleet", "Giver traktorer uden for flows butiksnavne og deres parkeringer 'P <navn>'", "consoleNameFleet", ADFleetNames)
|
|
end
|