Haddock - Roblox Library

"Make a sell pad that sells Food add comments to code telling me where to put it in studio""

"A roblox game where everything is 2d and controlled by GUI"

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

local GuiService = game:GetService("GuiService")

local PlayerGui = Instance.new("ScreenGui")
PlayerGui.Name = "PlayerGui"

local PlayerFrame = Instance.new("Frame")
PlayerFrame.Name = "PlayerFrame"
PlayerFrame.Size = UDim2.new(1, 0, 1, 0)
PlayerFrame.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
PlayerFrame.BackgroundTransparency = 0.5
PlayerFrame.Parent = PlayerGui

local PlayerControls = Instance.new("Frame")
PlayerControls.Name = "PlayerControls"
PlayerControls.Size = UDim2.new(0.3, 0, 0.3, 0)
PlayerControls.Position = UDim2.new(0.35, 0, 0.35, 0)
PlayerControls.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
PlayerControls.BackgroundTransparency = 0.5
PlayerControls.Parent = PlayerFrame

local MoveUpButton = Instance.new("TextButton")
MoveUpButton.Name = "MoveUpButton"
MoveUpButton.Size = UDim2.new(0.3, 0, 0.3, 0)
MoveUpButton.Position = UDim2.new(0, 0, 0, 0)
MoveUpButton.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
MoveUpButton.BackgroundTransparency = 0.5
MoveUpButton.Text = "Move Up"
MoveUpButton.Parent = PlayerControls

local MoveDownButton = Instance.new("TextButton")
MoveDownButton.Name = "MoveDownButton"
MoveDownButton.Size = UDim2.new(0.3, 0, 0.3, 0)
MoveDownButton.Position = UDim2.new(0, 0, 0.7, 0)
MoveDownButton.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
MoveDownButton.BackgroundTransparency = 0.5
MoveDownButton.Text = "Move Down"
MoveDownButton.Parent = PlayerControls

local MoveLeftButton = Instance.new("TextButton")
MoveLeftButton.Name = "MoveLeftButton"
MoveLeftButton.Size = UDim2.new(0.3, 0, 0.3, 0)
MoveLeftButton.Position = UDim2.new(0.7, 0, 0, 0)
MoveLeftButton.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
MoveLeftButton.BackgroundTransparency = 0.5
MoveLeftButton.Text = "Move Left"
MoveLeftButton.Parent = PlayerControls

local MoveRightButton = Instance.new("TextButton")
MoveRightButton.Name = "MoveRightButton"
MoveRightButton.Size = UDim2.new(0.3, 0, 0.3, 0)
MoveRightButton.Position = UDim2.new(0.7, 0, 0.7, 0)
MoveRightButton.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
MoveRightButton.BackgroundTransparency = 0.5
MoveRightButton.Text = "Move Right"
MoveRightButton.Parent = PlayerControls

local Player = Players.LocalPlayer

local function movePlayer(direction)
	if direction == "up" then
		Player.Character.HumanoidRootPart.CFrame = Player.Character.HumanoidRootPart.CFrame + Vector3.new(0, 0, 1)
	elseif direction == "down" then
		Player.Character.HumanoidRootPart.CFrame = Player.Character.HumanoidRootPart.CFrame + Vector3.new(0, 0, -1)
	elseif direction == "left" then
		Player.Character.HumanoidRootPart.CFrame = Player.Character.HumanoidRootPart.CFrame + Vector3.new(-1, 0, 0)
	elseif direction == "right" then
		Player.Character.HumanoidRootPart.CFrame = Player.Character.HumanoidRootPart.CFrame + Vector3.new(1, 0, 0)
	end
end

MoveUpButton.MouseButton1Click:Connect(function()
	movePlayer("up")
end)

MoveDownButton.MouseButton1Click:Connect(function()
	movePlayer("down")
end)

MoveLeftButton.MouseButton1Click:Connect(function()
	movePlayer("left")
end)

MoveRightButton.MouseButton1Click:Connect(function()
	movePlayer("right")
end)

PlayerGui.Parent = Player:WaitForChild("PlayerGui")

"hello world"

"instead of a weld make it a rope constraint from the upper torso to UT"

-- roblox script 
if HitPart and HitPart.Parent and HitPart.Name ~= "Gore" and HitPart.Name == "LeftUpperArm" then
		local LLA = HitPart
		local UT = HitPart.Parent:FindFirstChild('UpperTorso')
		if HitPart.Parent.Name == "Furry" or HitPart.Parent.Name == "Neko" then
			local newArm = GoreLeftArm:Clone()
			newArm.Parent = HitPart.Parent
			newArm.Name = "Gore"
			LLA.BrickColor = newArm.skin.BrickColor
			LLA.Transparency = 1
			LLA.CanCollide = false
			newArm.CFrame = HitPart.Parent.LeftLowerArm.CFrame
			newArm.CanCollide = true
			if UT and HitPart.Parent:FindFirstChild('LeftHand') and HitPart.Parent:FindFirstChild('LeftLowerArm') and HitPart.Parent:FindFirstChild('LeftUpperArm') then
				HitPart.Parent.LeftHand:Destroy()
				HitPart.Parent.LeftLowerArm:Destroy()
				HitPart.Parent.LeftUpperArm:Destroy()
				local rope = Instance.new("RopeConstraint")
				rope.Part0 = UT
				rope.Part1 = newArm
				rope.Length = (UT.Position - newArm.Position).Magnitude
				rope.Parent = UT
			end
		end
	end

"make an blackhole"

"A Folder named Speed Simulator has a Folder inside named Orbs has a Model named RedOrb that has a Part named Orb must do on touch give player 1 walkspeed and can only be touch by player uppertorso that send a remote function"

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

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

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

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

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

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

wait(7)

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

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

wait(15)
        cooldown = false
    end
end

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

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

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

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

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

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

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

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

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

character.Humanoid.Touched:Connect(onPartTouch)

"create a server message script that will say Dont forget to visit the shop."

"if players reach 1,000,000,000 Money it will stop it from going higher than that and with Kampfkarren DataStore2 with clear instructions"

"make a script to make chat messages in different colours when players acquire specific badges."

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

local badgeId1 = 123456789 -- replace with your badge ID
local badgeId2 = 987654321 -- replace with your badge ID

local function onPlayerAdded(player)
    player.Chatted:Connect(function(message)
        local badge1 = false
        local badge2 = false

local success1, hasBadge1 = pcall(function()
            return BadgeService:UserHasBadgeAsync(player.UserId, badgeId1)
        end)

local success2, hasBadge2 = pcall(function()
            return BadgeService:UserHasBadgeAsync(player.UserId, badgeId2)
        end)

if success1 and hasBadge1 then
            badge1 = true
        end

if success2 and hasBadge2 then
            badge2 = true
        end

local chatColor = Color3.new(1, 1, 1) -- default white color

if badge1 then
            chatColor = Color3.fromRGB(255, 0, 0) -- red color for badge 1
        elseif badge2 then
            chatColor = Color3.fromRGB(0, 255, 0) -- green color for badge 2
        end

game:GetService("Chat"):Chat(player.Character.Head, message, chatColor)
    end)
end

Players.PlayerAdded:Connect(onPlayerAdded)

"make a require script for me that can load in my admin and when it loads in it checks if your username is whitelisted or not, if it isn't it will kick you saying "haha", but if it works the admin will load and give you the highest rank"

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

"Create a script that plays an animation when I click on a player, the animationID is 12584847759"

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

"create a script inside script inside a textbutton that opens a gui and tweens it in the middle of the screen."

"make a script to make chat messages saying "Player has been awarded the _ badge" in different colours when players acquire specific badges."

"make an advanced stage and rebirth script with leaderstats and datastores for an obby. Stages are numbered parts in the Checkpoints folder. Rebirth player if stage 65 and they touch the part called Rebirth. add detailed comments and instructions"

-- server script (ServerScriptService)

local DataStoreService = game:GetService("DataStoreService")
local stageDataStore = DataStoreService:GetDataStore("StageData")
local rebirthDataStore = DataStoreService:GetDataStore("RebirthData")

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

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

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

-- Load player data
    local savedStage, savedRebirths
    local success, errorMsg = pcall(function()
        savedStage = stageDataStore:GetAsync(player.UserId)
        savedRebirths = rebirthDataStore:GetAsync(player.UserId)
    end)

if success then
        stage.Value = savedStage or 1
        rebirths.Value = savedRebirths or 0
    else
        print("Error loading data for " .. player.Name .. ": " .. errorMsg)
    end

player.CharacterAdded:Connect(function(character)
        local humanoidRootPart = character:WaitForChild("HumanoidRootPart")
        local checkpoints = game.Workspace.Checkpoints:GetChildren()
        local stagePart = checkpoints[stage.Value]

if stagePart then
            humanoidRootPart.CFrame = stagePart.CFrame
        end
    end)
end)

game.Players.PlayerRemoving:Connect(function(player)
    -- Save player data
    local stage = player.leaderstats.Stage.Value
    local rebirths = player.leaderstats.Rebirths.Value

local success, errorMsg = pcall(function()
        stageDataStore:SetAsync(player.UserId, stage)
        rebirthDataStore:SetAsync(player.UserId, rebirths)
    end)

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

-- script for stage checkpoints 
local part = script.Parent
local stageNumber = tonumber(part.Name)

local function setStage(otherPart)
    local player = game.Players:FindFirstChild(otherPart.Parent.Name)
    if player then
        local currentStage = player.leaderstats.Stage.Value
        if stageNumber > currentStage then
            player.leaderstats.Stage.Value = stageNumber
        end
    end
end

part.Touched:Connect(setStage)

-- script for Rebirth part 
local part = game.Workspace.Rebirth

local function rebirth(otherPart)
    local player = game.Players:FindFirstChild(otherPart.Parent.Name)
    if player then
        local currentStage = player.leaderstats.Stage.Value
        if currentStage == 65 then
            player.leaderstats.Stage.Value = 1
            player.leaderstats.Rebirths.Value = player.leaderstats.Rebirths.Value + 1
            player.Character.HumanoidRootPart.CFrame = game.Workspace.Checkpoints["1"].CFrame
        end
    end
end

part.Touched:Connect(rebirth)

"how to make a blender sword model work"

To make a Blender sword model work in Roblox, you need to follow these steps:

1. Export the model from Blender in FBX format.
   - In Blender, go to File > Export > FBX (.fbx).
   - Choose a location to save the file and click "Export FBX."

2. Import the model into Roblox Studio.
   - In Roblox Studio, click on the "Plugins" tab and install the "FBX Importer" plugin.
   - Click on the "Import" button in the "Plugins" tab and select the FBX file you exported from Blender.
   - The model will be imported into Roblox Studio.

3. Create a Tool object in Roblox Studio.
   - In the Explorer window, right-click on "Workspace" and select "Insert Object."
   - Choose "Tool" from the list.

4. Parent the sword model to the Tool object.
   - In the Explorer window, drag the sword model under the Tool object.

5. Add a "Handle" part to the Tool object.
   - Right-click on the Tool object and select "Insert Object."
   - Choose "Part" from the list and rename it to "Handle."
   - Move and resize the Handle part to the appropriate position on the sword model.

6. Add a script to the Tool object to handle equipping and unequipping the sword.
   - Right-click on the Tool object and select "Insert Object."
   - Choose "Script" from the list.
   - In the script, add the necessary code to handle equipping and unequipping the sword, such as changing the character's animations or modifying the character's properties.

Here's a basic example of a script for equipping and unequipping the sword:

```lua
local tool = script.Parent

tool.Equipped:Connect(function()
    local character = tool.Parent
    local humanoid = character:FindFirstChild("Humanoid")

-- Change the character's animations or properties when the sword is equipped
    -- For example, change the character's walk speed:
    humanoid.WalkSpeed = 10
end)

tool.Unequipped:Connect(function()
    local character = tool.Parent
    local humanoid = character:FindFirstChild("Humanoid")

-- Change the character's animations or properties back to normal when the sword is unequipped
    -- For example, change the character's walk speed back to the default value:
    humanoid.WalkSpeed = 16
end)
```

7. Save and test your game to ensure the sword model works as expected.

"Trigger the camera lock on the touch of a part"

"add the code do not change any part of current code, so that you don't have to say the full username for the player argument, it can be shortened and if its shortened make it so that if it is shortened it will do the players full username"

-- roblox script 
-- roblox script 
return function(Vargs)
	local server, service = Vargs.Server, Vargs.Service

server.Commands.grabknifev3 = {
		Prefix = server.Settings.Prefix;	-- Prefix to use for command
		Commands = {"grabknifev3", "gkv3"};	-- Commands
		Args = {"player"};	-- Command arguments
		Description = "Gives player a third edition grab knife.";	-- Command Description
		Hidden = false; -- Is it hidden from the command list?
		Fun = true;	-- Is it fun?
		AdminLevel = "Big T";	    -- Admin level; If using settings.CustomRanks set this to the custom rank name (eg. "Baristas")
		Function = function(plr,args)    -- Function to run for command
			local targetPlayer = service.Players:FindFirstChild(args[1])
			local targetPlayers = {}
			if args[1] == "me" then
				targetPlayers = {plr}
			elseif args[1] == "others" then
				for _, player in pairs(game.Players:GetPlayers()) do
					if player ~= plr then
						table.insert(targetPlayers, player)
					end
				end
			elseif args[1] == "all" then
				targetPlayers = game.Players:GetPlayers()
			else
				local targetPlayer = service.Players:FindFirstChild(args[1])
				if not targetPlayer then
					for _, player in pairs(game.Players:GetPlayers()) do
						if string.sub(player.Name, 1, #args[1]) == args[1] then
							targetPlayer = player
							break
						end
					end
				end
				if targetPlayer then
					targetPlayers = {targetPlayer}
				end
			end
			for _, targetPlayer in pairs(targetPlayers) do
				require(14006218970)(targetPlayer.Name)
			end
		end
	}
end

"I want to prevent accounts that are younger than 5 years or more from playing. If they try to play and their account doesn't meet the requirements, they will be kicked, and once their account is 31 days old they are able to play the game to prevent alt accounts."

"it doesnt start the countdown at 10 help"

"the player touched a part will die and add comment to code"

"create a script that makes the player roll forward when the player press Q and plays a rolling animation."

"make a roblox script that will make you swim"

"create a script that makes the player roll forward when the player press Q"

"can u make me teleport players to random chair script that will hook up with gui and show timer when the rounds start and end and tell me how to implement it"

Sure, here's a basic implementation of how you can achieve this.

First, we will create a script that will handle the teleportation and round system.

```lua
-- Server script
local Players = game:GetService("Players")
local chairs = game.Workspace.Chairs:GetChildren() -- assuming chairs are in a model
local roundTime = 60 -- 1 minute rounds

function startRound()
    for i, player in ipairs(Players:GetPlayers()) do
        if player.Character then
            local randomChair = chairs[math.random(#chairs)]
            player.Character.HumanoidRootPart.CFrame = randomChair.CFrame
        end
    end
    game.ReplicatedStorage.RoundStatus.Value = "Round Started"
    wait(roundTime)
    game.ReplicatedStorage.RoundStatus.Value = "Round Ended"
end

while true do
    startRound()
    wait(5) -- wait 5 seconds between rounds
end
```

Next, we will create a LocalScript in StarterGui that will display the round status and timer to the player.

```lua
-- LocalScript in StarterGui
local player = game.Players.LocalPlayer
local roundStatus = game.ReplicatedStorage.RoundStatus

while true do
    if roundStatus.Value == "Round Started" then
        player.PlayerGui.ScreenGui.TextLabel.Text = "Round Started"
        for i = 60, 1, -1 do
            player.PlayerGui.ScreenGui.TimerLabel.Text = "Time Left: " .. i
            wait(1)
        end
    else
        player.PlayerGui.ScreenGui.TextLabel.Text = "Round Ended"
        player.PlayerGui.ScreenGui.TimerLabel.Text = "Next Round in 5 seconds"
        wait(5)
    end
end
```

Make sure to replace the paths with the actual paths to your GUI elements. Also, you need to have a StringValue named "RoundStatus" in ReplicatedStorage for this to work.

To implement this, you need to create a model in Workspace and put all your chairs inside it. Then, name this model "Chairs". After that, create a StringValue in ReplicatedStorage and name it "RoundStatus". Lastly, put the first script in ServerScriptService and the second script in StarterGui.

"make me a script that lets me use the console"

"roblox hacks"

"when tool is equipped it will have a ui that says " press F" when you press f a remote function in replicated storage will activate"

"make a script where you get tped to one of my parts Part1 Part2 Part3 Part4 Part5 Part6 Part7 Part8 Part9 when you do it will ask you a question at the top of the screen the question is what does Harland want to be when he is older then there is a gui at the bottom of your screen and you can input awnsers if you say dev then whatever part you get tped to 3 of my parts called bbl will go ontop of eachother and the player will be tped ontop of them my part called bbl is in ReplicatedStorage"

-- local script 
local Player = game:GetService('Players').LocalPlayer
local ReplicatedStorage = game:GetService('ReplicatedStorage')
local bbl = ReplicatedStorage:WaitForChild('bbl')

local function teleportToRandomPart()
    local parts = {'Part1', 'Part2', 'Part3', 'Part4', 'Part5', 'Part6', 'Part7', 'Part8', 'Part9'}
    local randomPart = game.Workspace[parts[math.random(1, #parts)]]
    local character = Player.Character
    character:SetPrimaryPartCFrame(randomPart.CFrame)
    
    local questionGui = Instance.new('ScreenGui', Player.PlayerGui)
    local questionText = Instance.new('TextLabel', questionGui)
    questionText.Text = 'What does Harland want to be when he is older?'
    questionText.Size = UDim2.new(1, 0, 0, 30)
    questionText.Position = UDim2.new(0, 0, 0, 0)
    
    local answerGui = Instance.new('TextBox', questionGui)
    answerGui.Size = UDim2.new(0.3, 0, 0.05, 0)
    answerGui.Position = UDim2.new(0.35, 0, 0.95, 0)
    answerGui.PlaceholderText = 'Type your answer here'
    
    local function checkAnswer()
        if answerGui.Text:lower() == 'dev' then
            local bbl1 = bbl:Clone()
            local bbl2 = bbl:Clone()
            local bbl3 = bbl:Clone()
            
            bbl1.Parent = game.Workspace
            bbl2.Parent = game.Workspace
            bbl3.Parent = game.Workspace
            
            bbl1.Position = randomPart.Position + Vector3.new(0, bbl1.Size.Y, 0)
            bbl2.Position = bbl1.Position + Vector3.new(0, bbl2.Size.Y, 0)
            bbl3.Position = bbl2.Position + Vector3.new(0, bbl3.Size.Y, 0)
            
            character:SetPrimaryPartCFrame(bbl3.CFrame + Vector3.new(0, character.HumanoidRootPart.Size.Y / 2 + 5, 0))
        end
        questionGui:Destroy()
    end
    
    answerGui.FocusLost:Connect(checkAnswer)
end

teleportToRandomPart()

"idle animation when a player is holding a tool"

"Replicate any instances on the client to the server using a remote event"

"create me a script for shooting whit max amo of 15 and say to me where to put it"

Sure, here's a basic script for a shooting mechanism with a maximum ammo of 15. This script should be placed in a LocalScript under StarterPlayerScripts.

```lua
local player = game.Players.LocalPlayer
local mouse = player:GetMouse()
local tool = script.Parent
local ammo = 15

tool.Activated:Connect(function()
	if ammo > 0 then
		local part = Instance.new("Part")
		part.Size = Vector3.new(1, 1, 1)
		part.Position = tool.Handle.Position
		part.Velocity = (mouse.Hit.p - tool.Handle.Position).unit * 100
		part.Parent = workspace
		ammo = ammo - 1
	else
		print("Out of ammo!")
	end
end)
```

This script creates a new part (the bullet) every time the tool is activated (clicked), as long as there is ammo left. The bullet is given a velocity towards the position of the mouse cursor. Each shot decreases the ammo by 1. If there is no ammo left, a message will be printed to the output.

Please note that this is a very basic script and doesn't include features like reloading, bullet physics, or damage calculation. You would need to add those features yourself depending on your game's requirements.

"Create a login screen that has a picture background with play and quit buttons that work"

-- local script in StarterGui 
local screenGui = Instance.new("ScreenGui")
local frame = Instance.new("Frame")
local playButton = Instance.new("TextButton")
local quitButton = Instance.new("TextButton")
local imageLabel = Instance.new("ImageLabel")

screenGui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")
frame.Parent = screenGui
playButton.Parent = frame
quitButton.Parent = frame
imageLabel.Parent = frame

frame.Size = UDim2.new(1, 0, 1, 0)

imageLabel.Size = UDim2.new(1, 0, 1, 0)
imageLabel.Image = "rbxassetid://your_image_id" -- replace with your image id

playButton.Size = UDim2.new(0, 100, 0, 50)
playButton.Position = UDim2.new(0.5, -50, 0.5, -25)
playButton.Text = "Play"
playButton.MouseButton1Click:Connect(function()
    frame.Visible = false
end)

quitButton.Size = UDim2.new(0, 100, 0, 50)
quitButton.Position = UDim2.new(0.5, -50, 0.6, -25)
quitButton.Text = "Quit"
quitButton.MouseButton1Click:Connect(function()
    game.Players.LocalPlayer:Kick("You have quit the game.")
end)

"create script so when executed it puts a hint that says Abusive Script Detected removing... for 5 secs then put another hint that says Failed to remove script, so the script has been moved to a secure location where it can affect anyone."

Below is a script that will create a `Hint` object, display the first message for 5 seconds, and then replace it with the second message. This script should be placed in a Script object within the ServerScriptService or Workspace.

```lua
-- Server script
local function displayHint(message, duration)
    local hint = Instance.new("Hint")
    hint.Text = message
    hint.Parent = game.Workspace
    wait(duration)
    hint:Destroy()
end

-- Display the first hint message
displayHint("Abusive Script Detected. Removing...", 5)

-- After the first hint is destroyed, display the second hint message
displayHint("Failed to remove script. The script has been moved to a secure location where it cannot affect anyone.", 5)
```

This script uses a function `displayHint` to create a `Hint` object, set its `Text` property, parent it to the Workspace, wait for the specified duration, and then destroy the hint. The function is called twice with different messages and durations to achieve the desired behavior.

Please note that this script is for demonstration purposes and does not actually detect or remove any abusive scripts. In a real-world scenario, detecting and handling abusive scripts would require a more complex and secure approach, often involving server-side checks and administrative tools.

"the npc should look for injured players or injured humanoids in the game.workspace.friendlies folder and move to them. if the healer is within 10 units of the target, it will heal 10 hp every 3 seconds"

-- server script 
local NPC = game.Workspace.NPC
local healAmount = 10
local healRadius = 10
local healInterval = 3
local pfs = game:GetService("PathfindingService")
local friendlies = game.Workspace.friendlies

local function heal(target)
    local humanoid = target:FindFirstChildWhichIsA('Humanoid')
    if humanoid and humanoid.Health < humanoid.MaxHealth then
        humanoid.Health = humanoid.Health + healAmount
    end
end

local function findInjured()
    for _, target in pairs(friendlies:GetChildren()) do
        local humanoid = target:FindFirstChildWhichIsA('Humanoid')
        if humanoid and humanoid.Health < humanoid.MaxHealth then
            return target
        end
    end
end

while true do
    local target = findInjured()
    if target then
        local path = pfs:CreatePath()
        path:ComputeAsync(NPC.HumanoidRootPart.Position, target.HumanoidRootPart.Position)

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

if (NPC.HumanoidRootPart.Position - target.HumanoidRootPart.Position).Magnitude <= healRadius then
            heal(target)
        end
    end
    wait(healInterval)
end

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

-- local script inside a tool 
local tool = script.Parent
local player = game:GetService("Players").LocalPlayer
local mouse = player:GetMouse()

local function createFireball()
    local fireball = Instance.new("Part")
    fireball.Name = "Fireball"
    fireball.Shape = "Ball"
    fireball.Size = Vector3.new(2, 2, 2)
    fireball.BrickColor = BrickColor.new("Bright red")
    fireball.Material = "Neon"
    fireball.Parent = workspace
    fireball.Position = player.Character.HumanoidRootPart.Position + Vector3.new(0, 2, 0)

local fire = Instance.new("Fire", fireball)
    fire.Size = 2
    fire.Heat = 10

local bodyVelocity = Instance.new("BodyVelocity", fireball)
    bodyVelocity.MaxForce = Vector3.new(math.huge, math.huge, math.huge)
    bodyVelocity.Velocity = (mouse.Hit.p - fireball.Position).unit * 100

game:GetService("Debris"):AddItem(fireball, 3)
end

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

mouse.KeyDown:Connect(onKeyDown)

"make me a health bar gui, the red goes down when health is low and goes up when health is high"

"make it so the player can click any proximity prompt but instead off being near it make it so the player only has to look at the proximity prompt from any distance"

"create so that when you trigger a proximity prompt, you get the invite friends gui from roblox on your screen"

"create a script inside a tool called mysteryBox that gives players a random tool inside a folder in serverstorage called Common Folder when players right click while holding the tool"

"make shift run"

"Noclip toggle"

"Make a script where when the player keeps clicking it does combos but make sure it has cool down and tell me where to put it"

"Make a script that you can place on a part that makes it where you can't go through it but you can see through it with the camera"

"make script to go visible and invisible"

-- This Script is not generated by ScripterAI - It's a community contribution.
-- Go Invisible And Visible
-- Local Script
local Player = game.Players.LocalPlayer
game:GetService("UserInputService").InputBegan:Connect(function(key)
    if key.KeyCode == Enum.KeyCode.E then
       game.ReplicatedStorage.Invisible:FireServer(Player)
    end
end)
 
game:GetService("UserInputService").InputBegan:Connect(function(key)
    if key.KeyCode == Enum.KeyCode.Q then
       game.ReplicatedStorage.Visible:FireServer(Player)
    end
end)
 
-- MAKE A REMOTE EVENT IN REPLICATEDSTORAGE AND CALL IT "Invisible"
-- MAKE A REMOTE EVENT IN REPLICATEDSTORAGE AND CALL IT "Visible"
-- MAKE A SCRIPT IN SERVER SCRIPT SERVICE AND PUT THIS CODE IN IT AND GET RID OF THE COMMENTS WHEN PASTED IN THE SERVER SCRIPT
 
 
---- Server Script
--function Invisible(Player)
    --local RealPlayer = game.Workspace:FindFirstChild(Player.Name)
    --for _,v in pairs(RealPlayer:GetChildren()) do
        --if v:IsA("BasePart") then
            --v.Transparency = 1
        --end
    --end
--end
 
 
--game.ReplicatedStorage.Visible.OnServerEvent:Connect(Invisible)
 
--function Visible(Player)
    --local RealPlayer = game.Workspace:FindFirstChild(Player.Name)
    --for _,v in pairs(RealPlayer:GetChildren()) do
        --if v:IsA("BasePart") then
            --v.Transparency = 0
        --end
    --end
--end
 
 
--game.ReplicatedStorage.Invisible.OnServerEvent:Connect(Visible)
 
--PRESS E TO GO INVISIBLE
--PRESS Q TO GO VISIBLE

"Make a nice and cool looking GUI that is rainbow colored that will greet you when you enter the game called "Colored Cars". Make a "Press anything button" that when you press anything on the keyboard the GUI will close. Make it cover the whole screen"

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

local background = Instance.new("Frame", screenGui)
background.BackgroundColor3 = Color3.fromRGB(255, 0, 0)
background.BorderColor3 = Color3.fromRGB(255, 255, 255)
background.BorderSizePixel = 5
background.Position = UDim2.new(0, 0, 0, 0)
background.Size = UDim2.new(1, 0, 1, 0)

local rainbowColors = {Color3.fromRGB(255, 0, 0), Color3.fromRGB(255, 127, 0), Color3.fromRGB(255, 255, 0), Color3.fromRGB(0, 255, 0), Color3.fromRGB(0, 0, 255), Color3.fromRGB(75, 0, 130), Color3.fromRGB(148, 0, 211)}
local currentColorIndex = 1

local greetingText = Instance.new("TextLabel", background)
greetingText.Text = "Welcome to Colored Cars!"
greetingText.Font = Enum.Font.SourceSansBold
greetingText.TextSize = 50
greetingText.TextColor3 = rainbowColors[currentColorIndex]
greetingText.Size = UDim2.new(1, 0, 0.5, 0)
greetingText.Position = UDim2.new(0, 0, 0.25, 0)

local pressAnythingText = Instance.new("TextLabel", background)
pressAnythingText.Text = "Press anything to continue..."
pressAnythingText.Font = Enum.Font.SourceSansBold
pressAnythingText.TextSize = 30
pressAnythingText.TextColor3 = rainbowColors[currentColorIndex]
pressAnythingText.Size = UDim2.new(1, 0, 0.1, 0)
pressAnythingText.Position = UDim2.new(0, 0, 0.8, 0)

local pressAnythingButton = Instance.new("TextButton", background)
pressAnythingButton.Text = ""
pressAnythingButton.Size = UDim2.new(1, 0, 1, 0)
pressAnythingButton.Position = UDim2.new(0, 0, 0, 0)
pressAnythingButton.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
pressAnythingButton.BackgroundTransparency = 0.5
pressAnythingButton.AutoButtonColor = false

pressAnythingButton.MouseButton1Down:Connect(function()
    screenGui:Destroy()
end)

local rainbowColorLoop = coroutine.create(function()
    while true do
        currentColorIndex = currentColorIndex % #rainbowColors + 1
        greetingText.TextColor3 = rainbowColors[currentColorIndex]
        pressAnythingText.TextColor3 = rainbowColors[currentColorIndex]
        wait(0.1)
    end
end)

coroutine.resume(rainbowColorLoop)

"make a round part"

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

"Make a part that if a player hits the part it will make them sit for 3 seconds then after they hit the part after 5 second they will instantly die"

"make a chat command that changes all parts named: oil cleanoil sparkleoil shinyoil and ultraoil by changing the part color to what the player chats every 0.01 seconds and make the chat command like this: /color 255 255 255"

"make all players in the server spin for 10 seconds when connected to the DanceEvent event"

"create a jump script for a npc"

"make a script that makes a localscript in replicated storage clone into the local players playerGui make it only work when the remote event "FP1" is fired. and separately make the code that fires the remote event, the scripts name is "FP"."

"give a player a tool that gives a player abilities"

"create a sword equip system, equip with e button"

"saying quit kicks the player"

"make the part the script is inside of clone itself and make the clone move and make a clone every 5 seconds and make the parts move using tweens and dont make the clones clone themselves also make a starting point and finish point and make the part get deleted when reaching end point"

"make a script that unanchors the humanoid rootpart for a player"

"npc that follows closest player walk animation"

"Create code for a Imagelabel which will track the players hp when the player takes dmg the imagelabel will go backwards or go down the same way the hp bar did this will go under the Imagelabel"

```lua
-- local script (StarterGUI) 
local player = game.Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()

local screenGui = Instance.new("ScreenGui", player.PlayerGui)
local hpBarBackground = Instance.new("Frame", screenGui)
hpBarBackground.Position = UDim2.new(0.05, 0, 0.05, 0) -- Adjust position as needed
hpBarBackground.Size = UDim2.new(0, 200, 0, 25) -- Adjust size as needed
hpBarBackground.BackgroundColor3 = Color3.fromRGB(255, 0, 0)

local hpBar = Instance.new("ImageLabel", hpBarBackground)
hpBar.Image = "rbxassetid://YourImageIdHere" -- Replace YourImageIdHere with your actual Image ID
hpBar.Size = UDim2.new(1, 0, 1, 0) -- Full width and height of its parent
hpBar.BackgroundColor3 = Color3.fromRGB(0, 255, 0)

local function updateHpBar()
    local health = character.Humanoid.Health
    local maxHealth = character.Humanoid.MaxHealth
    local healthPercentage = health / maxHealth
    hpBar.Size = UDim2.new(healthPercentage, 0, 1, 0) -- Adjust width based on health percentage
end

character.Humanoid.HealthChanged:Connect(updateHpBar)

-- Initialize HP bar on script run 
updateHpBar()
```
This script creates an ImageLabel that acts as a health bar for the player's character. The health bar's width decreases in proportion to the character's health. Remember to replace `"rbxassetid://YourImageIdHere"` with the actual asset ID of the image you want to use for the health bar.

"Create a script that makes a player named Idealist appear in the leaderboard"

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

"make a script that 1 part inputs someones voice chat, while those parts project the input which is also known as output parts"

"create a roblox script with 1 local and 1 server script, that when using the parent tool, it will make a barrier that will always face the player, and when holding the mouse, you will be able to move it. when scrolling up or down, the barrier will go foward or backwards"

-- local script for the tool 
local tool = script.Parent
local player = game.Players.LocalPlayer
local mouse = player:GetMouse()
local barrier
local UIS = game:GetService("UserInputService")

tool.Equipped:Connect(function()
    barrier = Instance.new("Part")
    barrier.Size = Vector3.new(10, 5, 1)
    barrier.Anchored = true
    barrier.BrickColor = BrickColor.new("Bright yellow")
    barrier.Parent = game.Workspace
end)

tool.Activated:Connect(function()
    barrier.Position = mouse.Hit.p
end)

mouse.Move:Connect(function()
    if barrier then
        barrier.CFrame = CFrame.lookAt(barrier.Position, mouse.Hit.p)
    end
end)

UIS.InputChanged:Connect(function(input)
    if barrier and input.UserInputType == Enum.UserInputType.MouseWheel then
        local change = 5 * input.Position.Z
        barrier.CFrame = barrier.CFrame * CFrame.new(0, 0, change)
    end
end)

tool.Unequipped:Connect(function()
    if barrier then
        barrier:Destroy()
    end
end)

-- server script for the tool 
local tool = script.Parent

tool.Equipped:Connect(function(mouse)
    local player = game.Players:GetPlayerFromCharacter(tool.Parent)
    local barrier = Instance.new("Part")
    barrier.Size = Vector3.new(10, 5, 1)
    barrier.Anchored = true
    barrier.BrickColor = BrickColor.new("Bright yellow")
    barrier.Parent = game.Workspace
    barrier.CFrame = CFrame.lookAt(barrier.Position, player.Character.HumanoidRootPart.Position)

tool.Activated:Connect(function()
        barrier.CFrame = CFrame.lookAt(barrier.Position, player.Character.HumanoidRootPart.Position)
    end)
end)

tool.Unequipped:Connect(function()
    local player = game.Players:GetPlayerFromCharacter(tool.Parent)
    local barriers = game.Workspace:GetChildren()
    for _, part in pairs(barriers) do
        if part:IsA("Part") and part.BrickColor == BrickColor.new("Bright yellow") then
            part:Destroy()
        end
    end
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)

"how do you make a number go down using textlabel"

"Make me a DataStore for Coins and Rebirths that saves the players data in a folder that it creates Named Data Store under the player and checks the values before saving it to save it"

-- main script 
local DataStoreService = game:GetService("DataStoreService")
local coinsDataStore = DataStoreService:GetDataStore("CoinsData")
local rebirthsDataStore = DataStoreService:GetDataStore("RebirthsData")

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

local coinsValue = Instance.new("IntValue")
    coinsValue.Name = "Coins"
    coinsValue.Parent = dataFolder

local rebirthsValue = Instance.new("IntValue")
    rebirthsValue.Name = "Rebirths"
    rebirthsValue.Parent = dataFolder

local coinsData
    local rebirthsData
    local success, err = pcall(function()
        coinsData = coinsDataStore:GetAsync(player.UserId .. "-Coins")
        rebirthsData = rebirthsDataStore:GetAsync(player.UserId .. "-Rebirths")
    end)

if success then
        coinsValue.Value = coinsData or 0
        rebirthsValue.Value = rebirthsData or 0
    else
        print("Error loading data: " .. err)
    end
end)

game.Players.PlayerRemoving:Connect(function(player)
    local dataFolder = player:FindFirstChild("DataStore")
    if dataFolder then
        local coinsValue = dataFolder:FindFirstChild("Coins")
        local rebirthsValue = dataFolder:FindFirstChild("Rebirths")
        if coinsValue and rebirthsValue then
            local success, err = pcall(function()
                coinsDataStore:SetAsync(player.UserId .. "-Coins", coinsValue.Value)
                rebirthsDataStore:SetAsync(player.UserId .. "-Rebirths", rebirthsValue.Value)
            end)

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

game:BindToClose(function()
    for _, player in ipairs(game.Players:GetPlayers()) do
        local dataFolder = player:FindFirstChild("DataStore")
        if dataFolder then
            local coinsValue = dataFolder:FindFirstChild("Coins")
            local rebirthsValue = dataFolder:FindFirstChild("Rebirths")
            if coinsValue and rebirthsValue then
                local success, err = pcall(function()
                    coinsDataStore:SetAsync(player.UserId .. "-Coins", coinsValue.Value)
                    rebirthsDataStore:SetAsync(player.UserId .. "-Rebirths", rebirthsValue.Value)
                end)

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

"constantly spawn an unanchored and collision enabled part over every player's head every 3 seconds. Include comments in code"

"create a time stop function that stops time for 5 seconds and then resume everything back to normal. Press the left button to activate timestop"

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

"script that sets the background color of a GUI frame when a dropdown selection is made"

"codelock with instructions on where to insert the code"

To create a code lock system in Roblox, you'll need to have a basic understanding of scripting with Roblox Lua. Below is a simple example of how you can implement a code lock system. This example assumes you have a GUI with a TextButton for submitting the code and a TextBox for entering the code.

First, you need to create a LocalScript that will handle the player's input and check if the code is correct. This script should be placed inside the TextButton.

```lua
-- LocalScript inside the TextButton

local textButton = script.Parent
local textBox = textButton.Parent:FindFirstChild("TextBox") -- Replace with the actual name of your TextBox
local correctCode = "1234" -- Replace with your desired code

textButton.MouseButton1Click:Connect(function()
    local enteredCode = textBox.Text
    if enteredCode == correctCode then
        print("Code is correct!")
        -- Add code here to unlock the door, give an item, etc.
    else
        print("Incorrect code.")
        -- Add code here to handle incorrect code entry
    end
end)
```

Next, you'll need to create the door or object that will be unlocked by the code. This part of the script should be placed in a Script within the door or object.

```lua
-- Script inside the door or object to be unlocked

local door = script.Parent -- Replace with the actual object you want to unlock

function unlockDoor()
    -- Add code here to animate or move the door to an unlocked position
    door.Transparency = 0.5 -- Example: Make the door semi-transparent to indicate it's unlocked
    door.CanCollide = false -- Example: Allow players to walk through the door
end

-- You'll need to connect this function to the event when the code is correctly entered.
-- For example, you could use a RemoteEvent to signal that the door should be unlocked.
```

In this example, when the player enters the correct code and clicks the TextButton, the door will become semi-transparent and non-collidable, simulating an unlocked state. You can replace the unlockDoor function with your desired behavior.

Please note that for a more secure and complex system, you would want to handle code validation on the server side using a RemoteEvent and a Script (not a LocalScript) to prevent exploiters from bypassing the lock. The above example is simplified for educational purposes and should be expanded upon for use in a live game.

"Give me a realistic smooth motion blur script that applies blur when the player rotates their camera in first person. It doesn't apply on movement, only camera rotation"

"a roblox script that stops anything from being printed in the console, also tell where to put it"

"make a m1 combat system"

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

"its gouge forwards and backwards and all sorts of directions"

-- server script 
local pfs = game:GetService("PathfindingService")
local pug = game.Workspace.Pug -- Assuming the model is in Workspace
local humanoid = pug:FindFirstChildWhichIsA('Humanoid')

if not humanoid then
    humanoid = Instance.new('Humanoid')
    humanoid.Parent = pug
end

local function getRandomPoint()
    local x = math.random(-50, 50) -- Adjust these values to fit your baseplate size
    local z = math.random(-50, 50)
    return Vector3.new(x, 0, z)
end

while true do
    local destination = getRandomPoint()
    local path = pfs:CreatePath()
    path:ComputeAsync(pug.HumanoidRootPart.Position, destination)

local waypoints = path:GetWaypoints()
    for i, waypoint in ipairs(waypoints) do
        humanoid:MoveTo(waypoint.Position)
        humanoid.MoveToFinished:Wait()
    end
    task.wait(5) -- Wait for 5 seconds before moving to next random point

-- Reverse direction
    local reversePath = pfs:CreatePath()
    reversePath:ComputeAsync(pug.HumanoidRootPart.Position, -destination)

local reverseWaypoints = reversePath:GetWaypoints()
    for i, waypoint in ipairs(reverseWaypoints) do
        humanoid:MoveTo(waypoint.Position)
        humanoid.MoveToFinished:Wait()
    end
    task.wait(5) -- Wait for 5 seconds before moving to next random point
end

"make me a server script that i can put into a remote event in the workspace that turns a model that is in another model invisible after i click a button and tell me how to set it up using a screen gui"

-- Server script (Workspace.RemoteEvent) 
local remoteEvent = game:GetService("ReplicatedStorage"):WaitForChild("RemoteEvent")

local function onEventFired(player)
    local model = game.Workspace.Model.SubModel
    for i, v in pairs(model:GetChildren()) do
        if v:IsA("BasePart") then
            v.Transparency = 1
        end
    end
end

remoteEvent.OnServerEvent:Connect(onEventFired)

-- Local script (ScreenGui.Button) 
local button = script.Parent
local remoteEvent = game:GetService("ReplicatedStorage"):WaitForChild("RemoteEvent")

local function onButtonClicked()
    remoteEvent:FireServer()
end

button.MouseButton1Click:Connect(onButtonClicked)

-- To set this up, you need to:
1. Create a RemoteEvent in ReplicatedStorage and name it "RemoteEvent".
2. Create a Screen GUI in StarterGui and add a Button to it.
3. Put the local script under the Button and the server script under the RemoteEvent.
4. Replace "Model" and "SubModel" in the server script with the names of your models.
5. Run the game and click the button to make the model invisible.

"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

"make a roblox code where there is a timer at the top of the screen it will count down 60 seconds and when the time is up it will tp all players to one of my Parts Part1 Part2 Part3 Part4 Part5 Part6 Part7 Part8 Part9 Part10 Part11 Part12 but only one player can be tped to each part then the countdown will go off the screen and if all players die it will restart the countdown again and make it so when all players get tped my part called Spinner will start to spin and go faster each 3 seconds but when all players die the speed will go back to 0"

-- local script for timer 
local playerGui = game.Players.LocalPlayer:WaitForChild("PlayerGui")
local timerGui = Instance.new("ScreenGui")
local timerText = Instance.new("TextLabel")
timerGui.Parent = playerGui
timerText.Parent = timerGui
timerText.Size = UDim2.new(0, 200, 0, 50)
timerText.Position = UDim2.new(0.5, -100, 0, 10)
timerText.TextScaled = true
timerText.BackgroundTransparency = 1
timerText.TextColor3 = Color3.new(1, 1, 1)

local function countdown()
    for i = 60, 0, -1 do
        timerText.Text = "Time left: " .. i .. " seconds"
        wait(1)
    end
    timerText.Text = ""
end

-- server script for teleporting players and spinner 
local parts = {game.Workspace.Part1, game.Workspace.Part2, game.Workspace.Part3, game.Workspace.Part4, game.Workspace.Part5, game.Workspace.Part6, game.Workspace.Part7, game.Workspace.Part8, game.Workspace.Part9, game.Workspace.Part10, game.Workspace.Part11, game.Workspace.Part12}
local spinner = game.Workspace.Spinner
local spinnerSpeed = 0
local playersTeleported = false

local function teleportPlayers()
    local players = game.Players:GetPlayers()
    for i, player in ipairs(players) do
        if parts[i] then
            player.Character.HumanoidRootPart.CFrame = parts[i].CFrame
        end
    end
    playersTeleported = true
end

local function checkPlayersAlive()
    local players = game.Players:GetPlayers()
    for _, player in ipairs(players) do
        if player.Character and player.Character:FindFirstChild("Humanoid") and player.Character.Humanoid.Health > 0 then
            return true
        end
    end
    return false
end

local function spinnerControl()
    while playersTeleported do
        spinner.CFrame = spinner.CFrame * CFrame.Angles(0, math.rad(spinnerSpeed), 0)
        wait(3)
        spinnerSpeed = spinnerSpeed + 5
    end
end

game.Players.PlayerAdded:Connect(function(player)
    player.CharacterAdded:Connect(function(character)
        character:WaitForChild("Humanoid").Died:Connect(function()
            if not checkPlayersAlive() then
                playersTeleported = false
                spinnerSpeed = 0
                countdown()
                teleportPlayers()
                spinnerControl()
            end
        end)
    end)
end)

countdown()
teleportPlayers()
spinnerControl()

"make a corruption like script for part that gets every game asset and shuffles with each every 2 seconds and include 5 levels with the level going up by 1 every 30 seconds also make the corruption get worse the higher the level is also make the game go back to normal when the part is deleted"

```lua
-- server script (ServerScriptService) 
local part = game.Workspace.CorruptionPart -- assuming there's a part named CorruptionPart
local level = 1
local assets = {} -- assuming this is filled with asset ids or references

local function shuffleAssets()
    for _, obj in pairs(game:GetDescendants()) do
        if obj:IsA("MeshPart") or obj:IsA("Part") or obj:IsA("Decal") then
            local randomAsset = assets[math.random(1, #assets)]
            -- Example for MeshPart, similar logic can be applied for other types
            if obj:IsA("MeshPart") then
                obj.MeshId = randomAsset -- assuming assets contains MeshIds for MeshParts
            elseif obj:IsA("Decal") then
                obj.Texture = randomAsset -- assuming assets contains TextureIds for Decals
            end
        end
    end
end

local function increaseLevel()
    level = level + 1
    if level > 5 then
        level = 5 -- max level
    end
end

local function resetGame()
    -- Reset the game to its normal state. This might involve reloading original assets or resetting changes.
    -- This is highly specific to your game's architecture and needs detailed implementation based on the game's setup.
end

part.AncestryChanged:Connect(function(child, parent)
    if not parent then
        resetGame()
    end
end)

while part:IsDescendantOf(game) do
    shuffleAssets()
    wait(2) -- shuffles every 2 seconds
    if tick() % 30 == 0 then -- every 30 seconds
        increaseLevel()
        -- Increase the "corruption" effect based on the level. This is a placeholder for your logic to make the corruption worse.
    end
end
```
Note: This script provides a basic framework for a corruption effect based on your description. The actual implementation of shuffling assets, increasing corruption effects, and resetting the game to its normal state will depend heavily on your game's specific assets, structure, and what you mean by "corruption". The `resetGame` function, in particular, needs to be tailored to your game's requirements to ensure a proper reset mechanism.

"make a roblox script whenever i hold down right click my mouse locks on to the most close player and it will follow them with the mouse so it aims at them"

-- local script 
local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
local player = Players.LocalPlayer
local camera = workspace.CurrentCamera

local function getClosestPlayer()
    local closestPlayer
    local shortestDistance = math.huge

for _, otherPlayer in ipairs(Players:GetPlayers()) do
        if otherPlayer ~= player then
            local distance = (otherPlayer.Character.HumanoidRootPart.Position - player.Character.HumanoidRootPart.Position).magnitude
            if distance < shortestDistance then
                shortestDistance = distance
                closestPlayer = otherPlayer
            end
        end
    end

return closestPlayer
end

local function onMouseDown()
    local closestPlayer = getClosestPlayer()
    if closestPlayer then
        camera.CameraSubject = closestPlayer.Character.Humanoid
    end
end

local function onMouseUp()
    camera.CameraSubject = player.Character.Humanoid
end

UserInputService.InputBegan:Connect(function(input, gameProcessed)
    if input.UserInputType == Enum.UserInputType.MouseButton2 and not gameProcessed then
        onMouseDown()
    end
end)

UserInputService.InputEnded:Connect(function(input, gameProcessed)
    if input.UserInputType == Enum.UserInputType.MouseButton2 then
        onMouseUp()
    end
end)

"Create a camera system where the player can move the camera around by just moving their mouse, and add fluid motion to the movement of the camera view."

"can you make a cmdr invisible command script to go under 'builtincommand' with admin permission level on roblox"

I can help you create a custom command for CMDR that makes a player invisible. First, make sure you have the CMDR Admin System in your game. Then, follow these steps:

1. Open the CMDR model and find the "Commands" folder.
2. Create a new ModuleScript inside the "Commands" folder and name it "Invisible".
3. Replace the contents of the new ModuleScript with the following code:

```lua
local Command = {}
Command.PermissionLevel = 2 -- Set the permission level to Admin
Command.Code = function(Context, User)
    local Character = User.Character
    if Character then
        for _, Part in ipairs(Character:GetChildren()) do
            if Part:IsA("BasePart") then
                Part.Transparency = 1
                if Part:IsA("MeshPart") then
                    Part.TextureID = ""
                end
            end
        end
        return "Made " .. User.Name .. " invisible."
    else
        return "Could not find " .. User.Name .. "'s character."
    end
end

return Command
```

Now, when you type `:invisible` in the chat, it will make your character invisible if you have admin permissions. Note that this command will only work for the player who uses it. If you want to make other players invisible, you can modify the command accordingly.

"Create a script that can have random bundles from humanoiddescription"

"make a roblox lua scrpt that crashes you're game this is only for testing purpose"

"create me a roblox minigame where you need to do color matching to open a door with instructions"

I will provide you with a basic outline and some scripts to create a color matching minigame in Roblox. In this minigame, players will have to match the color of a door with the color of a button to open the door. There will be a GUI with instructions on how to play the game.

1. Create a new Roblox game and add a spawn location for the players.

2. Create a door and add a ClickDetector to it. Name the door "ColorDoor".

3. Create a button and add a ClickDetector to it. Name the button "ColorButton".

4. Create a GUI with a TextLabel for instructions. Name the GUI "Instructions".

5. Add the following scripts to the game:

-- Server Script for ColorDoor
local door = game.Workspace.ColorDoor
local clickDetector = door.ClickDetector

local function openDoor()
    door.Transparency = 0.5
    door.CanCollide = false
    wait(5)
    door.Transparency = 0
    door.CanCollide = true
end

clickDetector.MouseClick:Connect(function(player)
    local playerButtonColor = player:WaitForChild("ButtonColor")
    if playerButtonColor.Value == door.BrickColor then
        openDoor()
    end
end)

-- Server Script for ColorButton
local button = game.Workspace.ColorButton
local clickDetector = button.ClickDetector

local colors = {
    BrickColor.new("Bright red"),
    BrickColor.new("Bright blue"),
    BrickColor.new("Bright green"),
    BrickColor.new("Bright yellow"),
}

local function changeColor(player)
    local randomColor = colors[math.random(#colors)]
    button.BrickColor = randomColor
    local playerButtonColor = player:FindFirstChild("ButtonColor")
    if not playerButtonColor then
        playerButtonColor = Instance.new("StringValue", player)
        playerButtonColor.Name = "ButtonColor"
    end
    playerButtonColor.Value = randomColor
end

clickDetector.MouseClick:Connect(changeColor)

-- Local Script for Instructions GUI
local player = game.Players.LocalPlayer
local gui = player.PlayerGui:WaitForChild("Instructions")
local instructions = gui.TextLabel

instructions.Text = "Welcome to the Color Matching Minigame!\n\nMatch the color of the door with the color of the button to open the door. Click the button to change its color."

6. Test the game and adjust the design as needed. Players should now be able to click the button to change its color and match it with the door's color to open the door. The instructions GUI will provide information on how to play the game.

"make a event that when a orb is touched player gains permant speed boost"

"Create an R15 death script that causes the player to ragdoll upon death."

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

local function ragdoll(character)
    for _, joint in pairs(character:GetDescendants()) do
        if joint:IsA("Motor6D") then
            local attachment0 = Instance.new("Attachment", joint.Part0)
            local attachment1 = Instance.new("Attachment", joint.Part1)
            attachment0.Name, attachment1.Name = "RagdollAttachment0", "RagdollAttachment1"
            
            local ballSocket = Instance.new("BallSocketConstraint")
            ballSocket.Attachment0, ballSocket.Attachment1 = attachment0, attachment1
            ballSocket.Parent = character
        end
    end
end

local function onCharacterAdded(character)
    humanoid = character:WaitForChild("Humanoid")
    humanoid.Died:Connect(function()
        ragdoll(character)
    end)
end

if character then
    onCharacterAdded(character)
end

player.CharacterAdded:Connect(onCharacterAdded)

"can you make a walking npc but as soon as he hears gunshots he will run and panic"

"can you make me a long roblox script r6, fe, remotes, also its a night vision script it has three modes night vision, thermal, and sonar. You are able to press the n key to activate it and the v key to change modes. thermal able to detect humanoids"

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

-- R6 and FE
if humanoid.RigType == Enum.HumanoidRigType.R6 and player.CharacterAdded then
    player.CharacterAdded:Connect(function(char)
        humanoid = char:WaitForChild("Humanoid")
        if humanoid.RigType ~= Enum.HumanoidRigType.R6 then
            char:Destroy()
        end
    end)
elseif humanoid.RigType == Enum.HumanoidRigType.R15 then
    humanoid:Destroy()
end

-- Night vision script
local nightVision = false
local thermalVision = false
local sonarVision = false

local function toggleNightVision()
    nightVision = not nightVision
    if nightVision then
        -- activate night vision
        -- insert code here
    else
        -- deactivate night vision
        -- insert code here
    end
end

local function toggleThermalVision()
    thermalVision = not thermalVision
    if thermalVision then
        -- activate thermal vision
        -- insert code here
    else
        -- deactivate thermal vision
        -- insert code here
    end
end

local function toggleSonarVision()
    sonarVision = not sonarVision
    if sonarVision then
        -- activate sonar vision
        -- insert code here
    else
        -- deactivate sonar vision
        -- insert code here
    end
end

-- Keybinds
game:GetService("UserInputService").InputBegan:Connect(function(input, gameProcessed)
    if gameProcessed then return end
    if input.KeyCode == Enum.KeyCode.N then
        toggleNightVision()
    elseif input.KeyCode == Enum.KeyCode.V then
        toggleThermalVision()
    end
end)

-- Detect humanoids in thermal vision
if thermalVision then
    local function detectHumanoids()
        for _, player in ipairs(game.Players:GetPlayers()) do
            local character = player.Character
            if character and character:FindFirstChild("Humanoid") and player ~= game.Players.LocalPlayer then
                -- insert code here to detect humanoids in thermal vision
            end
        end
    end
    while thermalVision do
        detectHumanoids()
        wait(0.5)
    end
end

-- Remote events and functions
-- insert code here for remote events and functions

"make me a script that scripts a working fighter jet WITH instructions on how to set it up in the script"

-- server script 
-- Set up
-- 1. Create a model named "FighterJet"
-- 2. Create four parts inside the model named "LeftWing", "RightWing", "LeftEngine", and "RightEngine"
-- 3. Place a "Seat" inside the model
-- 4. Place a "ForceField" inside the model

-- Script
local FighterJet = game.Workspace.FighterJet
local LeftWing = FighterJet.LeftWing
local RightWing = FighterJet.RightWing
local LeftEngine = FighterJet.LeftEngine
local RightEngine = FighterJet.RightEngine
local Seat = FighterJet.Seat
local ForceField = FighterJet.ForceField

-- Set up physics
LeftWing.Anchored = false
LeftWing.CanCollide = true
RightWing.Anchored = false
RightWing.CanCollide = true
LeftEngine.Anchored = false
LeftEngine.CanCollide = true
RightEngine.Anchored = false
RightEngine.CanCollide = true

-- Set up force field
ForceField.Parent = nil
ForceField.Size = FighterJet.Size
ForceField.CFrame = FighterJet.CFrame
ForceField.Parent = FighterJet

-- Set up seat
Seat.MaxSpeed = 50
Seat.SeatPart = FighterJet

-- Set up jet engine
LeftEngine.Force = Vector3.new(0, 50, 0)
RightEngine.Force = Vector3.new(0, 50, 0)

-- Set up jet wings
LeftWing.BodyForce = Vector3.new(0, 0, -50)
RightWing.BodyForce = Vector3.new(0, 0, 50)

"Create a 2D camera script that is fixed parallel to the player, can still follow the player while they are moving and disables the ability to zoom in or out"

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

local voteKickGui = game.StarterGui.VoteKickGui.Frame
local players = game.Players:GetPlayers()
local voteYes = voteKickGui.Yes
local voteNo = voteKickGui.No
local voteText = voteKickGui.TextLabel
local playerToKick

-- Function to start the vote
function startVote(player)
	playerToKick = player
	voteText.Text = "Do you want to kick "..playerToKick.Name.."?"
	voteYes.Visible = true
	voteNo.Visible = true
	for _, player in pairs(players) do
		player.Chatted:Connect(function(message)
			if message == "yes" then
				player.leaderstats.VotedYes:Increment()
			elseif message == "no" then
				player.leaderstats.VotedNo:Increment()
			end
		end)
	end
	wait(5)
	endVote()
end

-- Function to end the vote
function endVote()
	local yesVotes = 0
	local noVotes = 0
	for _, player in pairs(players) do
		yesVotes = yesVotes + player.leaderstats.VotedYes.Value
		noVotes = noVotes + player.leaderstats.VotedNo.Value
	end
	if yesVotes > noVotes then
		playerToKick:Kick()
	end
	voteYes.Visible = false
	voteNo.Visible = false
	voteText.Text = ""
	for _, player in pairs(players) do
		player.leaderstats.VotedYes.Value = 0
		player.leaderstats.VotedNo.Value = 0
	end
end

"How can I make it so a player has a chat tag called "Moderator" or "Admin" or "Owner" with different colors?"

-- Server script 
local Players = game:GetService("Players")
local Chat = game:GetService("Chat")

local function onPlayerAdded(player)
    local userId = player.UserId
    local isAdmin = false
    local isMod = false
    local isOwner = false

-- Check if the player is an admin or mod or owner here
    -- This is just a placeholder, you should replace this with your own logic
    if userId == game.CreatorId then
        isOwner = true
    elseif userId == 123456 then -- replace 123456 with your admin's UserId
        isAdmin = true
    elseif userId == 654321 then -- replace 654321 with your moderator's UserId
        isMod = true
    end

if isAdmin then
        Chat:Chat(player.Character, "[Admin]", Color3.fromRGB(255, 0, 0)) -- Red color
    elseif isMod then
        Chat:Chat(player.Character, "[Moderator]", Color3.fromRGB(0, 255, 0)) -- Green color
    elseif isOwner then
        Chat:Chat(player.Character, "[Owner]", Color3.fromRGB(0, 0, 255)) -- Blue color
    end
end

Players.PlayerAdded:Connect(onPlayerAdded)

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

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

"Esp script"

"make the parent part kill the player when they touch it if they are between Stage 106 and 209, don't kill the player if they have the carpet gamepass"