--- Script for random transports.
--
-- @script util_random_transports

stationList = {}
transportList = {}
spawn_delay = 0

function vectorFromAngle(angle, length)
    return math.cos(angle / 180 * math.pi) * length, math.sin(angle / 180 * math.pi) * length
end

function init()
    tmp = SupplyDrop()
    for idx, obj in ipairs(tmp:getObjectsInRange(100000)) do
        if obj.typeName == "SpaceStation" then
            table.insert(stationList, obj)
        end
    end
    tmp:destroy()
end

function randomStation()
    idx = math.floor(random(1, #stationList + 0.99))
    return stationList[idx]
end

function update(delta)
    cnt = 0
    for idx, obj in ipairs(transportList) do
        if not obj:isValid() then
            -- Transport destroyed, remove it from the list
            table.remove(transportList, idx)
        else
            if obj:isDocked(obj.target) then
                if obj.undock_delay > 0 then
                    obj.undock_delay = obj.undock_delay - delta
                else
                    obj.target = randomStation()
                    obj.undock_delay = random(5, 30)
                    obj:orderDock(obj.target)
                end
            end
            cnt = cnt + 1
        end
    end

    if spawn_delay >= 0 then
        spawn_delay = spawn_delay - delta
    end

    if cnt < #stationList then
        if spawn_delay < 0 then
            target = randomStation()
            if target:isValid() then
                spawn_delay = random(30, 50)

                rnd = irandom(1, 5)
                if rnd == 1 then
                    name = "Personnel"
                elseif rnd == 2 then
                    name = "Goods"
                elseif rnd == 3 then
                    name = "Garbage"
                elseif rnd == 4 then
                    name = "Equipment"
                else
                    name = "Fuel"
                end

                if irandom(1, 100) < 15 then
                    name = name .. " Jump Freighter " .. irandom(3, 5)
                else
                    name = name .. " Freighter " .. irandom(1, 5)
                end

                obj = CpuShip():setTemplate(name):setFaction("Independent")
                obj.target = target
                obj.undock_delay = random(5, 30)
                obj:orderDock(obj.target)
                x, y = obj.target:getPosition()
                xd, yd = vectorFromAngle(random(0, 360), random(25000, 40000))
                obj:setPosition(x + xd, y + yd)
                table.insert(transportList, obj)
            end
        end
    end
end
