[R] Weight Lifting At Big City

print("Made By KAKOYTO_LOXX")
print("v1.21")

local plr = game.Players.LocalPlayer
local rs = game.ReplicatedStorage
local del = rs:FindFirstChild("fireAlert")
local Mouse = plr:GetMouse()
local whitelist = {}

local library = loadstring(game:HttpGet(('https://raw.githubusercontent.com/bloodball/-back-ups-for-libs/main/wall%20v3')))()
local w = library:CreateWindow("Admin Panel")
local l = w:CreateFolder("Stats")
local f = w:CreateFolder("Functions")
local g = w:CreateFolder("Global")
local s = w:CreateFolder("Server")
local o = w:CreateFolder("Other")
local c = w:CreateFolder("Credits")

f:Button("Ctrl Click Delete",function()
Mouse.Button1Down:connect(function()
if not game:GetService("UserInputService"):IsKeyDown(Enum.KeyCode.LeftControl) then return end
if not Mouse.Target then return end
game.ReplicatedStorage.fireAlert:InvokeServer(Mouse.Target)
end)
end)

l:Box("Walkspeed","number",function(value)
if plr.Character and plr.Character:FindFirstChild("Humanoid") then
plr.Character.Humanoid.WalkSpeed = value
end
end)

l:Button("Dupe Lvl",function()
   del:InvokeServer(ScriptMadeByKAKOYTO_LOXX)
end)


o:Box("Whitelist Player","string",function(value) -- "number" or "string"
    for i,v in ipairs(game.Players:GetPlayers()) do
		if string.find(string.lower(v.Name), string.lower(value)) then
            table.insert(whitelist,v.Name)
		end
    end
end)

o:Button("Clear Whitelist",function()
local whitelist = {}
end)

f:Box("Kill Player","string",function(value) -- "number" or "string"
    for i,v in ipairs(game.Players:GetPlayers()) do
		if string.find(string.lower(v.Name), string.lower(value)) then
            if v.Character and v.Character:FindFirstChild("Head") and del then
                del:InvokeServer(v.Character.Head)
            end
		end
    end
end)

f:Box("Punish Player","string",function(value) -- "number" or "string"
    for i,v in ipairs(game.Players:GetPlayers()) do
		if value ~= "" and string.find(string.lower(v.Name), string.lower(value)) then
            if v.Character and del then
                del:InvokeServer(v.Character)
            end
		end
    end
end)

f:Box("Break Player","string",function(value) -- "number" or "string"
    for i,v in ipairs(game.Players:GetPlayers()) do
		if value ~= "" and string.find(string.lower(v.Name), string.lower(value)) then
            if v.Character and v.Character:FindFirstChild("Humanoid") and del then
                del:InvokeServer(v.Character.Humanoid)
            end
		end
    end
end)

f:Box("Stun Player","string",function(value) -- "number" or "string"
    for i,v in ipairs(game.Players:GetPlayers()) do
		if value ~= "" and string.find(string.lower(v.Name), string.lower(value)) then
            if v.Character and v.Character:FindFirstChild("HumanoidRootPart") and del then
                del:InvokeServer(v.Character.HumanoidRootPart)
            end
		end
    end
end)

f:Box("Remove Tools From Player","string",function(value) -- "number" or "string"
    for i,v in ipairs(game.Players:GetPlayers()) do
		if string.find(string.lower(v.Name), string.lower(value)) then
            if v.Character and v.Character:FindFirstChildOfClass("Tool") and del then
                local t = v.Character:FindFirstChildOfClass("Tool")
                del:InvokeServer(t)
            end
            for _,tv in pairs(v.Backpack:GetChildren()) do
                if tv:IsA("Tool") then
                del:InvokeServer(tv)
            end
            end
		end
    end
end)

f:Box("Make Player Naked","string",function(value) -- "number" or "string"
    for i,v in ipairs(game.Players:GetPlayers()) do
		if value ~= "" and string.find(string.lower(v.Name), string.lower(value)) then
            if v.Character and v.Character["Shirt"] and del then
                del:InvokeServer(v.Character.Shirt)
            end
            if v.Character and v.Character["Pants"] and del then
                del:InvokeServer(v.Character.Pants)
            end
		end
    end
end)

f:Box("Kick Player","string",function(value) -- "number" or "string"
    for i,v in ipairs(game.Players:GetPlayers()) do
		if value ~= "" and string.find(string.lower(v.Name), string.lower(value)) then
            if v and del then
                del:InvokeServer(v)
            end
		end
    end
end)

g:Button("Kill All",function()
    for _,v in pairs(workspace:GetDescendants()) do
        if v:IsA("Model") and v:FindFirstChild("Head") and v.Name ~= plr.Name and not table.find(whitelist,v.Name) then
            del:InvokeServer(v.Head)
        end
    end
end)

g:Button("Punish All",function()
    for _,v in pairs(workspace:GetDescendants()) do
        if v:IsA("Model") and v:FindFirstChild("UpperTorso") and v.Name ~= plr.Name and not table.find(whitelist,v.Name) then
            del:InvokeServer(v)
        end
    end
end)

g:Button("Break All",function()
    for _,v in pairs(workspace:GetDescendants()) do
        if v.Name == "Humanoid" and v.Parent.Name ~= plr.Name and not table.find(whitelist,v.Parent.Name) then
            del:InvokeServer(v)
        end
    end
end)

g:Button("Stun All",function()
    for _,v in pairs(workspace:GetDescendants()) do
        if v.Name == "HumanoidRootPart" and v.Parent.Name ~= plr.Name and not table.find(whitelist,v.Parent.Name) then
            del:InvokeServer(v)
        end
    end
end)

g:Button("Remove Tools From Others",function()
    for _,v in pairs(workspace:GetDescendants()) do
        if v:IsA("Tool") and v.Parent.Name ~= plr.Name and not table.find(whitelist,v.Parent.Name) then
            del:InvokeServer(v)
        end
    end
    for _,v in pairs(game.Players:GetDescendants()) do
        if v:IsA("Tool") and v.Parent.Parent.Name ~= plr.Name and not table.find(whitelist,v.Parent.Parent.Name) then
            del:InvokeServer(v)
        end
    end
end)

g:Button("Make All Naked",function()
    for _,v in pairs(workspace:GetDescendants()) do
        if v.Name == "Shirt" and v.Parent.Name ~= plr.Name and not table.find(whitelist,v.Parent.Name) then
            del:InvokeServer(v)
        end
        if v.Name == "Pants" and v.Parent.Name ~= plr.Name and not table.find(whitelist,v.Parent.Name) then
            del:InvokeServer(v)
        end
    end
end)

g:Button("Kick Others",function()
    for _,v in pairs(game.Players:GetChildren()) do
        if v.Name ~= plr.Name and not table.find(whitelist,v.Name) then
            del:InvokeServer(v)
        end
    end
end)

s:Button("Baseplate Map",function()
    if plr.Character and plr.Character:FindFirstChild("UpperTorso") then
            plr.Character.HumanoidRootPart.CFrame = CFrame.new(-10.1523256, 87.3224106, -54.7421188, -0.629318595, 0.00215906883, 0.777144432, 1.95026388e-07, 0.999996126, -0.00277803931, -0.777147412, -0.00174812018, -0.629316151)
    end
    for _,v in pairs(workspace:GetChildren()) do
        if v:IsA("Model") and not v:FindFirstChild("Animate") or v:IsA("WedgePart") or v.Name == "SpawnLocation" then
            del:InvokeServer(v)
        end
    end
end)

s:Button("Break Map",function()
    for _,v in pairs(workspace:GetChildren()) do
        if v:IsA("Model") and not v:FindFirstChild("Head") then
            del:InvokeServer(v)
        end
        if v:IsA("Part") then
            del:InvokeServer(v)
        end
    end
end)

s:Button("Perm Remove Guis",function()
    for _,v in pairs(game.StarterGui:GetChildren()) do
        del:InvokeServer(v)
    end
end)

s:Button("Perm Remove Tools",function()
    for _,v in pairs(game.StarterPack:GetChildren()) do
        del:InvokeServer(v)
    end
end)

s:Button("Perm Break Server",function()
    for _,v in pairs(workspace:GetChildren()) do
        if v:IsA("Model") and not v:FindFirstChild("Head") or v:IsA("SpawnLocation") then
            del:InvokeServer(v)
        end
    end
    wait(10)
    for _,v in pairs(workspace:GetDescendants()) do
        if v:IsA("Model") and v:FindFirstChild("Head") and v.Name ~= plr.Name and not table.find(whitelist,v.Name) then
            del:InvokeServer(v.Head)
        end
    end
    wair(1)
    for _,v in pairs(game.StarterGui:GetChildren()) do
        del:InvokeServer(v)
    end
    wait(1)
    for _,v in pairs(game.StarterPack:GetChildren()) do
        del:InvokeServer(v)
    end
    wait(1)
    for _,v in pairs(game.Lighting:GetChildren()) do
        del:InvokeServer(v)
    end
    for _,v in pairs(game.ReplicatedStorage:GetChildren()) do
        if v.Name ~= "fireAlert" then
        del:InvokeServer(v)
        end
    end
    wait(10)
    for _,v in pairs(game.ServerScriptStorage:GetChildren()) do
        if v.Name ~= "STEROIDSSS!!!!" then
        del:InvokeServer(v)
        end
    end
end)

s:Button("Break Script For All",function()
            del:InvokeServer(del)
end)

s:Button("Shutdown Server",function()
    for _,v in pairs(game.Players:GetChildren()) do
            del:InvokeServer(v)
    end
end)

c:Label("Script Made By:\nKAKOYTO_LOXX",{
    TextSize = 13; -- Self Explaining
    TextColor = Color3.fromRGB(255,255,255); -- Self Explaining
    BgColor = Color3.fromRGB(69,69,69); -- Self Explaining

})