🌡️ Sensors

Indirecta ships each iComm or communicator device with a Sensors module. It uses various patched functions ranging from atmospheric data (thank you PulsarNova!) to extended climate data derived from atmospheric data (thank you ChatGPT!).

Thanks to a wonderful idea and ChatGPT, Indirecta has been able to create a state-of-the-art sensor function for electromagnetic interference, that's essentially a value fluctuating depending on the number of parts in a range with scripts, and their distance to the player.

We encourage iComm users to test this sensor in their game, and impose appropriate work safety and system configurations depending on sensor readings

The iComm Nano lacks sensors like Dew Point, UV Index, which would not be useful in most scenarios where the iComm Nano would be needed.

Magnetic Field Strength Algorithm

(function DeviceRadiation from Module Sensors)

 ["DeviceRadiation"] = function()
        wait(.397)
        -- Define a function that takes a position and a radius as inputs and returns the pollution level at that position
        local function getPollutionLevel(position, radius)
            -- Find all the parts within the radius of the given position
            local parts = game.Workspace:FindPartsInRegion3(Region3.new(position - Vector3.new(radius, radius, radius), position + Vector3.new(radius, radius, radius)))

            -- Initialize a counter for the number of parts with scripts
            local numScripts = 0
            local p3 = 0

            local major_contributor = nil
            local major_contribution = 0

        -- Iterate over the parts and count the number with scripts attached to them
        for _, part in pairs(parts) do
            if part.Parent == workspace then continue end
            if game:GetService("Players"):GetPlayerFromCharacter(part.Parent) then continue end

            local distance = (part.Position - position).Magnitude+0.001
            local function countScriptDescendants(part)
                local numScripts = 0
                local blacklist = {}
                local currentPart = part
                while currentPart.Parent ~= workspace do
                    for _, descendant in pairs(currentPart:GetDescendants()) do
                        if descendant:IsA("BaseScript") and descendant.Disabled == false and not table.find(blacklist, descendant) then
                            table.insert(blacklist, descendant)
                            numScripts = numScripts + 1
                        end
                    end
                    currentPart = currentPart.Parent
                end
                return numScripts
            end

            local numPartScripts = countScriptDescendants(part)

            numScripts += numPartScripts

            -- Calculate the contribution of the current part to p3
            local contribution = numPartScripts / (2 * math.pi * distance)
            if contribution > major_contribution then major_contributor = part.Parent.Name end
            p3 += contribution

        end

        -- Calculate the pollution level as a function of the number of parts with scripts and the radius
        local pollutionDensity = numScripts / (radius^2)
        -- Round to micron
        pollutionDensity = math.round(pollutionDensity / 0.000001 * 10) / 10

        -- Calculate more accurate microTesla unit from weighted average (p2 is much higher than pollution density)
        local microTeslaDensity = math.clamp((math.log(1+p3)) * 8, 0, math.huge) --15000000, needs a lot more tuning.

        return microTeslaDensity, pollutionDensity
    end

    local tesla, density = getPollutionLevel(HumanoidRootPart.Position, 45)
    if config["MagnetometerUnit"] == "Density" then
        return string.format("%.2f µP/stud", density), (math.log(density) / 15) * 100
    elseif config["MagnetometerUnit"] == "microTesla" then
        return string.format("%.2f µT", tesla), (tesla + 100) / 2
    elseif config["MagnetometerUnit"] == "milliGauss" then
        return string.format("%.2f mG", tesla*10), (math.log(density) / 15) * 100
    else return "-",50 end


end