feat(pulje): flådefanen viser puljetraktorer og -redskaber med status og hvorfor de ikke er med; puljetraktorer omdøbes ikke efter lånte redskaber (v1.48.3.0)

FS25_ADSmartPickup/adFieldWork.lua

@@ -136,6 +136,8 @@ local function isBusyVehicle(vehicle, id)
         or (ADFieldSilos ~= nil and ADFieldSilos.isLoaned(vehicle)) or (ADPool ~= nil and ADPool.isReturning(vehicle))
 end
 
+ADFieldWork.isBusyVehicle = isBusyVehicle
+
 function ADFieldWork.getRigs(adEnv)
     local rigs = {}
     local state = ADFieldJobs.state
@@ -1112,7 +1114,9 @@ function ADFieldWork.autoNameFleet(adEnv)
         local vehicle = rig.vehicle
         local stateModule = vehicle.ad ~= nil and vehicle.ad.stateModule or nil
         local model = vehicle.getName ~= nil and tostring(vehicle:getName()) or nil
-        if stateModule ~= nil and stateModule.setName ~= nil and model ~= nil and ADRuns.vehicleLabel(vehicle) == model and not rig.controlled then
+        -- puljetraktor med et lånt redskab: ikke opkaldt efter redskabet (in-game 28/9: Challenger blev "Kultivator 1")
+        local pooled = ADHitch ~= nil and ADPool ~= nil and #ADHitch.poolParkIds(adEnv, vehicle) > 0
+        if stateModule ~= nil and stateModule.setName ~= nil and model ~= nil and ADRuns.vehicleLabel(vehicle) == model and not rig.controlled and not pooled then
             local name = ADNaming.fleetName(rig.role, rig.role == "harvester" and harvesterSubtype(rig) or nil, names)
             if name ~= nil then
                 stateModule:setName(name)