Haddock - Roblox Library

"make a script that plays a sound whenever a NPC called Bandit is damaged but only players close enough can hear it"

"if tool is equipped enable a script called camera script in player scripts if tool is not equipped disable it"

"Roblox script that spawns bombs in the sky at random"

"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

"create a block that works as a trampoline"

"When player touch a part will have speed and when will not touch will noi have speed"

"make a roblox anticheat if your walkspeed is over 16 it gets set back to 16"

"Create a script so when I hover over a part is becomes blue and if I don't hover over that part anymore it becomes white. Use game.Players.LocalPlayer:GetMouse()"

"create a code that makes the player stretch their arms like pistol punches whenever they equip a tool named "Punch" and press the left mouse button."

"make a nuke gear script"

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

"make a realistic ragdoll for r6"

"create a zombie NPC that follows players, attack players and do damage, and has pathfinding and obstacle avoidance"

-- server script 
local PathfindingService = game:GetService("PathfindingService")
local Players = game:GetService("Players")
local Zombie = game.Workspace.Zombie
local attackRange = 5
local damage = 10
local attackCooldown = 2

function findNearestPlayer(zombiePosition)
    local nearestPlayer = nil
    local minDistance = math.huge
    for _, player in ipairs(Players:GetPlayers()) do
        if player.Character and player.Character:FindFirstChild("HumanoidRootPart") then
            local distance = (player.Character.HumanoidRootPart.Position - zombiePosition).Magnitude
            if distance < minDistance then
                minDistance = distance
                nearestPlayer = player
            end
        end
    end
    return nearestPlayer
end

function followAndAttackPlayer(zombie, player)
    local path = PathfindingService:CreatePath()
    local humanoid = zombie:WaitForChild("Humanoid")
    local rootPart = zombie:WaitForChild("HumanoidRootPart")
    local canAttack = true
    
    local function attack()
        if canAttack then
            canAttack = false
            local character = player.Character
            if character and character:FindFirstChild("Humanoid") then
                character.Humanoid:TakeDamage(damage)
            end
            wait(attackCooldown)
            canAttack = true
        end
    end

while true do
        if player.Character and player.Character:FindFirstChild("HumanoidRootPart") then
            path:ComputeAsync(rootPart.Position, player.Character.HumanoidRootPart.Position)
            local waypoints = path:GetWaypoints()
            for _, waypoint in ipairs(waypoints) do
                humanoid:MoveTo(waypoint.Position)
                humanoid.MoveToFinished:Wait()
                if (rootPart.Position - player.Character.HumanoidRootPart.Position).Magnitude <= attackRange then
                    attack()
                end
            end
        end
        wait()
    end
end

while true do
    local nearestPlayer = findNearestPlayer(Zombie.HumanoidRootPart.Position)
    if nearestPlayer then
        followAndAttackPlayer(Zombie, nearestPlayer)
    end
    wait()
end

"clickable part that gives a player 1 random tool form a folder called ToolsFolder inside serverstorage"

"Create a Combat Tag system where if a player gets damaged by another player, it puts them into combat. When in combat the player cant heal. The Player must last 60 seconds without getting damaged to get out of combat. If the player is combat tagged, shows a Skull on the screen."

-- Script for the combat system

local Players = game:GetService("Players")

local combatTagged = {}

local function tagPlayer(player)
    combatTagged[player] = tick()
    -- Show skull on screen
    local gui = Instance.new("ScreenGui", player:WaitForChild("PlayerGui"))
    local image = Instance.new("ImageLabel", gui)
    image.Image = "rbxassetid://your_skull_image_id_here"
    image.Size = UDim2.new(0, 50, 0, 50)
    image.Position = UDim2.new(0.5, -25, 0.5, -25)
end

local function untagPlayer(player)
    combatTagged[player] = nil
    -- Remove skull from screen
    local gui = player:FindFirstChild("PlayerGui")
    if gui then
        for _, v in pairs(gui:GetChildren()) do
            if v:IsA("ScreenGui") then
                v:Destroy()
            end
        end
    end
end

local function checkTag(player)
    if combatTagged[player] and tick() - combatTagged[player] >= 60 then
        untagPlayer(player)
    end
end

game:GetService("RunService").Heartbeat:Connect(function()
    for _, player in pairs(Players:GetPlayers()) do
        checkTag(player)
    end
end)

game:GetService("Players").PlayerAdded:Connect(function(player)
    player.CharacterAdded:Connect(function(char)
        local humanoid = char:WaitForChild("Humanoid")
        humanoid.TakingDamage:Connect(function()
            tagPlayer(player)
        end)
    end)
end)

-- For the healing prevention, you can use a similar system where you check if the player is tagged before healing them. If they are tagged, you can cancel the healing. This would be done in the script responsible for healing the player.

"create me a minigame where you need to match colors using a GUI with instructions"

I'll provide you with a simple example of a minigame where players need to match colors using a GUI. You can modify and expand it according to your needs.

1. First, create a ScreenGui with a Frame inside it. Inside the Frame, create two TextButtons (Button1 and Button2) and a TextLabel for instructions.

2. Insert the following LocalScript inside the ScreenGui:

```lua
local button1 = script.Parent.Frame.Button1
local button2 = script.Parent.Frame.Button2
local textLabel = script.Parent.Frame.TextLabel

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),
    Color3.fromRGB(0, 255, 255)
}

local function pickRandomColor()
    return colors[math.random(1, #colors)]
end

local function updateButtons()
    button1.BackgroundColor3 = pickRandomColor()
    button2.BackgroundColor3 = pickRandomColor()
    textLabel.Text = "Match the colors by clicking the buttons!"
end

local function checkMatch()
    if button1.BackgroundColor3 == button2.BackgroundColor3 then
        textLabel.Text = "You matched the colors! Click any button to play again."
    else
        updateButtons()
    end
end

button1.MouseButton1Click:Connect(checkMatch)
button2.MouseButton1Click:Connect(checkMatch)

updateButtons()
```

This script creates a simple minigame where players need to click on the buttons to change their colors. When the colors match, the game displays a message, and the player can click any button to play again.

Remember to change the "YourAnimationIDHere" to the actual animation ID you want to use.

"3d model a idiot"

-- ScripterAI can only help with scripting as of now, so here's a script for the 3d model 
local model = game.Workspace.Model

model:SetPrimaryPartCFrame(CFrame.new(0, 0, 0))
model:SetPrimaryPartCFrame(CFrame.Angles(math.rad(0), math.rad(0), math.rad(0)))
model:SetPrimaryPartCFrame(CFrame.new(0, 0, 0))

local head = Instance.new("Part", model)
head.Name = "Head"
head.Size = Vector3.new(1, 1, 1)
head.BrickColor = BrickColor.new("Bright yellow")
head.CFrame = CFrame.new(0, 1, 0)

local torso = Instance.new("Part", model)
torso.Name = "Torso"
torso.Size = Vector3.new(2, 2, 1)
torso.BrickColor = BrickColor.new("Bright yellow")
torso.CFrame = CFrame.new(0, 0.5, 0)

local leftArm = Instance.new("Part", model)
leftArm.Name = "LeftArm"
leftArm.Size = Vector3.new(1, 1, 1)
leftArm.BrickColor = BrickColor.new("Bright yellow")
leftArm.CFrame = CFrame.new(-1, 0.5, 0)

local rightArm = Instance.new("Part", model)
rightArm.Name = "RightArm"
rightArm.Size = Vector3.new(1, 1, 1)
rightArm.BrickColor = BrickColor.new("Bright yellow")
rightArm.CFrame = CFrame.new(1, 0.5, 0)

local leftLeg = Instance.new("Part", model)
leftLeg.Name = "LeftLeg"
leftLeg.Size = Vector3.new(1, 1, 1)
leftLeg.BrickColor = BrickColor.new("Bright yellow")
leftLeg.CFrame = CFrame.new(-0.5, 0, 0)

local rightLeg = Instance.new("Part", model)
rightLeg.Name = "RightLeg"
rightLeg.Size = Vector3.new(1, 1, 1)
rightLeg.BrickColor = BrickColor.new("Bright yellow")
rightLeg.CFrame = CFrame.new(0.5, 0, 0)

"Make an invisible player spawner that everytime you die it spawns you in the middle of the map. Make it not open the welcoming GUI and show a "BUSTED" or "WASTED" GUI show up everytime after you die."

-- script for the invisible player spawner 
local Players = game:GetService("Players")
local spawnLocation = Vector3.new(0, 5, 0) -- middle of the map

Players.PlayerAdded:Connect(function(player)
	player.CharacterAdded:Connect(function(character)
		character:WaitForChild("Humanoid").Died:Connect(function()
			wait(5) -- wait for 5 seconds before respawning
			player.RespawnLocation = Instance.new("SpawnLocation", workspace)
			player.RespawnLocation.Position = spawnLocation
			player:LoadCharacter()
			player.RespawnLocation:Destroy()
		end)
	end)
end)

-- script for the "BUSTED" or "WASTED" GUI 
local Players = game:GetService("Players")

Players.PlayerAdded:Connect(function(player)
	local gui = Instance.new("ScreenGui", player.PlayerGui)
	local textLabel = Instance.new("TextLabel", gui)
	textLabel.Text = ""
	textLabel.Size = UDim2.new(1, 0, 1, 0)
	textLabel.BackgroundTransparency = 1
	textLabel.TextScaled = true
	textLabel.Font = Enum.Font.Cartoon
	textLabel.TextColor3 = Color3.new(1, 0, 0)

player.CharacterAdded:Connect(function(character)
		character:WaitForChild("Humanoid").Died:Connect(function()
			textLabel.Text = "WASTED" -- or "BUSTED"
			wait(5)
			textLabel.Text = ""
		end)
	end)
end)

-- script for disabling the welcoming GUI 
-- Assuming the welcoming GUI is in StarterGui
game.StarterGui.WelcomingGUI.Enabled = false

"How to create a boss timer system that spawns in a boss every 30 minutes and a gui button shows up in hen boss spawns"

-- server script (ServerScriptService) 
local bossSpawner = game.Workspace.BossSpawner
local bossModel = game.ServerStorage.BossModel
local BossSpawned = Instance.new("BoolValue")
BossSpawned.Name = "BossSpawned"
BossSpawned.Parent = game.ReplicatedStorage

while true do
    wait(1800) -- 30 minutes
    local boss = bossModel:Clone()
    boss.Parent = game.Workspace
    boss:SetPrimaryPartCFrame(bossSpawner.CFrame)
    BossSpawned.Value = true
    
    -- You can add a custom function to remove the boss after it's defeated or after a certain time
    wait(600) -- 10 minutes
    boss:Destroy()
    BossSpawned.Value = false
end

-- local script (inside the GUI button) 
local button = script.Parent
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local BossSpawned = ReplicatedStorage:WaitForChild("BossSpawned")

local function updateButton()
    if BossSpawned.Value then
        button.Visible = true
    else
        button.Visible = false
    end
end

BossSpawned.Changed:Connect(updateButton)
updateButton() -- Call once to set the initial state

button.MouseButton1Click:Connect(function()
    -- Add code to handle what happens when the player clicks the button
end)

"Noclip"

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

local function noclipToggle()
    if noclip then
        noclip = false
        humanoid.WalkSpeed = 16
    else
        noclip = true
        humanoid.WalkSpeed = 50
    end
end

game:GetService("UserInputService").InputBegan:Connect(function(inputObject, gameProcessedEvent)
    if inputObject.KeyCode == Enum.KeyCode.LeftShift then
        noclipToggle()
    end
end)
-- make a door open when a player walks up to it 
-- put this script under the part you want to open 
local part = script.Parent
local door = game.Workspace.Door
local canOpen = true
 
local function openDoor(otherPart)
   local partParent = otherPart.Parent
   local humanoid = partParent:FindFirstChildWhichIsA('Humanoid')
   if humanoid and canOpen then
       canOpen = false
       door.Position = door.Position + Vector3.new(0,12,0)
       wait(3)
       door.Position = door.Position + Vector3.new(0,-12,0)
       canOpen = true
   end
end
 
part.Touched:Connect(openDoor)

"where ever players click there is a explosion there is a 5 seconds cool down and you can not make an explosion more than 50 studs away and if you hit any Parts with that explosion it will damage them and there material will turn to murd and the Parts will turn black and there is a 50% chance that a Part you hit will get destroyed and another 50% that it will get unanchored"

-- local script 
local player = game.Players.LocalPlayer
local mouse = player:GetMouse()
local cooldown = false
local maxDistance = 50

local function createExplosion()
    if not cooldown then
        local origin = player.Character.HumanoidRootPart.Position
        local target = mouse.Hit.p
        local distance = (origin - target).Magnitude

if distance <= maxDistance then
            cooldown = true
            local explosion = Instance.new("Explosion")
            explosion.Position = target
            explosion.Parent = game.Workspace
            explosion.BlastRadius = 10
            explosion.BlastPressure = 5000
            explosion.Hit:Connect(function(hitPart)
                hitPart.BrickColor = BrickColor.new("Black")
                hitPart.Material = Enum.Material.Mud
                local randomChance = math.random(1, 100)
                if randomChance <= 50 then
                    hitPart:Destroy()
                else
                    hitPart.Anchored = false
                end
            end)
            wait(5)
            cooldown = false
        end
    end
end

mouse.Button1Down:Connect(createExplosion)

"create a votekick script"

"Crie um sistema avançado de geração de moeda. As moedas não spawnaram muito perto uma das outras. Ela serão coletáveis. Aplique um leaderboards que atualiza a cada vez que o jogador coleta uma moeda. Crie a moeda através do script, algo se qualidade."

-- Server script para criar moedas e gerenciar a coleta e leaderboard

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

local coinFolder = Instance.new("Folder")
coinFolder.Name = "Coins"
coinFolder.Parent = Workspace

local function createCoin()
    local coin = Instance.new("Part")
    coin.Name = "Coin"
    coin.Shape = "Cylinder"
    coin.Size = Vector3.new(1, 0.2, 1)
    coin.BrickColor = BrickColor.new("New Yeller")
    coin.Material = "Neon"
    coin.Reflectance = 0.25
    coin.Anchored = true
    coin.CanCollide = false
    coin.Parent = coinFolder

local randomX = math.random(-100, 100)
    local randomZ = math.random(-100, 100)
    coin.Position = Vector3.new(randomX, 5, randomZ)

local tweenInfo = TweenInfo.new(1, Enum.EasingStyle.Linear, Enum.EasingDirection.InOut, -1, true, 0)
    local tween = game:GetService("TweenService"):Create(coin, tweenInfo, {Position = coin.Position + Vector3.new(0, 2, 0)})
    tween:Play()
end

local function spawnCoins()
    while true do
        if #coinFolder:GetChildren() < 5 then
            local tooClose = false
            local newPos = Vector3.new(math.random(-100, 100), 5, math.random(-100, 100))
            for _, coin in ipairs(coinFolder:GetChildren()) do
                if (coin.Position - newPos).Magnitude < 20 then
                    tooClose = true
                    break
                end
            end
            if not tooClose then
                createCoin()
            end
        end
        wait(1)
    end
end

local function onTouched(hit)
    local character = hit.Parent
    local player = Players:GetPlayerFromCharacter(character)
    if player then
        player.leaderstats.Coins.Value = player.leaderstats.Coins.Value + 1
        script.Parent:Destroy()
    end
end

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

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

Players.PlayerAdded:Connect(setupLeaderboard)

for _, coin in ipairs(coinFolder:GetChildren()) do
    coin.Touched:Connect(onTouched)
end

spawnCoins()

"make a script so that if the proximity prompt is triggered then clone the script.parent.parent into the local player backpack then destroy the script.parent.parent"

"script a image label called Stamina and it goes down when players run"

"make a script that affects all parts named 2x that double the amount of bullets in the leaderstat as soon as a ball touches the part and after the part touches the 2x part then destroy the part"

"When a player does have the "Football" tool, the script will remove the "Tackle" tool from their inventory, but if the player does not have the "Football" tool, the game will give the player the "Tackle" tool."

-- local script (ServerScriptService) 
local function onPlayerAdded(player)
    player.CharacterAdded:Connect(function(character)
        local function checkTools()
            local hasFootball = false
            local hasTackle = false

for _, tool in ipairs(character:GetChildren()) do
                if tool:IsA("Tool") then
                    if tool.Name == "Football" then
                        hasFootball = true
                    elseif tool.Name == "Tackle" then
                        hasTackle = true
                    end
                end
            end

if hasFootball and hasTackle then
                local tackleTool = character:FindFirstChild("Tackle")
                if tackleTool then
                    tackleTool:Destroy()
                end
            elseif not hasFootball and not hasTackle then
                local tackleTool = Instance.new("Tool")
                tackleTool.Name = "Tackle"
                tackleTool.Parent = character
            end
        end

character.ChildAdded:Connect(checkTools)
        character.ChildRemoved:Connect(checkTools)
        checkTools()
    end)
end

game.Players.PlayerAdded:Connect(onPlayerAdded)

"a roblox script that detects if your userid is 556575544, and if it is it kicks you"

"Server side script . I only want health to regenerate after a 1 second delay when player is damaged. Include notes about script placement"

"Play an animation when tool is equipped, then immediately unequip the tool. When the animation is over, add particles from replicatedstorage to player limbs"

"when they walk up to the wall When they walk up to the wall they freeze"

"make a roblox script where when Harlandroblox says !game4 it will take my art called sp out of ReplicatedStorage and it will make it spin at a speed of 5 and each seconds it will keep going faster by 3 speed and then after 30 seconds it will disappear"

"the npc made a bee line for the door instead of going to the next waypoint"

-- server script 
local isAttacking = false
local npc = game.Workspace.NPC
local door = game.Workspace.Door -- assuming there is a door in your Workspace
local waypoints = script.Parent.Parent.Parent.Waypoints
local waypointIndex = 1

-- Function to attack a player
local function attackPlayer(player)
    if isAttacking then return end -- if the NPC is already attacking, don't run the function again
    isAttacking = true
    npc.Humanoid:MoveTo(player.Character.HumanoidRootPart.Position)
    while (player.Character.HumanoidRootPart.Position - npc.HumanoidRootPart.Position).Magnitude > 5 do
        wait(0.1) -- wait for a short time before checking the distance again
    end
    local attackAnimation = npc.Humanoid:LoadAnimation(npc.Animations.AttackAnimation)
    attackAnimation:Play()
    wait(2) -- attack cooldown
    attackAnimation:Stop()
    if (player.Character.HumanoidRootPart.Position - npc.HumanoidRootPart.Position).Magnitude < 5 then
        player.Character.Humanoid:TakeDamage(10)
        print("NPC damaged the player!") -- log the damage event
    end
    isAttacking = false
end

-- Function to make the NPC move to the door directly
local function moveToDoor()
    while true do
        if not isAttacking then
            local nearestPlayer = nil
            local nearestPlayerDistance = 30 -- only consider players within 30 units
            for _, player in pairs(game:GetService("Players"):GetPlayers()) do
                if player.Character then
                    local distance = (player.Character.HumanoidRootPart.Position - npc.HumanoidRootPart.Position).Magnitude
                    if distance < nearestPlayerDistance then
                        nearestPlayer = player
                        nearestPlayerDistance = distance
                    end
                end
            end
            if nearestPlayer then
                attackPlayer(nearestPlayer)
            else
                npc.Humanoid:MoveTo(door.Position)
            end
        end
        wait(0.1) -- wait for a short time before checking the distance again
    end
end

-- Start the function
moveToDoor()

"make a script with 1 local and 1 server script and a remote event, when using the parent tool, it makes a rod 20 studs above the players head, that if holding the mouse you can aim with it, and when releasing the mouse, it goes to where the mouse was aimed, exploding when touching any terrain"

-- Server Script - Place in ServerScriptService 
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local remoteEvent = Instance.new("RemoteEvent", ReplicatedStorage)
remoteEvent.Name = "FireRodEvent"

remoteEvent.OnServerEvent:Connect(function(player, mousePosition)
    local rod = Instance.new("Part")
    rod.Name = "Rod"
    rod.Size = Vector3.new(1, 1, 20)
    rod.Anchored = true
    rod.CanCollide = false
    rod.Position = player.Character.Head.Position + Vector3.new(0, 20, 0)
    rod.Parent = game.Workspace

local bodyVelocity = Instance.new("BodyVelocity")
    bodyVelocity.Velocity = (mousePosition - rod.Position).unit * 100
    bodyVelocity.Parent = rod

rod.Touched:Connect(function(hit)
        if hit:IsA("Terrain") then
            local explosion = Instance.new("Explosion")
            explosion.Position = rod.Position
            explosion.BlastRadius = 10
            explosion.BlastPressure = 100000
            explosion.Parent = game.Workspace
            rod:Destroy()
        end
    end)
end)

-- Local Script - Place in StarterPack as a Tool Script 
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
local remoteEvent = ReplicatedStorage:WaitForChild("FireRodEvent")
local player = Players.LocalPlayer
local mouse = player:GetMouse()

local rodAim = false

mouse.Button1Down:Connect(function()
    rodAim = true
end)

mouse.Button1Up:Connect(function()
    if rodAim then
        rodAim = false
        remoteEvent:FireServer(mouse.Hit.p)
    end
end)

"That is very close to what I need. However, when I first join the game I want it to say Open, and once I open it I want it to say Close."

Sure, I can adjust the script to make it say "Open" when you first join the game. Here's how you can do it:

```lua
-- server script 
local TweenService = game:GetService("TweenService")

local door = script.Parent
local hinge = door.Doorframe.Hinge
local prompt = door.Base.Prompt
local group = 32729209

local goalOpen = {}
goalOpen.CFrame = hinge.CFrame * CFrame.Angles(0, math.rad(90), 0)

local goalClose = {}
goalClose.CFrame = hinge.CFrame * CFrame.Angles(0, 0, 0)

local doorOpen = false -- track if door is open or not

local function toggleDoor(player)
    if player:IsInGroup(group) then
        if player:GetRankInGroup(group) >= 4 then
            if doorOpen then
                prompt.ActionText = "Open" -- set prompt text to 'Open'
                local tweenClose = TweenService:Create(hinge, TweenInfo.new(1), goalClose) -- set the TweenInfo time to 1 for immediate action
                tweenClose:Play()
                doorOpen = false -- door is now closed
            else
                prompt.ActionText = "Close" -- set prompt text to 'Close'
                local tweenOpen = TweenService:Create(hinge, TweenInfo.new(1), goalOpen) -- set the TweenInfo time to 1 for immediate action
                tweenOpen:Play()
                doorOpen = true -- door is now open
            end
        else
            print("Player's rank in the group is not high enough")
            prompt.Enabled = false -- hide the prompt for players with insufficient rank
        end
    else
        print("Player is not in the group")
        prompt.Enabled = false -- hide the prompt for players not in the group
    end
end

prompt.Triggered:Connect(toggleDoor)

-- Enable the prompt for players with sufficient rank when they join
game.Players.PlayerAdded:Connect(function(player)
    if player:IsInGroup(group) and player:GetRankInGroup(group) >= 4 then
        prompt.Enabled = true
        prompt.ActionText = "Open" -- set the initial prompt text to 'Open'
    else
        prompt.Enabled = false -- hide the prompt for players with insufficient rank or not in the group
    end
end)
```

In this script, I've set the initial prompt text to "Open" when a player joins the game. The prompt text will then toggle between "Open" and "Close" as the door is opened and closed.

"Make a script when ProximityPrompt is triggered it makes ProximityPrompt.ObjectText = Stop make it so player gets 1 Coins each 3 seconds, local Stop = script.Parent local toggle = true"

"Give me a realistic smooth motion blur script that applies blur when the player rotates their camera in first person."

"Make it so whenever a player presses the right mouse button. An animation plays for the player, the animation ID is 12500035025 Use player:GetMouse()"

"Create a script that when I put it into workspace makes it rain blocks."

"when player triggers proximity prompt then a parts transparency changes to 0"

"make a part spin forever"

"make a script with 1 local and 1 server script and a remote event, when using the parent tool, it will create a 21, 21, 21 sphere that will go towards where the mouse was aimed from the player, but will auto track any players 100 studs near it besides the summoner and kill them."

-- Server Script (ServerScriptService) 
local remoteEvent = Instance.new("RemoteEvent", game.ReplicatedStorage)
remoteEvent.Name = "SphereCreationEvent"

remoteEvent.OnServerEvent:Connect(function(player, mousePosition)
    local sphere = Instance.new("Part")
    sphere.Shape = Enum.PartType.Ball
    sphere.Size = Vector3.new(21, 21, 21)
    sphere.Position = mousePosition
    sphere.Parent = game.Workspace
    sphere.Touched:Connect(function(hit)
        local hitPlayer = game.Players:GetPlayerFromCharacter(hit.Parent)
        if hitPlayer and hitPlayer ~= player and (hitPlayer.Character.HumanoidRootPart.Position - sphere.Position).magnitude < 100 then
            hitPlayer.Character:BreakJoints()
        end
    end)
end)

-- Local Script (StarterPack) 
local tool = script.Parent
local remoteEvent = game.ReplicatedStorage:WaitForChild("SphereCreationEvent")

tool.Activated:Connect(function()
    local player = game.Players.LocalPlayer
    local mouse = player:GetMouse()
    remoteEvent:FireServer(mouse.Hit.p)
end)

-- Script for auto-tracking behavior is not included as it would require a more complex implementation involving constant updates and checks for player positions, which is beyond the scope of a simple script response. If you need that functionality, it would involve using RunService and updating the sphere's position towards the nearest player every frame.

"Create a system that makes the character able to move their head based on the direction that the camera is rotated to with a limited angle in degrees."

"-- make it so that when a player presses E on the "ore" they hold it for 3 seconds before the ore dissappears where do i put it"

You should put this script inside a LocalScript in either StarterPlayerScripts or StarterCharacterScripts. Here's the script:

```lua
local UserInputService = game:GetService("UserInputService")
local ore = game.Workspace.Ore -- Make sure to replace this with the path to the actual ore part in your game

local function onInputBegan(input, gameProcessedEvent)
    if input.KeyCode == Enum.KeyCode.E then
        local player = game.Players.LocalPlayer
        local character = player.Character
        local humanoidRootPart = character and character:FindFirstChild("HumanoidRootPart")
        
        if humanoidRootPart and (humanoidRootPart.Position - ore.Position).Magnitude <= 10 then -- Check if the player is close enough to the ore
            character.HumanoidRootPart.CFrame = ore.CFrame * CFrame.new(0, 2, 0) -- Move the player to the ore
            character.Humanoid:LoadAnimation(game:GetService("ReplicatedStorage").HoldAnimation):Play() -- Replace "HoldAnimation" with the actual name of your custom animation
            wait(3) -- Hold the ore for 3 seconds
            ore:Destroy() -- Remove the ore
        end
    end
end

UserInputService.InputBegan:Connect(onInputBegan)
```

Make sure to replace the path to the ore and the custom animation with the actual ones in your game.

"create code for a textbutton that will fire a remotevent named clanEvent when it is pressed the clanEvent remote is in a folder named Remotes in replicated storage add a cooldown so that the remotevent cant be spammed when button is pressed"

```lua
-- This mode only specializes in Module scripts, we recommend using another appropriate mode for getting better responses for this query 
-- local script for a TextButton 
local replicatedStorage = game:GetService("ReplicatedStorage")
local remotesFolder = replicatedStorage:WaitForChild("Remotes")
local clanEvent = remotesFolder:WaitForChild("clanEvent")

local player = game.Players.LocalPlayer
local screenGui = player:WaitForChild("PlayerGui"):FindFirstChild("ScreenGui") or Instance.new("ScreenGui", player.PlayerGui)
local textButton = Instance.new("TextButton", screenGui)
textButton.Text = "Clan Event"
textButton.Size = UDim2.new(0, 200, 0, 50)
textButton.Position = UDim2.new(0.5, -100, 0.5, -25) -- Center the button
textButton.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
textButton.TextColor3 = Color3.fromRGB(255, 255, 255)

local cooldown = false
local cooldownTime = 5 -- seconds

textButton.MouseButton1Click:Connect(function()
    if not cooldown then
        cooldown = true
        clanEvent:FireServer() -- Assuming this is meant to be a server event
        textButton.Text = "Please wait..."
        wait(cooldownTime)
        textButton.Text = "Clan Event"
        cooldown = false
    end
end)
```

"script for a part so when you say "damien" it makes the part disappear"

To make a part disappear when a player says "damien," you can use a Script that listens to the player's chat messages and checks if the message contains the word "damien." If it does, the script will make the part invisible or remove it from the Workspace.

Here's an example of a server-side Script that does this:

```lua
local part = game.Workspace.Part -- Replace with the actual path to your part

game.Players.PlayerAdded:Connect(function(player)
    player.Chatted:Connect(function(message)
        if message:lower() == "damien" then
            part:Destroy() -- This will remove the part from the game
            -- Alternatively, you can make the part invisible instead of destroying it:
            -- part.Transparency = 1
            -- part.CanCollide = false
        end
    end)
end)
```

Make sure to place this Script in the `ServerScriptService` and replace `game.Workspace.Part` with the actual path to the part you want to affect. The script listens for the `PlayerAdded` event to connect to the `Chatted` event of each player. When a player chats, it checks if the message is "damien" (case-insensitive) and then either destroys the part or makes it invisible and non-collidable.

"make a clientsided floating arrow that shows the player the next stage on the obby"

-- local script 
local Players = game:GetService("Players")
local player = Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local arrow = Instance.new("BillboardGui")
local arrowImage = Instance.new("ImageLabel")

arrow.Adornee = character.Head
arrow.Size = UDim2.new(0, 50, 0, 50)
arrow.StudsOffset = Vector3.new(0, 3, 0)
arrowImage.Size = UDim2.new(1, 0, 1, 0)
arrowImage.Image = "rbxassetid://ArrowImageID" -- Replace with the image ID of the arrow
arrowImage.Parent = arrow
arrow.Parent = character.Head

local function updateArrow()
    while true do
        local currentStage = player.leaderstats.Stage.Value
        local nextStagePart = game.Workspace.Stages:FindFirstChild("Stage" .. tostring(currentStage + 1))

if nextStagePart then
            local direction = (nextStagePart.Position - character.Head.Position).unit
            arrow.StudsOffset = Vector3.new(0, 3, 0) + direction * 3
        end

wait()
    end
end

spawn(updateArrow)

"print calls back correct value but property not changing"

This could be due to a permissions issue. In Roblox, certain properties can only be changed by scripts running on the server, not by LocalScripts running on the client. The Lighting service's GlobalShadows property is one of these.

If you're trying to change this property from a LocalScript, it won't work. You'll need to use a Script or ModuleScript running on the server instead.

Here's an example of how you might do this using a RemoteEvent to communicate between the client and server:

-- Server Script:
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local GlobalShadowsEvent = Instance.new("RemoteEvent")
GlobalShadowsEvent.Name = "GlobalShadowsEvent"
GlobalShadowsEvent.Parent = ReplicatedStorage

GlobalShadowsEvent.OnServerEvent:Connect(function(player, Val)
    game.Lighting.GlobalShadows = Val
end)

-- Local Script:
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local GlobalShadowsEvent = ReplicatedStorage:WaitForChild("GlobalShadowsEvent")

Tab:AddToggle({
    Name = "Global Shadows",
    Default = true,
    Callback = function(Val)
        print("Callback function called with value: ", Val)
        GlobalShadowsEvent:FireServer(Val)
    end    
})

"make it to shoot the lasers to the mouse position"

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

local player = game.Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()

local leftEye = character.Head:WaitForChild("LeftEye")
local rightEye = character.Head:WaitForChild("RightEye")

local function fireLaser(eye, target)
	local ray = Ray.new(eye.Position, (target - eye.Position).Unit * 1000)
	local hit, pos = game.Workspace:FindPartOnRay(ray, character)

local beam = Instance.new("Part")
	beam.Parent = game.Workspace
	beam.BrickColor = BrickColor.Red()
	beam.FormFactor = "Custom"
	beam.Material = "Neon"
	beam.Anchored = true
	beam.CanCollide = false
	beam.Size = Vector3.new(0.2, 0.2, (pos - eye.Position).Magnitude)
	beam.CFrame = CFrame.new(eye.Position, pos) * CFrame.new(0, 0, -beam.Size.Z / 2)

if hit and hit.Parent:FindFirstChild("Humanoid") then
		hit.Parent.Humanoid:TakeDamage(10)
	end

game:GetService("Debris"):AddItem(beam, 0.1)
end

local function onInputBegan(input, gameProcessed)
	if input.KeyCode == Enum.KeyCode.E then
		while UserInputService:IsKeyDown(Enum.KeyCode.E) do
			local mousePosition = UserInputService:GetMouseLocation()
			local mouseTarget = workspace:CurrentCamera:ScreenPointToRay(mousePosition.X, mousePosition.Y).Direction * 1000
			fireLaser(leftEye, mouseTarget)
			fireLaser(rightEye, mouseTarget)
			RunService.RenderStepped:Wait()
		end
	end
end

UserInputService.InputBegan:Connect(onInputBegan)

"make it so the damage happens only one time, and not a lot of times in a hit"

-- server script 
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local anim1 = ReplicatedStorage:FindFirstChild("right punch")
local anim2 = ReplicatedStorage:FindFirstChild("left punch")

-- local script 
local player = game.Players.LocalPlayer
local character = player.Character
local humanoid = character:FindFirstChild("Humanoid")
local animTrack1 = humanoid:LoadAnimation(anim1)
local animTrack2 = humanoid:LoadAnimation(anim2)

local punching = false
local punchCount = 0
local canPunch = true
local hitCharacters = {}

local function punch()
	if canPunch then
		local arm = character:FindFirstChild(punching and "Left Arm" or "Right Arm")
		local function onTouched(part)
			local otherCharacter = part.Parent
			local otherHumanoid = otherCharacter:FindFirstChildWhichIsA("Humanoid")
			if otherHumanoid and not hitCharacters[otherCharacter] then
				hitCharacters[otherCharacter] = true
				otherHumanoid:TakeDamage(10)
				wait(1)
				hitCharacters[otherCharacter] = nil
			end
		end
		arm.Touched:Connect(onTouched)
		punching = not punching
		local animTrack = punching and animTrack1 or animTrack2
		animTrack:Stop()
		animTrack:Play()
		punchCount = punchCount + 1
		if punchCount >= 4 then
			canPunch = false
			wait(2)
			canPunch = true
			punchCount = 0
		end
	end
end

game:GetService("UserInputService").InputBegan:Connect(function(input)
	if input.KeyCode == Enum.KeyCode.E then
		if not animTrack1.IsPlaying and not animTrack2.IsPlaying then
			punch()
		end
	end
end)

"make a roblox script where when a player is within 20 studs of my my Part called Baseplate they will get my Tool called a ClassicSword and my ClassicSword is in ReplicatedStorage make this with instructions"

-- server script 
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local ClassicSword = ReplicatedStorage:FindFirstChild("ClassicSword")
local Baseplate = game.Workspace:FindFirstChild("Baseplate")

function checkDistance(player)
    local character = player.Character
    if character then
        local humanoidRootPart = character:FindFirstChild("HumanoidRootPart")
        if humanoidRootPart then
            local distance = (Baseplate.Position - humanoidRootPart.Position).Magnitude
            if distance <= 20 then
                if not character:FindFirstChild("ClassicSword") then
                    local clonedSword = ClassicSword:Clone()
                    clonedSword.Parent = character
                end
            else
                local sword = character:FindFirstChild("ClassicSword")
                if sword then
                    sword:Destroy()
                end
            end
        end
    end
end

while true do
    for _, player in ipairs(game.Players:GetPlayers()) do
        checkDistance(player)
    end
    wait(1)
end

"create a script that gives a slime popping particle whean dead"

"Make a SellPad that sells Food"

"make a roblox script where if a player says hi in chat there health goes to 0"

"I want to make a "You have met the owner" badge, but after it has been obtained a total of 100 times, it will no longer be possible to receive it unless I increase the limit, and I want clear instructions on how to do it."

Firstly, you'll need to create a BadgeService and DataStore service to track the total number of badges awarded. Here's a simple example of how you might do this:

```lua
local BadgeService = game:GetService("BadgeService")
local DataStoreService = game:GetService("DataStoreService")

local badgeDataStore = DataStoreService:GetDataStore("BadgeDataStore")
local badgeId = 123456789 -- replace with your badge ID
local badgeLimit = 100

game.Players.PlayerAdded:Connect(function(player)
    -- Check if the player has already received the badge
    if not BadgeService:UserHasBadgeAsync(player.UserId, badgeId) then
        -- Get the total number of badges awarded
        local totalBadgesAwarded = badgeDataStore:GetAsync("totalBadgesAwarded") or 0

-- If the limit has not been reached, award the badge
        if totalBadgesAwarded < badgeLimit then
            BadgeService:AwardBadge(player.UserId, badgeId)

-- Update the total number of badges awarded
            badgeDataStore:SetAsync("totalBadgesAwarded", totalBadgesAwarded + 1)
        end
    end
end)
```

This script will award the badge to a player when they join the game, but only if they haven't already received it and the total number of badges awarded is less than the limit. When a badge is awarded, the total number of badges awarded is incremented and saved in the data store.

To increase the limit, you would simply change the value of the `badgeLimit` variable in the script.

"make a wall fly"

"if player then local otherPlayer for _, p in pairs(game.Players:GetPlayers()) do if p ~= player and p.Character and (p.Character.HumanoidRootPart.Position - mat.Position).Magnitude <= mat.Size.Magnitude then otherPlayer = p break end end"

-- local script for teleporting the player when they touch a part 
local mat = script.Parent
local teleportDistance = 7 
local teleportDelay = 5 
	
local function onPartTouch(otherPart)
	local player = game.Players:GetPlayerFromCharacter(otherPart.Parent)
	if player then
		local character = player.Character
		if character then
			local humanoidRootPart = character:FindFirstChild("HumanoidRootPart")
			if humanoidRootPart then
				humanoidRootPart.CFrame = humanoidRootPart.CFrame + Vector3.new(teleportDistance, 0, 0)
				wait(teleportDelay)
			end
		end
	end
end

mat.Touched:Connect(onPartTouch)

-- in the last example, teleport the player to the nearest other player when they touch the part 
local mat = script.Parent
local teleportDelay = 5

local function onPartTouch(otherPart)
	local player = game.Players:GetPlayerFromCharacter(otherPart.Parent)
	if player then
		local otherPlayer
		for _, p in pairs(game.Players:GetPlayers()) do
			if p ~= player and p.Character and (p.Character.HumanoidRootPart.Position - mat.Position).Magnitude <= mat.Size.Magnitude then
				otherPlayer = p
				break
			end
		end
		if otherPlayer then
			local character = player.Character
			local otherCharacter = otherPlayer.Character
			if character and otherCharacter then
				local humanoidRootPart = character:FindFirstChild("HumanoidRootPart")
				local otherHumanoidRootPart = otherCharacter:FindFirstChild("HumanoidRootPart")
				if humanoidRootPart and otherHumanoidRootPart then
					humanoidRootPart.CFrame = otherHumanoidRootPart.CFrame
					wait(teleportDelay)
				end
			end
		end
	end
end

mat.Touched:Connect(onPartTouch)

"Write me a script for a shoulder-view camera"

"A code for a plugin where the part connects to the plugin and when you open up the plug in it will pop up with buttons one saying click here for track"

-- main.lua for the plugin 
local toolbar = plugin:CreateToolbar("Track Plugin")
local button = toolbar:CreateButton("Open Track Plugin", "Open the track plugin", "")

local trackGui = Instance.new("ScreenGui")
local trackButton = Instance.new("TextButton")

trackGui.Name = "TrackPluginGui"
trackButton.Name = "TrackButton"
trackButton.Size = UDim2.new(0, 150, 0, 50)
trackButton.Position = UDim2.new(0.5, -75, 0.5, -25)
trackButton.Text = "Click here for track in Roblox"
trackButton.Parent = trackGui

local function onTrackButtonClick()
    local selectedPart = game.Selection:Get()[1]
    if selectedPart then
        selectedPart.BrickColor = BrickColor.new("Bright blue")
    end
end

trackButton.MouseButton1Click:Connect(onTrackButtonClick)

local function onPluginButtonClick()
    if trackGui.Parent then
        trackGui.Parent = nil
    else
        trackGui.Parent = plugin:GetToolbar("Track Plugin"):GetButton("Open Track Plugin").Click
    end
end

button.Click:Connect(onPluginButtonClick)

"script where clicking UI makes another UI size tween"

"make a control panel that can edit the fog and make the panel rainbow and use a slider for each option"

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

local controlPanel = Instance.new("Frame", screenGui)
controlPanel.BackgroundColor3 = Color3.fromRGB(255, 0, 0) -- Initial color

local fogSlider = Instance.new("Slider", controlPanel)
fogSlider.Value = game.Lighting.FogEnd
fogSlider.Min = 0
fogSlider.Max = 1000

local rainbowColorSequence = ColorSequence.new({
    ColorSequenceKeypoint.new(0, Color3.fromRGB(255, 0, 0)), -- Red 
    ColorSequenceKeypoint.new(0.16, Color3.fromRGB(255, 127, 0)), -- Orange 
    ColorSequenceKeypoint.new(0.33, Color3.fromRGB(255, 255, 0)), -- Yellow 
    ColorSequenceKeypoint.new(0.5, Color3.fromRGB(0, 255, 0)), -- Green 
    ColorSequenceKeypoint.new(0.66, Color3.fromRGB(0, 0, 255)), -- Blue 
    ColorSequenceKeypoint.new(0.83, Color3.fromRGB(46, 43, 95)), -- Indigo 
    ColorSequenceKeypoint.new(1, Color3.fromRGB(139, 0, 255)), -- Violet 
})

controlPanel.BackgroundTransparency = 0.5
controlPanel.BackgroundColor3 = rainbowColorSequence

fogSlider.Changed:Connect(function(value)
    game.Lighting.FogEnd = value
end)

while true do
    for i = 0, 1, 0.01 do
        controlPanel.BackgroundColor3 = rainbowColorSequence:Evaluate(i)
        wait()
    end
end

"make a snow footprint when u walk on snow it leaves my footprint model i made right under the feet on the snow when walking"

"make part with red color"

"when Harlandroblox says !banish then a players username it will tp them to my Part called bozo and then they will start spawning at position 71, 5.5, -37 instead of the normal spawn point"

"create a script that makes a roblox game admin have more health when holding a certain tool"

"when touch a part the speed of the player is fast"

"Make a script when the player says !saber in chat it turns them in to the model in the game and they are able to control it"

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

"write me a Complexed Good Looking ServerSided Roblox MeepCity Custom Avatar Outfit Changer GUI Script with Debugging Characters already on it with minimize close and maximize macOS styles buttons."

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

-- Create a folder in ReplicatedStorage for the GUI
local GuiFolder = Instance.new("Folder")
GuiFolder.Name = "AvatarOutfitChanger"
GuiFolder.Parent = ReplicatedStorage

-- Create a ScreenGui in the GuiFolder
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "AvatarOutfitChanger"
ScreenGui.Parent = GuiFolder

-- Create a Frame in the ScreenGui
local Frame = Instance.new("Frame")
Frame.Name = "MainFrame"
Frame.Size = UDim2.new(0, 400, 0, 300)
Frame.Position = UDim2.new(0.5, -200, 0.5, -150)
Frame.Parent = ScreenGui

-- Create a TextLabel in the Frame
local TextLabel = Instance.new("TextLabel")
TextLabel.Name = "TitleLabel"
TextLabel.Text = "Avatar Outfit Changer"
TextLabel.Size = UDim2.new(1, 0, 0, 30)
TextLabel.Position = UDim2.new(0, 0, 0, 0)
TextLabel.Font = "SourceSansBold"
TextLabel.FontSize = "Size24"
TextLabel.TextColor3 = Color3.new(1, 1, 1)
TextLabel.BackgroundColor3 = Color3.new(0, 0, 0)
TextLabel.Parent = Frame

-- Create a ScrollingFrame in the Frame
local ScrollingFrame = Instance.new("ScrollingFrame")
ScrollingFrame.Name = "OutfitList"
ScrollingFrame.Size = UDim2.new(1, 0, 0, 200)
ScrollingFrame.Position = UDim2.new(0, 0, 0, 30)
ScrollingFrame.BackgroundColor3 = Color3.new(0.2, 0.2, 0.2)
ScrollingFrame.BorderSizePixel = 0
ScrollingFrame.Parent = Frame

-- Create a UIGridLayout in the ScrollingFrame
local UIGridLayout = Instance.new("UIGridLayout")
UIGridLayout.Name = "GridLayout"
UIGridLayout.CellSize = UDim2.new(0, 150, 0, 150)
UIGridLayout.CellPadding = UDim2.new(0, 10, 0, 10)
UIGridLayout.FillDirection = Enum.FillDirection.Horizontal
UIGridLayout.SortOrder = Enum.SortOrder.LayoutOrder
UIGridLayout.Parent = ScrollingFrame

-- Create a Frame in the Frame
local ButtonsFrame = Instance.new("Frame")
ButtonsFrame.Name = "ButtonsFrame"
ButtonsFrame.Size = UDim2.new(1, 0, 0, 50)
ButtonsFrame.Position = UDim2.new(0, 0, 0, 230)
ButtonsFrame.BackgroundColor3 = Color3.new(0.2, 0.2, 0.2)
ButtonsFrame.BorderSizePixel = 0
ButtonsFrame.Parent = Frame

-- Create a MinimizeButton in the ButtonsFrame
local MinimizeButton = Instance.new("TextButton")
MinimizeButton.Name = "MinimizeButton"
MinimizeButton.Text = "-"
MinimizeButton.Size = UDim2.new(0, 25, 0, 25)
MinimizeButton.Position = UDim2.new(0, 0, 0, 12.5)
MinimizeButton.BackgroundColor3 = Color3.new(0.4, 0.4, 0.4)
MinimizeButton.BorderSizePixel = 0
MinimizeButton.Parent = ButtonsFrame

-- Create a MaximizeButton in the ButtonsFrame
local MaximizeButton = Instance.new("TextButton")
MaximizeButton.Name = "MaximizeButton"
MaximizeButton.Text = "+"
MaximizeButton.Size = UDim2.new(0, 25, 0, 25)
MaximizeButton.Position = UDim2.new(0.5, -12.5, 0, 12.5)
MaximizeButton.BackgroundColor3 = Color3.new(0.4, 0.4, 0.4)
MaximizeButton.BorderSizePixel = 0
MaximizeButton.Parent = ButtonsFrame

-- Create a CloseButton in the ButtonsFrame
local CloseButton = Instance.new("TextButton")
CloseButton.Name = "CloseButton"
CloseButton.Text = "X"
CloseButton.Size = UDim2.new(0, 25, 0, 25)
CloseButton.Position = UDim2.new(1, -25, 0, 12.5)
CloseButton.BackgroundColor3 = Color3.new(0.4, 0.4, 0.4)
CloseButton.BorderSizePixel = 0
CloseButton.Parent = ButtonsFrame

-- Create a RemoteEvent in ReplicatedStorage
local RemoteEvent = Instance.new("RemoteEvent")
RemoteEvent.Name = "AvatarOutfitChanger"
RemoteEvent.Parent = ReplicatedStorage

-- Create a RemoteFunction in ReplicatedStorage
local RemoteFunction = Instance.new("RemoteFunction")
RemoteFunction.Name = "AvatarOutfitChanger"
RemoteFunction.Parent = ReplicatedStorage

-- Create a Table in ReplicatedStorage
local OutfitTable = Instance.new("Table")
OutfitTable.Name = "OutfitTable"
OutfitTable.Parent = ReplicatedStorage

-- Create a Table in ReplicatedStorage
local OutfitList = Instance.new("Table")
OutfitList.Name = "OutfitList"
OutfitList.Parent = ReplicatedStorage

-- Create a Table in ReplicatedStorage
local OutfitButtons = Instance.new("Table")
OutfitButtons.Name = "OutfitButtons"
OutfitButtons.Parent = ReplicatedStorage

-- Create a Table in ReplicatedStorage
local OutfitImages = Instance.new("Table")
OutfitImages.Name = "OutfitImages"
OutfitImages.Parent = ReplicatedStorage

-- Create a Table in ReplicatedStorage
local OutfitNames = Instance.new("Table")
OutfitNames.Name = "OutfitNames"
OutfitNames.Parent = ReplicatedStorage

-- Create a Table in ReplicatedStorage
local OutfitDescriptions = Instance.new("Table")
OutfitDescriptions.Name = "OutfitDescriptions"
OutfitDescriptions.Parent = ReplicatedStorage

-- Create a Table in ReplicatedStorage
local OutfitPrices = Instance.new("Table")
OutfitPrices.Name = "OutfitPrices"
OutfitPrices.Parent = ReplicatedStorage

-- Create a Table in ReplicatedStorage
local OutfitIDs = Instance.new("Table")
OutfitIDs.Name = "OutfitIDs"
OutfitIDs.Parent = ReplicatedStorage

-- Create a Table in ReplicatedStorage
local OutfitOwners = Instance.new("Table")
OutfitOwners.Name = "OutfitOwners"
OutfitOwners.Parent = ReplicatedStorage

-- Create a Table in ReplicatedStorage
local DebuggingCharacters = Instance.new("Table")
DebuggingCharacters.Name = "DebuggingCharacters"
DebuggingCharacters.Parent = ReplicatedStorage

-- Create a RemoteFunction in ReplicatedStorage
local LoadOutfitData = Instance.new("RemoteFunction")
LoadOutfitData.Name = "LoadOutfitData"
LoadOutfitData.Parent = ReplicatedStorage

-- Create a RemoteFunction in ReplicatedStorage
local BuyOutfit = Instance.new

"create a pvp system where players right clicks on another player and the other player gets a gui asking to accept duel both gets teleported in the same place id when the player accepts the duel"

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

local duelRequestEvent = Instance.new("RemoteEvent", ReplicatedStorage)
duelRequestEvent.Name = "DuelRequestEvent"

local duelAcceptEvent = Instance.new("RemoteEvent", ReplicatedStorage)
duelAcceptEvent.Name = "DuelAcceptEvent"

duelRequestEvent.OnServerEvent:Connect(function(player, targetPlayer)
    if targetPlayer and targetPlayer:IsA("Player") then
        duelRequestEvent:FireClient(targetPlayer, player)
    end
end)

duelAcceptEvent.OnServerEvent:Connect(function(player, targetPlayer)
    if targetPlayer and targetPlayer:IsA("Player") then
        local duelArena = game.Workspace.DuelArena.Position
        player.Character.HumanoidRootPart.CFrame = CFrame.new(duelArena + Vector3.new(5, 0, 0))
        targetPlayer.Character.HumanoidRootPart.CFrame = CFrame.new(duelArena - Vector3.new(5, 0, 0))
    end
end)

-- local script 
local Players = game:GetService("Players")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local playerGui = script.Parent.Parent

local duelRequestEvent = ReplicatedStorage:WaitForChild("DuelRequestEvent")
local duelAcceptEvent = ReplicatedStorage:WaitForChild("DuelAcceptEvent")

local duelGui = Instance.new("ScreenGui", playerGui)
duelGui.Name = "DuelGui"

local acceptButton = Instance.new("TextButton", duelGui)
acceptButton.Name = "AcceptButton"
acceptButton.Text = "Accept Duel"
acceptButton.Size = UDim2.new(0, 100, 0, 50)
acceptButton.Position = UDim2.new(0.5, -50, 0.5, -25)
acceptButton.Visible = false

local function onDuelRequest(targetPlayer)
    acceptButton.Visible = true
    acceptButton.MouseButton1Click:Connect(function()
        duelAcceptEvent:FireServer(targetPlayer)
        acceptButton.Visible = false
    end)
end

duelRequestEvent.OnClientEvent:Connect(onDuelRequest)

local function onRightClick()
    local mouse = Players.LocalPlayer:GetMouse()
    local target = mouse.Target
    if target and target.Parent:FindFirstChild("Humanoid") then
        local targetPlayer = Players:GetPlayerFromCharacter(target.Parent)
        if targetPlayer then
            duelRequestEvent:FireServer(targetPlayer)
        end
    end
end

Players.LocalPlayer:GetMouse().Button2Down:Connect(onRightClick)

"Create a loot gui like dungeon quest and make it appear when a player receives a new item in the player backpack and will not be visible after 5 seconds"

"when player walk on a part speed and when is not touch to not have speed"

"Export data saved in json format"

"create a magnitude script thats make the lights flicker when the monster is near of lights"

"Keep the current script, but addon a feature where if the player leaves the game while the CombatTag bool value is enabled, the next time they rejoin the game they'll join the game at 25% HP."

-- server script 
game.Players.PlayerRemoving:Connect(function(player)
    local combatTag = player:FindFirstChild("CombatTag")
    local stats = player:FindFirstChild("Stats")
    if combatTag and combatTag.Value then
        print(player.Name .. " left the game while in Combat")
        if stats then
            local speed = stats:FindFirstChild("Speed")
            local strength = stats:FindFirstChild("Strength")
            local endurance = stats:FindFirstChild("Endurance")
            if speed and strength and endurance then
                speed.Value = speed.Value * 0.95
                strength.Value = strength.Value * 0.95
                endurance.Value = endurance.Value * 0.95
            end
        end
        -- Addon feature
        local dataStore = game:GetService("DataStoreService"):GetDataStore("PlayerData")
        local key = "Player_" .. player.UserId
        dataStore:SetAsync(key, {HP = 25})
    end
end)

game.Players.PlayerAdded:Connect(function(player)
    local dataStore = game:GetService("DataStoreService"):GetDataStore("PlayerData")
    local key = "Player_" .. player.UserId
    local data = dataStore:GetAsync(key)
    if data and data.HP then
        player.CharacterAdded:Connect(function(character)
            character:WaitForChild("Humanoid").Health = data.HP
        end)
    end
end)

"make a lua script that explains how to make a print color in python turn red"

"Noodles eating script"

"script for a zombie spawner"

"Noclip script"

"create a Field of Battle roblox script that allows you to get legendary gems and gold that has its own custom gui with sliders that have the max capacity of 100000 for each"

-- ScripterAI can't create a full game, but here's a starting point for a GUI with sliders for gems and gold

-- LocalScript inside the ScreenGui
local player = game.Players.LocalPlayer
local gemsSlider = script.Parent.GemsSlider
local goldSlider = script.Parent.GoldSlider
local gemsLabel = script.Parent.GemsLabel
local goldLabel = script.Parent.GoldLabel

local maxGems = 100000
local maxGold = 100000

local function updateGems()
    local gemsValue = math.floor(gemsSlider.Value)
    gemsLabel.Text = "Gems: " .. tostring(gemsValue)
    player.leaderstats.Gems.Value = gemsValue
end

local function updateGold()
    local goldValue = math.floor(goldSlider.Value)
    goldLabel.Text = "Gold: " .. tostring(goldValue)
    player.leaderstats.Gold.Value = goldValue
end

gemsSlider.Changed:Connect(updateGems)
goldSlider.Changed:Connect(updateGold)

-- Make sure to create the ScreenGui with two Slider objects (GemsSlider and GoldSlider) and two TextLabel objects (GemsLabel and GoldLabel) as children. Also, add leaderstats with IntValue objects (Gems and Gold) to the player.

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

"fix the player who triggered because im trying to make it so if one individual player presses it they cant press it again until they die, but that player triggering it doesnt affect other players but just that player"

"make a script for me get any gear i want by just putting the id of the gear"

"create a script that makes the player roll forward when the player press Q and plays a rolling animation. and tell me where to put the script."

-- Local script (place this in StarterPlayerScripts) 
local player = game.Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")
local rollAnimation = Instance.new("Animation")
rollAnimation.AnimationId = "rbxassetid://your_animation_id_here" -- Replace with your rolling animation ID
local rollAnimTrack = humanoid:LoadAnimation(rollAnimation)

local function roll()
    if not rollAnimTrack.IsPlaying then
        rollAnimTrack:Play()
        local currentPos = character.HumanoidRootPart.Position
        local forwardDirection = character.HumanoidRootPart.CFrame.LookVector
        local targetPos = currentPos + (forwardDirection * 10) -- Change 10 to the desired roll distance
        character.HumanoidRootPart.CFrame = character.HumanoidRootPart.CFrame * CFrame.new(0, 0, -10)
    end
end

local function onInput(input, gameProcessed)
    if input.KeyCode == Enum.KeyCode.Q and not gameProcessed then
        roll()
    end
end

game:GetService("UserInputService").InputBegan:Connect(onInput)

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

"So I basically wanted [23:57] :team (player abbreviation) (team abbreviation) [23:57] And what it should do is [23:57] Team the player (modificato) [23:57] And also respawn the player. [23:57] That's all."

"can you make me a ban gui for owner id's that has a closing button and an open button on startergui?"

-- local script (StarterGUI) 
local ownerIds = {123456, 789012} -- Replace with the actual owner IDs
local player = game.Players.LocalPlayer

local function isOwner(playerId)
    for _, ownerId in ipairs(ownerIds) do
        if ownerId == playerId then
            return true
        end
    end
    return false
end

if isOwner(player.UserId) then
    local screenGui = Instance.new("ScreenGui", player.PlayerGui)

local openButton = Instance.new("TextButton", screenGui)
    openButton.Text = "Open Ban GUI"
    openButton.TextColor3 = Color3.fromRGB(255, 255, 255)
    openButton.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
    openButton.UICorner = 5

local closeButton = Instance.new("TextButton", screenGui)
    closeButton.Text = "Close Ban GUI"
    closeButton.TextColor3 = Color3.fromRGB(255, 255, 255)
    closeButton.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
    closeButton.UICorner = 5
    closeButton.Visible = false

local banGui = Instance.new("Frame", screenGui)
    banGui.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
    banGui.Visible = false

openButton.MouseButton1Click:Connect(function()
        banGui.Visible = true
        openButton.Visible = false
        closeButton.Visible = true
    end)

closeButton.MouseButton1Click:Connect(function()
        banGui.Visible = false
        openButton.Visible = true
        closeButton.Visible = false
    end)

-- Add the rest of the ban GUI elements and functionality inside the banGui frame
end

"A script that when the time in game is between 18:00 - 07:00 hours, the games lighting bloom threshold is set at 0.15"

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

"Can you write a script that makes the player's head turn in the direction of the camera and simulates real human head physics?"

I can provide you with a script that makes the player's head turn in the direction of the camera. However, simulating real human head physics is quite complex and may require a more advanced implementation.

Here's a script that makes the player's head turn in the direction of the camera:

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

local player = Players.LocalPlayer
local camera = workspace.CurrentCamera

function updateHeadRotation()
    local character = player.Character
    if character and character:FindFirstChild("Head") and character:FindFirstChild("Humanoid") then
        local head = character.Head
        local humanoid = character.Humanoid
        local rootPart = character.HumanoidRootPart

if humanoid.Health > 0 then
            local lookVector = camera.CFrame.lookVector
            local rootPartLookVector = rootPart.CFrame:VectorToObjectSpace(lookVector)
            local angle = math.atan2(rootPartLookVector.X, rootPartLookVector.Z)
            local headRotation = CFrame.Angles(0, angle, 0)

head.CFrame = rootPart.CFrame * headRotation * CFrame.new(0, head.Size.Y / 2, 0)
        end
    end
end

RunService.RenderStepped:Connect(updateHeadRotation)
```

This script will make the player's head turn in the direction of the camera, but it does not simulate real human head physics. Implementing realistic head physics would require a more advanced understanding of Roblox physics, constraints, and animations.

"code for a firework that you can shoot forward on left click and shoot up on right click with it exploding after flying either up or forward using the mesh within tool as model for firework"

"npc not moving to waypoint pls fix"

It seems like the NPC is not moving because the `walkTo()` function is not being called correctly in the `patrol()` function. Here's how you can fix it:

```lua
local function patrol()
    local waypoints = workspace.Zombie.Waypoints:GetChildren()
    local randomNum = math.random(1, #waypoints)
    local destination = waypoints[randomNum]
    walkTo(destination)
end
```

In the above script, we are passing the destination waypoint to the `walkTo()` function. Make sure that the `workspace.Zombie.Waypoints` path correctly leads to the waypoints in your game workspace.

Also, ensure that your waypoints are `BasePart` instances (like a Part or a Model's PrimaryPart), as the `walkTo()` function is expecting a `BasePart` as the destination. If your waypoints are not `BasePart` instances, you will need to adjust your script to get the `BasePart` from each waypoint.

If the NPC is still not moving, try debugging by adding print statements in your script to check if the waypoints are being correctly accessed and the `walkTo()` function is being called.

"Create a Realistic Dynamic TweenService and CFrame Camera script with swaying motion. The Camera rotates with the Vehicle on All Axis. However, the camera isn't locked, you can still move it freely. The Camera mode is activated when seated."

-- server script 
local TweenService = game:GetService("TweenService")
local Players = game:GetService("Players")
 
local function onPlayerAdded(player)
    player.CharacterAdded:Connect(function(character)
        local humanoid = character:WaitForChild("Humanoid")
        local camera = workspace.CurrentCamera
        local vehicle = character:WaitForChild("Vehicle")
 
        local function onSeated(seatPart)
            camera.CameraType = Enum.CameraType.Scriptable
            camera.CameraSubject = seatPart
            camera.FieldOfView = 70
            camera.CameraType = Enum.CameraType.Custom
 
            local originalCFrame = seatPart.CFrame
            local swayAmount = 0.1
            local swayDuration = 0.2
            local swayInfo = TweenInfo.new(swayDuration, Enum.EasingStyle.Sine, Enum.EasingDirection.Out)
 
            local function onRenderStepped()
                local cframe = seatPart.CFrame
                local newCFrame = originalCFrame * CFrame.Angles(math.sin(tick()) * swayAmount, 0, 0)
                camera.CFrame = cframe:lerp(newCFrame, 0.5)
            end
 
            humanoid.Died:Connect(function()
                camera.CameraType = Enum.CameraType.Custom
                camera.CameraSubject = nil
                camera.FieldOfView = 70
            end)
 
            humanoid.Seated:Connect(function(newSeatPart)
                if newSeatPart == seatPart then
                    RunService:BindToRenderStep("SwayCamera", Enum.RenderPriority.Camera.Value, onRenderStepped)
                else
                    RunService:UnbindFromRenderStep("SwayCamera")
                end
            end)
        end
 
        vehicle.ChildAdded:Connect(function(child)
            if child:IsA("Seat") then
                onSeated(child)
            end
        end)
    end)
end
 
Players.PlayerAdded:Connect(onPlayerAdded)

"script a tool that makes the player shrink when player left clicks the tool"

"fix this function to work well and optimize it and make sure no errors will happen"

local function startRound()
	if #players:GetPlayers() < minPlayers then
		print("Not enough players to start a round.")
		return
	end

print("Starting round...")
	local alivePlayers = {}
	for _, player in pairs(players:GetPlayers()) do
		if player.Character and player.Character:FindFirstChild("Humanoid") and player.Character.Humanoid.Health > 0 then
			table.insert(alivePlayers, player)
		end
	end

if #alivePlayers == 0 then
		print("No alive players to start a round.")
		return
	end

ballHolder = alivePlayers[math.random(#alivePlayers)]
	playerStates[ballHolder.Name] = {HasBall = true, IsAlive = true}

for _, player in pairs(alivePlayers) do
		local character = player.Character
		if character then
			local randomPos
			repeat
				local randomSpawn = spawnLocations[math.random(#spawnLocations)] -- get a random spawn location
				randomPos = randomSpawn.Position -- get the position of the spawn location
			until (randomPos - ballStartPos).Magnitude > ball.Size.Magnitude * 2 -- make sure the player is not too close to the ball
			character.HumanoidRootPart.Position = randomPos
			table.remove(spawnLocations, table.find(spawnLocations, randomSpawn))
		end
	end
end

-- Event to handle when a player fires the remote event
game.ReplicatedStorage.LaunchBall.OnServerEvent:Connect(function(plr)
	if plr == ballHolder and playerStates[plr.Name].HasBall then
		local alivePlayers = {}
		for _, player in pairs(players:GetPlayers()) do
			if playerStates[player.Name].IsAlive then
				table.insert(alivePlayers, player)
			end
		end
		if #alivePlayers == 0 then
			print("No alive players to pass the ball.")
			return
		end
		ballHolder = alivePlayers[math.random(#alivePlayers)]
		playerStates[ballHolder.Name] = {HasBall = true, IsAlive = true}
		ball.Velocity = (ballHolder.Character.HumanoidRootPart.Position - ball.Position).unit * 30
	end
end)

"make the player walk right left front"

"make it that the animations are stored in replicated storage"

-- server script 
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local anim1 = Instance.new("Animation")
anim1.AnimationId = "rbxassetid://animation1_id_here"
anim1.Parent = ReplicatedStorage
local anim2 = Instance.new("Animation")
anim2.AnimationId = "rbxassetid://animation2_id_here"
anim2.Parent = ReplicatedStorage

-- local script 
local player = game.Players.LocalPlayer
local character = player.Character
local humanoid = character:FindFirstChild("Humanoid")
local animTrack1 = humanoid:LoadAnimation(game:GetService("ReplicatedStorage"):FindFirstChild("Animation1"))
local animTrack2 = humanoid:LoadAnimation(game:GetService("ReplicatedStorage"):FindFirstChild("Animation2"))
local punching = false

local function punch()
    if punching then
        punching = false
        animTrack1:Stop()
        animTrack2:Play()
    else
        punching = true
        animTrack2:Stop()
        animTrack1:Play()
    end
end

game:GetService("UserInputService").InputBegan:Connect(function(input)
    if input.KeyCode == Enum.KeyCode.E then
        punch()
    end
end)

"script for chess board as a GUI, and add little circled on specific spaces where pawns would go and make it that I can move them one spot as they are adjustable, they tween to their new location and make it so I can place the script in a ScreenGui"

"roblox script for arsenal"

"create a player save system and when a player clicks a text button called New data they will reset their backpack and leadertstats and when player click load they will load in their old leaderstats and backpack."

-- Local script for New Data button 
local newDataButton = script.Parent.NewData
local player = game:GetService("Players").LocalPlayer

local function resetData()
    player.leaderstats.Coins.Value = 0
    player.leaderstats.Bag.Value = 0
    -- Add any other leaderstats and backpack items you want to reset here
end

newDataButton.MouseButton1Click:Connect(resetData)

-- Local script for Load button 
local loadButton = script.Parent.Load
local dataStoreService = game:GetService("DataStoreService")
local playerDataStore = dataStoreService:GetDataStore("PlayerData")

local function loadData()
    local playerData = playerDataStore:GetAsync(player.UserId)
    if playerData then
        player.leaderstats.Coins.Value = playerData.Coins
        player.leaderstats.Bag.Value = playerData.Bag
        -- Load any other leaderstats and backpack items here
    end
end

loadButton.MouseButton1Click:Connect(loadData)

-- Server script for saving player data 
local dataStoreService = game:GetService("DataStoreService")
local playerDataStore = dataStoreService:GetDataStore("PlayerData")

local function savePlayerData(player)
    local playerData = {
        Coins = player.leaderstats.Coins.Value,
        Bag = player.leaderstats.Bag.Value
        -- Save any other leaderstats and backpack items here
    }
    playerDataStore:SetAsync(player.UserId, playerData)
end

game:GetService("Players").PlayerRemoving:Connect(savePlayerData)

"create a script for a part, whenever the player touches the part, their screen flips over"

"make me a keycard system for a hotel, please include instructions"

-- server script (ServerScriptService) 
local keycards = {} -- store keycards and their owners

game.Players.PlayerAdded:Connect(function(player)
    player.CharacterAdded:Connect(function(character)
        local keycard = Instance.new("Part")
        keycard.Name = "Keycard"
        keycard.Size = Vector3.new(1, 2, 0.1)
        keycard.BrickColor = BrickColor.new("Bright blue")
        keycard.Parent = character
        keycard.CFrame = character.HumanoidRootPart.CFrame * CFrame.new(0, 0, -3)
        keycards[keycard] = player.UserId
    end)
end)

-- script for hotel door 
local door = script.Parent
local isOpen = false

local function openDoor(keycard)
    if keycards[keycard] then
        if not isOpen then
            isOpen = true
            door.Transparency = 0.5
            door.CanCollide = false
            wait(5)
            door.Transparency = 0
            door.CanCollide = true
            isOpen = false
        end
    end
end

door.Touched:Connect(openDoor)

-- Instructions for the keycard system in Roblox:
1. Place the server script in ServerScriptService.
2. Place the hotel door script in the door part of the hotel room.
3. When a player joins the game, a keycard will be created and assigned to them.
4. When the player touches the door with their keycard, the door will open for 5 seconds and then close.
5. The keycard system is now set up and ready to use in your hotel game.