Murder Myster 2 - ROLES RADAR

-- 28/2/2023 : last exploit(s) before going home tomorrow
myplr = game.Players.LocalPlayer
uis = game:GetService('UserInputService')

local event
local stop = false
event = uis.InputBegan:Connect(function(input,gpe)
    if gpe then return end
    if input.KeyCode == Enum.KeyCode.R then
        stop = true
    end
end)

--//////////////////////////////////

function surf(part,face,color3)
    local gui = Instance.new("SurfaceGui")
    gui.Name = "NightVision_Surface"
    gui.LightInfluence = 1
    gui.AlwaysOnTop = true
    gui.Face = face

    local fr = Instance.new("Frame")
    fr.Size = UDim2.new(1,0,1,0)
    fr.BorderSizePixel = 0
    fr.BackgroundColor3 = color3
    fr.BackgroundTransparency = 0.5
    fr.Parent = gui

    gui.Parent = part
end

function highlight(char, color3)
    local root = char:FindFirstChild('HumanoidRootPart')
    surf(root, "Top", color3)
    surf(root, "Bottom", color3)
    surf(root, "Right", color3)
    surf(root, "Left", color3)
    surf(root, "Front", color3)
    surf(root, "Back", color3)

    --[[for j,part in pairs(char:GetChildren()) do
        if part:IsA("BasePart") or part:IsA("MeshPart") then
            surf("Top")
            surf("Bottom")
            surf("Right")
            surf("Left")
            surf("Front")
            surf("Back")
        end
    end]]

end

function alreadyhas(char, tagname)
    local oldtag
    for i,v in pairs(char:GetChildren()) do
        if v.Name == 'innocent_tag' or v.Name == 'gun_tag' or v.Name == 'knife_tag' then
            oldtag = v
            break
        end
    end

    local already
    if oldtag and oldtag.Name == tagname then
        already = true
    else
        already = false

        if oldtag and oldtag.Name ~= tagname then
            oldtag:Destroy()
        end

        local newtag = Instance.new('BoolValue')
        newtag.Name = tagname
        newtag.Parent = char

        for j,part in pairs(char:GetChildren()) do
            if part:IsA("BasePart") or part:IsA("MeshPart") then
                for i,v in pairs(part:GetChildren()) do
                    if v.Name == 'NightVision_Surface' then
                        v:Destroy() -- also remove the old ones in the process
                        ok = true
                    end
                end
            end
        end
    end

    return already
end

while not stop do
    for i,plr in pairs(game.Players:GetChildren()) do
        if plr ~= game.Players.LocalPlayer then
            local char = plr.Character
            if char == nil then continue end

            if char:FindFirstChild('Knife') then
                if not alreadyhas(char,'knife_tag') then
                    highlight(char,Color3.new(1,0,0))
                end

                -- if youre a sheriff, aimbot at the murderer's head
                if myplr.Character and myplr.Character:FindFirstChild('Gun') then
                    workspace.CurrentCamera.CFrame = CFrame.new(workspace.CurrentCamera.CFrame.Position, char:FindFirstChild('Head').Position)
                end

            elseif char:FindFirstChild('Gun') then
                if not alreadyhas(char,'gun_tag') then
                    highlight(char,Color3.new(0,0,1))
                end
            else
                if not alreadyhas(char,'innocent_tag') then
                    highlight(char,Color3.new(0,1,0))
                end
            end

        end
    end

    local gundrop = workspace:FindFirstChild('GunDrop')
    if gundrop then
        if not alreadyhas(gundrop, 'gundrop_tag') then
            surf(gundrop, "Top", Color3.new(0,0,1))
            surf(gundrop, "Bottom", Color3.new(0,0,1))
            surf(gundrop, "Right", Color3.new(0,0,1))
            surf(gundrop, "Left", Color3.new(0,0,1))
            surf(gundrop, "Front", Color3.new(0,0,1))
            surf(gundrop, "Back", Color3.new(0,0,1))
        end
    end

    wait()
end
event:Disconnect()