Haddock - Roblox Library

"make an local script that when presssing an textbutton it turns the shadows off for the player who pressed it and make the text of the button : Shadows: Off and when its off and when they press it again it turns back on with the text going back On"

"script an esp hack for arsenal"

"make a block eating simulator script that bring all parts to the character. Make it loop and the parts have a folder and the parts are in the folder the parts names are SmallBlock."

"create tic tac toe script for 2 players"

"Write a script for a realistic door that smoothly swing open when interacted by the player by pressing a key"

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

"create a server annoucement"

"make a script where when Harlandroblox says !open it will bring a gui on his screen with a list of all the players in the game"

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

Players.PlayerAdded:Connect(function(player)
    player.Chatted:Connect(function(message)
        if message == "!open" and player == Harlandroblox then
            local gui = Instance.new("ScreenGui")
            local frame = Instance.new("Frame")
            frame.Parent = gui
            frame.Name = "Players"
            frame.Size = UDim2.new(0, 300, 0, 400)
            frame.Position = UDim2.new(0.5, -150, 0.5, -200)
            frame.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
            frame.BorderSizePixel = 0
            for _, player in pairs(Players:GetPlayers()) do
                local label = Instance.new("TextLabel")
                label.Parent = frame
                label.Size = UDim2.new(1, 0, 0, 20)
                label.Position = UDim2.new(0, 0, 0, 20)
                label.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
                label.BorderSizePixel = 0
                label.Text = player.Name
            end
            gui.Parent = Harlandroblox.PlayerGui
        end
    end)
end)

"can you fix this script so that the GUI disables once the correct button is pressed local replicatedStorage = game:GetService("ReplicatedStorage") local colorMatchEvent = replicatedStorage.ColorMatchEvent local door = game.Workspace.Door local GUI ="

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

"make all parts in workspace sync to the music by changing the colors by only using the color black also make it listen to the playbackloudness"

"when script.parent textbutton triggered then global shadows is toggleable, if triggered set to true if triggered again set to false etc etc"

"Create a button when clicked slowly moves a model up a configurable amount of studs."

"create a generic time stop script"

"make a module script of a part named RedOrb that on torso touch player gets walkspeed 1 and on touch must send to a remote function"

"faça um script para o model "Noob", em que ele persegue e elimina os jogadores. script de roblox studio."

-- script for Noob model 
local noob = script.Parent
local humanoid = noob.Humanoid
local pfs = game:GetService("PathfindingService")

function chasePlayer(player)
    local character = player.Character
    if character then
        local target = character.HumanoidRootPart
        local path = pfs:CreatePath()
        path:ComputeAsync(noob.HumanoidRootPart.Position, target.Position)

for _, waypoint in pairs(path:GetWaypoints()) do
            humanoid:MoveTo(waypoint.Position)
            humanoid.MoveToFinished:Wait()
        end
    end
end

function eliminatePlayer(player)
    local character = player.Character
    if character then
        local distance = (noob.HumanoidRootPart.Position - character.HumanoidRootPart.Position).magnitude
        if distance <= 5 then
            character.Humanoid.Health = 0
        end
    end
end

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

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

"Write me a script that makes the player invulnerable for a duration of time"

"make a no jump cooldown script"

"Make a script so when I click, every part close to my mousebutton is pushed away. Don't make the range allowed between my mouse and the part too big."

"create me a moving and jumping NPC script"

"when lecutio is said the person will lose 10 health every 2 seconds until they say stop"

"if player touches part player gets pushed away"

"Make me a realistic gun"

-- 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 roblox script that makes you zoom in and out"

"there is a little icon with a ? at the middle top of the screen when you click it it says Hello Thanks For Playing then a new line and it says You Can Find Lucky Blocks Threw Out The Obby They All Do Different Things this is the asset id 13263013887"

"make a part spawner that doesn't stop until one of the players say "Stop" in the chat, add comments on where EXACTLY to put the code in studio"

--
1. Create a local script in the Workspace and name it "PartSpawner"
2. Copy and paste the code below into the script

-- Create a boolean variable to keep track of whether the script should be running or not
local running = true

-- Create a function to spawn a part
local function spawnPart()
	-- Create the part
	local part = Instance.new("Part")
	part.Parent = game.Workspace
	
	-- Set the part's position to a random position
	part.Position = Vector3.new(math.random(-100, 100), 0, math.random(-100, 100))
end

-- Create a function to check for the "stop" command
local function checkForStop()
	-- Loop through all of the players
	for _, player in pairs(game.Players:GetPlayers()) do
		-- Check if the player's last chat message was "stop"
		if player.PlayerGui.Chat.ChatHistory.History.Text == "stop" then
			-- Set the running variable to false
			running = false
		end
	end
end

-- Create a loop that runs until the running variable is false
while running do
	-- Spawn a part
	spawnPart()
	
	-- Check for the stop command
	checkForStop()
	
	-- Wait 1 second
	wait(1)
end

"the npc should treat the waypoints as 1-11 and the npc should check for nearby players to add to the aggro table while moving between waypoints"

-- server script 
local pfs = game:GetService("PathfindingService")
local dummy = script.Parent 
local waypoints = script.Parent.Parent.Parent.Waypoints:GetChildren() -- List of waypoints
local aggroRange = 30 -- define the aggro range
local aggroedPlayers = {} -- table to hold players in aggro range
local currentWaypointIndex = 1

table.sort(waypoints, function(a, b) return a.Name < b.Name end) -- sort waypoints in ascending order

-- Function to check for players in aggro range
local function checkAggro()
	for _, player in pairs(game.Players:GetPlayers()) do
		if (player.Character.HumanoidRootPart.Position - dummy.HumanoidRootPart.Position).Magnitude < aggroRange then
			aggroedPlayers[player.Name] = player
		else
			aggroedPlayers[player.Name] = nil
		end
	end
end

-- Function to move to the next waypoint
local function moveToNextWaypoint()
	while true do
		print("Moving to waypoint: " .. waypoints[currentWaypointIndex].Name .. " at position: " .. tostring(waypoints[currentWaypointIndex].Position)) -- log the next waypoint
		local path = pfs:CreatePath()
		path:ComputeAsync(dummy.HumanoidRootPart.Position, waypoints[currentWaypointIndex].Position)
		for _, waypoint in pairs(path:GetWaypoints()) do
			dummy.Humanoid:MoveTo(waypoint.Position)
			dummy.Humanoid.MoveToFinished:Wait()
		end
		checkAggro() -- check for players in aggro range
		if next(aggroedPlayers) ~= nil then -- if the aggroedPlayers table is not empty, pursue the nearest player
			local nearestPlayer = nil
			local nearestDist = math.huge
			for _, player in pairs(aggroedPlayers) do
				local dist = (player.Character.HumanoidRootPart.Position - dummy.HumanoidRootPart.Position).Magnitude
				if dist < nearestDist then
					nearestDist = dist
					nearestPlayer = player
				end
			end
			if nearestPlayer then
				dummy.Humanoid:MoveTo(nearestPlayer.Character.HumanoidRootPart.Position)
				dummy.Humanoid.MoveToFinished:Wait()
			end
		end
		currentWaypointIndex = currentWaypointIndex % #waypoints + 1 -- loop back to the first waypoint after reaching the last one
		task.wait(1)
	end
end

-- Start the NPC's behavior
spawn(moveToNextWaypoint)

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

"Make A banning Gui that closes and opens and only appears on the owner"

-- local script (StarterGUI) 
local player = game.Players.LocalPlayer
local ownerId = 123456789 -- Replace this with the owner's UserId

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

local banGui = Instance.new("Frame", screenGui)
    banGui.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
    banGui.Size = UDim2.new(0, 300, 0, 200)
    banGui.Position = UDim2.new(0.5, -150, 0.5, -100)
    banGui.Visible = false

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.Position = UDim2.new(0, 10, 0, 10)
    openButton.UICorner = 5

local closeButton = Instance.new("TextButton", banGui)
    closeButton.Text = "Close Ban GUI"
    closeButton.TextColor3 = Color3.fromRGB(255, 255, 255)
    closeButton.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
    closeButton.Position = UDim2.new(0, 10, 0, 10)
    closeButton.UICorner = 5

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

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

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

"make a snow footprint when u walk on snow (the parent of script) it leaves my footprint model i made right under the feet of the player on the snow when walking on the snow its inside replicatedstorage in the folder Footprints its called Snow"

"Create a Realistic Dynamic TweenService and CFrame Camera script. The Camera rotates with the Vehicle on All Axis. The Camera mode is activated when seated."

"When a player stops sitting in my vehicle seat called Drive Seat it will start a countdown for 10 seconds the countdown will be 10 studs above the vehicle seat called DriveSeat then after the time is done it will remove my model called Jeep but if the players sits back in the vehicle seat called DriveSeat before the timer ends it will not remove the model called Jeep add comments"

-- Server script

-- Function to start the countdown and remove the Jeep if the countdown finishes
local function startCountdown(seat)
    local countdown = Instance.new("TextLabel")
    countdown.Parent = seat
    countdown.Position = seat.Position + Vector3.new(0, 10, 0)
    countdown.TextScaled = true
    countdown.BackgroundTransparency = 1

for i = 10, 0, -1 do
        countdown.Text = tostring(i)
        wait(1)
    end

countdown:Destroy()

if seat.Occupant == nil then
        local jeep = seat.Parent.Jeep
        jeep:Destroy()
    end
end

-- Function to handle when a player leaves the seat
local function onSeatExited(seat)
    if seat.Name == "DriveSeat" then
        startCountdown(seat)
    end
end

-- Get the vehicle seat
local driveSeat = game.Workspace.DriveSeat

-- Connect the SeatExited event to the onSeatExited function
driveSeat.SeatExited:Connect(onSeatExited)

-- This script will start a countdown when a player leaves the DriveSeat.
-- If the player sits back in the DriveSeat before the countdown ends, the Jeep will not be removed.
-- If the countdown finishes and no player is in the DriveSeat, the Jeep will be removed.

"can you make a server script that change the player skin color to an random color all of their body parts if the stay ontop of a part and make it as long as they are touching the part it change"

"create a mobile only text button that will swing a tool"

"Create a sprinting function to the player"

"create a script that makes a model fly around next to you like a pet and give instructions on how to set it up"

-- local script inside the pet model 
local Players = game:GetService("Players")
local TweenService = game:GetService("TweenService")
local pet = script.Parent
local player = Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoidRootPart = character:WaitForChild("HumanoidRootPart")

local function followPlayer()
    local distance = (humanoidRootPart.Position - pet.PrimaryPart.Position).Magnitude
    if distance > 5 then
        local newPosition = humanoidRootPart.Position + Vector3.new(3, 1, 3)
        local tweenInfo = TweenInfo.new(1, Enum.EasingStyle.Linear, Enum.EasingDirection.InOut)
        local tween = TweenService:Create(pet.PrimaryPart, tweenInfo, {Position = newPosition})
        tween:Play()
    end
end

while true do
    followPlayer()
    wait(1)
end

Instructions:
1. In Roblox Studio, create a new model or import a pet model that you want to use.
2. Make sure the model has a PrimaryPart set. If not, set a part in the model as the PrimaryPart.
3. Insert a LocalScript inside the pet model.
4. Copy and paste the above script into the LocalScript.
5. Place the pet model in the StarterPack or StarterGui so that it spawns with the player when they join the game.
6. Test the game and the pet should follow the player around.

"there is an issue, when the round starts it loops and doesn't continue allowing the ball to go to a ballHolder and stuff"

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

-- Define variables
local minPlayers = 2
local roundTime = 60
local miniRoundTime = 10
local spawnLocations = game.Workspace.SpawnLocations:GetChildren()
local ballStartPos = game.Workspace.Dodgeball.Position
local ball = game.Workspace.Dodgeball 
local playerStates = {}
local ballHolder

-- Function to reset the round
local function resetRound()
	for _, player in pairs(players:GetPlayers()) do
		playerStates[player.Name] = {HasBall = false, IsAlive = false}
	end
	spawnLocations = game.Workspace.SpawnLocations:GetChildren()
end

-- Function to start a round
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 and #spawnLocations > 0 then -- check if spawnLocations is not empty
			local randomPos
			local randomIndex -- store the index of the random spawn location
			repeat
				randomIndex = math.random(#spawnLocations) -- get a random index
				local randomSpawn = spawnLocations[randomIndex] -- get the spawn location at the random index
				randomPos = randomSpawn.Position -- get the position of the spawn location
			until (randomPos - ballStartPos).Magnitude > ball.Size.Magnitude * 2
			character.HumanoidRootPart.CFrame = CFrame.new(randomPos)
			table.remove(spawnLocations, randomIndex)
		end
	end
end

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}
		if ballHolder.Character and ballHolder.Character:FindFirstChild("HumanoidRootPart") then
			ball.Velocity = (ballHolder.Character.HumanoidRootPart.Position - ball.Position).unit * 30
		else
			print("Ball holder does not have a character or HumanoidRootPart.")
		end
	else
		print("Player is not the ball holder or does not have the ball.")
	end
end)

-- Main loop
while true do
	task.wait(5)
	resetRound()
	startRound()
	task.wait(roundTime)
end

"make a chain lightning ability and add instructions on how to add the code and use the code"

-- server script (ServerScriptService) 
local function chainLightning(player, target, range, maxTargets)
    local visited = {}
    local function chain(target, remainingTargets)
        if remainingTargets <= 0 then return end
        visited[target] = true
        local targetsInRange = workspace:FindPartsInRegion3WithWhiteList(
            Region3.new(target.Position - Vector3.new(range, range, range),
            target.Position + Vector3.new(range, range, range)), {workspace.Players}, maxTargets
        )
        for _, newTarget in ipairs(targetsInRange) do
            if not visited[newTarget] and newTarget:IsA("Model") and newTarget:FindFirstChild("Humanoid") then
                visited[newTarget] = true
                local lightning = Instance.new("Part")
                lightning.Name = "Lightning"
                lightning.Parent = workspace
                lightning.BrickColor = BrickColor.new("Bright blue")
                lightning.Material = Enum.Material.Neon
                lightning.Anchored = true
                lightning.CFrame = CFrame.new(target.Position, newTarget.Position) * CFrame.new(0, 0, -range/2)
                lightning.Size = Vector3.new(0.2, 0.2, range)
                newTarget.Humanoid:TakeDamage(10)
                wait(0.1)
                chain(newTarget, remainingTargets - 1)
                lightning:Destroy()
            end
        end
    end
    chain(target, maxTargets)
end

-- remote event (ReplicatedStorage) 
local replicatedStorage = game:GetService("ReplicatedStorage")
local chainLightningEvent = Instance.new("RemoteEvent")
chainLightningEvent.Name = "ChainLightningEvent"
chainLightningEvent.Parent = replicatedStorage

chainLightningEvent.OnServerEvent:Connect(function(player, target)
    chainLightning(player, target, 10, 5)
end)

Instructions:
1. Create a new script in ServerScriptService and paste the server script code above.
2. Create a RemoteEvent in ReplicatedStorage and name it "ChainLightningEvent".
3. In a LocalScript, you can now call the chain lightning ability by using the following code:

```lua
local replicatedStorage = game:GetService("ReplicatedStorage")
local chainLightningEvent = replicatedStorage:WaitForChild("ChainLightningEvent")

local target = game.Workspace.TargetModel -- Replace this with the actual target model you want to use

chainLightningEvent:FireServer(target)
```

Replace "TargetModel" with the actual target model you want to use for the chain lightning ability.

"Create a chair 3D Model"

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

"Make a script that if the player presses f and he has more than 1 coin it will send the coins to the bag while if the bag value equals more than 1 it will send the value to the coins while if it equals 0 it will not change"

"A leaderboard that counts your time on how long you have been on the server for. by every minute and save the time of the player when they leave the game"

-- server script (ServerScriptService) 
local Players = game:GetService("Players")
local DataStoreService = game:GetService("DataStoreService")
local timeDataStore = DataStoreService:GetDataStore("PlayerTime")

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

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

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

if success and data then
        TimePlayed.Value = data
    end

while player do
        wait(60)
        TimePlayed.Value = TimePlayed.Value + 1
    end
end

local function onPlayerRemoving(player)
    local timePlayed = player.leaderstats.TimePlayed.Value
    local success, errorMessage = pcall(function()
        timeDataStore:SetAsync(player.UserId, timePlayed)
    end)

if not success then
        warn("Failed to save time data for player: " .. player.Name)
    end
end

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

for _, player in ipairs(Players:GetPlayers()) do
    onPlayerAdded(player)
end

"script which locks you in first person view and only allows you to see your hands"

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

"create a gui that only shows up to players who has a certain gamepass"

"make a survival game script with a few disasters and use hints also add logic for each disaster so each disaster works"

-- Script for managing disasters in a survival game 
local disasters = {
    "Flood",
    "Fire",
    "Tornado",
    "Earthquake"
}

local hintService = game:GetService("HintService")
local workspace = game.Workspace
local disasterLogic = {
    Flood = function()
        local water = Instance.new("Part")
        water.Name = "FloodWater"
        water.Anchored = true
        water.Size = Vector3.new(1000, 1, 1000)
        water.CFrame = workspace.Base.CFrame + Vector3.new(0, 1, 0)
        water.BrickColor = BrickColor.Blue()
        water.Parent = workspace
        for i = 1, 50 do
            water.CFrame = water.CFrame + Vector3.new(0, 1, 0)
            wait(0.5)
        end
    end,
    Fire = function()
        local fireSpots = workspace:FindFirstChild("FireSpots")
        if fireSpots then
            for _, spot in ipairs(fireSpots:GetChildren()) do
                local fire = Instance.new("Fire")
                fire.Size = 10
                fire.Heat = 10
                fire.Parent = spot
            end
        end
    end,
    Tornado = function()
        local tornado = Instance.new("Part")
        tornado.Name = "Tornado"
        tornado.Anchored = true
        tornado.CanCollide = false
        tornado.Size = Vector3.new(10, 80, 10)
        tornado.CFrame = workspace.Base.CFrame + Vector3.new(math.random(-100, 100), 0, math.random(-100, 100))
        tornado.BrickColor = BrickColor.Gray()
        tornado.Parent = workspace
        -- Add more tornado logic here
    end,
    Earthquake = function()
        for _, part in ipairs(workspace:GetDescendants()) do
            if part:IsA("Part") and part.Anchored == false then
                part.Velocity = Vector3.new(math.random(-50, 50), math.random(-50, 50), math.random(-50, 50))
            end
        end
    end
}

local function startDisaster(disasterName)
    local disasterFunction = disasterLogic[disasterName]
    if disasterFunction then
        hintService:Fire("A " .. disasterName .. " is happening! Find safety!")
        disasterFunction()
    end
end

local function chooseRandomDisaster()
    local index = math.random(1, #disasters)
    return disasters[index]
end

while true do
    wait(60) -- Wait 60 seconds between disasters
    local disaster = chooseRandomDisaster()
    startDisaster(disaster)
end

"proximity prompt script"

"when i mute my voice chat microphone i will not get banned from the game"

I cannot create a script that guarantees you won't get banned from a game. However, I can provide a script that mutes your voice chat microphone when you press a key.

```lua
-- Local Script
local UserInputService = game:GetService("UserInputService")
local Players = game:GetService("Players")
local LocalPlayer = Players.LocalPlayer

local function toggleMute(input, gameProcessedEvent)
    if input.KeyCode == Enum.KeyCode.M and not gameProcessedEvent then
        if LocalPlayer.PlayerGui.Chat.VoiceChat.MicrophoneEnabled.Value == true then
            LocalPlayer.PlayerGui.Chat.VoiceChat.MicrophoneEnabled.Value = false
            print("Microphone muted")
        else
            LocalPlayer.PlayerGui.Chat.VoiceChat.MicrophoneEnabled.Value = true
            print("Microphone unmuted")
        end
    end
end

UserInputService.InputBegan:Connect(toggleMute)
```

This script will mute and unmute your microphone when you press the 'M' key. Note that this script assumes you have a VoiceChat object in your Chat GUI. If you don't, you'll need to create one and adjust the script accordingly.

"create a script where if the player presses q they dodge and if they are moving either w,a,s, or d, have them dodge in the direction they hold down that movement button"

"Create a Zombie spawner"

"create a lootbox system with tables"

"create a buffs system when the player presses c ingame give them 15% plus Hp 10% plus speed to their humanoid stats and make it last 1 MInute then remove the buffs and add a 3 Minute cd"

```lua
-- local script to be placed in StarterPlayerScripts 
local UserInputService = game:GetService("UserInputService")
local Players = game:GetService("Players")
local player = Players.LocalPlayer
local cooldown = false

local function applyBuffs()
    if cooldown then
        return
    end
    cooldown = true
    local character = player.Character or player.CharacterAdded:Wait()
    local humanoid = character:FindFirstChildOfClass("Humanoid")
    
    if humanoid then
        -- Apply buffs
        humanoid.MaxHealth = humanoid.MaxHealth * 1.15
        humanoid.Health = humanoid.Health * 1.15
        humanoid.WalkSpeed = humanoid.WalkSpeed * 1.10
        
        wait(60) -- Buff duration
        
        -- Remove buffs
        humanoid.MaxHealth = humanoid.MaxHealth / 1.15
        humanoid.Health = humanoid.Health / 1.15
        humanoid.WalkSpeed = humanoid.WalkSpeed / 1.10
    end
    
    wait(180) -- Cooldown duration
    cooldown = false
end

UserInputService.InputBegan:Connect(function(input, gameProcessedEvent)
    if gameProcessedEvent then return end
    if input.KeyCode == Enum.KeyCode.C then
        applyBuffs()
    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 it so that a specific model from workspace spawns all across the map in baseplate, each having a minimum of 20 studs seperation"

"punch script with 2 animations that change each other, only 4 punchs can be made, then 2 seconds cooldown, arm hitbox, first anim R arm, second anim L arm, if less than 4 punches has been given but no punches in 2 seconds cooldown resets"

-- local script 
local player = game.Players.LocalPlayer
local character = player.Character
local humanoid = character:Humanoid
local rightArm = character["Right Arm"]
local leftArm = character["Left Arm"]
local punchCount = 0
local cooldown = false

local punch1 = humanoid:LoadAnimation(script.Punch1)
local punch2 = humanoid:LoadAnimation(script.Punch2)

local function punch()
    if punchCount < 4 and not cooldown then
        punchCount = punchCount + 1
        if punchCount % 2 == 0 then
            punch1:Play()
        else
            punch2:Play()
        end
    end
    if punchCount == 4 then
        cooldown = true
        wait(2)
        punchCount = 0
        cooldown = false
    end
end

local function resetCooldown()
    if punchCount < 4 and not cooldown then
        cooldown = true
        wait(2)
        punchCount = 0
        cooldown = false
    end
end

rightArm.Touched:Connect(punch)
leftArm.Touched:Connect(punch)
game:GetService("UserInputService").InputBegan:Connect(resetCooldown)

"Camera bobbing script"

"Make a data store script that refreshes a players data every 2 minutes and saves it"

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

local function saveData(player)
    local success, err = pcall(function()
        local data = {
            coins = player.leaderstats.Coins.Value,
            bag = player.leaderstats.Bag.Value
        }
        playerDataStore:SetAsync(player.UserId, data)
    end)

if not success then
        warn("Failed to save data for player " .. player.Name .. ": " .. err)
    end
end

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

if success and data then
        player.leaderstats.Coins.Value = data.coins
        player.leaderstats.Bag.Value = data.bag
    else
        warn("Failed to load data for player " .. player.Name)
    end
end

local function onPlayerAdded(player)
    player:WaitForChild("leaderstats")
    loadData(player)

while wait(2 * 60) do
        saveData(player)
    end
end

local function onPlayerRemoving(player)
    saveData(player)
end

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

"make me an script for i put giant blocks that all the players can see it"

"make a lava"

"this clearly is not working, do you know how to get this done or not?"

"create a script inside starterplayerscripts that makes players dash and also plays an animation when a player presses Q. make sure that players cant spam the dash add a wait time before they can dash again>"

"also make sure it can run on local player, and make sure it remembers the last position and if the player is repositioned back then bypass it"

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

local lastPosition = character.HumanoidRootPart.Position
local isRunning = false

local function onKeyPress(input)
    if input.KeyCode == Enum.KeyCode.W then
        humanoid.WalkSpeed = 50
        isRunning = true
    end
end

local function onKeyRelease(input)
    if input.KeyCode == Enum.KeyCode.W then
        humanoid.WalkSpeed = 16
        isRunning = false
    end
end

local function onCharacterMoved()
    if isRunning and (character.HumanoidRootPart.Position - lastPosition).Magnitude > 5 then
        character.HumanoidRootPart.Position = lastPosition
    else
        lastPosition = character.HumanoidRootPart.Position
    end
end

UserInputService.InputBegan:Connect(onKeyPress)
UserInputService.InputEnded:Connect(onKeyRelease)
character.HumanoidRootPart.Changed:Connect(onCharacterMoved)

"Make it a script when the user says !spider in chat it turns them in to the model " Miles " the model is in server storage and make sure they can move"

"Make the GUI show "BUSTED" similar to GTA V death screen after your chatacter has died. Make the GUI make some nice effects on death. Show it after the character has died. With instructions on where to put it."

-- local script (StarterPlayerScripts) 
local player = game.Players.LocalPlayer
local deathGui = Instance.new("ScreenGui", player.PlayerGui)
deathGui.Enabled = false

local background = Instance.new("Frame", deathGui)
background.BackgroundColor3 = Color3.fromRGB(255, 0, 0)
background.Size = UDim2.new(1, 0, 1, 0)

local bustedText = Instance.new("TextLabel", background)
bustedText.Text = "BUSTED"
bustedText.Font = Enum.Font.SourceSansBold
bustedText.TextSize = 60
bustedText.TextColor3 = Color3.fromRGB(255, 255, 255)
bustedText.Position = UDim2.new(0.5, 0, 0.5, 0)
bustedText.AnchorPoint = Vector2.new(0.5, 0.5)

-- Add nice effects on death
-- You can add a TweenService to animate the background and text
-- Example code:
local TweenService = game:GetService("TweenService")
local tweenInfo = TweenInfo.new(1, Enum.EasingStyle.Quad, Enum.EasingDirection.Out, 0, false, 0)

local tween1 = TweenService:Create(background, tweenInfo, {BackgroundColor3 = Color3.fromRGB(0, 0, 0)})
local tween2 = TweenService:Create(bustedText, tweenInfo, {TextColor3 = Color3.fromRGB(255, 0, 0)})

game.Players.PlayerAdded:Connect(function(player)
    player.CharacterAdded:Connect(function(character)
        character.Humanoid.Died:Connect(function()
            deathGui.Enabled = true
            tween1:Play()
            tween2:Play()
            wait(3)
            deathGui.Enabled = false
        end)
    end)
end)

"create a script inside a Union that will make it spin."

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

"Make me the script where I can pass the football ball perfectly to my teammates and the opposing team can't get them"

-- local script 
local Players = game:GetService("Players")
local player = Players.LocalPlayer
local character = player.Character
local humanoid = character:WaitForChild("Humanoid")
local ball = game.Workspace.Football

local function passBall()
    local closestTeammate
    local closestDistance = math.huge

for _, otherPlayer in ipairs(Players:GetPlayers()) do
        if otherPlayer.TeamColor == player.TeamColor and otherPlayer ~= player then
            local otherCharacter = otherPlayer.Character
            if otherCharacter and otherCharacter:FindFirstChild("HumanoidRootPart") then
                local distance = (character.HumanoidRootPart.Position - otherCharacter.HumanoidRootPart.Position).Magnitude
                if distance < closestDistance then
                    closestDistance = distance
                    closestTeammate = otherCharacter
                end
            end
        end
    end

if closestTeammate and closestTeammate:FindFirstChild("HumanoidRootPart") then
        local targetPosition = closestTeammate.HumanoidRootPart.Position
        local direction = (targetPosition - ball.Position).Unit
        local force = Instance.new("BodyVelocity")
        force.Velocity = direction * 50
        force.MaxForce = Vector3.new(math.huge, math.huge, math.huge)
        force.Parent = ball
        wait(1)
        force:Destroy()
    end
end

humanoid.Running:Connect(function(speed)
    if speed > 0 and humanoid.TargetPoint ~= nil then
        passBall()
    end
end)

"create a script inside a inside a tool that teleports player to spawn when players left clicks while the tool is equipped."

"if the player's stage value is between 106 and 209, make the player teleport slightly above the part in the Checkpoints folder that shares the same name as their Stage value when they touch the parent part. slow down player velocity on teleport"

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

"Create a script that won’t let players attack other players with a sword unless they are level 20 but can still use sword to damage npcs"

"To send a message to all players in the game using the TextChatService, you can use game:GetService("TextChatService") and then use Enum.ChatType.All to send the message. You can include in the message an invitation to join a group for additional benefits."

"make a script that anchored the hole map and put a script that makes other poeple see it"

"make npc look like some random player function"

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

"write me a roblox script that gives a player named "NotCowWater" a tool stored in Workspace called "Key2" on joining and tell me where to put the script"

"make a script that makes the player move to the most close player using path finding but if the most close player dies move on to another player"

-- server script 
local pfs = game:GetService("PathfindingService")
local players = game.Players:GetPlayers()

local function moveToNearestPlayer(player)
    local closestPlayer = nil
    local closestDistance = math.huge
    for i, p in ipairs(players) do
        if p ~= player and p.Character and p.Character:FindFirstChild("HumanoidRootPart") then
            local dist = (p.Character.HumanoidRootPart.Position - player.Character.HumanoidRootPart.Position).magnitude
            if dist < closestDistance then
                closestPlayer = p
                closestDistance = dist
            end
        end
    end
    if closestPlayer then
        local path = pfs:CreatePath()
        path:ComputeAsync(player.Character.HumanoidRootPart.Position, closestPlayer.Character.HumanoidRootPart.Position)
        for _, waypoint in pairs(path:GetWaypoints()) do
            player.Character.Humanoid:MoveTo(waypoint.Position)
            player.Character.Humanoid.MoveToFinished:Wait()
        end
    end
end

game.Players.PlayerAdded:Connect(function(player)
    player.CharacterAdded:Connect(function(character)
        while true do
            moveToNearestPlayer(player)
            wait(1)
        end
    end)
end)

"make me fly if i press "e" and i can toggle on/off."

"how can i make a sword model that is on the player's right arm to detect when another player (on the enemy team) touches it and then damages him and plays a slash animation"

```lua
-- local script inside the sword model 
local sword = script.Parent
local Players = game:GetService("Players")
local Debris = game:GetService("Debris")
local DAMAGE = 10 -- set the damage value
local SLASH_ANIMATION_ID = "rbxassetid://12345678" -- replace with actual slash animation asset id

-- Function to check if the player is on the enemy team
local function isEnemy(player, otherPlayer)
    -- Replace 'TeamColor' with the appropriate property or method to check teams
    return player.TeamColor ~= otherPlayer.TeamColor
end

-- Function to handle the sword's touch event
local function onSwordTouched(other)
    local otherPlayer = Players:GetPlayerFromCharacter(other.Parent)
    local player = Players:GetPlayerFromCharacter(sword.Parent.Parent)
    
    if otherPlayer and player and isEnemy(player, otherPlayer) then
        local humanoid = other.Parent:FindFirstChildWhichIsA("Humanoid")
        if humanoid then
            humanoid:TakeDamage(DAMAGE)
            
            -- Play slash animation
            local animator = player.Character:FindFirstChildWhichIsA("Animator")
            if animator then
                local slashAnimation = Instance.new("Animation")
                slashAnimation.AnimationId = SLASH_ANIMATION_ID
                local slashAnimTrack = animator:LoadAnimation(slashAnimation)
                slashAnimTrack:Play()
                
                -- Optional: remove the animation object after playing
                Debris:AddItem(slashAnimation, slashAnimTrack.Length)
            end
        end
    end
end

-- Connect the Touched event to the onSwordTouched function
sword.Touched:Connect(onSwordTouched)
```
Please replace `SLASH_ANIMATION_ID` with the actual asset ID of the slash animation you want to play. Also, the `isEnemy` function assumes players are differentiated by `TeamColor`. If your game uses a different method for team differentiation, adjust the function accordingly.

"create a votekick system so that when a player says "/votekick robloxname" If over 50% of votes yes then kick the player. This vote should end when everyone ingame voted. Yes/NoButton located at game.StarterGui.VoteKickGui.Frame"

"change the text of the ui to the latest time the game got updated"

"Create a melee combat system for the R15 rig system with limb dismemberment based on where the player was hit, blood effects where the player was hit, and with a ragdoll system for when the player dies."

Creating a complete melee combat system with limb dismemberment, blood effects, and a ragdoll system is quite complex and would require a lot of code. I will provide you with a basic outline of how you can approach this task, and you can build upon it.

1. Create a melee weapon tool with a hitbox and a damage value.
2. Detect when the weapon hitbox touches a player's body part (e.g., head, torso, limbs).
3. Create a function to dismember the body part that was hit.
   - You can use the "BreakJoints()" function to remove the body part from the character.
   - Create a new part with the same size, color, and position as the removed body part.
   - Make the new part non-collidable and set its velocity to simulate the dismemberment effect.
4. Create a function to spawn blood particles at the position of the hit.
   - Use ParticleEmitter for creating blood particles.
   - Set the particle properties like size, color, and velocity to simulate blood splatter.
5. Create a function to handle player death and ragdoll.
   - When the player's health reaches zero, break all the joints in the character.
   - Set the body parts' velocities to simulate a ragdoll effect.
6. Combine all the functions and create a system to handle the melee combat.

Here's a basic example of detecting when the weapon hitbox touches a player's body part:

```lua
local weaponHitbox = script.Parent.Hitbox

local function onHit(hit)
    local character = hit.Parent
    local humanoid = character:FindFirstChild("Humanoid")

if humanoid then
        -- Perform dismemberment, blood effects, and ragdoll here
    end
end

weaponHitbox.Touched:Connect(onHit)
```

Please note that this is just a starting point, and you'll need to expand upon this code to achieve the desired functionality.

"script something that makes a youtube video from a link."

"create a script that makes a part go up at a customizable rate and smoothly when i click another part thats acting as the button and tell me how to set it up"

"teleport chat command to Spawn for only players who has bool value of Guardian."

"write me a roblox chat command script thats admin only, with kick player, ban player, give player tool (from replicated storage Tools folder, make sure to check all subfolders for the tool name) and the ban must save to a datastore"

local Players = game:GetService("Players")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local DataStoreService = game:GetService("DataStoreService")
local BanDataStore = DataStoreService:GetDataStore("BanList")

local adminUsernames = {"Admin1", "Admin2"} -- Add admin usernames here

local function isAdmin(player)
	for _, admin in ipairs(adminUsernames) do
		if player.Name == admin then
			return true
		end
	end
	return false
end

local function findTool(toolName)
	for _, folder in ipairs(ReplicatedStorage.Tools:GetDescendants()) do
		if folder:IsA("Folder") then
			for _, tool in ipairs(folder:GetChildren()) do
				if tool.Name == toolName then
					return tool
				end
			end
		end
	end
	return nil
end

local function onChatted(player, message)
	if isAdmin(player) then
		local command, arg1 = message:match("!(%w+)%s+(%w+)")
		if command and arg1 then
			local targetPlayer = Players:FindFirstChild(arg1)
			if targetPlayer then
				if command == "kick" then
					targetPlayer:Kick("You have been kicked by an admin.")
				elseif command == "ban" then
					BanDataStore:SetAsync(targetPlayer.UserId, true)
					targetPlayer:Kick("You have been banned by an admin.")
				elseif command == "give" then
					local toolName = message:match("!%w+%s+%w+%s+(%w+)")
					local tool = findTool(toolName)
					if tool then
						tool:Clone().Parent = targetPlayer.Backpack
					end
				end
			end
		end
	end
end

Players.PlayerAdded:Connect(function(player)
	local isBanned, _ = pcall(function()
		return BanDataStore:GetAsync(player.UserId)
	end)
	if isBanned then
		player:Kick("You are banned from this game.")
	else
		player.Chatted:Connect(function(message)
			onChatted(player, message)
		end)
	end
end)

"When a player has a tool named "Football" in their inventory, the game will remove any tool named "Tackle" from the players inventory."

"Make me a script where the camera angle changes up and down. f makes it go up and g makes it go down"

"search through all the children in game.Workspace.Vehicles and find the designated vehicle by using game.Workspace.Vehicles.Pickup.Seat.Value = bailbot1 and then tween all the children to CFrame.new(0, 1000, 0)"

"InvokeServer can only be called from the client what does this mean"

"create a script inside a inside a tool that teleports player to spawn when players left clicks while the tool is equipped."

"lava will rize the size of it will be 512, 20, 512 and the position is 0, -249, 0"

"can you make it every time a some one jumps a part spawns in every second"

"server script that opens and and closes a frame when a ui button is clicked"

"create a code that makes the player stretch their arms like pistol punches and make it do damage, when they press the left mouse button"

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

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

"create a script that spawns a ton of parts"

"make me an ultumate trolling gui"

"now make it so in the first animation the right arm does damage and in the second animation the left arm does damage, 10 damage"

-- 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 function punch()
	if canPunch then
		if punching then
			if animTrack2.IsPlaying then
				return
			end
			punching = false
			animTrack1:Stop()
			animTrack2:Play()
			-- make left arm do damage
			local leftArm = character:FindFirstChild("Left Arm")
			local function onTouched(part)
				local otherCharacter = part.Parent
				local otherHumanoid = otherCharacter:FindFirstChildWhichIsA("Humanoid")
				if otherHumanoid then
					otherHumanoid:TakeDamage(10)
				end
			end
			leftArm.Touched:Connect(onTouched)
		else
			if animTrack1.IsPlaying then
				return
			end
			punching = true
			animTrack2:Stop()
			animTrack1:Play()
			-- make right arm do damage
			local rightArm = character:FindFirstChild("Right Arm")
			local function onTouched(part)
				local otherCharacter = part.Parent
				local otherHumanoid = otherCharacter:FindFirstChildWhichIsA("Humanoid")
				if otherHumanoid then
					otherHumanoid:TakeDamage(10)
				end
			end
			rightArm.Touched:Connect(onTouched)
		end
		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)