逃げる

local FillColor = Color3.fromRGB(255,0,0)
local ZeroHealthColor = Color3.fromRGB(0,255,0) -- 体力が0のときの色を追加
local DepthMode = "AlwaysOnTop"
local FillTransparency = 0.5
local OutlineColor = Color3.fromRGB(255,255,255)
local OutlineTransparency = 0

local CoreGui = game:FindService("CoreGui")
local Players = game:FindService("Players")
local connections = {}

local Storage = Instance.new("Folder")
Storage.Parent = CoreGui
Storage.Name = "Highlight_Storage"

-- ハイライトの状態（デフォルトはオン）
local isHighlightOn = true

local function updateHighlightColor(char, Highlight)
    if char and char:FindFirstChild("Humanoid") then
        if char.Humanoid.Health == 0 then
            Highlight.FillColor = ZeroHealthColor
        else
            Highlight.FillColor = FillColor
        end
    end
end

local function Highlight(plr)
    local Highlight = Instance.new("Highlight")
    Highlight.Name = plr.Name
    Highlight.FillColor = FillColor
    Highlight.DepthMode = DepthMode
    Highlight.FillTransparency = FillTransparency
    Highlight.OutlineColor = OutlineColor
    Highlight.OutlineTransparency = 0
    Highlight.Parent = Storage

    local function updateHighlightColor(char)
        if char and char:FindFirstChild("Humanoid") then
            if char.Humanoid.Health == 0 then
                Highlight.FillColor = ZeroHealthColor
            else
                Highlight.FillColor = FillColor
            end
        end
    end

    local function setupCharacter(char)
        Highlight.Adornee = char
        updateHighlightColor(char)  -- 体力の初期値に基づいて色を設定
        char.Humanoid.HealthChanged:Connect(function(health)
            updateHighlightColor(char)  -- 体力が変化したときに色を更新
        end)
    end

    local plrchar = plr.Character
    if plrchar then
        setupCharacter(plrchar)
    end

    connections[plr] = plr.CharacterAdded:Connect(function(char)
        if isHighlightOn then -- ハイライトがオンの場合のみ、新しいキャラクターを追跡します。
            setupCharacter(char)
        end
    end)

    -- 1秒ごとに色を確認し、必要に応じて修正
    game:GetService("RunService").Heartbeat:Connect(function()
        if isHighlightOn and plr.Character then
            updateHighlightColor(plr.Character)
        end
    end)
end

Players.PlayerAdded:Connect(Highlight)
for i,v in next, Players:GetPlayers() do
    Highlight(v)
end

Players.PlayerRemoving:Connect(function(plr)
    local plrname = plr.Name
    if Storage[plrname] then
        Storage[plrname]:Destroy()
    end
    if connections[plr] then
        connections[plr]:Disconnect()
    end
end)