Heaven beta ver

print 'hello world!'
game.Players:Chat("h/God has entered the chat-")

local lp = game.Players.LocalPlayer
local char = lp.Character or lp.CharacterAdded:Wait()
local hum = char:WaitForChild("Humanoid")
local Root = char:WaitForChild("HumanoidRootPart")
local ter = workspace.Terrain
local gamev = workspace.Terrain._Game
local adminpath = workspace.Terrain._Game.Admin
local pads = workspace.Terrain._Game.Admin.Pads
local folder = workspace.Terrain._Game.Folder
local getplrs = game:GetService("Players")
local gearwhitelist = {}
local connections = {}
local cmds = { "_doom", "_antidisco", "_gears", "_welmsg", "_Perm", "_padref", "_unlock", "_deploy", "_apaca" } -- Added apaca command
local onstart = { "house", "antirocket" }

local stopTreLoop = false  -- Flag to control the loop in _tre

local function applyRTXSettings()
    local sunrise = { 
        "outdoorambient 0.7 0.7 0.7", 
        "ambient 100 0 100", 
        "fogend 3000", 
        "time 6.9", 
        "colorshifttop 100 50 0", 
        "colorshiftbottom 0 0 0" 
    }
    for _, setting in ipairs(sunrise) do
        game.Players:Chat(setting)
    end
end

function check(plr)
    for _, v in pairs(game.Players:GetPlayers()) do
        if string.sub(v.Name:lower(), 1, #plr) == plr:lower() or string.sub(v.DisplayName:lower(), 1, #plr) == plr:lower() then
            return v.Name, v
        end
    end
    return nil
end

local function Notify(txt)
    game.StarterGui:SetCore("SendNotification", { Title = "ARGv3", Text = txt, Duration = 1.8 })
end

function Regen()
    local regenPad = workspace.Terrain._Game.Admin.Regen:FindFirstChild("ClickDetector")
    if regenPad then
        pcall(function() 
            fireclickdetector(regenPad) 
        end)
    else
        print("Regen ClickDetector not found!")
    end
end

local function chat(msg)
    game.Players:Chat(msg)
end

local function lockPlayer(playerName)
    local targetPlayerName, targetPlayer = check(playerName)
    if targetPlayer then
        chat("pm " .. targetPlayer.Name .. " you have been blacklisted from this server.")
        while true do
            chat("blind " .. targetPlayer.Name)
            chat("punish " .. targetPlayer.Name)
            chat("clone " .. targetPlayer.Name)
            chat("name " .. targetPlayer.Name .. " [Angels], please spare me")
            wait(1) -- Adjust delay as needed
        end
    else
        chat("Player not found!")
    end
end

local function dcrash()
    chat("dog all all all all all all all all all")
    chat("clone all all all all all all all all all")
end

local function fcrash()
    chat("freeze all all all all all all all all all all")
    chat("clone all all all all all all all all all all")
end

local function say(msg)
    game.ReplicatedStorage.DefaultChatSystemChatEvents.SayMessageRequest:FireServer(msg, "All")
end



local lockProcess = true
lp.Character.HumanoidRootPart.CFrame = CFrame.new(-31, 8, 66)

lp.Chatted:Connect(function(Cmd)
    Cmd = Cmd:lower()
    if Cmd == "h" then
        game.Players:Chat("h /n/n/nay")
    elseif Cmd == ">antiflash" then
        while true do
            local flash = workspace.Terrain._Game.Folder:FindFirstChild("Flash")
            if flash then
                game.Players:Chat("fix")
            end
            wait(0.1)
        end
    elseif Cmd == ">suprise" then
        Notify("what a suprising crash...")
        wait(0.008)
        for i = 1, 500 do
            chat("freeze all all all all all all all all all all")
            chat("clone all all all all all all all all all all")
            chat("dog all all all all all all all all all all")
        end
    elseif Cmd == ">nok" then
        for i, v in pairs(game:GetService("Workspace").Terrain._Game.Workspace.Obby:GetChildren()) do
            v.CanTouch = false
        end
    elseif Cmd == ">reg" then
        Regen()
    elseif Cmd == "_bchar" then
        local playerName = Cmd:sub(8):match("^%s*(.-)%s*$") -- Trims spaces
        local targetPlayerName, targetPlayer = check(playerName)
        if targetPlayer then
            chat("setgrav " .. targetPlayer.Name .. " -9e9")
        else
            chat("Player not found!")
        end
    elseif Cmd == ">Sin" then
        while true do
            game.Players:Chat("h 👑🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🌅🌅🌅🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅💫💫🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️🌅🕊️")
            wait(0.001)
        end
    elseif string.sub(Cmd, 1, 5) == ">lock" then
        local playerName = string.sub(Cmd, 7):match("^%s*(.-)%s*$") -- Extracts trimmed player name
        lockPlayer(playerName)
    elseif Cmd == ">hcrash" then
        chat("time 17:56")
        chat("char all 1843358057")
        wait(0.0005)
        chat("h you lost ...(Are u sad? to bad)")
        wait(1)
        for i = 1, 500 do
            chat("dog all all all all all all all all all all")
            chat("clone all all all all all all all all all all")
        end
        dcrash()
    elseif Cmd == ">house" then
        lp.Character.HumanoidRootPart.CFrame = CFrame.new(-31, 8, 66)
    elseif Cmd == ">ff" then
        game.Players:Chat("h/————\Fixed filter\n—————")
        for i = 1, 500 do
            chat("!?!?!?!?!!?!?!?.!?.!{??!?!.!!?!!")
            wait(0.1)
        end
    elseif Cmd == ">antirocket" then
        while true do
            for _, v in pairs(workspace:GetDescendants()) do
                if v.Name == "Rocket" then
                    v:Destroy()
                end
            end
            wait(0.1)
        end
    elseif Cmd == ">Ang" then
        coroutine.wrap(function()
            while not stopTreLoop do
                chat("respawn others")
                wait()
            end
        end)()
    elseif Cmd == ">AngelDestiny" then
        stopTreLoop = true
        chat("The >angelattack loop has been stopped.")
    elseif Cmd == ">perm" then
        local pad = workspace.Terrain._Game.Admin.Pads:FindFirstChild("Touch to get admin")
        if pad then
            local padHead = pad:FindFirstChild("Head")
            if padHead then
                local padCFrame = padHead.CFrame
                padHead.CanCollide = false
                task.wait(0.125)
                padHead.CFrame = lp.Character.HumanoidRootPart.CFrame
                task.wait(0.125)
                padHead.CFrame = padCFrame
                padHead.CanCollide = true
            end
        else
            Regen()
        end
    elseif Cmd == "Var" then
        chat("music 1843358057")
    elseif Cmd == ">Antimusic" then
        local Sound = game.workspace.Terrain._Game.Folder:WaitForChild("Sound")
        if Sound then
            while true do
                chat("music")
                wait(0.1)
            end
        end

	elseif Cmd == ">Antidisco" then
		local disco = game.workspace.Terrain._Game.Folder:WaitForChild("Disco")
		 while true do
		if disco then
			chat("fix")
			wait(0.2)
		end
	end
	
    elseif string.sub(Cmd, 1, 4) == ">lock" then
        local playerName = string.sub(Cmd, 6):match("^%s*(.-)%s*$")
        local targetPlayerName, targetPlayer = check(playerName)
        if targetPlayer then
            lockProcess = true
            while lockProcess do
                while true do
                    game.Players:Chat("punish " .. targetPlayer.Name)
                    game.Players:Chat("blind " .. targetPlayer.Name)
                    game.Players:Chat("skydive " .. targetPlayer.Name)
                    game.Players:Chat("clone " .. targetPlayer.Name)
                    game.Players:Chat("name " .. targetPlayer.Name .. " Fantasy groomed me...")
                    wait(1)
                end
            end
            game.Players:Chat("pm " .. targetPlayer.Name .. " you have been blacklisted from this server")
        else
            game.Players:Chat("Player not found!")
        end
    elseif Cmd == ">Unlock" then
        lockProcess = false
    elseif Cmd == ">Heavenly" then
        coroutine.wrap(function()
            while true do
                chat("m Stay in this beloved world lf peace")
                chat("h paradise is where all angels belong")
                wait(0.0000000001) -- Adjusted to a valid wait time
            end
        end)()
    
    elseif Cmd == ">Deploying" then
        while true do
            chat("gear me 11999247")
            wait(0.5) -- Adjust the delay as needed
            -- Auto-equip tools from Backpack to Character
            for _, tool in pairs(game.Players.LocalPlayer.Backpack:GetChildren()) do
                if tool:IsA("Tool") then
                    tool.Parent = game.Players.LocalPlayer.Character
                end
            end
            task.wait(0.7) -- Adjust the delay as needed
        end
    elseif Cmd == ">Noir" then
        -- Gear and equip
        while true do
            chat("gear me  120307951")
            wait(0.5)
            -- Auto-equip tools from Backpack to Character
            for _, tool in pairs(game.Players.LocalPlayer.Backpack:GetChildren()) do
                if tool:IsA("Tool") then
                    tool.Parent = game.Players.LocalPlayer.Character
                end
            end
            task.wait(0.7)
        end
        -- Click simulation at mouse position
        local UserInputService = game:GetService("UserInputService")
        local Mouse = game.Players.LocalPlayer:GetMouse()

        local function clickAtMouse()
            while true do
                -- Get the mouse position on the screen
                local mousePos = UserInputService:GetMouseLocation()

                -- Simulate a click at the mouse's position
                local mouseButton1 = Instance.new("InputObject")
                mouseButton1.UserInputType = Enum.UserInputType.MouseButton1
                mouseButton1.Position = mousePos
                UserInputService.InputBegan:Fire(mouseButton1)

                wait(0.05) -- Adjust the delay as needed
            end
        end

        -- Start the click simulation
        coroutine.wrap(clickAtMouse)()
    end
end)

coroutine.wrap(function()
    for _, v in pairs(onstart) do
        chat(v)
    end
end)()

coroutine.wrap(function()
    while wait() do
        for _, v in pairs(workspace:GetDescendants()) do
            if v.Name == "Rocket" then
                v:Destroy()
            end
        end
    end
end)()

lp.Character.HumanoidRootPart.CFrame = CFrame.new(-31, 8, 66)
say("[H3aven Beta] Loaded ")
chat("name all [Angels In Paradise]")
say("Use [Harmony] 😈The beginning and end🕊️")
say("who's king now? [God] Peace,harmony, Paradise 🌅👑")