feat(pulje): hjemtur — puljeredskaber sættes af på deres parkering, traktoren kører til sin egen; optaget imens

FS25_ADSmartPickup/adHitch.lua

@@ -125,6 +125,16 @@ function ADHitch.step(job, state, dt, succeeded)
     return job
 end
 
+-- Hjemtur: hvert puljeredskabs parkering (der sættes det af), så traktorens egen parkering.
+function ADHitch.homeRoute(implementParkIds, tractorParkId)
+    local route, seen = {}, {}
+    for _, id in ipairs(implementParkIds or {}) do
+        if not seen[id] then seen[id] = true table.insert(route, id) end
+    end
+    if tractorParkId ~= nil then table.insert(route, tractorParkId) end
+    return route
+end
+
 -- ---- spil ----
 
 local jobs = setmetatable({}, {__mode = "k"}) -- [vehicle] = job (+ onDone)
@@ -207,6 +217,16 @@ local function isImplementPark(adEnv, vehicle, markerId)
     return false
 end
 
+function ADHitch.rearImplementsOf(vehicle)
+    return ADHitch.rearImplements(attachedImplements(vehicle))
+end
+
+local function parkIdOf(adEnv, vehicle)
+    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
+    return marker ~= nil and marker.id or nil
+end
+
 -- Kobler redskaberne bag traktoren af. -> ok, navne eller årsag
 function ADHitch.tryDetach(vehicle)
     local rear = ADHitch.rearImplements(attachedImplements(vehicle))
@@ -277,6 +297,26 @@ function ADHitch.route(adEnv, vehicle, markerIds, onDone)
     runStep(1)
 end
 
+-- Puljeredskaber bag traktoren sættes af på deres parkering, og traktoren kører hjem til sin egen.
+-- Kun redskaber med en Connect-markør til deres parkering er puljeredskaber; andre bliver siddende.
+function ADHitch.returnHome(adEnv, tractor, onDone)
+    local markers = adEnv.ADGraphManager:getMapMarkers()
+    local parkIds = {}
+    for _, implement in ipairs(ADHitch.rearImplementsOf(tractor)) do
+        local parkId = parkIdOf(adEnv, implement.object)
+        local park = parkId ~= nil and adEnv.ADGraphManager:getMapMarkerByWayPointId(parkId) or nil
+        if park ~= nil and ADPool.connectFor(park.name, markers) ~= nil then table.insert(parkIds, parkId) end
+    end
+    if #parkIds == 0 then return false end
+    local route = ADHitch.homeRoute(parkIds, parkIdOf(adEnv, tractor))
+    ADPool.setReturning(tractor, true)
+    ADHitch.route(adEnv, tractor, route, function(vehicle, ok, detail)
+        ADPool.setReturning(vehicle, false)
+        if onDone ~= nil then onDone(vehicle, ok, detail) end
+    end)
+    return true
+end
+
 local function tickWaits(elapsed)
     for i = #waits, 1, -1 do
         local wait = waits[i]

FS25_ADSmartPickup/adPool.lua

@@ -134,6 +134,17 @@ function ADPool.blocked(nowMs)
     return result
 end
 
+-- Traktorer på hjemtur (sætter redskab af, kører hjem): optaget for markarbejdet til de er hjemme.
+local returning = setmetatable({}, {__mode = "k"})
+
+function ADPool.setReturning(vehicle, isOn)
+    returning[vehicle] = isOn and true or nil
+end
+
+function ADPool.isReturning(vehicle)
+    return returning[vehicle] == true
+end
+
 -- ---- spil ----
 
 local function parkMarker(adEnv, vehicle)