EZ dubs island royale taking that LLLLL

--<< Created By Unlisting >>--

local Plr = game:GetService("Players").LocalPlayer;

--<< Aimbot >>--

local GetNearestPlayer = function()
    local CLP = math.huge;
    local NearestPlayer = nil;
    for i, v in pairs(game:GetService("Players"):GetPlayers()) do
        if v and v ~= Plr and Plr.Character and game:GetService("Workspace").Characters:FindFirstChild(v.Name) and v.Character:FindFirstChild("HumanoidRootPart") then
            local Distance = v:DistanceFromCharacter(Plr.Character.HumanoidRootPart.Position);
            if Distance < CLP and (Plr.Character.HumanoidRootPart.Position - v.Character.HumanoidRootPart.Position).magnitude > 1 then
                CLP = Distance;
                NearestPlayer = v;
            end;
        end;
    end;
    return NearestPlayer;
end;

local ViablePart = function(self)
    if type(self) == "userdata" then
        if self.Character then
            local Char = self.Character
            if false--[[Char:FindFirstChild("Head")]] then
                return Char:FindFirstChild("Head");
            elseif Char:FindFirstChild("HumanoidRootPart") then
                return Char:FindFirstChild("HumanoidRootPart");
            end;
        end;
    end;
    return nil;
end;

local mt = getrawmetatable(game);
setreadonly(mt, false);
local namecall = mt.__namecall;

mt.__namecall = newcclosure(function(...)
    if not checkcaller() then
        if table.remove({...}) == "FindPartOnRayWithIgnoreList" and (getfenv(2).script.Name == "Weapon_Handle" or getfenv(2).script.Name == "Weapon_Replication") then
            if table.remove({...}, 3) == getrenv()._G.clientGunIgnores2() then
                if GetNearestPlayer() and ViablePart(GetNearestPlayer()) then
                    local Part = ViablePart(GetNearestPlayer());
                    if Part then
                        return Part, Part.Position - Vector3.new(math.random(), -math.random(), math.random()), Vector3.new(1 - math.random(), math.random(), 0 - math.random()), Part.Material;
                    end;
                end;
            end;
        end;
    end;
    return namecall(...);
end);

--<< Chams >>--

local ChamsFolder = Instance.new("Folder", game:GetService("CoreGui"));

local SetChams = function(plr)
    if not type(plr) == "userdata" and not plr:IsA("Player") and not plr.Parent == game:GetService("Players") then
        return false;
    end;
    if plr and not plr.Character then
        repeat
            wait();
        until plr.Character;
        wait(0.5);
    end;
    if not ChamsFolder:FindFirstChild(plr.Name) then
        Instance.new("Folder", ChamsFolder).Name = plr.Name;
    end;
    if plr and plr.Character and plr.Character:FindFirstChild("Humanoid") and ChamsFolder:FindFirstChild(plr.Name) then
        for i, v in pairs(plr.Character:GetChildren()) do
            if v:IsA("BasePart") then
                if ChamsFolder:FindFirstChild(plr.Name) then
                    local Chams = Instance.new("BoxHandleAdornment", ChamsFolder[plr.Name]);
                    Chams.ZIndex = 3;
                    Chams.AlwaysOnTop = true;
                    Chams.Adornee = v;
                    Chams.Color3 = Color3.new(1, 50 / 255, 50 / 255);
                    Chams.Size = v.Size + Vector3.new(0.1, 0.1, 0.1);
                    Chams.Transparency = 0.3;
                end;
            end;
        end;
        plr.Character.Humanoid.Died:Connect(function()
            if ChamsFolder:FindFirstChild(plr.Name) then
                pcall(game.Destroy, ChamsFolder[plr.Name]);
            end;
        end);
    end;
end;

local SetChamsColor = function(self, k)
    if not type(self) == "userdata" and not self:IsA("Player") and not typeof(k) == "Color3" then
        return false;
    end;
    if ChamsFolder:FindFirstChild(self.Name) and not (ChamsFolder[self.Name]:FindFirstChildOfClass("BoxHandleAdornment").Color3 == k) then
        for i, v in pairs(ChamsFolder[self.Name]:GetChildren()) do
            if v:IsA("BoxHandleAdornment") then
                v.Color3 = k;
            end;
        end;
    end;
    return true;
end;

for i, v in pairs(game:GetService("Players"):GetPlayers()) do
    if v ~= Plr then
        coroutine.wrap(SetChams)(v);
        v.CharacterAdded:Connect(function()
            SetChams(v);
        end);
    end;
end;

game:GetService("Players").PlayerAdded:Connect(function(self)
    SetChams(self);
end);

game:GetService("Players").PlayerRemoving:Connect(function(self)
    if ChamsFolder:FindFirstChild(self.Name) then
        pcall(game.Destroy, ChamsFolder[self.Name]);
    end;
end);

game:GetService("RunService").RenderStepped:Connect(function()
    getrenv()._G.boop = nil;
end);