Haddock - Roblox Library

"make a toggleable shadows button make sure it checks if globalshadows is set true or false first, if its default false then when triggered make it true etc. if by default globalshadows is set to true then when triggered make it false, etc"

"make a script where when Harlandroblox says !open it will bring a gui on his screen with a list of all the players names in the game and if Harlandroblox clicks one of the names the player will explode"

"make a script that changes baseplate to green. It isint green."

"Make a loading screen and the stop the character from autoloading in, only after they click the play button will their character load in the game"

-- Local script within StarterGui 
local Players = game:GetService("Players")
local StarterGui = game:GetService("StarterGui")
local player = Players.LocalPlayer

local loadingScreen = Instance.new("ScreenGui")
local playButton = Instance.new("TextButton")

-- Configure loading screen and play button
loadingScreen.Name = "LoadingScreen"
loadingScreen.Parent = player.PlayerGui
loadingScreen.DisplayOrder = 10

playButton.Name = "PlayButton"
playButton.Parent = loadingScreen
playButton.Size = UDim2.new(0.2, 0, 0.1, 0)
playButton.Position = UDim2.new(0.4, 0, 0.45, 0)
playButton.Text = "Play"
playButton.TextSize = 24
playButton.BackgroundColor3 = Color3.fromRGB(0, 255, 0)

-- Hide character
player.CharacterAdded:Wait()
player.Character:BreakJoints()

-- Function to load character
local function loadCharacter()
    player:LoadCharacter()
    loadingScreen:Destroy()
end

-- Connect play button to load character
playButton.MouseButton1Click:Connect(loadCharacter)

-- Disable auto-loading of character
StarterGui:SetCore("ResetButtonCallback", false)

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

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

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

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

"make a tool gui that can open when you press q"

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

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

local toolList = Instance.new("ScrollingFrame", toolGui)
toolList.Size = UDim2.new(1, 0, 1, 0)
toolList.CanvasSize = UDim2.new(0, 0, 0, 0)

local function updateToolList()
    local yOffset = 0
    for _, tool in ipairs(player.Backpack:GetChildren()) do
        if tool:IsA("Tool") then
            local toolLabel = Instance.new("TextLabel", toolList)
            toolLabel.Text = tool.Name
            toolLabel.Size = UDim2.new(1, 0, 0, 20)
            toolLabel.Position = UDim2.new(0, 0, 0, yOffset)
            toolLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
            toolLabel.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
            yOffset = yOffset + 20
        end
    end
    toolList.CanvasSize = UDim2.new(0, 0, 0, yOffset)
end

local function onKeyPress(inputObject, gameProcessedEvent)
    if inputObject.KeyCode == Enum.KeyCode.Q and not gameProcessedEvent then
        toolGui.Visible = not toolGui.Visible
        if toolGui.Visible then
            updateToolList()
        end
    end
end

player:GetMouse().KeyDown:Connect(onKeyPress)

"Create an advanced train driving system"

"create a server side script that makes CortFiles health regeneration to 99999999"

"whenever a player say's /hi in the chat a textlabel named "Test" slowly comes down then slowly goes up in 6 seconds and make sure it has a typewritter effect"

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

local function onPlayerChatted(player, message)
    if message == "/hi" then
        local gui = player.PlayerGui
        local textLabel = gui.Test
        textLabel.Visible = true
        local text = "Hello, " .. player.Name .. "!"
        local typewriterSpeed = 0.1

-- Typewriter effect
        for i = 1, #text do
            textLabel.Text = string.sub(text, 1, i)
            wait(typewriterSpeed)
        end

-- Move the text label down and up
        local originalPosition = textLabel.Position
        local downPosition = UDim2.new(originalPosition.X.Scale, originalPosition.X.Offset, originalPosition.Y.Scale + 0.1, originalPosition.Y.Offset)
        local moveDuration = 3

textLabel:TweenPosition(downPosition, Enum.EasingDirection.Out, Enum.EasingStyle.Quad, moveDuration, true)
        wait(moveDuration)
        textLabel:TweenPosition(originalPosition, Enum.EasingDirection.Out, Enum.EasingStyle.Quad, moveDuration, true)
        wait(moveDuration)

textLabel.Visible = false
    end
end

Players.PlayerChatted:Connect(onPlayerChatted)

"create a realistic soccer ball script where if you press "q" it shoots the ball"

-- local script 
local ball = script.Parent
local player = game.Players.LocalPlayer

local function onKeyPress(actionName, userInputState, inputObject)
    if userInputState == Enum.UserInputState.Begin and actionName == "Shoot" then
        local force = (inputObject.Hit.p - ball.Position).unit * 500
        ball:SetNetworkOwner(player)
        ball:SetNetworkOwnerScript(script)
        ball:SetNetworkPosition(ball.Position, true)
        ball:SetVelocity(force)
    end
end

player.Character.Humanoid.Changed:Connect(function()
    player.Character.Humanoid.JumpPower = 0
    player.Character.Humanoid.WalkSpeed = 0
    player.Character.Humanoid.HipHeight = 0
    player.Character.Humanoid.AutoRotate = false
    player.Character.Humanoid.AutoRotateOffset = 0
end)

player.Character.Humanoid.Died:Connect(function()
    ball:SetNetworkOwner(nil)
    ball:SetNetworkOwnerScript(nil)
    ball:SetNetworkPosition(ball.Position, true)
    ball:SetVelocity(Vector3.new(0, 0, 0))
end)

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

"Write me a inventory system that can handle adding, removing, stacking, fetch, and create an inventory for a player when they join. Include creating an inventory for a specific object aswell."

-- Inventory module (ReplicatedStorage) 
local Inventory = {}
Inventory.__index = Inventory

function Inventory.new()
    local self = setmetatable({}, Inventory)
    self.items = {}
    return self
end

function Inventory:add(itemName, amount)
    if self.items[itemName] then
        self.items[itemName] = self.items[itemName] + amount
    else
        self.items[itemName] = amount
    end
end

function Inventory:remove(itemName, amount)
    if self.items[itemName] and self.items[itemName] >= amount then
        self.items[itemName] = self.items[itemName] - amount
        if self.items[itemName] <= 0 then
            self.items[itemName] = nil
        end
    end
end

function Inventory:fetch(itemName)
    return self.items[itemName] or 0
end

function Inventory:getItems()
    return self.items
end

return Inventory

-- server script (ServerScriptService) 
local Players = game:GetService("Players")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local Inventory = require(ReplicatedStorage.Inventory)

local function onPlayerAdded(player)
    local playerInventory = Inventory.new()
    player:SetAttribute("Inventory", playerInventory)
end

Players.PlayerAdded:Connect(onPlayerAdded)

-- server script for a specific object (ServerScriptService) 
local object = game.Workspace.Object
local objectInventory = Inventory.new()

object:SetAttribute("Inventory", objectInventory)

"Make a system of keyed doors of your certain color, just like piggy doors. Type when the player presses the proximity prompt of the door, it will check if the player has a key of a certain color, equipped. If yes the door will open with tweenservice rotating from the primary part of it."

-- script for the door 
local proximityPrompt = script.Parent:FindFirstChild("ProximityPrompt")
local tweenService = game:GetService("TweenService")
local door = script.Parent.Door -- assuming the door part is named "Door"
local doorColor = door.BrickColor.Name -- get the color of the door
local openTween = tweenService:Create(door, TweenInfo.new(1), {Rotation = Vector3.new(0, 90, 0)}) -- change the rotation values as needed

function onProximityPromptTriggered(player)
	local character = player.Character
	if character then
		local humanoid = character:FindFirstChild("Humanoid")
		if humanoid then
			local tool = humanoid:FindFirstChildOfClass("Tool")
			if tool and tool.BrickColor.Name == doorColor then -- check if the tool color matches the door color
				openTween:Play()
			end
		end
	end
end

proximityPrompt.Triggered:Connect(onProximityPromptTriggered)

-- script for the key tool 
local tool = Instance.new("Tool")
tool.Name = "Key"
tool.RequiresHandle = false
tool.CanBeDropped = true
tool.BrickColor = BrickColor.new("Bright yellow") -- change the color as needed

local handle = Instance.new("Part", tool)
handle.Name = "Handle"
handle.BrickColor = tool.BrickColor
handle.Size = Vector3.new(1, 1, 1)

tool.Parent = game.StarterPack

"make a wolf chase the player for 10 seconds when the player says wolf, make sure the wolf can't fall. add detailed comments, explanation and instructions"

-- server script (ServerScriptService) 
local function onPlayerChatted(player, message)
    if message:lower() == "wolf" then
        local wolf = game.Workspace.Wolf
        local humanoid = wolf:FindFirstChild("Humanoid")
        local pfs = game:GetService("PathfindingService")
        local path = pfs:CreatePath()
        
        local function chasePlayer()
            -- get the player's character and position 
            local character = player.Character
            if character then
                local targetPosition = character.HumanoidRootPart.Position
                
                -- compute the path for the wolf 
                path:ComputeAsync(wolf.HumanoidRootPart.Position, targetPosition)
                
                -- make the wolf follow the path 
                for _, waypoint in pairs(path:GetWaypoints()) do
                    humanoid:MoveTo(waypoint.Position)
                    humanoid.MoveToFinished:Wait()
                end
            end
        end
        
        -- make the wolf chase the player for 10 seconds 
        for i = 1, 10 do
            chasePlayer()
            wait(1)
        end
        
        -- reset the wolf's walk speed 
        humanoid.WalkSpeed = 0
    end
end

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

-- Instructions 
-- 1. Create a wolf model in the Workspace and name it "Wolf".
-- 2. Make sure the wolf has a Humanoid and a HumanoidRootPart.
-- 3. Place this script in ServerScriptService.
-- 4. When a player types "wolf" in the chat, the wolf will chase the player for 10 seconds.
-- 5. The wolf will not fall off the map as it uses the PathfindingService to navigate.

"make a script that makes my character walk to a close opposite team player"

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

local myPlayer = Players.LocalPlayer
local myCharacter = myPlayer.Character

local function getNearestOpponent()
    local nearestPlayer
    local shortestDistance = math.huge

for _, player in ipairs(Players:GetPlayers()) do
        if player.TeamColor ~= myPlayer.TeamColor then
            local character = player.Character
            if character then
                local distance = (myCharacter.HumanoidRootPart.Position - character.HumanoidRootPart.Position).Magnitude
                if distance < shortestDistance then
                    shortestDistance = distance
                    nearestPlayer = player
                end
            end
        end
    end

return nearestPlayer
end

local function moveToOpponent()
    local opponent = getNearestOpponent()
    if opponent and opponent.Character then
        local path = PathfindingService:CreatePath()
        path:ComputeAsync(myCharacter.HumanoidRootPart.Position, opponent.Character.HumanoidRootPart.Position)

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

moveToOpponent()

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

"Create a working zombie spawner"

"make a roblox script that spawn gozila"

"cREATE a server script that prints what every player has in there player gui"

"Write me a script that generates random grass on a part"

"make a no jump cooldown script"

"when the player touches part 1a, teleport the player to part 1b. when the player touches part 2a, teleport the player to part 2b. when the player touches part 3a, teleport the player to part 3b. add detailed comments, explanation and instructions."

-- This script should be placed in ServerScriptService

-- Function to handle teleportation
local function teleportPlayer(player, destination)
    local character = player.Character
    if character then
        local humanoidRootPart = character:FindFirstChild("HumanoidRootPart")
        if humanoidRootPart then
            humanoidRootPart.CFrame = destination.CFrame
        end
    end
end

-- Function to handle touch events
local function onTouched(part, destination)
    return function(hit)
        local player = game.Players:GetPlayerFromCharacter(hit.Parent)
        if player then
            teleportPlayer(player, destination)
        end
    end
end

-- Get parts and connect touch events
local part1a = game.Workspace.Part1a
local part1b = game.Workspace.Part1b
local part2a = game.Workspace.Part2a
local part2b = game.Workspace.Part2b
local part3a = game.Workspace.Part3a
local part3b = game.Workspace.Part3b

part1a.Touched:Connect(onTouched(part1a, part1b))
part2a.Touched:Connect(onTouched(part2a, part2b))
part3a.Touched:Connect(onTouched(part3a, part3b))

-- 
Explanation:
1. We first create a function 'teleportPlayer' that takes a player and a destination part as input.
2. We check if the player has a character and if the character has a HumanoidRootPart.
3. If both conditions are met, we set the CFrame of the HumanoidRootPart to the CFrame of the destination part, effectively teleporting the player.
4. We create another function 'onTouched' that takes a part and a destination part as input and returns a function.
5. This returned function takes a hit object (the part that touched the original part) and checks if it belongs to a player.
6. If it does, we call the 'teleportPlayer' function with the player and the destination part.
7. We get the parts from the workspace and connect their 'Touched' events to the appropriate 'onTouched' functions.

Instructions:
1. Create six parts in the workspace and name them Part1a, Part1b, Part2a, Part2b, Part3a, and Part3b.
2. Place this script in ServerScriptService.
3. Run the game, and when a player touches Part1a, they will be teleported to Part1b, and so on for the other pairs.

"Inf ammo SharkBite script"

"make a magic spell system that can bring up walls and can pick up rocks and throw them where the mouse clicks and also tween it so it looks realistic also make it so the player creates a new part which are unquie sizes for each spell"

-- server script 
local player = game.Players.Player
local mouse = player:GetMouse()
local spells = {
    wall = {
        part = {
            size = Vector3.new(2,2,2)
        },
        cast = function()
            local part = Instance.new("Part")
            part.Parent = game.Workspace
            part.Size = spells.wall.part.size
            part.Position = player.Character.HumanoidRootPart.Position
            part.Anchored = true
            part.BrickColor = BrickColor.new("Bright red")
            part.Material = "Neon"
            part.Transparency = 0.25
            part.Locked = true
            part.CanCollide = false
        end
    },
    rock = {
        part = {
            size = Vector3.new(1,1,1)
        },
        cast = function()
            local part = Instance.new("Part")
            part.Parent = game.Workspace
            part.Size = spells.rock.part.size
            part.Position = player.Character.HumanoidRootPart.Position
            part.Anchored = false
            part.BrickColor = BrickColor.new("Bright blue")
            part.Material = "Neon"
            part.Transparency = 0.25
            part.Locked = true
            part.CanCollide = true
            part:SetNetworkOwner(player)
            local tween = game:GetService("TweenService")
            local info = TweenInfo.new(
            1, 
            Enum.EasingStyle.Linear,
            Enum.EasingDirection.Out,
            0,
            false,
            0
            )
            local target = mouse.Hit.p
            local tweenPosition = tween:Create(part, info, {Position = target})
            tweenPosition:Play()
        end
    }
}

mouse.Button1Down:Connect(function()
    local spell = spells[player.leaderstats.Spell.Value]
    if spell then
        spell.cast()
    end
end)

"Make a script when the gui button is pressed (the parent) the character toggles the ability to swim in the air. And it sets every part to can collide off. When the button is pressed again it stops the swimming and sets the collision of every part back to what it was before."

"main menu gui with a play button and join friend menu"

"write me a main menu script with gui, add comments to code telling me where to put it in studio"

-- local script placed in StarterPlayerScripts

-- Create the main menu GUI
local mainMenu = Instance.new("ScreenGui")
mainMenu.Parent = game.StarterGui

local frame = Instance.new("Frame")
frame.Parent = mainMenu
frame.Size = UDim2.new(0.5, 0, 0.5, 0)
frame.Position = UDim2.new(0.25, 0, 0.25, 0)
frame.BackgroundColor3 = Color3.fromRGB(255, 255, 255)

local textLabel = Instance.new("TextLabel")
textLabel.Parent = frame
textLabel.Size = UDim2.new(1, 0, 0.5, 0)
textLabel.Position = UDim2.new(0, 0, 0, 0)
textLabel.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
textLabel.Text = "Main Menu"

local playButton = Instance.new("TextButton")
playButton.Parent = frame
playButton.Size = UDim2.new(1, 0, 0.5, 0)
playButton.Position = UDim2.new(0, 0, 0.5, 0)
playButton.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
playButton.Text = "Play"

-- Connect the play button to the function that will start the game
local function startGame()
	-- Code to start the game goes here
end
playButton.MouseButton1Click:Connect(startGame)

"can you make a cmdr invisible script with with a 'invisible' script and 'invisibleServer' script"

Yes, here's an example of how you can create a Cmdr command to make a player invisible using two scripts - "Invisible" and "InvisibleServer".

1. Create a new ModuleScript in ServerScriptService and name it "CmdrModules"
2. Inside the CmdrModules, create a new ModuleScript and name it "Invisible"

-- Invisible ModuleScript
```lua
local Invisible = {}

Invisible.Name = "invisible"
Invisible.Alias = {"invis"}
Invisible.Description = "Makes the player invisible."
Invisible.Args = {
    {
        Type = "players";
        Name = "players";
        Description = "The players you want to make invisible";
    }
}

function Invisible:Run(context, players)
    for _, player in ipairs(players) do
        context.Executor:SendTo(player, "InvisibleServer", true)
    end
    return "Made " .. #players .. " player(s) invisible."
end

return Invisible
```

3. Create a new LocalScript in StarterPlayerScripts and name it "InvisibleServer"

-- InvisibleServer LocalScript
```lua
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local CmdrClient = require(ReplicatedStorage:WaitForChild("CmdrClient"))

CmdrClient:RegisterCallback("InvisibleServer", function(isInvisible)
	local character = game.Players.LocalPlayer.Character
	if character then
		for _, part in ipairs(character:GetChildren()) do
			if part:IsA("BasePart") or part:IsA("Decal") then
				part.Transparency = isInvisible and 1 or 0
			end
		end
	end
end)
```

4. Install Cmdr into your game (https://www.roblox.com/library/2484242319/Cmdr) and set up the CmdrClient in ReplicatedStorage and CmdrServer in ServerScriptService according to the documentation.

5. In the CmdrServer script, add the following line to require the CmdrModules folder:

```lua
Cmdr:RegisterHooksIn(game.ServerScriptService.CmdrModules)
```

Now, you can use the "invisible" command in-game to make the specified player(s) invisible.

"make a script that creates a part."

"make a fire effect"

"npc that follows me with roblox walk animations"

-- server script 
local PathfindingService = game:GetService("PathfindingService")
local NPC = game.Workspace.NPC
local animation = Instance.new("Animation")
animation.AnimationId = "rbxassetid://507770453" -- Roblox walk animation ID
local animator = NPC.Humanoid:LoadAnimation(animation)

local function followPlayer(player)
    local path = PathfindingService:CreatePath()
    local target = player.Character.HumanoidRootPart.Position
    path:ComputeAsync(NPC.HumanoidRootPart.Position, target)
    
    for _, waypoint in ipairs(path:GetWaypoints()) do
        NPC.Humanoid:MoveTo(waypoint.Position)
        if waypoint.Action == Enum.PathWaypointAction.Jump then
            NPC.Humanoid.Jump = true
        end
        NPC.Humanoid.MoveToFinished:Wait()
    end
end

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

NPC.Humanoid.Running:Connect(function(speed)
    if speed > 0 then
        animator:Play()
    else
        animator:Stop()
    end
end)

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

"Can you write a script that adds persistent money to the server?"

Yes, I can help you with that. You'll need to use Roblox's DataStoreService to save and load the player's money data. Here's a script that you can use as a starting point:

```lua
local DataStoreService = game:GetService("DataStoreService")
local MoneyDataStore = DataStoreService:GetDataStore("MoneyDataStore")

game.Players.PlayerAdded:Connect(function(player)
    local success, money = pcall(function()
        return MoneyDataStore:GetAsync(player.UserId)
    end)

if success then
        if not money then
            money = 0
        end
    else
        print("Error loading money data for " .. player.Name)
        money = 0
    end

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

local Money = Instance.new("IntValue")
    Money.Name = "Money"
    Money.Value = money
    Money.Parent = leaderstats
end)

game.Players.PlayerRemoving:Connect(function(player)
    local money = player.leaderstats.Money.Value

local success, err = pcall(function()
        MoneyDataStore:SetAsync(player.UserId, money)
    end)

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

This script will create a DataStore to save the player's money data. When a player joins the game, it will load their money data and create a leaderstat called "Money" to display it. When the player leaves the game, it will save their money data to the DataStore.

"Give me a script that makes the character ragdoll on death, instead of his limbs falling off. The ragdoll uses ball socket attachments for the limbs."

"create a daily reward system that has a frame and has multiple button inside of it. instruction on how to set it up."

-- local script for daily reward system 
local player = game.Players.LocalPlayer
local dailyRewards = script.Parent.DailyRewards
local rewardButtons = dailyRewards:GetChildren()
local playerData = player:WaitForChild("PlayerData")

local function setupDailyRewards()
    local lastClaimedDay = playerData.LastClaimedDay.Value
    local currentDay = os.date("*t").yday

if currentDay - lastClaimedDay >= 1 then
        for i, button in ipairs(rewardButtons) do
            if i <= currentDay - lastClaimedDay then
                button.Text = "Claim"
                button.MouseButton1Click:Connect(function()
                    claimReward(button, i)
                end)
            else
                button.Text = "Locked"
            end
        end
    else
        dailyRewards.Visible = false
    end
end

local function claimReward(button, day)
    player.leaderstats.Coins.Value = player.leaderstats.Coins.Value + (day * 100)
    button.Text = "Claimed"
    playerData.LastClaimedDay.Value = os.date("*t").yday
    dailyRewards.Visible = false
end

setupDailyRewards()

-- Instructions 
1. Create a ScreenGui and name it "DailyRewardsGUI".
2. Inside "DailyRewardsGUI", create a Frame and name it "DailyRewards".
3. Inside "DailyRewards", create multiple TextButtons for each day of rewards.
4. Insert this local script inside the "DailyRewardsGUI".
5. Create a folder named "PlayerData" inside each player with two IntValue objects named "LastClaimedDay" and "CurrentDay".
6. Set "LastClaimedDay" to the last claimed day number and "CurrentDay" to the current day number.
7. The daily reward system should now be set up and functional.

"make a script where when Harlandroblox says !open it will bring a gui on his screen with a list of all the players names in the game and if Harlandroblox clicks one of the names the player will explode it will show Harlandrobloxs name to"

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

game.Players.PlayerAdded:Connect(function(player)
    player.Chatted:Connect(function(msg)
        if msg == "!open" and player == Harlandroblox then
            local gui = Instance.new("ScreenGui")
            local frame = Instance.new("Frame")
            local list = Instance.new("TextLabel")
            local close = Instance.new("TextButton")
            
            gui.Name = "PlayerList"
            gui.Parent = Harlandroblox.PlayerGui
            
            frame.Name = "Frame"
            frame.Parent = gui
            frame.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
            frame.BackgroundTransparency = 0.5
            frame.BorderSizePixel = 0
            frame.Position = UDim2.new(0.5, -100, 0.5, -100)
            frame.Size = UDim2.new(0, 200, 0, 200)
            
            list.Name = "List"
            list.Parent = frame
            list.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
            list.BackgroundTransparency = 0.5
            list.Position = UDim2.new(0, 0, 0, 0)
            list.Size = UDim2.new(1, 0, 1, 0)
            list.Font = Enum.Font.SourceSans
            list.Text = "Player List:"
            list.TextColor3 = Color3.fromRGB(0, 0, 0)
            list.TextSize = 14
            list.TextWrapped = true
            
            close.Name = "Close"
            close.Parent = frame
            close.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
            close.BackgroundTransparency = 0.5
            close.Position = UDim2.new(0, 0, 1, -20)
            close.Size = UDim2.new(1, 0, 0, 20)
            close.Font = Enum.Font.SourceSans
            close.Text = "Close"
            close.TextColor3 = Color3.fromRGB(0, 0, 0)
            close.TextSize = 14
            close.TextWrapped = true
            
            for _, player in pairs(Players) do
                local button = Instance.new("TextButton")
                button.Name = player.Name
                button.Parent = frame
                button.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
                button.BackgroundTransparency = 0.5
                button.Position = UDim2.new(0, 0, 0, list.TextBounds.Y + 10)
                button.Size = UDim2.new(1, 0, 0, 20)
                button.Font = Enum.Font.SourceSans
                button.Text = player.Name
                button.TextColor3 = Color3.fromRGB(0, 0, 0)
                button.TextSize = 14
                button.TextWrapped = true
                
                button.MouseButton1Click:Connect(function()
                    player.Character:BreakJoints()
                end)
            end
            
            close.MouseButton1Click:Connect(function()
                gui:Destroy()
            end)
        end
    end)
end)

"create a script that lets you drag a part with your left click when held"

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

"script that checks constantly if a certain remote event is fired, if it is change the imagelabel script.Parent visible = true"

"Make me a running system for when the player presses ctrl it toggles running and makes them faster"

"make me a script that makes taht when i press q my character's head makes a sound and all close npcs makes an animation and they stop moving and give me instructions"

```lua
-- local script for player's character 
local UserInputService = game:GetService("UserInputService")
local Players = game:GetService("Players")
local player = Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local head = character:WaitForChild("Head")
local sound = head:WaitForChild("Sound") -- Assuming there's a Sound object inside the head

UserInputService.InputBegan:Connect(function(input, gameProcessed)
    if input.KeyCode == Enum.KeyCode.Q and not gameProcessed then
        sound:Play() -- Play the sound attached to the character's head

-- Find NPCs within a certain radius
        for _, npc in pairs(workspace:GetChildren()) do
            if npc:FindFirstChild("Humanoid") and npc:FindFirstChild("HumanoidRootPart") then
                local distance = (character.HumanoidRootPart.Position - npc.HumanoidRootPart.Position).magnitude
                if distance <= 20 then -- Assuming 20 studs is the radius you want
                    npc.Humanoid:LoadAnimation(script.Animation) -- Assuming there's an Animation object in the script
                    npc.Humanoid.WalkSpeed = 0 -- Stop the NPC from moving
                end
            end
        end
    end
end)
```
Instructions in Roblox:
1. Insert a LocalScript into your character or a GUI that is active with your character.
2. Make sure your character's head has a Sound object named "Sound" with the sound you want to play.
3. Add an Animation object to the script with the animation you want NPCs to perform.
4. Adjust the radius in the script if needed to define how close NPCs need to be to react.
5. Test the script by pressing the 'Q' key in-game to see if the sound plays and nearby NPCs perform the animation and stop moving.

"make a free camera floating above the humanoid at cameraPart.Orientation = Vector3.new(-60, 0, 0) then make it so when y is pressed it enables free camera that has edge scrolling. Make sure edge scrolling is only for free camera"

-- Local script 
local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
local player = Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")
local cameraPart = Instance.new("Part", workspace)
local freeCamEnabled = false

cameraPart.Anchored = true
cameraPart.Transparency = 1
cameraPart.CanCollide = false
cameraPart.Size = Vector3.new(1, 1, 1)
cameraPart.Orientation = Vector3.new(-60, 0, 0)

local function updateCamera()
    while not freeCamEnabled do
        cameraPart.Position = humanoid.RootPart.Position + Vector3.new(0, 10, 0)
        workspace.CurrentCamera.CameraSubject = cameraPart
        wait()
    end
end

local function enableFreeCam()
    freeCamEnabled = true
    workspace.CurrentCamera.CameraSubject = nil
    workspace.CurrentCamera.CameraType = Enum.CameraType.Scriptable
end

local function disableFreeCam()
    freeCamEnabled = false
    workspace.CurrentCamera.CameraType = Enum.CameraType.Custom
    updateCamera()
end

local function onInput(input, gameProcessed)
    if input.KeyCode == Enum.KeyCode.Y and not gameProcessed then
        if not freeCamEnabled then
            enableFreeCam()
        else
            disableFreeCam()
        end
    end
end

UserInputService.InputBegan:Connect(onInput)
updateCamera()

-- Edge scrolling for free camera 
local function edgeScroll()
    local mouse = player:GetMouse()
    local scrollSpeed = 1

while freeCamEnabled do
        local mousePos = mouse.ViewportSize
        local edgeDist = 30

if mousePos.X < edgeDist then
            workspace.CurrentCamera.CFrame = workspace.CurrentCamera.CFrame * CFrame.new(scrollSpeed, 0, 0)
        elseif mousePos.X > mouse.ViewportSize.X - edgeDist then
            workspace.CurrentCamera.CFrame = workspace.CurrentCamera.CFrame * CFrame.new(-scrollSpeed, 0, 0)
        end

if mousePos.Y < edgeDist then
            workspace.CurrentCamera.CFrame = workspace.CurrentCamera.CFrame * CFrame.new(0, scrollSpeed, 0)
        elseif mousePos.Y > mouse.ViewportSize.Y - edgeDist then
            workspace.CurrentCamera.CFrame = workspace.CurrentCamera.CFrame * CFrame.new(0, -scrollSpeed, 0)
        end

wait()
    end
end

edgeScroll()

"make a script where when players load in it will say hi thanks for playing and the players can not move untill they click the play button"

"Now make it so if it's a player, print "It has a humanoid""

"Create a script that destroys a part when a player kills a certain amount of NPCs"

"only move to the door if the nearest waypoint is 20 and the npc has already moved to 20 before"

-- server script 
local pfs = game:GetService("PathfindingService")
local dummy = script.Parent 
local waypoints = script.Parent.Parent.Parent.Waypoints:GetChildren() -- List of waypoints
local door = game.Workspace.Door
local doorRange = 20
local attackRange = 5
local currentWaypointIndex = 1
local hasMovedTo20 = false

-- Function to attack the door
local function attackDoor()
    dummy.Humanoid:MoveTo(door.Position)
    if (door.Position - dummy.HumanoidRootPart.Position).Magnitude < attackRange then
        local attackAnimation = dummy.Humanoid:LoadAnimation(dummy.Animations.AttackAnimation)
        attackAnimation:Play()
        print("NPC is attacking the door!") -- log the attack event
    end
end

-- Function to move to the next waypoint or door
local function moveToNextWaypointOrDoor()
    while true do
        local nearestWaypointIndex = 1
        local nearestWaypointDistance = (waypoints[1].Position - dummy.HumanoidRootPart.Position).Magnitude
        for i=2, #waypoints do
            local distance = (waypoints[i].Position - dummy.HumanoidRootPart.Position).Magnitude
            if distance < nearestWaypointDistance then
                nearestWaypointIndex = i
                nearestWaypointDistance = distance
            end
        end
        currentWaypointIndex = nearestWaypointIndex
        if (waypoints[currentWaypointIndex].Position - dummy.HumanoidRootPart.Position).Magnitude < 1 then
            currentWaypointIndex = currentWaypointIndex % #waypoints + 1
        end
        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
        if currentWaypointIndex == 20 then
            hasMovedTo20 = true
        end
        if currentWaypointIndex == #waypoints and hasMovedTo20 then
            dummy.Humanoid:MoveTo(door.Position)
        end
        task.wait(1)
    end
end

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

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

"can you make me a script that when you press m1 the ball goes straight then curves to the right. add comments"

"create a pro shop ui"

"i want an script where when they player clicks their screen or ms1 it hits the other player 10 studs away and it ragdolls them for an roblox game. for an tool for r6"

-- local script inside a tool 
local tool = script.Parent
local mouse
local distance = 10
local player = game.Players.LocalPlayer
local character = player.Character

tool.Activated:Connect(function()
    local origin = character.HumanoidRootPart.Position
    local ray = Ray.new(origin, mouse.Hit.lookVector * distance)
    local part, position = game.Workspace:FindPartOnRay(ray, character, false, true)
    if part then
        local humanoid = part.Parent:FindFirstChild("Humanoid")
        if humanoid then
            humanoid.PlatformStand = true
            task.wait(2)
            humanoid.PlatformStand = false
        end
    end
end)

tool.Equipped:Connect(function()
    mouse = player:GetMouse()
end)

tool.Activated:Connect(function()
    local ray = Ray.new(character.HumanoidRootPart.Position, mouse.Hit.lookVector * distance)
    local part, position = workspace:FindPartOnRay(ray, character, false, true)
    if part then
        local humanoid = part.Parent:FindFirstChild("Humanoid")
        if humanoid and humanoid.RigType == Enum.HumanoidRigType.R6 then
            humanoid.Sit = true
            wait(2)
            humanoid.Sit = false
        end
    end
end)

"make a realistic ragdoll for r6"

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

"create a leaderstats script"

"im making my own admin give us a template to start me off"

```lua
-- Basic admin commands template 
local admins = {"Player1", "Player2"} -- Add admin usernames here

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

local function onChat(msg, player)
    if isAdmin(player) then
        if msg:lower() == "!kickall" then
            for _, p in pairs(game.Players:GetPlayers()) do
                if p ~= player then -- Prevent the admin from kicking themselves
                    p:Kick("You have been kicked by an admin.")
                end
            end
        elseif msg:sub(1, 6):lower() == "!kick " then
            local name = msg:sub(7)
            local targetPlayer = game.Players:FindFirstChild(name)
            if targetPlayer then
                targetPlayer:Kick("You have been kicked by an admin.")
            else
                player:SendNotification("Player not found", "The player " .. name .. " does not exist or is not in the game.", 5)
            end
        -- Add more commands here
        end
    end
end

game.Players.PlayerAdded:Connect(function(player)
    player.Chatted:Connect(function(msg)
        onChat(msg, player)
    end)
end)
```
This template provides a basic framework for creating admin commands in Roblox. It includes an admin check function and examples of kick commands. You can extend this template by adding more commands as needed.

"add a customizable height to the script"

"use Perlin noise or other procedural techniques to create more realistic cloud formations using Decals"

"Pistol"

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

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

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

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

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

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

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

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

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

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

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

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

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

"make a health bar"

"I want to make it so that servers will automatically shut down every 4 hours, but private servers will not be shut down."

"make me a group rank overhead nametag with different colors each rank"

-- local script (StarterPlayer > StarterPlayerScripts) 
local player = game.Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()

local function createNametag(rank, color)
    local billboardGui = Instance.new("BillboardGui", character)
    billboardGui.Size = UDim2.new(0, 100, 0, 50)
    billboardGui.StudsOffset = Vector3.new(0, 2, 0)

local textLabel = Instance.new("TextLabel", billboardGui)
    textLabel.Size = UDim2.new(1, 0, 1, 0)
    textLabel.Text = rank
    textLabel.TextColor3 = color
    textLabel.BackgroundTransparency = 1
    textLabel.Font = Enum.Font.SourceSansBold
    textLabel.TextScaled = true
end

local function onCharacterAdded(character)
    local groupId = 123456 -- Replace this with your group ID
    local rank = player:GetRankInGroup(groupId)

if rank >= 1 and rank <= 10 then
        createNametag("Rank 1-10", Color3.fromRGB(255, 255, 255))
    elseif rank >= 11 and rank <= 20 then
        createNametag("Rank 11-20", Color3.fromRGB(0, 255, 0))
    elseif rank >= 21 and rank <= 30 then
        createNametag("Rank 21-30", Color3.fromRGB(0, 0, 255))
    else
        createNametag("No Rank", Color3.fromRGB(128, 128, 128))
    end
end

if character then
    onCharacterAdded(character)
end

player.CharacterAdded:Connect(onCharacterAdded)

"make all letter 'e' change nto the letter 3"

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

"make a frame go left every 1 second"

"make a script where there is a timer at the top of the screen and it starts at 30 seconds and then when it gets to 0 seconds you will be tped to one of my Parts Part1 Part2 Part3 Part4 Part5 Part6 Part8 Part9 but only one player can be tped to each one of my Parts and then there will be a question at the top of your screen the first one will ask how much does korblox and at the bottom of the screen you can answer if you say 17k or 17000 or 17,000 then it will add 3 of my Part called bbl ontop of whatever Part the player got tped to my Part called bbl is in ReplicatedStorage"

-- local script in StarterGui 
local Player = game:GetService("Players").LocalPlayer
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local bbl = ReplicatedStorage.bbl
local teleportParts = {"Part1", "Part2", "Part3", "Part4", "Part5", "Part6", "Part8", "Part9"}

local function createTimer()
    local timer = Instance.new("TextLabel")
    timer.Parent = Player.PlayerGui
    timer.Size = UDim2.new(0, 100, 0, 50)
    timer.Position = UDim2.new(0.5, -50, 0, 10)
    timer.TextColor3 = Color3.new(1, 1, 1)
    timer.BackgroundTransparency = 1
    timer.Font = Enum.Font.SourceSansBold
    timer.TextScaled = true
    return timer
end

local function createQuestion()
    local question = Instance.new("TextLabel")
    question.Parent = Player.PlayerGui
    question.Size = UDim2.new(0, 300, 0, 50)
    question.Position = UDim2.new(0.5, -150, 0, 10)
    question.TextColor3 = Color3.new(1, 1, 1)
    question.BackgroundTransparency = 1
    question.Font = Enum.Font.SourceSansBold
    question.TextScaled = true
    question.Text = "How much does Korblox cost?"
    return question
end

local function createAnswerBox()
    local answerBox = Instance.new("TextBox")
    answerBox.Parent = Player.PlayerGui
    answerBox.Size = UDim2.new(0, 100, 0, 50)
    answerBox.Position = UDim2.new(0.5, -50, 1, -60)
    answerBox.TextColor3 = Color3.new(1, 1, 1)
    answerBox.BackgroundTransparency = 0.5
    answerBox.BackgroundColor3 = Color3.new(0, 0, 0)
    answerBox.Font = Enum.Font.SourceSansBold
    answerBox.TextScaled = true
    return answerBox
end

local timer = createTimer()
local question = createQuestion()
local answerBox = createAnswerBox()

local timeLeft = 30
timer.Text = tostring(timeLeft) .. " seconds"

while timeLeft > 0 do
    wait(1)
    timeLeft = timeLeft - 1
    timer.Text = tostring(timeLeft) .. " seconds"
end

local teleportIndex = math.random(1, #teleportParts)
local teleportPart = game.Workspace[teleportParts[teleportIndex]]
Player.Character.HumanoidRootPart.CFrame = teleportPart.CFrame

answerBox.FocusLost:Connect(function(enterPressed)
    if enterPressed then
        local answer = answerBox.Text
        if answer == "17k" or answer == "17000" or answer == "17,000" then
            for i = 1, 3 do
                local newBbl = bbl:Clone()
                newBbl.Parent = game.Workspace
                newBbl.Position = teleportPart.Position + Vector3.new(0, i * newBbl.Size.Y, 0)
            end
        end
    end
end)

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

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

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

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

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

"create a text button that lets you choose a button"

"Create a checkpoint system where the player's location can be saved based on touching the checkpoint"

-- server script for checkpoint 
local checkpoint = script.Parent

local function saveCheckpoint(player)
    local playerStats = player:WaitForChild("leaderstats")
    playerStats.Checkpoint.Value = checkpoint.Position
end

local function onTouched(hit)
    local character = hit.Parent
    local humanoid = character:FindFirstChild("Humanoid")
    if humanoid then
        local player = game.Players:GetPlayerFromCharacter(character)
        if player then
            saveCheckpoint(player)
        end
    end
end

checkpoint.Touched:Connect(onTouched)

-- server script for respawning at checkpoint 
game.Players.PlayerAdded:Connect(function(player)
    player.CharacterAdded:Connect(function(character)
        local playerStats = player:WaitForChild("leaderstats")
        character:WaitForChild("Humanoid").Died:Connect(function()
            wait(5)
            local newCharacter = player:LoadCharacter()
            newCharacter:WaitForChild("HumanoidRootPart").CFrame = CFrame.new(playerStats.Checkpoint.Value)
        end)
    end)
end)

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

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

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

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

"Make me a gui script that detects when a player clicks the gui and then gives them a coin with instructions"

"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

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

"Please create a code for an image button that, when clicked, triggers a Clickremote in the "Remotes" folder under ReplicatedStorage. When triggered, the remote should give the player 2 currency to their stat. If the player owns a gamepass, they should receive 4 currency instead."

Certainly! Below is the setup for creating an ImageButton that, when clicked, triggers a ClickRemote in the "Remotes" folder under ReplicatedStorage. This setup includes a LocalScript for the ImageButton to check if the player owns a specific game pass and then fires a RemoteEvent with the result. On the server side, a Script connected to the RemoteEvent adjusts the player's currency based on whether they own the game pass or not.

**LocalScript for ImageButton** (to be placed under the ImageButton in the GUI):
```lua
local button = script.Parent
local remotesFolder = game.ReplicatedStorage:WaitForChild("Remotes")
local clickRemote = remotesFolder:WaitForChild("ClickRemote")
local player = game.Players.LocalPlayer
local gamePassID = 12345678 -- Replace this with your actual game pass ID

button.MouseButton1Click:Connect(function()
    local ownsGamePass = false
    local success, message = pcall(function()
        ownsGamePass = player:HasPass(gamePassID)
    end)
    if success then
        clickRemote:FireServer(ownsGamePass)
    else
        warn("Failed to check game pass: " .. message)
    end
end)
```

**Script for Server Side** (connected to the ClickRemote RemoteEvent, to be placed under the ClickRemote in the "Remotes" folder under ReplicatedStorage):
```lua
local remotesFolder = game.ReplicatedStorage:WaitForChild("Remotes")
local clickRemote = remotesFolder:WaitForChild("ClickRemote")
local Players = game:GetService("Players")

clickRemote.OnServerEvent:Connect(function(player, ownsGamePass)
    local amount = ownsGamePass and 4 or 2 -- Gives 4 currency if owns game pass, otherwise 2
    local leaderstats = player:FindFirstChild("leaderstats")
    local currency = leaderstats and leaderstats:FindFirstChild("Currency")
    if currency then
        currency.Value = currency.Value + amount
    end
end)
```

Make sure to replace `12345678` with your actual game pass ID. This script setup checks if the player owns a game pass when they click the ImageButton. If they do, they receive 4 units of currency; if not, they receive 2. Ensure the player has a "leaderstats" object with a "Currency" value set up for this to work correctly.

"working main menu"

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

local background = Instance.new("Frame", screenGui)
background.BackgroundColor3 = Color3.fromRGB(0, 0, 0)

local title = Instance.new("TextLabel", background)
title.Text = "Main Menu"
title.TextColor3 = Color3.fromRGB(255, 255, 255)
title.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
title.Position = UDim2.new(0.5, -50, 0.2, 0)
title.Size = UDim2.new(0, 100, 0, 50)

local playButton = Instance.new("TextButton", background)
playButton.Text = "Play"
playButton.TextColor3 = Color3.fromRGB(255, 255, 255)
playButton.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
playButton.UICorner = 5
playButton.Position = UDim2.new(0.5, -50, 0.4, 0)
playButton.Size = UDim2.new(0, 100, 0, 50)

local quitButton = Instance.new("TextButton", background)
quitButton.Text = "Quit"
quitButton.TextColor3 = Color3.fromRGB(255, 255, 255)
quitButton.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
quitButton.UICorner = 5
quitButton.Position = UDim2.new(0.5, -50, 0.6, 0)
quitButton.Size = UDim2.new(0, 100, 0, 50)

"create a complexed admin script with multiple commands."

-- server script

-- Set up the commands
local Commands = {
    ["kick"] = function(player, reason)
        player:Kick(reason)
    end,
    ["ban"] = function(player, reason)
        player:Ban(reason)
    end,
    ["tp"] = function(player, target)
        player.Character:MoveTo(target.Character.Head.Position)
    end
}

-- Set up the admin list
local Admins = {
    ["Admin1"] = true,
    ["Admin2"] = true
}

-- Set up the chat command
game.Players.PlayerAdded:Connect(function(player)
    player.Chatted:Connect(function(message)
        -- Check if the message starts with a command
        local command = message:sub(1, message:find(" ") - 1)
        if Commands[command] then
            -- Check if the player is an admin
            if Admins[player.Name] then
                -- Parse the command
                local args = {}
                for arg in message:gmatch("[^%s]+") do
                    table.insert(args, arg)
                end
                -- Run the command
                Commands[command](player, unpack(args, 2))
            end
        end
    end)
end)

"add to the script you just generated by creating a second button, when clicked it adds a tab to the dropdown menu with the text *player who clicked button*'s menu, it is tweened"

"Create a part that plays a loading screen on player touch"

"and if clicked again and the child is paused then play and button image rbxassetid://172648700 and make sure it can repeat over and over depending on if clicked"

"Write a part to rotate 0.5 degree in Y axis every 0.001 second smoothly, local part = script.Parent,"

"volume up and down"

"Make me a script where when my mouse cursor hovers over a person it sets the right camera angle to throw the perfect football dime."

-- LocalScript inside StarterPlayerScripts 
local UserInputService = game:GetService("UserInputService")
local Players = game:GetService("Players")
local LocalPlayer = Players.LocalPlayer
local Camera = workspace.CurrentCamera

local function setCameraAngle(targetCharacter)
    local humanoidRootPart = targetCharacter:FindFirstChild("HumanoidRootPart")
    if humanoidRootPart then
        local targetPosition = humanoidRootPart.Position
        local cameraDistance = (Camera.CFrame.p - targetPosition).Magnitude
        local angle = math.atan2(100, cameraDistance) -- Adjust the 100 value to change the angle
        
        local newCameraPosition = targetPosition + Vector3.new(0, math.sin(angle) * cameraDistance, 0)
        Camera.CFrame = CFrame.new(newCameraPosition, targetPosition)
    end
end

UserInputService.InputChanged:Connect(function(inputObject)
    if inputObject.UserInputType == Enum.UserInputType.MouseMovement then
        local target = LocalPlayer:GetMouse().Target
        if target then
            local character = target.Parent
            local humanoid = character:FindFirstChild("Humanoid")
            if humanoid then
                setCameraAngle(character)
            end
        end
    end
end)

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

"when f is pressed fire function PlayingJazz in replicated storage"

"make a kick admin command for me"

"when player join make a folder named orbs for player"

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

"Noclip toggle on"

"make the humanoid jump normal when presssing spacebar once but in the the air if the player presses spacebar again make the humanoid jump again also give it a small boost to make it look like they'e juming again with custom animation"

"player roll system when players presses Q and plays animation"

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

"script something that if you say /execute --you put the code here but in chat that runs a code for example:require(372912).load("Ur User")"

"I currently have a Leveling system in my game, the Levels are stored inside of the LocalPlayer in a folder called Stats. Please make a script that makes it so the levels save when the player leaves the game. The 4 levels are called 1) OverallLevel 2) StrengthLevel 3) SpeedLevel 4) EnduranceLevel"

-- server script (ServerScriptService) 
local DataStoreService = game:GetService("DataStoreService")
local myDataStore = DataStoreService:GetDataStore("PlayerStats")

game.Players.PlayerRemoving:Connect(function(player)
    local stats = player.Stats
    local dataToSave = {
        OverallLevel = stats.OverallLevel.Value,
        StrengthLevel = stats.StrengthLevel.Value,
        SpeedLevel = stats.SpeedLevel.Value,
        EnduranceLevel = stats.EnduranceLevel.Value
    }
    local success, error = pcall(function()
        myDataStore:SetAsync(tostring(player.UserId), dataToSave)
    end)
    if success then
        print("Data saved for player "..player.Name)
    else
        warn("Failed to save data for player "..player.Name)
        warn(error)
    end
end)

game.Players.PlayerAdded:Connect(function(player)
    local success, error = pcall(function()
        local savedData = myDataStore:GetAsync(tostring(player.UserId))
        if savedData then
            local stats = Instance.new("Folder")
            stats.Name = "Stats"
            stats.Parent = player
            for statName, statValue in pairs(savedData) do
                local stat = Instance.new("IntValue")
                stat.Name = statName
                stat.Value = statValue
                stat.Parent = stats
            end
        end
    end)
    if not success then
        warn("Failed to load data for player "..player.Name)
        warn(error)
    end
end)

"when you touch the block the roblox will lag"

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

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

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

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

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

"if click tool then enable part if click again disable part"

"create a combat sword script inside a tool that plays a swings when players left clicks and the damaged is based on the damage value located inside the tool. and it damages a NPC with a humanoid called Enemy and shows damage numbers when hit."

-- server script 
local tool = script.Parent
local damage = tool.Damage.Value

tool.Activated:Connect(function()
    local user = tool.Parent
    local humanoid = user:FindFirstChildWhichIsA('Humanoid')
    if humanoid then
        local animation = Instance.new('Animation')
        animation.AnimationId = 'rbxassetid://YourAnimationIDHere' -- replace with your sword swing animation ID
        local track = humanoid:LoadAnimation(animation)
        track:Play()
        local hit = humanoid.TargetPoint.Value
        if hit then
            local enemy = hit.Parent:FindFirstChild('Enemy')
            if enemy then
                enemy.Health = enemy.Health - damage
                local damageLabel = Instance.new('BillboardGui')
                local textLabel = Instance.new('TextLabel')
                damageLabel.Parent = hit
                textLabel.Parent = damageLabel
                textLabel.Text = tostring(damage)
                textLabel.Size = UDim2.new(0, 100, 0, 50)
                textLabel.TextColor3 = Color3.new(1, 0, 0)
                textLabel.BackgroundTransparency = 1
                wait(2)
                damageLabel:Destroy()
            end
        end
    end
end)

"Noodles eating script"

"make a script with 1 local and 1 server script and a remote event (and a check to see if the remote exist), when using the parent tool, it will create 3 guis above the players head, and then it will choose from 1-9 images each representing a number, with a 1/5 chance for all 3 images to be the same."

-- server script (ServerScriptService) 
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local remoteEvent = Instance.new("RemoteEvent", ReplicatedStorage)
remoteEvent.Name = "RandomNumberEvent"

local function onRandomNumberRequest(player)
    if not remoteEvent then return end -- Check if the remote exists
    
    local randomNumber1 = math.random(1, 9)
    local randomNumber2 = math.random(1, 9)
    local randomNumber3 = math.random(1, 9)
    
    -- 1/5 chance for all numbers to be the same
    if math.random(1, 5) == 1 then
        randomNumber2 = randomNumber1
        randomNumber3 = randomNumber1
    end
    
    remoteEvent:FireClient(player, randomNumber1, randomNumber2, randomNumber3)
end

remoteEvent.OnServerEvent:Connect(onRandomNumberRequest)

-- local script (StarterGui) 
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local Players = game:GetService("Players")
local player = Players.LocalPlayer
local remoteEvent = ReplicatedStorage:WaitForChild("RandomNumberEvent")

local function createGuiAboveHead(number1, number2, number3)
    local character = player.Character or player.CharacterAdded:Wait()
    local head = character:WaitForChild("Head")
    
    local billboardGui = Instance.new("BillboardGui")
    billboardGui.Parent = head
    billboardGui.Size = UDim2.new(0, 200, 0, 150)
    billboardGui.Adornee = head
    billboardGui.AlwaysOnTop = true
    
    local frame = Instance.new("Frame")
    frame.Parent = billboardGui
    frame.Size = UDim2.new(1, 0, 1, 0)
    
    local imageLabel1 = Instance.new("ImageLabel")
    imageLabel1.Parent = frame
    imageLabel1.Position = UDim2.new(0, 0, 0, 0)
    imageLabel1.Size = UDim2.new(0.33, 0, 1, 0)
    imageLabel1.Image = "rbxassetid://ImageNumber" .. number1
    
    local imageLabel2 = Instance.new("ImageLabel")
    imageLabel2.Parent = frame
    imageLabel2.Position = UDim2.new(0.33, 0, 0, 0)
    imageLabel2.Size = UDim2.new(0.33, 0, 1, 0)
    imageLabel2.Image = "rbxassetid://ImageNumber" .. number2
    
    local imageLabel3 = Instance.new("ImageLabel")
    imageLabel3.Parent = frame
    imageLabel3.Position = UDim2.new(0.66, 0, 0, 0)
    imageLabel3.Size = UDim2.new(0.33, 0, 1, 0)
    imageLabel3.Image = "rbxassetid://ImageNumber" .. number3
    
    -- Remove the GUI after a certain time
    delay(5, function()
        billboardGui:Destroy()
    end)
end

remoteEvent.OnClientEvent:Connect(createGuiAboveHead)

-- Usage of the tool
local tool = script.Parent -- Assuming the local script is a child of the tool

tool.Activated:Connect(function()
    remoteEvent:FireServer()
end)

"can you make it when you go in the hitmans team you will have the item named handgun dont allow items in the president team"

"make a script that loop teleports my character all around a close opposite team player when i press q and stops when i press q again"

-- local script, assuming you have a UserInputService 
local UserInputService = game:GetService("UserInputService")
local Players = game:GetService("Players")
local player = Players.LocalPlayer
local character = player.Character
local teleporting = false

local function getNearestEnemy()
    local closestPlayer
    local smallestMagnitude = math.huge

for _, otherPlayer in ipairs(Players:GetPlayers()) do
        if otherPlayer.TeamColor ~= player.TeamColor then
            local otherCharacter = otherPlayer.Character
            if otherCharacter then
                local otherHumanoidRootPart = otherCharacter:FindFirstChild("HumanoidRootPart")
                if otherHumanoidRootPart then
                    local magnitude = (otherHumanoidRootPart.Position - character.HumanoidRootPart.Position).Magnitude
                    if magnitude < smallestMagnitude then
                        smallestMagnitude = magnitude
                        closestPlayer = otherPlayer
                    end
                end
            end
        end
    end

return closestPlayer
end

local function teleport()
    if teleporting then
        teleporting = false
    else
        teleporting = true
        while teleporting do
            local enemy = getNearestEnemy()
            if enemy and enemy.Character and enemy.Character.HumanoidRootPart then
                character.HumanoidRootPart.CFrame = enemy.Character.HumanoidRootPart.CFrame * CFrame.new(0, 0, -5)
            end
            wait(0.1)
        end
    end
end

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

"if you die you get kicked when you get kicked it can say your bad or L or bozo or get better or LOSER"

"create a script where when you stand on my part called Bank it will start a countdown from 10 seconds above my part called bank when it gets to 0 you get 500 Money but if you go off the Part before the countdown ends the countdown ends"

-- script for Bank part 
local part = script.Parent
local countdown = 10
local countdownActive = false
local playerOnBank = false

local function startCountdown(player)
    if not countdownActive then
        countdownActive = true
        local billboardGui = Instance.new("BillboardGui")
        local textLabel = Instance.new("TextLabel")
        
        billboardGui.Parent = part
        billboardGui.Adornee = part
        billboardGui.Size = UDim2.new(0, 100, 0, 50)
        billboardGui.StudsOffset = Vector3.new(0, 2, 0)
        
        textLabel.Parent = billboardGui
        textLabel.Size = UDim2.new(1, 0, 1, 0)
        textLabel.BackgroundTransparency = 1
        textLabel.TextColor3 = Color3.new(1, 1, 1)
        textLabel.Font = Enum.Font.SourceSansBold
        textLabel.TextScaled = true
        
        for i = countdown, 0, -1 do
            if playerOnBank then
                textLabel.Text = tostring(i)
                wait(1)
            else
                break
            end
        end
        
        if playerOnBank then
            player.leaderstats.Money.Value = player.leaderstats.Money.Value + 500
        end
        
        billboardGui:Destroy()
        countdownActive = false
    end
end

local function onTouched(hit)
    local player = game.Players:GetPlayerFromCharacter(hit.Parent)
    if player then
        playerOnBank = true
        startCountdown(player)
    end
end

local function onEnded(hit)
    local player = game.Players:GetPlayerFromCharacter(hit.Parent)
    if player then
        playerOnBank = false
    end
end

part.Touched:Connect(onTouched)
part.TouchEnded:Connect(onEnded)

"award players a badge if they are in the same game as a player of a specific user id"

"npc that follows you"