Haddock - Roblox Library

"make a gui only for the onwer of the game"

"Write a script that lets the part send a chat message to the player after being touched"

"Make me a leader stat scripts that checks the players saved data and then loads it into the game the leader stat script will track things such as Coins Rebirths and Rebirth Multipliers"

-- server script (ServerScriptService) 
local DataStoreService = game:GetService("DataStoreService")
local playerDataStore = DataStoreService:GetDataStore("PlayerData")

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

local coins = Instance.new("IntValue")
    coins.Name = "Coins"
    coins.Parent = leaderstats

local rebirths = Instance.new("IntValue")
    rebirths.Name = "Rebirths"
    rebirths.Parent = leaderstats

local rebirthMultipliers = Instance.new("IntValue")
    rebirthMultipliers.Name = "RebirthMultipliers"
    rebirthMultipliers.Parent = leaderstats

local data
    local success, errorMessage = pcall(function()
        data = playerDataStore:GetAsync(player.UserId)
    end)

if success and data then
        coins.Value = data.Coins
        rebirths.Value = data.Rebirths
        rebirthMultipliers.Value = data.RebirthMultipliers
    else
        coins.Value = 0
        rebirths.Value = 0
        rebirthMultipliers.Value = 1
    end
end

local function onPlayerRemoving(player)
    local dataToSave = {
        Coins = player.leaderstats.Coins.Value,
        Rebirths = player.leaderstats.Rebirths.Value,
        RebirthMultipliers = player.leaderstats.RebirthMultipliers.Value
    }

local success, errorMessage = pcall(function()
        playerDataStore:SetAsync(player.UserId, dataToSave)
    end)

if not success then
        warn("Error saving data for " .. player.Name .. ": " .. errorMessage)
    end
end

game.Players.PlayerAdded:Connect(onPlayerAdded)
game.Players.PlayerRemoving:Connect(onPlayerRemoving)

"lava rain on players heads and kills"

"create a cat npc walking around"

"Create a script that slowly increases the TimePosition without it sounding glitchy."

"3 parts have to be clicked in a sequence to open a door. the parts glow a colour when clicked. add detailed, in-depth comments"

-- server script 
-- This script will allow 3 parts to be clicked in a sequence to open a door. 
-- When a part is clicked, it will glow a certain color. 
-- The parts must be clicked in a certain order to open the door.

-- Create a table to store the parts 
local parts = {
    part1 = game.Workspace.Part1,
    part2 = game.Workspace.Part2,
    part3 = game.Workspace.Part3
}

-- Create a table to store the colors 
local colors = {
    color1 = Color3.fromRGB(255, 0, 0),
    color2 = Color3.fromRGB(0, 255, 0),
    color3 = Color3.fromRGB(0, 0, 255)
}

-- Create a variable to store the current part 
local currentPart = 1

-- Create a function to handle the part clicks 
local function handlePartClick(otherPart)
    -- Check if the part that was clicked is the correct one 
    if otherPart == parts["part"..currentPart] then
        -- Change the color of the part 
        otherPart.BrickColor = colors["color"..currentPart]
        -- Increment the current part 
        currentPart = currentPart + 1
        -- Check if all parts have been clicked 
        if currentPart > 3 then
            -- Open the door 
            game.Workspace.Door.Open = true
            -- Reset the current part 
            currentPart = 1
        end
    else
        -- Reset the current part 
        currentPart = 1
    end
end

-- Connect the Touched event to the handlePartClick function 
for _, part in pairs(parts) do
    part.Touched:Connect(handlePartClick)
end

"script an attacking npc with the roblox walk animations and tell me where the script goes"

-- server script (ServerScriptService) 
local npc = game.Workspace.NPC
local humanoid = npc.Humanoid
local animation = Instance.new("Animation")
animation.AnimationId = "rbxassetid://507770453" -- Roblox walk animation ID

local animationTrack = humanoid:LoadAnimation(animation)

local function attack(target)
    npc.HumanoidRootPart.CFrame = CFrame.new(npc.HumanoidRootPart.Position, target.Position) -- Face the target
    npc.Humanoid:MoveTo(target.Position) -- Move to target
    animationTrack:Play() -- Play walk animation

-- Attack logic goes here
end

local function findClosestPlayer()
    local closestPlayer = nil
    local closestDistance = math.huge

for _, player in ipairs(game.Players:GetPlayers()) do
        local character = player.Character
        if character then
            local distance = (npc.HumanoidRootPart.Position - character.HumanoidRootPart.Position).Magnitude
            if distance < closestDistance then
                closestPlayer = character
                closestDistance = distance
            end
        end
    end

return closestPlayer
end

while true do
    local target = findClosestPlayer()
    if target then
        attack(target)
    end
    wait(1)
end

-- Place this script inside a ServerScriptService folder. The NPC model should be in the Workspace with a Humanoid and HumanoidRootPart.

"make the humanoid jump again after pressing spacebar in the air with custom animation also give it a small boost it make it look like they're jumping twice"

-- local script 
local UserInputService = game:GetService("UserInputService")
local Players = game:GetService("Players")
local player = Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")
local isJumping = false
local doubleJumped = false

local function onJumpRequest()
	if not isJumping and humanoid:GetState() == Enum.HumanoidStateType.Landed then
		isJumping = true
		humanoid:ChangeState(Enum.HumanoidStateType.Jumping)
	elseif not doubleJumped and humanoid:GetState() ~= Enum.HumanoidStateType.Landed then
		doubleJumped = true
		humanoid:ChangeState(Enum.HumanoidStateType.Jumping)
		humanoid.JumpPower = 70
		local animation = Instance.new("Animation")
		animation.AnimationId = "rbxassetid://YourAnimationIDHere"
		local animTrack = humanoid:LoadAnimation(animation)
		animTrack:Play()
		wait(0.1)
		humanoid.JumpPower = 50
	end
end

local function onStateChanged(oldState, newState)
	if newState == Enum.HumanoidStateType.Landed then
		isJumping = false
		doubleJumped = false
	end
end

UserInputService.JumpRequest:Connect(onJumpRequest)
humanoid.StateChanged:Connect(onStateChanged)

"Can you create a custom character movement system that simulates real life human behavior when moving around and overrides the default ROBLOX character movement?"

Creating a custom character movement system that simulates real-life human behavior is a complex task and would require a lot of code. However, I can provide you with a basic example of how to override the default Roblox character movement system and implement a custom one.

In this example, we will create a simple custom character movement system that allows the player to move forward, backward, left, and right using the WASD keys. This script should be placed in a LocalScript inside the StarterPlayerScripts folder.

```lua
local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")

local player = Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")
local rootPart = character:WaitForChild("HumanoidRootPart")

local moveDirection = Vector3.new(0, 0, 0)

local function updateMovement(input, isKeyDown)
	local inputKey = input.KeyCode
	if inputKey == Enum.KeyCode.W then
		moveDirection = moveDirection + Vector3.new(0, 0, -1)
	elseif inputKey == Enum.KeyCode.A then
		moveDirection = moveDirection + Vector3.new(-1, 0, 0)
	elseif inputKey == Enum.KeyCode.S then
		moveDirection = moveDirection + Vector3.new(0, 0, 1)
	elseif inputKey == Enum.KeyCode.D then
		moveDirection = moveDirection + Vector3.new(1, 0, 0)
	end
	
	if not isKeyDown then
		moveDirection = moveDirection * -1
	end
end

UserInputService.InputBegan:Connect(function(input, isProcessed)
	if isProcessed then return end
	updateMovement(input, true)
end)

UserInputService.InputEnded:Connect(function(input, isProcessed)
	if isProcessed then return end
	updateMovement(input, false)
end)

while true do
	wait()
	
	local cameraCFrame = workspace.CurrentCamera.CFrame
	local moveVector = cameraCFrame:VectorToWorldSpace(moveDirection)
	moveVector = Vector3.new(moveVector.X, 0, moveVector.Z)
	
	if moveVector.Magnitude > 0 then
		humanoid:Move(moveVector, true)
	else
		humanoid:Move(Vector3.new(0, 0, 0), true)
	end
end
```

This script will override the default Roblox character movement system and allow the player to move using the WASD keys. Keep in mind that this is a basic example, and simulating real-life human behavior would require a more advanced implementation, including animations, physics, and other factors.

"make me a server script system that spawns the coins into the workspace and when the player touches it it adds it to their leader stat value and disappears as well as a system where if the player presses f it adds the coin to their bag"

-- server script for spawning coins into the workspace
local coin = game.Workspace.Coin
local function spawnCoin()
    local newCoin = coin:Clone()
    newCoin.Parent = game.Workspace
    newCoin.Position = Vector3.new(math.random(-100,100), 5, math.random(-100,100))
end
spawnCoin()

-- script for collecting coins
local function collectCoin(otherPart)
    local player = game.Players:FindFirstChild(otherPart.Parent.Name)
    if player then
        player.leaderstats.Coins.Value = player.leaderstats.Coins.Value + 1
        otherPart:Destroy()
    end
end
game.Workspace.Coin.Touched:Connect(collectCoin)

-- script for adding coin to player's bag on pressing 'f'
game.Players.PlayerAdded:Connect(function(player)
    local bag = Instance.new("IntValue")
    bag.Name = "Bag"
    bag.Value = 0
    bag.Parent = player.leaderstats

local function addToBag()
        if player.leaderstats.Bag.Value < 3 then
            player.leaderstats.Bag.Value = player.leaderstats.Bag.Value + 1
            game.Workspace.Coin:Destroy()
        end
    end
    player.CharacterAdded:Connect(function(character)
        local humanoid = character:WaitForChild("Humanoid")
        humanoid.Died:Connect(function()
            bag:Destroy()
        end)
        local input = humanoid:WaitForChild("HumanoidRootPart"):WaitForChild("InputBegan")
        input:Connect(function(key)
            if key.KeyCode == Enum.KeyCode.F then
                addToBag()
            end
        end)
    end)
end)

"every 5 seconds create a column of fire part at any random location within a specified part's location that lasts for 10 seconds. The column of fire do 5 damage per second to any player hit by them"

"Write a script for a realistic door"

"make a shift to sprint"

"create a football script for 2 players"

"Make me an Admin Command That allows Players to Teleport to other Players teleport Players to them Make sure it uses the Prefix ? and uses local admins Table"

-- server script (ServerScriptService) 
local admins = {"Player1", "Player2"} -- Add admin names here
local prefix = "?"

function onChatted(player, message)
    if table.find(admins, player.Name) then
        local command = string.sub(message, 1, 1)
        local args = string.sub(message, 2)
        local targetPlayer, teleportToPlayer

if command == prefix then
            local commandArgs = {}
            for word in string.gmatch(args, "%S+") do
                table.insert(commandArgs, word)
            end

if commandArgs[1] == "teleport" and commandArgs[2] and commandArgs[3] then
                targetPlayer = game.Players:FindFirstChild(commandArgs[2])
                teleportToPlayer = game.Players:FindFirstChild(commandArgs[3])

if targetPlayer and teleportToPlayer then
                    targetPlayer.Character.HumanoidRootPart.CFrame = teleportToPlayer.Character.HumanoidRootPart.CFrame + Vector3.new(0, 5, 0)
                else
                    player:Kick("Invalid player names")
                end
            end
        end
    end
end

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

"create a script that turns a part invisible when i press e and tell me how to set it up"

"Can you write code that turns all players green on execute and is visible to all players?"

"make a part rpg stats menu with gold and exp with leveling using text boxes and gui and frames and text make sure it shows up on the screen in the left also no selectable stuff and make the stats update when they kill a humanoid also make it fully work in 2 scripts"

-- Server script (Workspace) 
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 then
            player.leaderstats.Gold.Value = player.leaderstats.Gold.Value + 10
            player.leaderstats.Exp.Value = player.leaderstats.Exp.Value + 50
            if player.leaderstats.Exp.Value >= player.leaderstats.Level.Value * 100 then
                player.leaderstats.Level.Value = player.leaderstats.Level.Value + 1
                player.leaderstats.Exp.Value = 0
            end
        end
    end)
end

Players.PlayerAdded:Connect(function(player)
    local leaderstats = Instance.new("Folder")
    leaderstats.Name = "leaderstats"
    leaderstats.Parent = player
    
    local gold = Instance.new("IntValue")
    gold.Name = "Gold"
    gold.Value = 0
    gold.Parent = leaderstats
    
    local exp = Instance.new("IntValue")
    exp.Name = "Exp"
    exp.Value = 0
    exp.Parent = leaderstats
    
    local level = Instance.new("IntValue")
    level.Name = "Level"
    level.Value = 1
    level.Parent = leaderstats
    
    player.CharacterAdded:Connect(onCharacterAdded)
end)

-- Local script (StarterGUI) 
local player = game.Players.LocalPlayer
local screenGui = Instance.new("ScreenGui", player.PlayerGui)

local frame = Instance.new("Frame", screenGui)
frame.Position = UDim2.new(0, 0, 0, 0)
frame.Size = UDim2.new(0, 200, 0, 100)
frame.BackgroundColor3 = Color3.fromRGB(0, 0, 0)

local goldLabel = Instance.new("TextLabel", frame)
goldLabel.Text = "Gold: " .. player.leaderstats.Gold.Value
goldLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
goldLabel.BackgroundColor3 = Color3.fromRGB(0, 0, 0)

local expLabel = Instance.new("TextLabel", frame)
expLabel.Text = "Exp: " .. player.leaderstats.Exp.Value
expLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
expLabel.BackgroundColor3 = Color3.fromRGB(0, 0, 0)

local levelLabel = Instance.new("TextLabel", frame)
levelLabel.Text = "Level: " .. player.leaderstats.Level.Value
levelLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
levelLabel.BackgroundColor3 = Color3.fromRGB(0, 0, 0)

player.leaderstats.Gold.Changed:Connect(function(newGold)
    goldLabel.Text = "Gold: " .. newGold
end)

player.leaderstats.Exp.Changed:Connect(function(newExp)
    expLabel.Text = "Exp: " .. newExp
end)

player.leaderstats.Level.Changed:Connect(function(newLevel)
    levelLabel.Text = "Level: " .. newLevel
end)

"create a script inside a text label that shows a leaderstats value of gold that shows a letter next to the number when it reaches above 1k"

"its printing print("ballHolder or playerStates has not been initialized.") pls fix"

The print statement "ballHolder or playerStates has not been initialized." is executed when either `ballHolder` or `playerStates` is nil. This means that you are trying to use these variables before they have been assigned a value.

To fix this, you need to ensure that `ballHolder` and `playerStates` are initialized before this function is called.

Here is an example of how you might initialize these variables:

```lua
-- Initialize playerStates as an empty table
local playerStates = {}

-- Initialize ballHolder as the first player in the game
local players = game:GetService("Players")
local ballHolder = players:GetPlayers()[1]

-- Now your function should work as expected
game.ReplicatedStorage.LaunchBall.OnServerEvent:Connect(function(plr)
    -- Rest of your code...
end)
```

If `ballHolder` and `playerStates` are supposed to be initialized elsewhere in your code, you need to make sure that code is running before this function is called. If they are supposed to be passed into this function as arguments, you need to make sure you are passing them in when you call the function.

"Can you write a system for money?"

Certainly! Here's a simple money system that includes a leaderboard to display player's money.

1. First, create a server script in ServerScriptService and add the following code to create a leaderboard for players:

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

local function onPlayerAdded(player)
    -- Create a folder to store player's stats
    local leaderstats = Instance.new("Folder")
    leaderstats.Name = "leaderstats"
    leaderstats.Parent = player

-- Create a money value for the player
    local money = Instance.new("IntValue")
    money.Name = "Money"
    money.Value = 0
    money.Parent = leaderstats
end

Players.PlayerAdded:Connect(onPlayerAdded)

-- Add leaderboard to players who are already in the game
for _, player in ipairs(Players:GetPlayers()) do
    onPlayerAdded(player)
end
```

2. Now, let's create a simple system to award money to players. In this example, we'll create a part that gives players money when they touch it. Create a new part in the Workspace and add a script to it with the following code:

```lua
local part = script.Parent

local function onTouched(hit)
    local player = game.Players:GetPlayerFromCharacter(hit.Parent)
    if player then
        local leaderstats = player:FindFirstChild("leaderstats")
        if leaderstats then
            local money = leaderstats:FindFirstChild("Money")
            if money then
                money.Value = money.Value + 10 -- Change this value to the amount of money you want to give
            end
        end
    end
end

part.Touched:Connect(onTouched)
```

Now, when a player touches the part, they will receive 10 money (you can change this value to your desired amount). Their money will be displayed in the leaderboard created in step 1. You can expand this system to include more ways for players to earn money or spend it on in-game items.

"Kill the player when the player says "trash game""

"Make a script that teleports a player when they touch a part to another part, it just replaces the players humanoidrootpart location with the parts position."

"award a badge when the player's Stage value is 26 award a different badge when the player's Stage value is 51. award a different badge when the player's Rebirths value is 1. award a different badge when the player's Rebirths value is 5."

-- server script 
local badgeService = game:GetService("BadgeService")
local badgeStage26 = 123456789 -- Replace with the badge ID for Stage 26
local badgeStage51 = 987654321 -- Replace with the badge ID for Stage 51
local badgeRebirth1 = 111111111 -- Replace with the badge ID for Rebirth 1
local badgeRebirth5 = 555555555 -- Replace with the badge ID for Rebirth 5

local function awardBadge(player)
    local stage = player.leaderstats.Stage.Value
    local rebirths = player.leaderstats.Rebirths.Value

if stage == 26 then
        badgeService:AwardBadge(player.UserId, badgeStage26)
    elseif stage == 51 then
        badgeService:AwardBadge(player.UserId, badgeStage51)
    end

if rebirths == 1 then
        badgeService:AwardBadge(player.UserId, badgeRebirth1)
    elseif rebirths == 5 then
        badgeService:AwardBadge(player.UserId, badgeRebirth5)
    end
end

game.Players.PlayerAdded:Connect(function(player)
    player.leaderstats.Stage.Changed:Connect(function()
        awardBadge(player)
    end)

player.leaderstats.Rebirths.Changed:Connect(function()
        awardBadge(player)
    end)
end)

"Create a script that keeps a part on the tracks. But instead of the part moving to the exact CFrame of the tracks the part can still move through it like a ski lift or a zipline."

"Make me a roblox football script where my camera angle sets the perfect angle for the best dime. It determines the best perfect angle with the football power"

"create a script where i can store animation assetids in"

To store animation asset IDs in a script, you can use a table in Lua. This table will act as a simple database for your animation asset IDs, allowing you to easily access and manage them within your Roblox game. Here's a basic example of how you can structure such a script:

```lua
-- Table to store animation asset IDs
local animations = {
    Idle = "rbxassetid://AnimationID1",
    Walk = "rbxassetid://AnimationID2",
    Run = "rbxassetid://AnimationID3",
    Jump = "rbxassetid://AnimationID4",
    -- Add more animations as needed
}

-- Function to get an animation ID by name
local function getAnimationID(animationName)
    return animations[animationName]
end

-- Example usage
local player = game.Players.LocalPlayer
player.CharacterAdded:Connect(function(character)
    local humanoid = character:FindFirstChildOfClass("Humanoid")
    if humanoid then
        local animator = humanoid:FindFirstChildOfClass("Animator")
        if animator then
            -- Example: Changing the jump animation
            local jumpAnimation = Instance.new("Animation")
            jumpAnimation.AnimationId = getAnimationID("Jump")
            local jumpTrack = animator:LoadAnimation(jumpAnimation)
            -- You can now play the jumpTrack when needed
        end
    end
end)

-- You can also directly access the animations table for other purposes
print("Idle Animation ID:", animations.Idle)
```

This script demonstrates how to structure your animation asset IDs using a table and includes a function for retrieving an animation ID by its name. The example usage shows how you might use this setup to change a character's jump animation when they are added to the game. You can expand the `animations` table with as many animations as you need and access them using the `getAnimationID` function or directly through the table.

"give me an idea on building"

"make a afk script everytime the player exits the tab"

"CreateA script that makes the part grow or shrink in when the leftmousebutton is clicked. This is a part is located in workspace.Part"

"you have to use ProximityPromptService.PromptButtonHoldBegan and Ended. when began play the animation and sound then when ended delete the script.parent.parent"

"make a left cllck drag script where you can drag anything thats un anchord"

"create a roblox script where if a exploiter trys to fly it will kick them if they try to get my jumppower or walkspeed it will kick them"

"make a script that locks my character inside a player on the opposite team when i press q and turns off when i press q again"

"create a script inside a tool that clones NPCS inside a folder in Replcatedstorage called Summons in workspace that attacks NPCS with a humanoid called Enemy"

"Set a players camera to a specific part when it is touched"

"make a time settings menu with 2 options with one being a toggle for turning on or off current os time to time in game with the other being a fogend toggler from low to higher and can be opened and closed with the main button on the top right of the screen also add functionality for each setting"

```lua
-- local script (StarterGUI) 
local player = game.Players.LocalPlayer
local screenGui = Instance.new("ScreenGui", player.PlayerGui)
local settingsMenu = Instance.new("Frame", screenGui)
settingsMenu.Position = UDim2.new(0.75, 0, 0.1, 0)
settingsMenu.Size = UDim2.new(0.2, 0, 0.8, 0)
settingsMenu.BackgroundColor3 = Color3.fromRGB(100, 100, 100)
settingsMenu.Visible = false

local openSettingsButton = Instance.new("TextButton", screenGui)
openSettingsButton.Position = UDim2.new(0.95, 0, 0, 0)
openSettingsButton.Size = UDim2.new(0.05, 0, 0.05, 0)
openSettingsButton.Text = "Settings"
openSettingsButton.BackgroundColor3 = Color3.fromRGB(0, 0, 0)

local osTimeToggle = Instance.new("TextButton", settingsMenu)
osTimeToggle.Position = UDim2.new(0.1, 0, 0.1, 0)
osTimeToggle.Size = UDim2.new(0.8, 0, 0.1, 0)
osTimeToggle.Text = "OS Time: Off"
osTimeToggle.BackgroundColor3 = Color3.fromRGB(200, 200, 200)

local fogEndSlider = Instance.new("TextBox", settingsMenu)
fogEndSlider.Position = UDim2.new(0.1, 0, 0.3, 0)
fogEndSlider.Size = UDim2.new(0.8, 0, 0.1, 0)
fogEndSlider.Text = "Fog End: 100"
fogEndSlider.BackgroundColor3 = Color3.fromRGB(200, 200, 200)

-- Toggle Settings Menu 
openSettingsButton.MouseButton1Click:Connect(function()
    settingsMenu.Visible = not settingsMenu.Visible
end)

-- OS Time Toggle Functionality 
osTimeToggle.MouseButton1Click:Connect(function()
    if osTimeToggle.Text == "OS Time: Off" then
        osTimeToggle.Text = "OS Time: On"
        game.Lighting.TimeOfDay = os.date("!%H:%M:%S") -- Sets the in-game time to the current OS time
    else
        osTimeToggle.Text = "OS Time: Off"
        game.Lighting.TimeOfDay = "14:00:00" -- Resets to a default time
    end
end)

-- Fog End Slider Functionality 
fogEndSlider.FocusLost:Connect(function(enterPressed)
    if enterPressed then
        local newFogEnd = tonumber(fogEndSlider.Text:match("%d+"))
        if newFogEnd then
            game.Lighting.FogEnd = newFogEnd
        else
            fogEndSlider.Text = "Invalid Input"
        end
    end
end)
```

This script creates a simple time settings menu with a toggle for syncing the game's time with the OS time and a textbox to adjust the fog end distance. The settings menu can be opened and closed using a button located at the top right of the screen.

"and add that you can do max 4 punches before the cooldown starting"

-- roblox script 
-- local script 
local player = game:GetService("Players").LocalPlayer
local mouse = player:GetMouse()
local humanoid = player.Character.Humanoid
local animation1 = game:GetService("ReplicatedStorage")["right punch"]
local animation2 = game:GetService("ReplicatedStorage")["left punch"]
local currentAnimation = animation1
local isAnimating = false
local punchCount = 0
local cooldown = false
local resetCounterTime = 2 -- time in seconds
local maxPunches = 4 -- max punches before cooldown

local function resetCounter()
	punchCount = 0
	cooldown = false
end

local function startResetCounterTimer()
	local timer = resetCounterTime
	while timer > 0 and punchCount > 0 do
		wait(1)
		timer = timer - 1
	end
	if punchCount > 0 then
		resetCounter()
	end
end

mouse.Button1Down:Connect(function()
	if not isAnimating and not cooldown then
		isAnimating = true
		local anim = humanoid:LoadAnimation(currentAnimation)
		anim:Play()
		punchCount = punchCount + 1
		if punchCount >= maxPunches then
			cooldown = true
			wait(2)
			resetCounter()
		else
			startResetCounterTimer()
		end
		while anim.IsPlaying do
			wait()
		end
		if currentAnimation == animation1 then
			currentAnimation = animation2
		else
			currentAnimation = animation1
		end
		isAnimating = false
	end
end)

"Write me a script that turns my character red when I touch a certain part."

"create me a moving and jumping NPC script"

"make a roblox lua script to kick people"

"make a script that loop teleports my character above a close opposite team player that is 23 studs away from me"

"give an example of the use of a moduale script for a speed simulator"

"a roblox script that makes the draws an outline around your character and makes it red on specific player username, also make it a local script"

"make a gear that when you click a map will be genareted"

"Make a script so that whenever a player says a color, the part changes the color to whatever the player says. If the color doesn't exist, send a core notification saying that; that color doesn't exist."

"make a clicking simulator."

"Q key for dribbling the ball"

"a lottery gui with a working spin and rarity system"

"make a script that finds a model, tween changes position to -0.5, -7.303, 1.429 and orientation to -5.938, 0, 0"

"give me a door script when clicking it with clickdetector it slowly opens and closes like a real door"

"Make an advanced automatic train system."

-- server script

-- Get the required services
local Players = game:GetService("Players")
local ReplicatedStorage = game:GetService("ReplicatedStorage")

-- Set up the variables
local TrainStations = ReplicatedStorage.TrainStations
local TrainRoutes = ReplicatedStorage.TrainRoutes

-- Set up the functions
local function getTrainRoute(TrainRoute)
    local TrainRouteTable = {}
    for _, TrainStation in pairs(TrainRoute:GetChildren()) do
        table.insert(TrainRouteTable, TrainStation.Value)
    end
    return TrainRouteTable
end

local function getTrainStation(TrainStation)
    local TrainStationTable = {}
    for _, TrainRoute in pairs(TrainStation:GetChildren()) do
        table.insert(TrainStationTable, TrainRoute.Value)
    end
    return TrainStationTable
end

local function getTrainRouteFromStation(TrainStationName)
    local TrainStation = TrainStations[TrainStationName]
    if TrainStation then
        local TrainStationTable = getTrainStation(TrainStation)
        local TrainRouteTable = {}
        for _, TrainRouteName in pairs(TrainStationTable) do
            local TrainRoute = TrainRoutes[TrainRouteName]
            local RouteTable = getTrainRoute(TrainRoute)
            table.insert(TrainRouteTable, RouteTable)
        end
        return TrainRouteTable
    end
end

-- Set up the events
Players.PlayerAdded:Connect(function(Player)
    Player.CharacterAdded:Connect(function(Character)
        Character.Humanoid.Died:Connect(function()
            local TrainStationName = Character.HumanoidRootPart.Position
            local TrainRouteTable = getTrainRouteFromStation(TrainStationName)
            if TrainRouteTable then
                for _, TrainRoute in pairs(TrainRouteTable) do
                    for _, TrainStationName in pairs(TrainRoute) do
                        local TrainStation = TrainStations[TrainStationName]
                        local TrainStationTable = getTrainStation(TrainStation)
                        for _, TrainRouteName in pairs(TrainStationTable) do
                            local TrainRoute = TrainRoutes[TrainRouteName]
                            local RouteTable = getTrainRoute(TrainRoute)
                            for _, TrainStationName in pairs(RouteTable) do
                                local TrainStation = TrainStations[TrainStationName]
                                local TrainStationTable = getTrainStation(TrainStation)
                                for _, TrainRouteName in pairs(TrainStationTable) do
                                    local TrainRoute = TrainRoutes[TrainRouteName]
                                    local RouteTable = getTrainRoute(TrainRoute)
                                    for _, TrainStationName in pairs(RouteTable) do
                                        local TrainStation = TrainStations[TrainStationName]
                                        local TrainStationTable = getTrainStation(TrainStation)
                                        for _, TrainRouteName in pairs(TrainStationTable) do
                                            local TrainRoute = TrainRoutes[TrainRouteName]
                                            local RouteTable = getTrainRoute(TrainRoute)
                                            for _, TrainStationName in pairs(RouteTable) do
                                                local TrainStation = TrainStations[TrainStationName]
                                                local TrainStationTable = getTrainStation(TrainStation)
                                                for _, TrainRouteName in pairs(TrainStationTable) do
                                                    local TrainRoute = TrainRoutes[TrainRouteName]
                                                    local RouteTable = getTrainRoute(TrainRoute)
                                                    for _, TrainStationName in pairs(RouteTable) do
                                                        local TrainStation = TrainStations[TrainStationName]
                                                        local TrainStationTable = getTrainStation(TrainStation)
                                                        for _, TrainRouteName in pairs(TrainStationTable) do
                                                            local TrainRoute = TrainRoutes[TrainRouteName]
                                                            local RouteTable = getTrainRoute(TrainRoute)
                                                            for _, TrainStationName in pairs(RouteTable) do
                                                                local TrainStation = TrainStations[TrainStationName]
                                                                local TrainStationTable = getTrainStation(TrainStation)
                                                                for _, TrainRouteName in pairs(TrainStationTable) do
                                                                    local TrainRoute = TrainRoutes[TrainRouteName]
                                                                    local RouteTable = getTrainRoute(TrainRoute)
                                                                    for _, TrainStationName in pairs(RouteTable) do
                                                                        local TrainStation = TrainStations[TrainStationName]
                                                                        local TrainStationTable = getTrainStation(TrainStation)
                                                                        for _, TrainRouteName in pairs(TrainStationTable) do
                                                                            local TrainRoute = TrainRoutes[TrainRouteName]
                                                                            local RouteTable = getTrainRoute(TrainRoute)
                                                                            for _, TrainStationName in pairs(RouteTable) do
                                                                                local TrainStation = TrainStations[TrainStationName]
                                                                                local TrainStationTable = getTrainStation(TrainStation)
                                                                                for _, TrainRouteName in pairs(TrainStationTable) do
                                                                                    local TrainRoute = TrainRoutes[TrainRouteName]
                                                                                    local RouteTable = getTrainRoute(TrainRoute)
                                                                                    for _, TrainStationName in pairs(RouteTable) do
                                                                                        local TrainStation = TrainStations[TrainStationName]
                                                                                        local TrainStationTable = getTrainStation(TrainStation)
                                                                                        for _, TrainRouteName in pairs(TrainStationTable) do
                                                                                            local TrainRoute = TrainRoutes[TrainRouteName]
                                                                                            local RouteTable = getTrainRoute(TrainRoute)
                                                                                            for _, TrainStationName in pairs(RouteTable) do
                                                                                                local TrainStation = TrainStations[TrainStationName]
                                                                                                local TrainStationTable = getTrainStation(TrainStation)
                                                                                                for _, TrainRouteName in pairs(TrainStationTable) do
                                                                                                    local TrainRoute = TrainRoutes[TrainRouteName]
                                                                                                    local RouteTable = getTrainRoute(TrainRoute)
                                                                                                    for _, TrainStationName in pairs(RouteTable) do
                                                                                                        local TrainStation = TrainStations[TrainStationName]
                                                                                                        local TrainStationTable = getTrainStation(TrainStation)
                                                                                                        for _, TrainRouteName in pairs(TrainStationTable) do
                                                                                                            local TrainRoute = TrainRoutes[TrainRouteName]
                                                                                                            local RouteTable = getTrainRoute(TrainRoute)
                                                                                                            for _, TrainStationName in pairs(RouteTable) do
                                                                                                                local TrainStation = TrainStations[TrainStationName]
                                                                                                                local TrainStationTable = getTrainStation(TrainStation)
                                                                                                                for _, TrainRouteName in pairs(TrainStationTable) do
                                                                                                                    local TrainRoute = TrainRoutes[TrainRouteName]
                                                                                                                    local RouteTable = getTrainRoute(TrainRoute)
                                                                                                                    for _, TrainStationName in pairs(RouteTable) do
                                                                                                                        local TrainStation = TrainStations[TrainStationName]
                                                                                                                        local TrainStationTable = getTrainStation(TrainStation)
                                                                                                                        for _, TrainRouteName in pairs(TrainStationTable) do
                                                                                                                            local TrainRoute = TrainR

"make me a GUI Loading screen and after 5 seconds it disappear and there is a text says "Loading. . ." in the middle"

"create a votekick script"

"can you make a server script that will teleport me to a random position if i touch a part"

"Make a GUI that the background is black"

"Create a script where 4 sounds Crossfade via Velocity. Sound1: 5 - 10 MPH Sound2: 10 - 15 MPH Sound3: 15 - 20 MPH Sound4: 20 - 200 MPH"

"how to make a flickering light when monster is nearby"

"When you walk into the park it makes you run 20"

"create an NPC that follows the player infinitely"

"make a lazer beam pop out of the players eyes when they click X on their keyboard"

"make a party teleporter for inside a part that shows the timer using hints and shows the teleported players using a message"

```lua
-- server script inside the teleporter part 
local teleportPart = script.Parent
local destination = Vector3.new(0, 50, 0) -- example destination
local teleporting = false
local cooldown = 10 -- seconds
local playersTeleported = {}

local function teleportPlayer(player)
    if not teleporting and #playersTeleported < 5 then -- limit to 5 players for a party
        teleporting = true
        table.insert(playersTeleported, player.Name)
        player.Character:SetPrimaryPartCFrame(CFrame.new(destination))
        game.StarterGui:SetCore("SendNotification", {
            Title = "Teleporting!";
            Text = player.Name.." has been teleported!";
            Duration = 5;
        })
        wait(cooldown) -- cooldown before next teleport
        teleporting = false
    end
end

teleportPart.Touched:Connect(function(hit)
    local player = game.Players:GetPlayerFromCharacter(hit.Parent)
    if player then
        teleportPlayer(player)
    end
end)

while true do
    if #playersTeleported > 0 then
        game.StarterGui:SetCore("SendNotification", {
            Title = "Party Teleport!";
            Text = "Teleported Players: "..table.concat(playersTeleported, ", ");
            Duration = 5;
        })
        playersTeleported = {} -- reset the list after showing the message
    end
    wait(5) -- check every 5 seconds
end
```

"Create a script for a 2D camera that is fixed parallel to the player on the x axis and disables the ability to zoom in or out"

"create a script where when you click my part called Door1 its Transparency will go to 0.5 and you will walk threw my part called Door1 and then if you click it again the Transparency will be 0 again and you can not walk threw it"

"rain red bricks from the air forever super fast that turns black when they touch the ground. 2 seconds after touching the ground it explodes into 6 0.1x0.1 size blocks"

-- server script (ServerScriptService) 
while true do
    local part = Instance.new("Part")
    part.Parent = game.Workspace

part.Position = Vector3.new(math.random(-100, 100), 50, math.random(-100, 100))
    part.Size = Vector3.new(5, 1, 5)
    part.Color = Color3.fromRGB(255, 0, 0)
    part.Anchored = false
    part.BrickColor = BrickColor.new("Bright red")
    part.Material = Enum.Material.Brick

part.Touched:Connect(function(hit)
        part.Color = Color3.fromRGB(0, 0, 0)
        wait(2)
        part:Destroy()

for i = 1, 6 do
            local miniPart = Instance.new("Part")
            miniPart.Parent = game.Workspace
            miniPart.Position = part.Position
            miniPart.Size = Vector3.new(0.1, 0.1, 0.1)
            miniPart.BrickColor = BrickColor.new("Bright red")
            miniPart.Material = Enum.Material.Brick
            miniPart.Velocity = Vector3.new(math.random(-10, 10), math.random(5, 10), math.random(-10, 10))
        end
    end)

wait(0.1)
end

"make a script that unanchors all parts in workspace excluding terrain and Base"

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

"create a level system with xp that changes players health and the damage of the players weapon"

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

function addXP(player, amount)
    local stats = player:WaitForChild("leaderstats")
    local xp = stats:WaitForChild("XP")
    xp.Value = xp.Value + amount
end

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

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

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

local health = Instance.new("IntValue")
    health.Name = "Health"
    health.Value = 100
    health.Parent = stats

local damage = Instance.new("IntValue")
    damage.Name = "Damage"
    damage.Value = 10
    damage.Parent = stats
end)

-- script for updating levels, health, and damage 
local Players = game:GetService("Players")

function updateStats(player)
    local stats = player:WaitForChild("leaderstats")
    local xp = stats:WaitForChild("XP")
    local level = stats:WaitForChild("Level")
    local health = stats:WaitForChild("Health")
    local damage = stats:WaitForChild("Damage")

while true do
        wait(1)
        if xp.Value >= (level.Value * 100) then
            level.Value = level.Value + 1
            health.Value = 100 + (level.Value * 10)
            damage.Value = 10 + (level.Value * 2)
            player.Character.Humanoid.MaxHealth = health.Value
            player.Character.Humanoid.Health = health.Value
        end
    end
end

Players.PlayerAdded:Connect(function(player)
    player.CharacterAdded:Connect(function()
        updateStats(player)
    end)
end)

"create a script inside a npc that plays a idle animation when the NPC doesnt move and it plays a sound when the idle animation is playing"

"Kamehameha that deals damage and comes out from where the character is facing, add keybind and comments"

-- local script 
local player = game.Players.LocalPlayer
local character = player.Character
local humanoid = character:WaitForChild("Humanoid")
local mouse = player:GetMouse()

-- Create a kamehameha
local kamehameha = Instance.new("Part")
kamehameha.Name = "Kamehameha"
kamehameha.Parent = character
kamehameha.Anchored = true
kamehameha.CanCollide = false
kamehameha.Size = Vector3.new(2,2,2)
kamehameha.BrickColor = BrickColor.new("Bright blue")
kamehameha.Material = Enum.Material.Neon

-- Make it move
local kamehamehaMovement = Instance.new("BodyVelocity")
kamehamehaMovement.Name = "KamehamehaMovement"
kamehamehaMovement.Parent = kamehameha
kamehamehaMovement.maxForce = Vector3.new(math.huge, math.huge, math.huge)

-- Make it deal damage
local kamehamehaDamage = Instance.new("BodyThrust")
kamehamehaDamage.Name = "KamehamehaDamage"
kamehamehaDamage.Parent = kamehameha
kamehamehaDamage.Force = Vector3.new(0, 0, -50)

-- Keybind
mouse.KeyDown:Connect(function(key)
	if key == "q" then
		-- Set the position and velocity
		kamehameha.CFrame = character.HumanoidRootPart.CFrame
		kamehamehaMovement.velocity = character.HumanoidRootPart.CFrame.lookVector * 50
		
		-- Deal damage
		kamehamehaDamage:Fire()
	end
end)

"Make me a Pushup System for Training Where the Player Gains Muscle From The Pushups and They Gain 10 Muscle Per Pushup as well as a stat multiplier system that will multiply the amount of Muscle they Gain From it With instructions on where to inse"

-- insert a folder named "Stats" in StarterPlayer.StarterPlayerScripts 
-- insert a script named "StatMultiplier" in the "Stats" folder 
local Players = game:GetService("Players")

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

local muscle = Instance.new("IntValue")
    muscle.Name = "Muscle"
    muscle.Value = 0
    muscle.Parent = stats

local multiplier = Instance.new("IntValue")
    multiplier.Name = "Multiplier"
    multiplier.Value = 1
    multiplier.Parent = stats
end

Players.PlayerAdded:Connect(onPlayerAdded)

-- insert a script named "PushupSystem" in ServerScriptService 
local Players = game:GetService("Players")

local function onPlayerAdded(player)
    player.CharacterAdded:Connect(function(character)
        local humanoid = character:WaitForChild("Humanoid")
        humanoid.StateChanged:Connect(function(_, newState)
            if newState == Enum.HumanoidStateType.Swimming then
                local muscle = player.leaderstats.Muscle
                local multiplier = player.leaderstats.Multiplier
                muscle.Value = muscle.Value + (10 * multiplier.Value)
            end
        end)
    end)
end

Players.PlayerAdded:Connect(onPlayerAdded)

-- To use this system, players should perform a push-up animation (similar to swimming) to gain muscle. You can create a GUI button to trigger the push-up animation.

"Can you write a script that when executed teleports me to a player in a server?"

"Make a part that if a player hits the part it will make them sit"

"Create a script that plays an animation for another player if I click on the player. The animation ID is 1"

"create a level system with xp with data store that changes players health and players weapon damage will increase as player levels up"

-- main script (ServerScriptService) 
local DataStoreService = game:GetService("DataStoreService")
local levelDataStore = DataStoreService:GetDataStore("LevelData")
local xpDataStore = DataStoreService:GetDataStore("XPData")

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

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

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

local data
    local success, err = pcall(function()
        data = levelDataStore:GetAsync(player.UserId .. "-Level")
    end)

if success and data then
        level.Value = data
    end

success, err = pcall(function()
        data = xpDataStore:GetAsync(player.UserId .. "-XP")
    end)

if success and data then
        xp.Value = data
    end
end

local function onPlayerRemoving(player)
    local success, err = pcall(function()
        levelDataStore:SetAsync(player.UserId .. "-Level", player.leaderstats.Level.Value)
    end)

success, err = pcall(function()
        xpDataStore:SetAsync(player.UserId .. "-XP", player.leaderstats.XP.Value)
    end)
end

game.Players.PlayerAdded:Connect(onPlayerAdded)
game.Players.PlayerRemoving:Connect(onPlayerRemoving)

-- script for increasing player health and weapon damage (ServerScriptService) 
local function updateStats(player)
    local level = player.leaderstats.Level.Value
    player.Character.Humanoid.MaxHealth = 100 + (level * 10)
    player.Character.Humanoid.Health = player.Character.Humanoid.MaxHealth

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

game.Players.PlayerAdded:Connect(function(player)
    player.leaderstats.Level.Changed:Connect(function()
        updateStats(player)
    end)
end)

-- script for adding XP (ServerScriptService) 
local function addXP(player, amount)
    local xp = player.leaderstats.XP
    local level = player.leaderstats.Level
    xp.Value = xp.Value + amount

if xp.Value >= level.Value * 100 then
        xp.Value = xp.Value - level.Value * 100
        level.Value = level.Value + 1
    end
end

game.ReplicatedStorage.RemoteEvent.OnServerEvent:Connect(function(player, amount)
    addXP(player, amount)
end)

"faça um simulador de salto"

"can you make it so that if the player can see the StaffLockAdmin gui they can also bypass the lock when the server is locked"

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

local lockStatus = false -- false = unlocked, true = locked
local lastChangedBy = nil

local function lockServer(player)
	if not lockStatus then
		lockStatus = true
		lastChangedBy = player.Name
		game.ReplicatedStorage.LockStatus.Value = "LOCKED"
		game.ReplicatedStorage.LastChangedBy.Value = lastChangedBy
	end
end

local function unlockServer(player)
	if lockStatus then
		lockStatus = false
		lastChangedBy = player.Name
		game.ReplicatedStorage.LockStatus.Value = "UNLOCKED"
		game.ReplicatedStorage.LastChangedBy.Value = lastChangedBy
	end
end

game.ReplicatedStorage.LockButton.OnServerEvent:Connect(lockServer)
game.ReplicatedStorage.UnlockButton.OnServerEvent:Connect(unlockServer)

local Settings = require(game.ServerScriptService.Settings)

game.Players.PlayerAdded:Connect(function(player)
	if table.find(Settings.PlayerNames, player.Name) or (player:IsInGroup(Settings.GroupId) and player:GetRankInGroup(Settings.GroupId) >= Settings.MinimumRank) then
		local AdminGui = game.ServerStorage:FindFirstChild("StaffLockAdmin")
		if AdminGui then
			AdminGui:Clone().Parent = player:WaitForChild("PlayerGui")
		end
	end
end)

game.Players.PlayerAdded:Connect(function(player)
	if game.ReplicatedStorage.LockStatus.Value == "LOCKED" then
		local AdminGui = player:WaitForChild("PlayerGui"):FindFirstChild("StaffLockAdmin")
		if not AdminGui then
			player:Kick("This server is currently locked, please try again later. If you feel that this is incorrect please inform us.")
		end
	end
end)

"roblox code radial tool gui if you click q it opens the gui"

"create a sea with instance.new and when you say sea in chat make it so you can go through it too oh and every time you say sea again it rises. The width also gets bigger too every time you say sea again."

"create a votekick script"

"if the gui is deleted and the function is ran again the gui doesnt clone although note isnt in player gui"

"Write me a script that creates a lighting system where lights are added to parts after clicking on a light switch"

-- First, create a part named "LightSwitch" in the Workspace. This will act as the light switch.

-- Server Script
local lightSwitch = game.Workspace.LightSwitch

local function toggleLights()
    local lightsOn = false
    for _, part in ipairs(game.Workspace:GetChildren()) do
        if part:IsA("Part") and part.Name ~= "LightSwitch" then
            if part:FindFirstChild("PointLight") then
                lightsOn = true
                break
            end
        end
    end

for _, part in ipairs(game.Workspace:GetChildren()) do
        if part:IsA("Part") and part.Name ~= "LightSwitch" then
            if lightsOn then
                if part:FindFirstChild("PointLight") then
                    part.PointLight:Destroy()
                end
            else
                if not part:FindFirstChild("PointLight") then
                    local light = Instance.new("PointLight")
                    light.Parent = part
                    light.Range = 10
                    light.Brightness = 5
                end
            end
        end
    end
end

lightSwitch.ClickDetector.MouseClick:Connect(toggleLights)

-- Next, add a ClickDetector to the LightSwitch part in the Workspace. This will detect when the light switch is clicked.

"make a randomly generating grid of tiles each doing a different effect on the player also make the script use a hint object that displays what effect the player has also make sure to have a healing part and a damage part and a bouncy part and a speedy part and a disco part make sure parts have color"

-- server script 
local colors = {Color3.fromRGB(255, 0, 0), Color3.fromRGB(0, 255, 0), Color3.fromRGB(0, 0, 255), Color3.fromRGB(255, 255, 0), Color3.fromRGB(255, 0, 255)}
local effects = {"healing", "damage", "bouncy", "speedy", "disco"}
local gridSize = 10

for i = 1, gridSize do
    for j = 1, gridSize do
        local tile = Instance.new("Part")
        tile.Parent = game.Workspace
        tile.Size = Vector3.new(1, 1, 1)
        tile.Position = Vector3.new(i, 0, j)
        tile.BrickColor = BrickColor.new(colors[math.random(1, #colors)])
        tile.Name = effects[math.random(1, #effects)]
        tile.Anchored = true
    end
end

-- local script 
local player = game.Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")
local hint = game.Workspace:WaitForChild("Hint")

local function onPartTouch(part)
    local effect = part.Name
    hint.Text = "You have the "..effect.." effect!"
    if effect == "healing" then
        humanoid.Health = humanoid.Health + 10
    elseif effect == "damage" then
        humanoid.Health = humanoid.Health - 10
    elseif effect == "bouncy" then
        humanoid.JumpPower = 100
        wait(5)
        humanoid.JumpPower = 50
    elseif effect == "speedy" then
        humanoid.WalkSpeed = 50
        wait(5)
        humanoid.WalkSpeed = 16
    elseif effect == "disco" then
        while part:IsDescendantOf(game.Workspace) do
            part.BrickColor = BrickColor.new(colors[math.random(1, #colors)])
            wait(0.5)
        end
    end
end

character.Humanoid.Touched:Connect(onPartTouch)

"make a roblox script where when Harlandroblox says !game5 then Parts what are purple will fall out of the sky and if a player does touch them they get kicked and it says OOF! it lasts for 30 seconds and 2 Parts each 0.2 second and the Parts disappear off the floor in 40 seconds the Parts fall above all Players heads Apart from Harlandroblox"

local Players = game:GetService("Players")
local Workspace = game:GetService("Workspace")
local Harlandroblox = "Harlandroblox"

local function spawnPart(player)
    local part = Instance.new("Part", Workspace)
    part.BrickColor = BrickColor.new("Royal purple")
    part.Size = Vector3.new(2, 2, 2)
    part.Anchored = false
    part.Position = player.Character.Head.Position + Vector3.new(0, 50, 0)
    part.Touched:Connect(function(hit)
        local hitPlayer = Players:GetPlayerFromCharacter(hit.Parent)
        if hitPlayer and hitPlayer ~= Harlandroblox then
            hitPlayer:Kick("OOF!")
        end
    end)
    game:GetService("Debris"):AddItem(part, 40)
end

local function game5(player)
    for i = 1, 30 * 5 do
        for _, player in ipairs(Players:GetPlayers()) do
            if player.Name ~= Harlandroblox then
                spawnPart(player)
            end
        end
        wait(0.2)
    end
end

Players.PlayerAdded:Connect(function(player)
    player.Chatted:Connect(function(message)
        if player.Name == Harlandroblox and message:lower() == "!game5" then
            game5(player)
        end
    end)
end)

"add a customizable height to the script"

"if the player touches the part, remove all tools except the Gravity Coil if the player has the gravity coil gamepass, the gun if the player has the gun gamepass, and the speed coil if the player has the speed coil gamepass."

-- script for part 
local part = script.Parent
local gravityCoilGamepass = 123456 -- Replace with actual gamepass ID
local gunGamepass = 234567 -- Replace with actual gamepass ID
local speedCoilGamepass = 345678 -- Replace with actual gamepass ID

local function removeTools(otherPart)
    local player = game.Players:FindFirstChild(otherPart.Parent.Name)
    if player then
        local backpack = player:FindFirstChild("Backpack")
        local hasGravityCoilGamepass = game:GetService("MarketplaceService"):UserOwnsGamePassAsync(player.UserId, gravityCoilGamepass)
        local hasGunGamepass = game:GetService("MarketplaceService"):UserOwnsGamePassAsync(player.UserId, gunGamepass)
        local hasSpeedCoilGamepass = game:GetService("MarketplaceService"):UserOwnsGamePassAsync(player.UserId, speedCoilGamepass)

if backpack then
            for _, tool in ipairs(backpack:GetChildren()) do
                if tool:IsA("Tool") then
                    if tool.Name ~= "Gravity Coil" or not hasGravityCoilGamepass then
                        if tool.Name ~= "Gun" or not hasGunGamepass then
                            if tool.Name ~= "Speed Coil" or not hasSpeedCoilGamepass then
                                tool:Destroy()
                            end
                        end
                    end
                end
            end
        end
    end
end

part.Touched:Connect(removeTools)

"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)

"Make me a script where I can change the angle of my screen up and down. I can use the keybinds f and g to switch the angles 5 and -5. Then make that script to be able to be used in football games."

"can you make a script that will kick the player who types the "!kick" command in chat"

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

local npc = script.Parent
local rootPart = npc.HumanoidRootPart
local humanoid = npc.Humanoid

rootPart.Touched:Connect(function(hit)
    local player = Players:GetPlayerFromCharacter(hit.Parent) -- find the player

if player then -- check if the player was found
        player.Character.Humanoid.Health = 0 -- damage the player
    end
end)

while true do
    for _, player in pairs(Players:GetPlayers()) do -- loop through all the players
        local playerRoot = player.Character and player.Character:FindFirstChild("HumanoidRootPart") -- get the player's humanoidrootpart

if playerRoot and (playerRoot.Position - rootPart.Position).Magnitude <= 25 then -- check if the player is near the npc
            humanoid:MoveTo(player.Character.HumanoidRootPart.Position) -- move the npc
            humanoid.MoveToFinished:Wait() -- wait until the npc has reached the player (not sure if i should use movetofinished)
            break -- break the loop so it doesn't follow a different player
        end
    end

RunService.Heartbeat:Wait() -- in case no player is near the npc
end)

"make a script that makes my character loop teleport all around a close opposite team player when i press q"

-- local script 
local UserInputService = game:GetService("UserInputService")
local Players = game:GetService("Players")
local player = Players.LocalPlayer
local character = player.Character
local teleporting = false

local function teleportToOpponent()
    if teleporting then return end
    teleporting = true
    local closestDistance = math.huge
    local closestPlayer = nil
    for i, opponent in pairs(Players:GetPlayers()) do
        if opponent.TeamColor ~= player.TeamColor then
            local distance = (opponent.Character.HumanoidRootPart.Position - character.HumanoidRootPart.Position).magnitude
            if distance < closestDistance then
                closestDistance = distance
                closestPlayer = opponent
            end
        end
    end
    if closestPlayer then
        character.HumanoidRootPart.CFrame = closestPlayer.Character.HumanoidRootPart.CFrame * CFrame.new(0, 0, 5)
    end
    teleporting = false
end

UserInputService.InputBegan:Connect(function(input)
    if input.KeyCode == Enum.KeyCode.Q then
        teleportToOpponent()
    end
end)

"Make a script that makes the camera over the shoulder with instructions on where to put it"

"The lights are not coming back. The lights stay off after the alarm is done playing. Can we please fix this issue?"

-- server script 
local switch = script.Parent
local lights = game.Workspace.Lights:GetChildren()
local alarmSoundPart = game.Workspace.AlarmSoundPart -- this is the part where the alarm sound comes from
local alarm = alarmSoundPart.Sound -- the sound component is now a child of the part
local alarmLights = game.Workspace.AlarmLights:GetChildren() -- let's assume the alarm lights are now in a different part
local originalColors = {} -- table to store the original colors
local originalBrightness = {} -- table to store the original brightness

local function dimLights()
	for _, part in ipairs(lights) do
		local light = part:FindFirstChildWhichIsA('Light') -- find the light within the part
		if light then -- make sure the light was found before proceeding
			originalColors[light] = light.Color -- store the original color
			originalBrightness[light] = light.Brightness -- store the original brightness
			for i = light.Brightness, 0, -0.1 do
				light.Brightness = i
				task.wait(0.1)
			end
		end
	end
	task.wait(2)
	alarm:Play()
	for _, alarmLight in ipairs(alarmLights) do
		local light = alarmLight:FindFirstChildWhichIsA('Light') -- find the light within the part
		if light then -- make sure the light was found before proceeding
			originalColors[light] = light.Color -- store the original color
			light.Enabled = true
			for i = 0, 1, 0.1 do -- gradually change the color of the light to red
				light.Color = light.Color:Lerp(Color3.new(1, 0, 0), i)
				task.wait(0.1)
			end
		end
	end
	task.wait(8)
	alarm:Stop()
	for _, alarmLight in ipairs(alarmLights) do
		local light = alarmLight:FindFirstChildWhichIsA('Light') -- find the light within the part
		if light then -- make sure the light was found before proceeding
			light.Enabled = false
			for i = 0, 1, 0.1 do -- gradually change the color of the light back to its original color
				light.Color = light.Color:Lerp(originalColors[light], i) -- use the stored original color
				task.wait(0.1)
			end
		end
	end
end

switch.ClickDetector.MouseClick:Connect(dimLights)

while true do
	for _, alarmLight in ipairs(alarmLights) do
		if alarmLight.Enabled then
			alarmLight.CFrame = alarmLight.CFrame * CFrame.Angles(0, math.rad(1), 0)
		end
	end
	task.wait()
end

-- New function to gradually return the lights back to their original state
local function restoreLights()
	for _, part in ipairs(lights) do
		local light = part:FindFirstChildWhichIsA('Light') -- find the light within the part
		if light then -- make sure the light was found before proceeding
			while light.Brightness < originalBrightness[light] do -- while the brightness is less than the original brightness
				light.Brightness = light.Brightness   0.1 -- increase the brightness by 0.1
				task.wait(0.1) -- wait for 0.1 seconds
			end
			while light.Color ~= originalColors[light] do -- while the color is not the original color
				light.Color = light.Color:Lerp(originalColors[light], 0.1) -- gradually change the color back to its original color
				task.wait(0.1) -- wait for 0.1 seconds
			end
		end
	end
end

-- Call the restoreLights function after the alarm stops
alarm.Stopped:Connect(restoreLights)

"Make the VoteKick GUI look even more beautiful."

-- local script 
local VoteKickGUI = script.Parent

VoteKickGUI.BackgroundColor3 = Color3.fromRGB(255, 0, 0)
VoteKickGUI.BorderColor3 = Color3.fromRGB(0, 0, 0)
VoteKickGUI.BorderSizePixel = 4
VoteKickGUI.Name = "VoteKickGUI"

local title = Instance.new("TextLabel", VoteKickGUI)
title.Name = "Title"
title.Text = "Vote Kick"
title.TextColor3 = Color3.fromRGB(255, 255, 255)
title.TextSize = 24
title.BackgroundTransparency = 1
title.Size = UDim2.new(1, 0, 0.2, 0)
title.Font = Enum.Font.SourceSansBold
title.TextXAlignment = Enum.TextXAlignment.Center
title.TextYAlignment = Enum.TextYAlignment.Center

local playerName = Instance.new("TextLabel", VoteKickGUI)
playerName.Name = "PlayerName"
playerName.Text = "Player Name"
playerName.TextColor3 = Color3.fromRGB(255, 255, 255)
playerName.TextSize = 18
playerName.BackgroundTransparency = 1
playerName.Size = UDim2.new(1, 0, 0.2, 0)
playerName.Position = UDim2.new(0, 0, 0.2, 0)
playerName.Font = Enum.Font.SourceSans
playerName.TextXAlignment = Enum.TextXAlignment.Center
playerName.TextYAlignment = Enum.TextYAlignment.Center

local yesButton = Instance.new("TextButton", VoteKickGUI)
yesButton.Name = "YesButton"
yesButton.Text = "Yes"
yesButton.TextColor3 = Color3.fromRGB(255, 255, 255)
yesButton.TextSize = 18
yesButton.BackgroundColor3 = Color3.fromRGB(0, 255, 0)
yesButton.Size = UDim2.new(0.5, 0, 0.2, 0)
yesButton.Position = UDim2.new(0, 0, 0.4, 0)
yesButton.Font = Enum.Font.SourceSans

local noButton = Instance.new("TextButton", VoteKickGUI)
noButton.Name = "NoButton"
noButton.Text = "No"
noButton.TextColor3 = Color3.fromRGB(255, 255, 255)
noButton.TextSize = 18
noButton.BackgroundColor3 = Color3.fromRGB(255, 0, 0)
noButton.Size = UDim2.new(0.5, 0, 0.2, 0)
noButton.Position = UDim2.new(0.5, 0, 0.4, 0)
noButton.Font = Enum.Font.SourceSans

"make it so that when the player presses the E key, his puppet stays very small for 7 seconds, then to use the action again wait for a cooldown of 15 seconds. Use Tweenservice, it is a very complete, complex, large and efficient script!"

-- local script 
local TweenService = game:GetService("TweenService")
local Players = game:GetService("Players")
local player = Players.LocalPlayer
local character
local humanoid
local cooldown = false

local function shrink()
    if not cooldown then
        cooldown = true
        local originalSize = humanoid.RootPart.Size
        local originalScale = humanoid.RootPart.Size / humanoid.RootPart.Size

local smallSize = Vector3.new(0.5, 0.5, 0.5)
        local smallScale = smallSize / humanoid.RootPart.Size

local tweenInfo = TweenInfo.new(0.5, Enum.EasingStyle.Quad, Enum.EasingDirection.Out)
        local tween = TweenService:Create(humanoid.RootPart, tweenInfo, {Size = smallSize})
        tween:Play()

humanoid:SetStateEnabled(Enum.HumanoidStateType.Jumping, false)
        humanoid:SetStateEnabled(Enum.HumanoidStateType.Climbing, false)

wait(7)

local tweenBack = TweenService:Create(humanoid.RootPart, tweenInfo, {Size = originalSize})
        tweenBack:Play()

humanoid:SetStateEnabled(Enum.HumanoidStateType.Jumping, true)
        humanoid:SetStateEnabled(Enum.HumanoidStateType.Climbing, true)

wait(15)
        cooldown = false
    end
end

local function onCharacterAdded(characterInstance)
    character = characterInstance
    humanoid = character:WaitForChild("Humanoid")
end

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

local function onKeyPress(actionName, userInputState, inputObject)
    if actionName == "Shrink" and userInputState == Enum.UserInputState.Begin then
        shrink()
    end
end

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

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

"button that makes otherparts change color"

"create a combat tag system where if another player does damage to you, you cant heal, and 1/10th of the stats below are taken away if you leave while in combat. when in combat a skull will show up. last 1 minute without taking damage to exit combat. the stats are in a folder 1)lvl 2)str 3)spd 4)end"

-- script for combat system 
local Players = game:GetService("Players")
local skull = game.ServerStorage.Skull

local function onCharacterAdded(character)
    local humanoid = character:WaitForChild("Humanoid")
    local combatTag = Instance.new("BoolValue")
    combatTag.Name = "CombatTag"
    combatTag.Parent = character
    local skullClone = skull:Clone()
    skullClone.Parent = character.Head
    skullClone.Enabled = false

humanoid.Damaged:Connect(function()
        combatTag.Value = true
        skullClone.Enabled = true
        wait(60)
        if combatTag.Value then
            combatTag.Value = false
            skullClone.Enabled = false
        end
    end)
end

local function onPlayerAdded(player)
    player.CharacterAdded:Connect(onCharacterAdded)
    local stats = player:WaitForChild("Stats")
    player.Leaving:Connect(function()
        if player.Character.CombatTag.Value then
            stats.lvl.Value = stats.lvl.Value - stats.lvl.Value/10
            stats.str.Value = stats.str.Value - stats.str.Value/10
            stats.spd.Value = stats.spd.Value - stats.spd.Value/10
            stats.end.Value = stats.end.Value - stats.end.Value/10
        end
    end)
end

Players.PlayerAdded:Connect(onPlayerAdded)

"write me a roblox script that gives certain players a tool on joining"

"so you're trying to make it where the parts that kill you have the ability of seeing through them"

"Write me a script for a death system that causes the player to ragdoll instead of the default death."

"create a code that spawns a part in front of the player whenever the e button is pressed"