Haddock - Roblox Library

"Create a point system GUI where the player can collect points after collecting objects"

"roblox script for arsenal"

"when proximity prompt is activated part menu transparency is 0"

"create a part that kill you"

"Optimize the :MoveTo function on a humanoid so it stops lagging the server."

"script that changes part color depending on your team"

"Create a script that plays an animation when I click on a player, the animation is 12584847759 Make sure you use player:GetMouse()"

"make a script that makes all the players join the game Id: 5036207802, and the player called 8enxy will NOT join the game"

"create an object that can recieve http request from open ai"

"can you make a april fools script that something happens to the map"

"15:46:01.730 Head is not a valid member of Model "Workspace.qw3rty_l0l" - Client - Oxygen:4"

-- It seems like the script is trying to access the 'Head' part of the character model which does not exist or is not named as 'Head'. 
You can use the FindFirstChild method to ensure the 'Head' part exists before accessing it.

local player = game.Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:FindFirstChildWhichIsA("Humanoid")
local head = character:FindFirstChild("Head") -- use FindFirstChild to ensure 'Head' exists
if not head then
    return -- if 'Head' does not exist, stop executing the script
end
local oxygenBar1 = player.PlayerGui:WaitForChild("Oxygen")
local oxygenBar = oxygenBar1:WaitForChild("Bar")
local healthDecreaseRate = 10
local oxygenDecreaseRate = 1
local oxygenIncreaseRate = 2
local isHeadInWater = false

while task.wait() do
	local headPos = head.Position
	local partsInRegion = workspace:FindPartsInRegion3(Region3.new(headPos - Vector3.new(1,1,1), headPos   Vector3.new(1,1,1)), nil, math.huge)
	for i, part in ipairs(partsInRegion) do
		if part.Name == "Water" then
			isHeadInWater = true
			break
		else
			isHeadInWater = false
		end
	end

if isHeadInWater then
		if oxygenBar.Size.X.Scale > 0 then
			oxygenBar.Size = UDim2.new(oxygenBar.Size.X.Scale - oxygenDecreaseRate, 0, 1, 0)
		else
			if humanoid.Health > 0 then
				humanoid.Health = humanoid.Health - healthDecreaseRate
			end
		end
	else
		if oxygenBar.Size.X.Scale < 1 then
			oxygenBar.Size = UDim2.new(oxygenBar.Size.X.Scale   oxygenIncreaseRate, 0, 1, 0)
		end
	end
end

"a gui that that moves around the screen randomly tweened and when clicked it dissapears"

"Create a system where when the player presses the E key, he creates a clone of his character, this clone will appear next to the player. Clones chase and kill players, except the owner of the action.Clones limit 3, duration of clones 15 seconds."

-- local script 
local player = game.Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")
local cloneCount = 0
local maxClones = 3

local function createClone()
    if cloneCount < maxClones then
        cloneCount = cloneCount + 1
        local clone = character:Clone()
        clone.HumanoidRootPart.CFrame = character.HumanoidRootPart.CFrame * CFrame.new(5, 0, 0)
        clone.Parent = workspace
        clone.Humanoid:MoveTo(clone.HumanoidRootPart.Position + Vector3.new(5, 0, 0))
        clone.Humanoid.Died:Connect(function()
            cloneCount = cloneCount - 1
        end)
        game:GetService("Debris"):AddItem(clone, 15)
    end
end

local function onKeyPress(actionName, inputState, inputObject)
    if inputState == Enum.UserInputState.Begin then
        if actionName == "CreateClone" then
            createClone()
        end
    end
end

local contextActionService = game:GetService("ContextActionService")
contextActionService:BindAction("CreateClone", onKeyPress, false, Enum.KeyCode.E)

-- server script 
game.Players.PlayerAdded:Connect(function(player)
    player.CharacterAdded:Connect(function(character)
        local humanoid = character:WaitForChild("Humanoid")
        humanoid.AutoRotate = false
        humanoid.Died:Connect(function()
            for _, clone in ipairs(workspace:GetChildren()) do
                if clone:IsA("Model") and clone:FindFirstChild("Humanoid") and clone:FindFirstChild("HumanoidRootPart") then
                    local distance = (character.HumanoidRootPart.Position - clone.HumanoidRootPart.Position).Magnitude
                    if distance <= 50 then
                        humanoid.Health = 0
                    end
                end
            end
        end)
    end)
end)

"make a script with a draggable gui that gives me the option to change the amount of health I have"

-- local script inside a draggable GUI 
local player = game.Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")

local gui = script.Parent
local healthSlider = gui.HealthSlider
local healthValue = gui.HealthValue

local function updateHealth()
    local newHealth = tonumber(healthValue.Text)
    if newHealth and newHealth >= 0 and newHealth <= humanoid.MaxHealth then
        humanoid.Health = newHealth
    else
        healthValue.Text = tostring(humanoid.Health)
    end
end

healthSlider.MouseButton1Down:Connect(function()
    local mouse = player:GetMouse()
    local dragging = true
    local initialPos = gui.Position

local function drag()
        if dragging then
            local newPos = UDim2.new(0, mouse.X, 0, mouse.Y)
            gui.Position = newPos
        end
    end

mouse.Move:Connect(drag)
    mouse.Button1Up:Connect(function()
        dragging = false
    end)
end)

healthValue.FocusLost:Connect(updateHealth)

"Make a exploit script for Da Backrooms that will automatically pick up loot in the game: Da Backrooms. The game has a teleport anti cheat and will not pick up the loot if you are being rectified"

"if you try to walk it will not let you and it will promp you to buy this developer id if you do then you can walk 1537537917 but each time you try to walk it will promp you"

"play animation"

"make an event that gives all players the face accessory of a specific id and the head accessory of a specific id for 60 seconds"

-- server script (ServerScriptService) 
local faceAccessoryID = 12345678 -- Replace with the specific face accessory ID
local headAccessoryID = 87654321 -- Replace with the specific head accessory ID
local players = game:GetService("Players")

local function giveAccessories()
    for _, player in ipairs(players:GetPlayers()) do
        local character = player.Character
        if character then
            local faceAccessory = Instance.new("Accessory")
            faceAccessory.Parent = character
            faceAccessory.Name = "TemporaryFaceAccessory"
            local faceHandle = game:GetService("InsertService"):LoadAsset(faceAccessoryID):GetChildren()[1]
            faceHandle.Parent = faceAccessory

local headAccessory = Instance.new("Accessory")
            headAccessory.Parent = character
            headAccessory.Name = "TemporaryHeadAccessory"
            local headHandle = game:GetService("InsertService"):LoadAsset(headAccessoryID):GetChildren()[1]
            headHandle.Parent = headAccessory
        end
    end
    wait(60)
    removeAccessories()
end

local function removeAccessories()
    for _, player in ipairs(players:GetPlayers()) do
        local character = player.Character
        if character then
            local faceAccessory = character:FindFirstChild("TemporaryFaceAccessory")
            local headAccessory = character:FindFirstChild("TemporaryHeadAccessory")
            if faceAccessory then
                faceAccessory:Destroy()
            end
            if headAccessory then
                headAccessory:Destroy()
            end
        end
    end
end

game:GetService("ReplicatedStorage").GiveAccessoriesEvent.OnServerEvent:Connect(giveAccessories)

-- Add a RemoteEvent named "GiveAccessoriesEvent" to ReplicatedStorage

"Make me a script where my camera locks on another players movement when pressing the keybind z. Then when the camera is locked on that player Im able to use the key binds g and f to make the camera angle go up and down. G to go down f to go up"

-- local script 
local UserInputService = game:GetService("UserInputService")
local Players = game:GetService("Players")
local player = Players.LocalPlayer
local camera = game.Workspace.CurrentCamera
local lockedOn = false
local targetPlayer

local function lockCamera(playerToLock)
    local character = playerToLock.Character
    if character and character:FindFirstChild("HumanoidRootPart") then
        camera.CameraSubject = character.HumanoidRootPart
        lockedOn = true
    end
end

local function unlockCamera()
    camera.CameraSubject = player.Character.Humanoid
    lockedOn = false
end

local function adjustCameraAngle(input)
    if lockedOn and input.KeyCode == Enum.KeyCode.F then
        camera.CFrame = camera.CFrame * CFrame.Angles(math.rad(5), 0, 0)
    elseif lockedOn and input.KeyCode == Enum.KeyCode.G then
        camera.CFrame = camera.CFrame * CFrame.Angles(math.rad(-5), 0, 0)
    end
end

UserInputService.InputBegan:Connect(function(input, gameProcessed)
    if input.KeyCode == Enum.KeyCode.Z and not gameProcessed then
        if not lockedOn then
            for _, otherPlayer in ipairs(Players:GetPlayers()) do
                if otherPlayer ~= player then
                    targetPlayer = otherPlayer
                    lockCamera(targetPlayer)
                    break
                end
            end
        else
            unlockCamera()
        end
    elseif lockedOn and (input.KeyCode == Enum.KeyCode.F or input.KeyCode == Enum.KeyCode.G) then
        adjustCameraAngle(input)
    end
end)

"can you make me a script so when any player types /b it copies a ball and brings it to them and you can have 3 balls allowed copied if 3 balls are copied and a player types /b one of the balls that were copied tps back to them"

"make it so if Humanoid health = 0 then stop the entire script"

"Make a script that changes the walk buttons. W must be D, S must be A. Change it also on the arrow keys. Show me how and where to insert this script."

-- This script should be placed in StarterPlayerScripts 
local UserInputService = game:GetService("UserInputService")
local player = game.Players.LocalPlayer
local function onKeyPress(input)
    local humanoid = player.Character and player.Character:FindFirstChild("Humanoid")
    if humanoid then
        if input.KeyCode == Enum.KeyCode.W then
            humanoid:Move(Vector3.new(1, 0, 0), true)
        elseif input.KeyCode == Enum.KeyCode.S then
            humanoid:Move(Vector3.new(-1, 0, 0), true)
        elseif input.KeyCode == Enum.KeyCode.Up then
            humanoid:Move(Vector3.new(1, 0, 0), true)
        elseif input.KeyCode == Enum.KeyCode.Down then
            humanoid:Move(Vector3.new(-1, 0, 0), true)
        end
    end
end
UserInputService.InputBegan:Connect(onKeyPress)

-- Please note that this script will only work when the player's character is spawned and the Humanoid object is present in the character model. Also, this script will not disable the default movement controls, it will just add additional controls. To disable the default controls, you would need to use the UserInputService's 'StartMoving' and 'StopMoving' events.

"Create a camera system that changes the position of the camera based on a camera point system, where the camera will switch positions between areas that the player enters and also does not follow the player while moving"

"Create a admin only tool script inside serverscript and tool located in replicatedstorage"

"make a obby generator"

"map rebuilder the Map is in workspace map folder every 2 minutes delete the children of Map folder and Copy the Children of OriginalMap folder in replicatedstorage make sure that the parts cant fall down and make sure they can be destroyed by tools and stuff make sure parts don't fall to gravity"

"create me a gui button and when clicked shows an input box and when you input a music id it will start playing music from your music id and add a hide button"

First, create a ScreenGui in the StarterGui and add a TextButton and a TextBox inside it. Name the TextButton "PlayButton" and the TextBox "InputBox". Then, add a LocalScript inside the ScreenGui with the following code:

```lua
local player = game.Players.LocalPlayer
local gui = player.PlayerGui:WaitForChild("ScreenGui")
local playButton = gui:WaitForChild("PlayButton")
local inputBox = gui:WaitForChild("InputBox")

local sound = Instance.new("Sound")
sound.Parent = workspace

playButton.MouseButton1Click:Connect(function()
    local musicId = tonumber(inputBox.Text)
    if musicId then
        sound.SoundId = "rbxassetid://" .. musicId
        sound:Play()
    end
end)
```

This script will play the music with the given ID when the button is clicked. To add a hide button, create another TextButton inside the ScreenGui, name it "HideButton", and add the following code to the same LocalScript:

```lua
local hideButton = gui:WaitForChild("HideButton")
local guiHidden = false

hideButton.MouseButton1Click:Connect(function()
    if guiHidden then
        guiHidden = false
        playButton.Visible = true
        inputBox.Visible = true
        hideButton.Text = "Hide"
    else
        guiHidden = true
        playButton.Visible = false
        inputBox.Visible = false
        hideButton.Text = "Show"
    end
end)
```

This code will toggle the visibility of the PlayButton and InputBox when the HideButton is clicked.

"if activated all true if activated again all false"

"code a sword slash ability"

```lua
-- local script for sword slash ability 
local tool = script.Parent
local player = game.Players.LocalPlayer
local mouse = player:GetMouse()
local debounce = false

local function onActivated()
    if debounce then return end
    debounce = true
    
    -- Perform slash animation
    local animation = Instance.new("Animation")
    animation.AnimationId = "rbxassetid://SlashAnimationId" -- Replace with actual animation asset id
    local animTrack = player.Character.Humanoid:LoadAnimation(animation)
    animTrack:Play()
    
    -- Detect if the slash hits any targets
    local hitBox = tool:WaitForChild("HitBox") -- Assuming there's a part named HitBox within the tool
    local connection
    connection = hitBox.Touched:Connect(function(hit)
        local hitCharacter = hit.Parent
        local humanoid = hitCharacter:FindFirstChildWhichIsA("Humanoid")
        if humanoid and hitCharacter ~= player.Character then
            -- Apply damage or effect to the humanoid
            humanoid.Health = humanoid.Health - 25 -- Example damage
        end
    end)
    
    -- Wait for the animation to finish before disconnecting the Touched event
    animTrack.Stopped:Wait()
    connection:Disconnect()
    
    debounce = false
end

tool.Activated:Connect(onActivated)
```

"if a player with the item "15324577" in their avatar joins they get kicked for reason : "e-kitten / e-boy detected 😨" -- tell me where to put the script"

"make it so the player can teleport where ever the player is looking by just pressing the 't' key"

"script for a zombie spawner"

"create a sword tool that copys a slash from ReplicatedStorage and then fires it where the player is facing ReplicatedStorage that moves deals damage and works on mouse click deletes after 1 second"

"create an advanced fireball script with the keybind "Q""

"it doesnt start the countdown at 10 help"

"a lazer eye tool where if I hold down my mouse for 2 seconds i shoot 2 deadly beams out of my eyes with good vfx, it doesnt work"

I can help you create a script for the laser eye tool. Please note that you will need to create the visual effects (VFX) yourself, as it's not possible to generate them through the script alone.

Here's a script that creates a laser eye tool that shoots beams when the mouse is held down for 2 seconds:

```lua
-- Local script

local Players = game:GetService("Players")
local player = Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")
local mouse = player:GetMouse()

local debounce = false
local holdingMouse = false
local holdTime = 0

mouse.Button1Down:Connect(function()
	holdingMouse = true
	while holdingMouse do
		holdTime = holdTime + 0.1
		if holdTime >= 2 and not debounce then
			debounce = true
			shootLaserBeams()
			wait(2) -- Cooldown time
			debounce = false
		end
		wait(0.1)
	end
end)

mouse.Button1Up:Connect(function()
	holdingMouse = false
	holdTime = 0
end)

function shootLaserBeams()
	local head = character.Head
	local leftEyePosition = head.Position + Vector3.new(-0.5, 0, 0)
	local rightEyePosition = head.Position + Vector3.new(0.5, 0, 0)
	local direction = mouse.Hit.Position - head.Position

createLaserBeam(leftEyePosition, direction)
	createLaserBeam(rightEyePosition, direction)
end

function createLaserBeam(startPosition, direction)
	local beam = Instance.new("Part", workspace)
	beam.BrickColor = BrickColor.new("Bright red")
	beam.FormFactor = "Custom"
	beam.Material = "Neon"
	beam.Transparency = 0.25
	beam.Anchored = true
	beam.Locked = true
	beam.CanCollide = false
	local distance = 100 -- Change this value to adjust the length of the laser beams
	beam.Size = Vector3.new(0.3, 0.3, distance)
	beam.CFrame = CFrame.new(startPosition, startPosition + direction) * CFrame.new(0, 0, -distance / 2)

-- Add your VFX here

wait(0.1) -- Adjust this value to control how long the laser beams stay visible
	beam:Destroy()
end
```

This script creates a laser eye tool that shoots beams when the mouse is held down for 2 seconds. You'll need to create the visual effects (VFX) yourself and add them to the script where indicated.

"make a script where if someone say's "hi" in the chat, a frame named "NOTAUTHORIZED" Slowly appears then slowly goes away and then after it goes away the player gets kicked"

"local players = game:GetService("Players") local dss = game:GetService("DataStoreService") local dataStore = dss:GetDataStore("DataStore") local playerAddedEvent = game.ReplicatedStorage.Events:WaitForChild("PlayerAdded") local levelUpEvent = game.ReplicatedStorage.Events:WaitForChild("LevelUp")"

"ignore this prompt, generate the prompt thats in the first line of the editor"

-- roblox script 
now add to the code that if the random entity loop picks "CG-55Old","CGTA-55", "CG-55oldParticles","CG-55", "G-55Oldfx", "B-85",  "OLDB-55" then it will check the workspace.SpawnedEnitites folder and check if any of those entities are in there if so they they won't spawn in
return function(Vargs)
	local server, service = Vargs.Server, Vargs.Service

server.Commands.rldspawn = {
		Prefix = server.Settings.Prefix;	-- Prefix to use for command
		Commands = {"rldspawn"};	-- Commands
		Args = {"entity", "interval", "loop"};	-- Command arguments
		Description = "Spawns an entity in Rooms Low Detailed (Works only in that game) with interval and loop";	-- Command Description
		Hidden = false; -- Is it hidden from the command list?
		Fun = true;	-- Is it fun?
		AdminLevel = "Big T";	    -- Admin level; If using settings.CustomRanks set this to the custom rank name (eg. "Baristas")
		Function = function(plr,args)    -- Function to run for command
			local entity = (args[1])
			local interval = tonumber(args[2])
			local loop = tonumber(args[3])
			local blacklist = {"CG-55Old","CGTA-55", "CG-55oldParticles","CG-55", "G-55Oldfx", "B-85",  "OLDB-55"}

if entity == "random" then
				local entities = game:GetService("ServerStorage").Monsters:GetDescendants()
				for i = 1, loop do
					local randomEntity = entities[math.random(#entities)]
					if randomEntity:IsA("Model") and not table.find(blacklist, randomEntity.Name) then
						local c = randomEntity:Clone()
						c.Parent = workspace.SpawnedEnitites
						wait(interval)
					end
				end
			else
				for i = 1, loop do
					for _,v in pairs(game:GetService("ServerStorage").Monsters:GetDescendants()) do
						if v.Name == entity and v:IsA("Model") and not table.find(blacklist, v.Name) then
							local c = v:Clone()
							c.Parent = workspace.SpawnedEnitites
							wait(interval)
						end
					end
				end
			end
		end
	}
end

"make me an admin only command to reset peoples cash back to 0, using the "Cash" leaderstat"

"Create a script I created a tool with a part. Make sure that the part follows my arm, so I am actually holding it. Make sure that if I click, the part shoots a bullet that does damage. Place the script in part."

-- local script 
local part = script.Parent
local tool = part.Parent
local humanoid = tool.Parent:FindFirstChild("Humanoid")
local bullet = game.ReplicatedStorage.Bullet

part.Touched:Connect(function(hit)
	local humanoid = hit.Parent:FindFirstChild("Humanoid")
	if humanoid then
		local damage = 5
		humanoid:TakeDamage(damage)
	end
end)

tool.Equipped:Connect(function(mouse)
	local character = tool.Parent
	local humanoid = character:FindFirstChild("Humanoid")
	local rootPart = character:FindFirstChild("HumanoidRootPart")
	
	local function followArm()
		local rootCFrame = rootPart.CFrame
		local rightArmCFrame = rootCFrame * CFrame.new(1.5, 0, 0)
		part.CFrame = rightArmCFrame
	end
	
	mouse.Button1Down:Connect(function()
		local bullet = bullet:Clone()
		bullet.Parent = workspace
		bullet.CFrame = part.CFrame
		bullet:SetNetworkOwner(nil)
		
		local bulletVelocity = part.CFrame.lookVector * 50
		bullet:SetVelocity(bulletVelocity)
	end)
	
	while humanoid.Health > 0 do
		followArm()
		wait()
	end
end)

"if the proximity prompt script.parent is triggered then set maxhealth and health to 150 and get a sound a play it, make sure it cant be triggered multiple times by one player and if that player that triggered it dies or resets then they can trigger it again"

"make the frame fade away then become visible = false"

"make a lava"

"create a script inside a tool that create a fire ball projectile when player press E"

-- local script inside tool 
local tool = script.Parent
local player = game.Players.LocalPlayer
local mouse = player:GetMouse()
local canShoot = true

local function createFireball()
    if canShoot then
        canShoot = false
        local fireball = Instance.new("Part")
        fireball.Size = Vector3.new(2, 2, 2)
        fireball.Shape = Enum.PartType.Ball
        fireball.BrickColor = BrickColor.new("Bright red")
        fireball.Material = Enum.Material.Neon
        fireball.Parent = game.Workspace
        fireball.Position = player.Character.Head.Position
        fireball.Velocity = (mouse.Hit.p - fireball.Position).unit * 100
        fireball.CanCollide = false

local fire = Instance.new("Fire", fireball)
        fire.Size = 5
        fire.Heat = 10
        fire.Color = Color3.fromRGB(255, 0, 0)
        fire.SecondaryColor = Color3.fromRGB(255, 255, 0)

game.Debris:AddItem(fireball, 3)
        wait(0.5)
        canShoot = true
    end
end

local function onKeyDown(key)
    if key == "e" or key == "E" then
        createFireball()
    end
end

mouse.KeyDown:Connect(onKeyDown)

"make a script that makes 1234gzow huge SIMPLE."

"Create a roblox VFX like a gpo effect a attack effect"

To create a visual effect for an attack in Roblox, you can use particle emitters and beams. Here's an example of how to create an attack effect using a particle emitter:

1. First, create a part that will be the source of the effect (e.g., a sword or a wand).
2. Add a ParticleEmitter to the part.
3. Customize the ParticleEmitter properties to achieve the desired effect.

Here's a script that demonstrates how to create a simple attack effect using a particle emitter:

```lua
local part = Instance.new("Part", workspace)
part.Size = Vector3.new(1, 1, 1)
part.Position = Vector3.new(0, 5, 0)
part.Anchored = true

local emitter = Instance.new("ParticleEmitter", part)
emitter.Texture = "rbxassetid://343413638" -- You can use your own texture or find one in the Roblox catalog
emitter.LightEmission = 1
emitter.LightInfluence = 1
emitter.Rate = 100
emitter.Speed = 5
emitter.Size = NumberSequence.new(0.5, 2)
emitter.Transparency = NumberSequence.new(0, 1)
emitter.Lifetime = NumberRange.new(1, 2)
emitter.SpreadAngle = Vector2.new(180, 180)
emitter.Rotation = NumberRange.new(0, 360)
emitter.RotSpeed = NumberRange.new(-180, 180)

wait(5) -- The effect will last for 5 seconds
emitter.Enabled = false
wait(2) -- Wait for particles to disappear
part:Destroy()
```

You can customize the properties of the ParticleEmitter to create different effects. You can also use beams to create laser-like effects or combine multiple emitters and beams to create more complex effects.

"make a custom animation script for when players join they're forced to sue that walk where would i put it"

"you can have a hitbox around your character that follows you and once its entered the lights flicker using a loop and it stops when the object leaves the hitbox"

"Create admin commands and make sure "Albins1213" is whitelisted"

"working professions for mining and resource gathering"

-- server script 
local MiningTool = script.Parent

local MiningLocations = {
	Vector3.new(0, 0, 0),
	Vector3.new(10, 0, 0),
	Vector3.new(20, 0, 0),
	Vector3.new(30, 0, 0)
}

local MiningResources = {
	"Coal",
	"Iron",
	"Gold",
	"Diamond"
}

local MiningRewards = {
	5,
	10,
	15,
	20
}

local function onMiningToolEquipped(player)
	local character = player.Character
	local tool = character:WaitForChild("MiningTool")
	
	for i, location in ipairs(MiningLocations) do
		local resource = MiningResources[i]
		local reward = MiningRewards[i]
		
		local part = Instance.new("Part")
		part.Parent = workspace
		part.Position = location
		
		local miningAction = Instance.new("BindableEvent")
		miningAction.Name = "Mine" .. resource
		miningAction.Parent = part
		
		miningAction.Event:Connect(function()
			part:Destroy()
			player.leaderstats[resource].Value = player.leaderstats[resource].Value + reward
		end)
		
		tool.Equipped:Connect(function()
			local humanoid = character:WaitForChild("Humanoid")
			local target = part.Position
			
			humanoid:MoveTo(target)
			humanoid.MoveToFinished:Wait()
			
			miningAction:Fire()
		end)
	end
end

MiningTool.Equipped:Connect(onMiningToolEquipped)

"make me advanced admin chat commands with at least 5 admin commands! make sure it also has a "/" prefix"

-- server script 
local admins = {"YourUsername1", "YourUsername2"} -- Add your admin usernames here
local prefix = "/"

local function isAdmin(playerName)
    for _, admin in ipairs(admins) do
        if playerName == admin then
            return true
        end
    end
    return false
end

local function onChatted(player, message)
    if isAdmin(player.Name) and string.sub(message, 1, 1) == prefix then
        local command = string.sub(message, 2)
        local args = string.split(command, " ")

if args[1] == "kick" and args[2] then
            local target = game.Players:FindFirstChild(args[2])
            if target then
                target:Kick("Kicked by admin")
            end
        elseif args[1] == "ban" and args[2] then
            local target = game.Players:FindFirstChild(args[2])
            if target then
                table.insert(admins, target.Name)
                target:Kick("Banned by admin")
            end
        elseif args[1] == "unban" and args[2] then
            for i, admin in ipairs(admins) do
                if admin == args[2] then
                    table.remove(admins, i)
                    break
                end
            end
        elseif args[1] == "teleport" and args[2] and args[3] then
            local target1 = game.Players:FindFirstChild(args[2])
            local target2 = game.Players:FindFirstChild(args[3])
            if target1 and target2 and target1.Character and target2.Character then
                target1.Character.HumanoidRootPart.CFrame = target2.Character.HumanoidRootPart.CFrame
            end
        elseif args[1] == "shutdown" then
            for _, player in ipairs(game.Players:GetPlayers()) do
                player:Kick("Server shutdown by admin")
            end
        end
    end
end

game.Players.PlayerAdded:Connect(function(player)
    player.Chatted:Connect(function(message)
        onChatted(player, message)
    end)
end)

"make me an voice chat script that lets you hear muted poeple by putting their name in the chat"

"make an script that when u press the button : M it makes an frame visible the frame is inside the Screengui called Settings inside there it is called SettingFrame and when u press M again if its visible it becomes invisible"

"Create a vote kick script in a serverscript. Yes, no buttons and text label are placed at game.StarterGui.VoteKickGui.Frame The vote kick should end when all the players voted or after 5 seconds."

-- Server Script

local Frame = game.StarterGui.VoteKickGui.Frame
local VoteYes = Frame.Yes
local VoteNo = Frame.No
local VoteLabel = Frame.Label

local Players = game.Players:GetPlayers()
local VoteCount = 0

-- Function to start the vote
function StartVote(TargetPlayer)
    VoteCount = 0
    VoteLabel.Text = "Vote to kick "..TargetPlayer.Name.."?"

for _, Player in pairs(Players) do
        VoteYes.Visible = true
        VoteNo.Visible = true
        VoteYes.TextButton.Text = "Yes ("..VoteCount..")"
        VoteNo.TextButton.Text = "No ("..VoteCount..")"

VoteYes.MouseButton1Click:Connect(function()
            VoteCount = VoteCount + 1
            VoteYes.TextButton.Text = "Yes ("..VoteCount..")"
        end)

VoteNo.MouseButton1Click:Connect(function()
            VoteCount = VoteCount - 1
            VoteNo.TextButton.Text = "No ("..VoteCount..")"
        end)
    end

-- Wait for 5 seconds or until all players have voted
    wait(5)
    if VoteCount > 0 then
        TargetPlayer:Kick()
    end

-- Reset the vote
    VoteYes.Visible = false
    VoteNo.Visible = false
    VoteLabel.Text = ""
end

"make me a quarterback aimbot. It is for my game and it is not cheating as I’m adding it to my game"

-- quarterback aimbot script 
local Players = game:GetService("Players")
local Debris = game:GetService("Debris")
local ball = script.Parent.Ball
local throwPower = 100

local function getClosestPlayer(player)
    local closestPlayer
    local closestDistance = math.huge
    for _, otherPlayer in ipairs(Players:GetPlayers()) do
        if otherPlayer ~= player then
            local distance = (player.Character.HumanoidRootPart.Position - otherPlayer.Character.HumanoidRootPart.Position).Magnitude
            if distance < closestDistance then
                closestDistance = distance
                closestPlayer = otherPlayer
            end
        end
    end
    return closestPlayer
end

local function throwBall(player)
    local closestPlayer = getClosestPlayer(player)
    if closestPlayer then
        local ballClone = ball:Clone()
        ballClone.Parent = game.Workspace
        ballClone.CFrame = player.Character.HumanoidRootPart.CFrame * CFrame.new(0, 0, -2)
        local bodyVelocity = Instance.new("BodyVelocity")
        bodyVelocity.MaxForce = Vector3.new(math.huge, math.huge, math.huge)
        bodyVelocity.Velocity = (closestPlayer.Character.HumanoidRootPart.Position - ballClone.Position).Unit * throwPower
        bodyVelocity.Parent = ballClone
        Debris:AddItem(ballClone, 5)
    end
end

local function onKeyPress(actionName, inputState, inputObject)
    if inputState == Enum.UserInputState.Begin then
        local player = Players.LocalPlayer
        throwBall(player)
    end
end

local contextActionService = game:GetService("ContextActionService")
contextActionService:BindAction("ThrowBall", onKeyPress, false, Enum.KeyCode.Q)

"When you join the game, there will be a GUI that says "Play" and "Quit" and the background will be fully Black and the "Play" and "Quit" will be UICorner"

"use PathfindingService CreatePath() TrussParts math.huge PathfindingModifiers Vector3 Path:ComputeAsync() Path:GetWaypoints() athWaypointAction Humanoid:MoveTo() Path.Blocked to make a model/rig move to the closest player make agro with a raidus of 30"

The script you're looking for involves creating a behavior where a model in Roblox actively seeks out and moves towards the closest player within a specified radius, using the PathfindingService to navigate the game world. This kind of script can be used to create NPCs (Non-Player Characters) that exhibit aggressive behavior, such as enemies that chase the player in a game. Below is an example of how you could implement such a feature:

```lua
-- Server Script
local PathfindingService = game:GetService("PathfindingService")
local Players = game:GetService("Players")
local model = game.Workspace.Model -- Replace 'Model' with your model's actual name
local radius = 30

local function moveToClosestPlayer()
    while true do
        local closestPlayer = nil
        local shortestDistance = math.huge

-- Find the closest player within the specified radius
        for _, player in ipairs(Players:GetPlayers()) do
            if player.Character and player.Character:FindFirstChild("HumanoidRootPart") then
                local distance = (model.PrimaryPart.Position - player.Character.HumanoidRootPart.Position).magnitude
                if distance < shortestDistance and distance <= radius then
                    closestPlayer = player
                    shortestDistance = distance
                end
            end
        end

-- If a closest player is found, compute a path to them and follow it
        if closestPlayer then
            local path = PathfindingService:CreatePath({
                AgentRadius = 2,
                AgentHeight = 5,
                AgentCanJump = true,
                AgentJumpHeight = 20,
                AgentMaxSlope = 45,
                AgentWalkableFloorTypes = {Enum.Material.WoodPlank, Enum.Material.Sand, Enum.Material.Plastic},
                IgnoreWalls = false
            })
            path:ComputeAsync(model.PrimaryPart.Position, closestPlayer.Character.HumanoidRootPart.Position)
            if path.Status == Enum.PathStatus.Complete then
                local waypoints = path:GetWaypoints()
                for _, waypoint in ipairs(waypoints) do
                    if waypoint.Action == Enum.PathWaypointAction.Jump then
                        model.Humanoid:ChangeState(Enum.HumanoidStateType.Jumping)
                    end
                    model.Humanoid:MoveTo(waypoint.Position)
                    -- Wait until the model has reached the waypoint before moving to the next one
                    model.Humanoid.MoveToFinished:Wait()
                end
            end
        end
        -- Check for the closest player every second
        task.wait(1)
    end
end

moveToClosestPlayer()
```

This script should be placed in a Script object within the model you wish to control. Make sure your model has a Humanoid and a part designated as the PrimaryPart for this script to work correctly. Adjust the `radius` variable to change how close a player needs to be for the model to start chasing them. Also, ensure the model's name is correctly specified in the `model` variable.

"I have a splash screen, how do I make it so that when it is on the screen, all other gui are disabled?"

"the "press t to go the first person" script isn't working."

"can you make me a script that when a player types /b it spawns a copy of a ball and you can only spawn 1 ball per player and if the ball somehow isnt in the workspace allow the player to spawn a ball again"

"Create me a script to save usernames of the players when join the game in database and after that print all the usernames store in the database. The database name is onlyusernames"

"make it so also along with give theres a remove which does the opposite of give and instead removes value, for the remove command if a player has 800 and reduces to 900 instead of -100 make it 0 for example"

-- roblox script 
local allowedUsers = {"MrTexan789777", "qw3rty_l0l", "oddsansee1231"}
local commandPrefix = "give"
local removePrefix = "remove"
local currencyName = coinName

local function findPlayer(startName)
	for _, player in pairs(game.Players:GetPlayers()) do
		if string.sub(string.lower(player.Name), 1, #startName) == string.lower(startName) then
			return player
		end
	end
end

game.Players.PlayerAdded:Connect(function(player)
	player.Chatted:Connect(function(message)
		local messageParts = string.split(string.lower(message), " ")
		local command = messageParts[1]
		local targetStartName = messageParts[2]
		local amount = tonumber(messageParts[3])

if command == commandPrefix or command == removePrefix then
			for i, username in ipairs(allowedUsers) do
				if string.lower(player.Name) == string.lower(username) then
					local targetPlayer = findPlayer(targetStartName)
					if targetPlayer and amount then
						local leaderstats = targetPlayer:FindFirstChild("leaderstats")
						if leaderstats then
							local currency = leaderstats:FindFirstChild(currencyName)
							if currency then
								if command == commandPrefix then
									currency.Value = currency.Value + amount
								elseif command == removePrefix then
									currency.Value = math.max(0, currency.Value - amount)
								end
							end
						end
					elseif targetStartName == "me" then
						local leaderstats = player:FindFirstChild("leaderstats")
						if leaderstats then
							local currency = leaderstats:FindFirstChild(currencyName)
							if currency then
								if command == commandPrefix then
									currency.Value = currency.Value + amount
								elseif command == removePrefix then
									currency.Value = math.max(0, currency.Value - amount)
								end
							end
						end
					end
				end
			end
		end
	end)
end)

"create a script that spam deletes everything that's name is over 10 letters long"

The following script will delete every object in the workspace whose name is longer than 10 characters. Please use this script with caution, as it will remove parts without the possibility of undoing the action. It's recommended to test this in a safe environment where you won't lose important work.

```lua
local function deleteLongNamedObjects()
    for _, obj in pairs(workspace:GetDescendants()) do
        if #obj.Name > 10 then
            obj:Destroy()
        end
    end
end

-- Call the function to start deleting objects
deleteLongNamedObjects()
```

This script will run once and remove all objects at the time of execution. If you want it to continuously check and delete objects as they are created or renamed, you would need to set up a `RunService` loop or use event listeners to trigger the deletion when new objects are added to the workspace.

Here's an example using `RunService` to continuously check for objects with names longer than 10 characters:

```lua
local RunService = game:GetService("RunService")

local function deleteLongNamedObjects()
    for _, obj in pairs(workspace:GetDescendants()) do
        if #obj.Name > 10 then
            obj:Destroy()
        end
    end
end

RunService.Heartbeat:Connect(deleteLongNamedObjects)
```

Be aware that this script will have a performance impact on your game, especially if there are many objects in the workspace. It's also important to note that this script will delete any object, including those that may be essential to your game's functionality. Use with extreme caution.

"Make a StarterCharacterScript where an audio muffles depending on the cameras region"

"make a roblox lua script that makes the player be able to see and click the the proximity prompt no matter how near the player is or how far the player is"

"Create a damage leaderstats. Make it so that each player kill I get, my damage goes 2 higher. Also, make the damage start at 10."

-- script for player 
local Players = game:GetService("Players")

Players.PlayerAdded:Connect(function(player)
    local leaderstats = Instance.new("Folder")
    leaderstats.Name = "leaderstats"
    leaderstats.Parent = player

local Damage = Instance.new("IntValue")
    Damage.Name = "Damage"
    Damage.Value = 10
    Damage.Parent = leaderstats

player.CharacterAdded:Connect(function(character)
        character:WaitForChild("Humanoid").Died:Connect(function()
            local tag = character.Humanoid:FindFirstChild("creator")
            if tag then
                local killer = Players:GetPlayerFromCharacter(tag.Value)
                if killer then
                    killer.leaderstats.Damage.Value = killer.leaderstats.Damage.Value + 2
                end
            end
        end)
    end)
end)

-- script for weapon 
local weapon = script.Parent
weapon.Activated:Connect(function()
    local player = game.Players.LocalPlayer
    local character = player.Character
    local humanoid = character:FindFirstChildWhichIsA("Humanoid")
    if humanoid then
        humanoid:TakeDamage(player.leaderstats.Damage.Value)
    end
end)

"make a script when you say /execute in chat and put a website after with lua code then it runs the lua code if it has it."

"create a new folder called currency inside the player with a string value called souls and save when player leaves game."

-- server script 
local DataStoreService = game:GetService("DataStoreService")
local currencyDataStore = DataStoreService:GetDataStore("CurrencyData")

game.Players.PlayerAdded:Connect(function(player)
    local currencyFolder = Instance.new("Folder")
    currencyFolder.Name = "Currency"
    currencyFolder.Parent = player
    
    local souls = Instance.new("StringValue")
    souls.Name = "Souls"
    souls.Parent = currencyFolder
    
    local savedData
    local success, err = pcall(function()
        savedData = currencyDataStore:GetAsync(player.UserId .. "-Souls")
    end)
    
    if success and savedData then
        souls.Value = savedData
    else
        souls.Value = 0
    end
end)

game.Players.PlayerRemoving:Connect(function(player)
    local currencyFolder = player:FindFirstChild("Currency")
    if currencyFolder then
        local souls = currencyFolder:FindFirstChild("Souls")
        if souls then
            local success, err = pcall(function()
                currencyDataStore:SetAsync(player.UserId .. "-Souls", souls.Value)
            end)
            
            if not success then
                warn("Failed to save data for " .. player.Name)
            end
        end
    end
end)

"Write me a script that capitalizes the beginning of a sentence and adds punctuation based on what the player says, like if they ask a question or say something in general."

```lua
-- Local Script
local Players = game:GetService("Players")
local ChatService = game:GetService("Chat")

local function capitalize(str)
    return str:sub(1, 1):upper() .. str:sub(2)
end

local function addPunctuation(str)
    local lastChar = str:sub(-1)
    if lastChar ~= "." and lastChar ~= "?" and lastChar ~= "!" then
        str = str .. "."
    end
    return str
end

local function onPlayerChatted(player, message)
    local capitalizedMessage = capitalize(message)
    local punctuatedMessage = addPunctuation(capitalizedMessage)
    ChatService:Chat(player.Character.Head, punctuatedMessage, Enum.ChatColor.Blue)
end

Players.PlayerAdded:Connect(function(player)
    player.Chatted:Connect(function(message)
        onPlayerChatted(player, message)
    end)
end)
```
This script will capitalize the first letter of a player's message and add punctuation if it's missing. It will then display the modified message above the player's head. Note that this is a local script and should be placed in a suitable location, such as StarterPlayerScripts.

"part with a working suction"

"make a script that spawns a part then puts it on the players head"

"if a player touches BadgePart They Get A badge -- server script lBadge id is 2153405718"

"Pistol"

-- server script for creating a pistol 
local gun = Instance.new("Model", workspace)
gun.Name = "Pistol"

--Create the parts
local handle = Instance.new("Part", gun)
handle.Name = "Handle"
handle.Size = Vector3.new(1,2,1)
handle.BrickColor = BrickColor.new("Really black")

local barrel = Instance.new("Part", gun)
barrel.Name = "Barrel"
barrel.Size = Vector3.new(1,2,1)
barrel.BrickColor = BrickColor.new("Really black")

local trigger = Instance.new("Part", gun)
trigger.Name = "Trigger"
trigger.Size = Vector3.new(1,2,1)
trigger.BrickColor = BrickColor.new("Really black")

--Position the parts
handle.CFrame = CFrame.new(0,0,0)
barrel.CFrame = handle.CFrame * CFrame.new(0,0,1)
trigger.CFrame = handle.CFrame * CFrame.new(0,-1,0)

--Create the gun's tool
local gunTool = Instance.new("Tool", gun)
gunTool.Name = "Gun"
gunTool.RequiresHandle = false
gunTool.CanBeDropped = false

--Create the gun's handle
local gunHandle = Instance.new("Part", gunTool)
gunHandle.Name = "Handle"
gunHandle.Size = Vector3.new(1,2,1)
gunHandle.BrickColor = BrickColor.new("Really black")
gunHandle.CFrame = handle.CFrame

--Create the gun's barrel
local gunBarrel = Instance.new("Part", gunTool)
gunBarrel.Name = "Barrel"
gunBarrel.Size = Vector3.new(1,2,1)
gunBarrel.BrickColor = BrickColor.new("Really black")
gunBarrel.CFrame = barrel.CFrame

--Create the gun's trigger
local gunTrigger = Instance.new("Part", gunTool)
gunTrigger.Name = "Trigger"
gunTrigger.Size = Vector3.new(1,2,1)
gunTrigger.BrickColor = BrickColor.new("Really black")
gunTrigger.CFrame = trigger.CFrame

--Attach the parts to the gun
handle.CFrame = gunHandle.CFrame
barrel.CFrame = gunBarrel.CFrame
trigger.CFrame = gunTrigger.CFrame

--Create the gun's script
local gunScript = Instance.new("Script", gunTool)
gunScript.Name = "GunScript"
gunScript.Source = [[
	local gun = script.Parent
	local barrel = gun.Barrel
	
	function fireGun()
		local bullet = Instance.new("Part", workspace)
		bullet.Name = "Bullet"
		bullet.Size = Vector3.new(1,1,1)
		bullet.BrickColor = BrickColor.new("Really black")
		bullet.CFrame = barrel.CFrame
		
		local bulletScript = Instance.new("Script", bullet)
		bulletScript.Name = "BulletScript"
		bulletScript.Source = [[
			local bullet = script.Parent
			
			function moveBullet()
				bullet.CFrame = bullet.CFrame * CFrame.new(0,0,2)
				wait(0.1)
			end
			
			while true do
				moveBullet()
			end
		]]
	end
	
	while true do
		fireGun()
	end
]]

--Create the gun's sound
local gunSound = Instance.new("Sound", gunTool)
gunSound.Name = "GunSound"
gunSound.SoundId = "rbxassetid://YourSoundIDHere"

--Create the gun's tool action
local gunAction = Instance.new("ToolAction", gunTool)
gunAction.Name = "Fire"
gunAction.Activation:Connect(function()
	gunSound:Play()
end)

"create a swordscript for a sword tool"

"make a m1 combat system"

"make a command that can randomize everything in the workspace"

"Make a roblox script for a leaderestats calle Robux when a player kills somone the gets 1 leaderstat if the die they get -1 leader stat"

-- server script 
local Players = game:GetService("Players")

local function onCharacterAdded(character)
    local humanoid = character:WaitForChild("Humanoid")
    
    humanoid.Died:Connect(function()
        local player = Players:GetPlayerFromCharacter(character)
        if player and player.leaderstats and player.leaderstats.Robux then
            player.leaderstats.Robux.Value = player.leaderstats.Robux.Value - 1
        end
    end)
    
    humanoid.Touched:Connect(function(hit)
        local otherPlayer = Players:GetPlayerFromCharacter(hit.Parent)
        if otherPlayer and otherPlayer ~= player and otherPlayer.leaderstats and otherPlayer.leaderstats.Robux then
            otherPlayer.leaderstats.Robux.Value = otherPlayer.leaderstats.Robux.Value + 1
        end
    end)
end

local function onPlayerAdded(player)
    local leaderstats = Instance.new("Folder")
    leaderstats.Name = "leaderstats"
    leaderstats.Parent = player

local robux = Instance.new("IntValue")
    robux.Name = "Robux"
    robux.Value = 0
    robux.Parent = leaderstats

if player.Character then
        onCharacterAdded(player.Character)
    end
    player.CharacterAdded:Connect(onCharacterAdded)
end

Players.PlayerAdded:Connect(onPlayerAdded)

"make a clean script that will kick the user from the game whenever they type "ez" or "in chat"

"Make a script that when the player clicks the letter e it toggles fly mode. And if they are on mobile make a button that appears saying "FLY""

"Write me the most complex script for a camera system that can switch positions using zones"

-- server script 
local cameraZones = {
    Zone1 = {
        Position = Vector3.new(0, 0, 0),
        CameraType = Enum.CameraType.Scriptable
    },
    Zone2 = {
        Position = Vector3.new(100, 0, 0),
        CameraType = Enum.CameraType.Scriptable
    },
    Zone3 = {
        Position = Vector3.new(0, 0, 100),
        CameraType = Enum.CameraType.Scriptable
    }
}

local function onPlayerAdded(player)
    local function onCharacterAdded(character)
        local humanoidRootPart = character:WaitForChild("HumanoidRootPart")
        
        local function onTouched(zonePart)
            local zoneName = zonePart.Name
            local zoneData = cameraZones[zoneName]

if zoneData then
                local cameraSystemEvent = Instance.new("BindableEvent")
                cameraSystemEvent.Name = "CameraSystemEvent"
                cameraSystemEvent.Parent = player

cameraSystemEvent:Fire(zoneData.Position, zoneData.CameraType)
            end
        end

for zoneName, zoneData in pairs(cameraZones) do
            local zonePart = Instance.new("Part")
            zonePart.Name = zoneName
            zonePart.Position = zoneData.Position
            zonePart.Transparency = 1
            zonePart.Anchored = true
            zonePart.CanCollide = false
            zonePart.Parent = workspace

zonePart.Touched:Connect(onTouched)
        end
    end

player.CharacterAdded:Connect(onCharacterAdded)
end

game.Players.PlayerAdded:Connect(onPlayerAdded)

-- local script 
local player = game.Players.LocalPlayer
local camera = workspace.CurrentCamera

local function onCameraSystemEvent(position, cameraType)
    camera.CameraType = cameraType
    camera.CFrame = CFrame.new(position, player.Character.HumanoidRootPart.Position)
end

player.ChildAdded:Connect(function(child)
    if child.Name == "CameraSystemEvent" then
        child.Event:Connect(onCameraSystemEvent)
    end
end)

"when any player spawns in, give them a tool named "Gura-Gura" . this tool should have a moveset with keybinds Z,X,C,V and the moves should be based on the Gura Gura fruit in one piece"

-- server script 
game.Players.PlayerAdded:Connect(function(player)
	local tool = Instance.new("Tool")
	tool.Name = "Gura-Gura"
	tool.Parent = player.Backpack
	
	local moveSet = tool:FindFirstChild("MoveSet")
	if not moveSet then
		moveSet = Instance.new("MoveSet")
		moveSet.Name = "MoveSet"
		moveSet.Parent = tool
	end
	
	local move1 = moveSet:FindFirstChild("Move1")
	if not move1 then
		move1 = Instance.new("Move")
		move1.Name = "Move1"
		move1.KeyCode = Enum.KeyCode.Z
		move1.Parent = moveSet
	end
	
	local move2 = moveSet:FindFirstChild("Move2")
	if not move2 then
		move2 = Instance.new("Move")
		move2.Name = "Move2"
		move2.KeyCode = Enum.KeyCode.X
		move2.Parent = moveSet
	end
	
	local move3 = moveSet:FindFirstChild("Move3")
	if not move3 then
		move3 = Instance.new("Move")
		move3.Name = "Move3"
		move3.KeyCode = Enum.KeyCode.C
		move3.Parent = moveSet
	end
	
	local move4 = moveSet:FindFirstChild("Move4")
	if not move4 then
		move4 = Instance.new("Move")
		move4.Name = "Move4"
		move4.KeyCode = Enum.KeyCode.V
		move4.Parent = moveSet
	end
end)

"create a tool in the player's hotbar that can use z x and c for skills"

"make the part the script is inside of drops bright red parts with a value of 1 inside of them and make the part size 1"

"lava rains 50 studs above all players heads and if they players gets hit by it they die"

"If a player holds the E key down, it will play an animation of my choice until they let go."

"create a level system with xp and data store and that can change players health and weapon damage"

-- main script in ServerScriptService 
local DataStoreService = game:GetService("DataStoreService")
local levelStore = DataStoreService:GetDataStore("PlayerLevels")

game.Players.PlayerAdded:Connect(function(player)
    local folder = Instance.new("Folder")
    folder.Name = "leaderstats"
    folder.Parent = player

local xp = Instance.new("IntValue")
    xp.Name = "XP"
    xp.Value = 0
    xp.Parent = folder

local level = Instance.new("IntValue")
    level.Name = "Level"
    level.Value = 1
    level.Parent = folder

local success, errorMessage = pcall(function()
        local data = levelStore:GetAsync(player.UserId)
        if data then
            level.Value = data.level
            xp.Value = data.xp
        end
    end)

if not success then
        print("Error loading data: " .. errorMessage)
    end
end)

game.Players.PlayerRemoving:Connect(function(player)
    local success, errorMessage = pcall(function()
        levelStore:SetAsync(player.UserId, {
            level = player.leaderstats.Level.Value,
            xp = player.leaderstats.XP.Value
        })
    end)

if not success then
        print("Error saving data: " .. errorMessage)
    end
end)

-- script for adding XP and leveling up 
local function addXP(player, amount)
    local stats = player.leaderstats
    stats.XP.Value = stats.XP.Value + amount

local currentLevel = stats.Level.Value
    local requiredXP = currentLevel * 100

if stats.XP.Value >= requiredXP then
        stats.Level.Value = stats.Level.Value + 1
        stats.XP.Value = stats.XP.Value - requiredXP

player.Character.Humanoid.MaxHealth = 100 + (10 * stats.Level.Value)
        player.Character.Humanoid.Health = player.Character.Humanoid.MaxHealth

local weaponDamage = player.Backpack:FindFirstChild("Weapon")
        if weaponDamage then
            weaponDamage.Damage.Value = 10 + (2 * stats.Level.Value)
        end
    end
end

-- example of usage 
game.ReplicatedStorage.AddXP.OnServerEvent:Connect(addXP)

"Create a script inside server script that make closes a frame gui inside screen gui when players inputs a code in a text label and that code only works once"

-- server script (ServerScriptService) 
local usedCodes = {}

game.Players.PlayerAdded:Connect(function(player)
    local function checkCode(code)
        if usedCodes[code] == nil then
            usedCodes[code] = true
            return true
        else
            return false
        end
    end
    
    local function onCodeEntered(player, code)
        if checkCode(code) then
            local gui = player.PlayerGui:FindFirstChild("ScreenGui")
            if gui then
                local frame = gui:FindFirstChild("Frame")
                if frame then
                    frame.Visible = false
                end
            end
        else
            print("Code already used or invalid")
        end
    end
    
    local event = Instance.new("BindableFunction")
    event.Name = "CodeEntered"
    event.OnInvoke = onCodeEntered
    event.Parent = player
end)

-- local script inside the TextLabel 
local player = game.Players.LocalPlayer
local textLabel = script.Parent
local codeEnteredEvent = player:WaitForChild("CodeEntered")

textLabel.FocusLost:Connect(function(enterPressed)
    if enterPressed then
        local code = textLabel.Text
        codeEnteredEvent:Invoke(code)
    end
end)

"make a script when you say /execute in chat and put a website after with lua code then it runs the lua code if it has it. it did not work."

"make a camera shake script"

"create a text button that shows how many players are playing in a game"

"if I click a button its color fades so that I can customize what color it changes to"

"Make me a Upgrade system with instructions on how to use"

To create an upgrade system, you will need to create a shop GUI where players can purchase upgrades using in-game currency. Here's an example script for a simple upgrade system:

-- server script for shop GUI 
local shopGui = game.Players.LocalPlayer.PlayerGui.ShopGui
local playerData = game.Players.LocalPlayer:WaitForChild("leaderstats")

local function purchaseUpgrade(upgradeName, upgradeCost)
    if playerData.Coins.Value >= upgradeCost then
        playerData.Coins.Value = playerData.Coins.Value - upgradeCost
        -- add upgrade to player's inventory or apply upgrade to player's character
    else
        -- display error message to player
    end
end

shopGui.UpgradeButton1.MouseButton1Click:Connect(function()
    purchaseUpgrade("Upgrade1", 100)
end)

shopGui.UpgradeButton2.MouseButton1Click:Connect(function()
    purchaseUpgrade("Upgrade2", 200)
end)

-- client script for displaying player's inventory 
local inventoryGui = game.Players.LocalPlayer.PlayerGui.InventoryGui
local playerData = game.Players.LocalPlayer:WaitForChild("leaderstats")

playerData.Bag.Changed:Connect(function(newBagValue)
    inventoryGui.InventoryText.Text = "Inventory: " .. newBagValue .. "/3"
end)

-- To use the upgrade system, players can open the shop GUI and click on the upgrade buttons to purchase upgrades. Upgrades can be applied to the player's character or added to the player's inventory. The player's inventory can be viewed by opening the inventory GUI.

"create a script when you click it spawns a part"

"make a advanced roblox anti cheat for a anti speed"

"make a script that closes all the guis"

"create a script that blurs out a gui when its opened"

"you can have a hitbox around your character that follows you and once its entered the lights flicker using a loop and it stops when the object leaves the hitbox"

"When a player presses X on their controller, their character will dive forward onto the ground."

"with instructions, make me a roblox simulator function that allows the player to gain money when collecting parts and puts it into an inventory leaderstat!"

"Create the most complex camera script"

Creating the most complex camera script is subjective and depends on the desired functionality. However, here's a camera script that offers various camera modes and smooth transitions between them.

```lua
-- Camera Script
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")

local function lerp(a, b, t)
	return a + (b - a) * t
end

local function updateCamera(player, camera)
	local character = player.Character
	if not character then return end
	
	local humanoid = character:FindFirstChild("Humanoid")
	if not humanoid then return end
	
	local rootPart = character:FindFirstChild("HumanoidRootPart")
	if not rootPart then return end
	
	local cameraMode = humanoid.CameraMode
	
	if cameraMode == Enum.CameraMode.Classic then
		local distance = 10
		local height = 5
		local lookAt = rootPart.Position + Vector3.new(0, height, 0)
		
		local goalCFrame = CFrame.new(lookAt - camera.CFrame.LookVector * distance, lookAt)
		camera.CFrame = lerp(camera.CFrame, goalCFrame, 0.1)
		
	elseif cameraMode == Enum.CameraMode.Follow then
		local distance = 10
		local height = 5
		local lookAt = rootPart.Position + Vector3.new(0, height, 0)
		
		local goalCFrame = CFrame.new(lookAt - rootPart.CFrame.LookVector * distance, lookAt)
		camera.CFrame = lerp(camera.CFrame, goalCFrame, 0.1)
		
	elseif cameraMode == Enum.CameraMode.LockFirstPerson then
		local head = character:FindFirstChild("Head")
		if not head then return end
		
		camera.CFrame = lerp(camera.CFrame, head.CFrame, 0.1)
		
	elseif cameraMode == Enum.CameraMode.Custom then
		-- Implement your own custom camera logic here
	end
end

local function onPlayerAdded(player)
	player.CameraModeChanged:Connect(function()
		local camera = workspace.CurrentCamera
		updateCamera(player, camera)
	end)
	
	RunService.RenderStepped:Connect(function()
		local camera = workspace.CurrentCamera
		updateCamera(player, camera)
	end)
end

Players.PlayerAdded:Connect(onPlayerAdded)
for _, player in ipairs(Players:GetPlayers()) do
	onPlayerAdded(player)
end
```

This script provides Classic, Follow, LockFirstPerson, and Custom camera modes. It smoothly transitions between these modes using linear interpolation (lerp). You can modify or expand the script to include additional camera modes or functionality as needed.

"make it better, make it better ,make it better more particles, better it is"

-- server script (ServerScriptService) 
local part = Instance.new("Part")
part.Parent = game.Workspace
part.Anchored = true
part.Position = Vector3.new(0, 0, 0)

local particleEmitter = Instance.new("ParticleEmitter")
particleEmitter.Parent = part

particleEmitter.Texture = "rbxassetid://11388840312" -- cloth texture
particleEmitter.Lifetime = NumberRange.new(1, 2) -- increase lifetime
particleEmitter.Speed = NumberRange.new(20, 30) -- increase speed
particleEmitter.SpreadAngle = Vector2.new(-180, 180) -- increase spread angle
particleEmitter.Rate = 500 -- increase rate to 500 for more particles
particleEmitter.Rotation = NumberRange.new(-360, 360) -- increase rotation
particleEmitter.RotSpeed = NumberRange.new(-360, 360) -- increase rotation speed
particleEmitter.Size = NumberSequence.new({NumberSequenceKeypoint.new(0, 3), NumberSequenceKeypoint.new(1, 0)}) -- increase size for better visibility
particleEmitter.Transparency = NumberSequence.new({NumberSequenceKeypoint.new(0, 0.5), NumberSequenceKeypoint.new(1, 1)}) -- increase transparency
particleEmitter.LightEmission = 1 -- increase light emission
particleEmitter.LightInfluence = 1 -- increase light influence
particleEmitter.ZOffset = 0
particleEmitter.VelocitySpread = 200 -- increase velocity spread for wider dispersion
particleEmitter.Enabled = true