Haddock - Roblox Library

"at the side of your screen there is a gui saying super speed and when you click it it will promp you to buy my developer product if they do it will give them 50 walkspeed"

"how do i make it so when i trigger a proximity prompt then the truss/parent will be destroyed then a other truss named LADDER will then have 0 transparency and Cancollide on"

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

"make a script that causes grey spheres to spawn out of the Emitter part every 5 seconds"

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

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

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

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

mouse.Button1Down:Connect(createExplosion)

"can you make me a tool that has a moveset of 3 abilities. When you press e, the ball moves foward. When you press r, the ball goes straight then curves left. When you press t, the ball goes straight then curves right."

-- local script 
local UserInputService = game:GetService("UserInputService")
local tool = script.Parent
local ball = tool.Ball
local player = game.Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")

tool.Activated:Connect(function()
    ball.Velocity = humanoid.RootPart.CFrame.lookVector * 50
end)

UserInputService.InputBegan:Connect(function(input)
    if input.KeyCode == Enum.KeyCode.E then
        ball.Velocity = humanoid.RootPart.CFrame.lookVector * 50
    elseif input.KeyCode == Enum.KeyCode.R then
        ball.Velocity = humanoid.RootPart.CFrame.lookVector * 50
        wait(1)
        ball.Velocity = humanoid.RootPart.CFrame * CFrame.Angles(0, math.rad(90), 0) * Vector3.new(0, 0, 50)
    elseif input.KeyCode == Enum.KeyCode.T then
        ball.Velocity = humanoid.RootPart.CFrame.lookVector * 50
        wait(1)
        ball.Velocity = humanoid.RootPart.CFrame * CFrame.Angles(0, math.rad(-90), 0) * Vector3.new(0, 0, 50)
    end
end)

"script for a part so when you say "damien" it makes the part disappear with instructions on where to insert the script"

To create a script that makes a part disappear when you say "damien," you can use a `Chatted` event listener on the player. You would place this script in `ServerScriptService` to ensure it runs on the server side. Below is an example of how you would write this script:

```lua
-- Place this script in ServerScriptService

-- Function to handle the chat message
local function onPlayerChatted(player, message)
    if message:lower() == "damien" then -- Check if the message is "damien"
        local part = game.Workspace:FindFirstChild("PartName") -- Replace "PartName" with the actual name of the part
        if part then
            part:Destroy() -- Remove the part from the game
        end
    end
end

-- Connect the function to the Chatted event for each player
game.Players.PlayerAdded:Connect(function(player)
    player.Chatted:Connect(function(message)
        onPlayerChatted(player, message)
    end)
end)
```

Here's a step-by-step guide on where to insert the script:

1. Open Roblox Studio and go to your game.
2. In the Explorer window, find `ServerScriptService`. If you don't see the Explorer window, you can enable it from the View tab.
3. Right-click on `ServerScriptService` and select `Insert Object`.
4. Choose `Script` from the list to create a new script.
5. Copy and paste the code provided above into the new script.
6. Replace `"PartName"` in the script with the actual name of the part you want to disappear.
7. Save the script and run your game to test it.

Make sure that the part you want to disappear is named correctly in the Workspace and that it is not anchored if you want it to disappear immediately. If the part is anchored, it will not fall or be affected by physics, but it will still become invisible and non-interactive.

"When a player presses X on their controller, their character will dive forward onto the ground."

"Write me a script that capitalizes the beginning of a sentence and adds punctuation based on what the player says, like if they ask a question or say something in general."

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

local function capitalize(str)
    return str:sub(1, 1):upper() .. str:sub(2)
end

local function addPunctuation(str)
    local lastChar = str:sub(-1)
    if lastChar ~= "." and lastChar ~= "?" and lastChar ~= "!" then
        str = str .. "."
    end
    return str
end

local function onPlayerChatted(player, message)
    local capitalizedMessage = capitalize(message)
    local punctuatedMessage = addPunctuation(capitalizedMessage)
    ChatService:Chat(player.Character.Head, punctuatedMessage, Enum.ChatColor.Blue)
end

Players.PlayerAdded:Connect(function(player)
    player.Chatted:Connect(function(message)
        onPlayerChatted(player, message)
    end)
end)
```
This script will capitalize the first letter of a player's message and add punctuation if it's missing. It will then display the modified message above the player's head. Note that this is a local script and should be placed in a suitable location, such as StarterPlayerScripts.

"make a proximityprompt inside of a player and then put sounds that play upon starting the proximity prompt"

"rig that follows and attacks you when your in range and tell me where the script goes"

-- This script should go under the humanoid of the NPC you want to rig.

local player = game.Players.LocalPlayer
local humanoid = script.Parent
local root = humanoid.Parent.PrimaryPart

function findNearestPlayer()
	local playerList = Players:GetPlayers()
	local nearestPlayer = nil
	local distance = nil
	local direction = nil 
	
	for _, player in pairs(playerList) do
		local character = player.Character
		if character then
			local distanceVector = player.Character.PrimaryPart.Position - root.Position
			if not nearestPlayer then
				nearestPlayer = player
				distance = distanceVector.Magnitude
				direction = distanceVector.Unit
			elseif distanceVector.Magnitude < distance then
				nearestPlayer = player
				distance = distanceVector.Magnitude
				direction = distanceVector.Unit
			end
		end
	end
	
	return nearestPlayer, distance, direction
end

RunService.Heartbeat:Connect(function()
	local nearestPlayer, distance, direction = findNearestPlayer()
	if nearestPlayer and distance < 10 then
		humanoid:Move(direction)
		local rarm = script.Parent:FindFirstChild("Right Arm")
		local larm = script.Parent:FindFirstChild("Left Arm")
		
		function dmg(hit)
			if hit.Parent ~= nil then
				local hum = hit.Parent:findFirstChild("Humanoid")
				if hum ~= nil then
					hum.Health = hum.Health -10
				end
			end
		end
		
		rarm.Touched:connect(dmg)
		larm.Touched:connect(dmg)
	end
end)

"make a script that makes my character float in place when i press x and stop floating when i press x again"

"make a chatbot using your ai to awnser chat messages."

-- ScripterAI can't create a full chatbot within Roblox, but here's a simple script to respond to specific chat messages 
local Players = game:GetService("Players")

local function onPlayerChatted(player, message)
    message = message:lower()
    local response = ""

if message == "hello" then
        response = "Hello, " .. player.Name .. "!"
    elseif message == "how are you?" then
        response = "I'm an AI, so I don't have feelings, but I'm here to help!"
    elseif message == "what can you do?" then
        response = "I can help with simple scripting tasks in Roblox and Lua!"
    else
        response = "I'm not sure how to respond to that. Please try asking something else."
    end

if response ~= "" then
        game:GetService("Chat"):Chat(player.Character.Head, response, Enum.ChatColor.Blue)
    end
end

local function onPlayerAdded(player)
    player.Chatted:Connect(function(message)
        onPlayerChatted(player, message)
    end)
end

Players.PlayerAdded:Connect(onPlayerAdded)

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

"make a script that give a player walkspeed 10 when joined"

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

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

"make a script that spins my head at 100 speed"

"make me a sprint bar with shift to sprint"

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

local screenGui = Instance.new("ScreenGui", player.PlayerGui)

local sprintBar = Instance.new("Frame", screenGui)
sprintBar.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
sprintBar.BorderSizePixel = 0
sprintBar.Size = UDim2.new(0.2, 0, 0.025, 0)
sprintBar.Position = UDim2.new(0.4, 0, 0.9, 0)

local fillBar = Instance.new("Frame", sprintBar)
fillBar.BackgroundColor3 = Color3.fromRGB(0, 255, 0)
fillBar.BorderSizePixel = 0
fillBar.Size = UDim2.new(1, 0, 1, 0)

local sprinting = false
local maxSprint = 100
local currentSprint = maxSprint
local sprintRechargeRate = 2
local sprintDrainRate = 5

local function updateSprintBar()
    fillBar.Size = UDim2.new(currentSprint / maxSprint, 0, 1, 0)
end

local function sprint(input, gameProcessed)
    if input.KeyCode == Enum.KeyCode.LeftShift and not gameProcessed then
        sprinting = not sprinting
        if sprinting then
            humanoid.WalkSpeed = humanoid.WalkSpeed * 1.5
        else
            humanoid.WalkSpeed = humanoid.WalkSpeed / 1.5
        end
    end
end

userinputservice.InputBegan:Connect(sprint)

while true do
    task.wait(0.1)
    if sprinting and currentSprint > 0 then
        currentSprint = currentSprint - sprintDrainRate
        if currentSprint < 0 then
            currentSprint = 0
            sprinting = false
            humanoid.WalkSpeed = humanoid.WalkSpeed / 1.5
        end
    elseif not sprinting and currentSprint < maxSprint then
        currentSprint = currentSprint   sprintRechargeRate
        if currentSprint > maxSprint then
            currentSprint = maxSprint
        end
    end
    updateSprintBar()
end

"a lucky coin from hard core leveling warrior that gives me random buffs or debuffs depending on what i roll and it activates as a tool when i click"

"make rock paper siccsors"

"make a small red part"

"create a script that changes a mouse cursor when hovered over any NPC inside a folder in workspace called NPCs and you can input a random cursor image. and tell me where to put this script and how to set it up."

-- local script (place this script inside StarterPlayer > StarterPlayerScripts)

local Players = game:GetService("Players")
local player = Players.LocalPlayer
local mouse = player:GetMouse()
local npcsFolder = game.Workspace.NPCs
local cursorImage = "http://www.roblox.com/asset/?id=123456789" -- Replace with your desired cursor image asset ID

local function onEnter(npc)
    mouse.Icon = cursorImage
end

local function onLeave(npc)
    mouse.Icon = ""
end

for _, npc in ipairs(npcsFolder:GetChildren()) do
    if npc:IsA("Model") and npc:FindFirstChild("Humanoid") then
        local clickDetector = Instance.new("ClickDetector")
        clickDetector.Parent = npc.HumanoidRootPart
        clickDetector.MouseEnter:Connect(function() onEnter(npc) end)
        clickDetector.MouseLeave:Connect(function() onLeave(npc) end)
    end
end

-- Instructions:
1. Replace the "http://www.roblox.com/asset/?id=123456789" URL with your desired cursor image asset ID.
2. Place this script inside the StarterPlayer > StarterPlayerScripts folder in your Roblox game.
3. Make sure you have a folder named "NPCs" in your Workspace containing NPC models with Humanoids.
4. When you hover your mouse over any NPC in the folder, the cursor will change to the specified image.

"create a lootbox system with tables"

"When the player dies, the camera will stop following them. How can we fix this?"

"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 (StarterPlayerScripts) 
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 rollAnimation = Instance.new("Animation")
rollAnimation.AnimationId = "rbxassetid://your_animation_id_here" -- Replace with your rolling animation asset ID
local rollAnimTrack = humanoid:LoadAnimation(rollAnimation)

local function onInputBegan(inputObject, gameProcessedEvent)
    if inputObject.KeyCode == Enum.KeyCode.Q and not gameProcessedEvent then
        rollAnimTrack:Play()
        local rollDirection = character.HumanoidRootPart.CFrame.LookVector
        character.HumanoidRootPart.CFrame = character.HumanoidRootPart.CFrame * CFrame.new(rollDirection * 10)
    end
end

UserInputService.InputBegan:Connect(onInputBegan)

Note: Replace "your_animation_id_here" with the actual asset ID of the rolling animation you want to use. Place this script in the StarterPlayerScripts folder in Roblox Studio.

"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 script where it will countdown 30 seconds and then it will tp the players to Part1 Part2 Part3 Part4 Part5 Part6 Part7 Part8 Part9 Part10 Part11 Part12 but only 1 player can be tped to each of the parts"

-- local script (StarterGUI) 
local workspace = game.Workspace
local players = game.Players
local countdown = 30

local parts = {
    workspace.Part1,
    workspace.Part2,
    workspace.Part3,
    workspace.Part4,
    workspace.Part5,
    workspace.Part6,
    workspace.Part7,
    workspace.Part8,
    workspace.Part9,
    workspace.Part10,
    workspace.Part11,
    workspace.Part12
}

local function teleportPlayers()
    local availableParts = {unpack(parts)}
    for _, player in ipairs(players:GetPlayers()) do
        if #availableParts > 0 then
            local randomIndex = math.random(1, #availableParts)
            local targetPart = availableParts[randomIndex]
            player.Character.HumanoidRootPart.CFrame = targetPart.CFrame
            table.remove(availableParts, randomIndex)
        else
            break
        end
    end
end

local function countdownTimer()
    while countdown > 0 do
        wait(1)
        countdown = countdown - 1
    end
    teleportPlayers()
end

countdownTimer()

"create a script inside a a text label that shows how much players are playing in a game using a game ID"

"a gui that follows my mouse using tweens, and red frames that go towards it from infront and goal is to dodge them, if dodged they float away using tweens, if mouse and red frame touch then mouse is destroyed tell me where to put everything,doesnt wo"

-- Local script (inside a ScreenGui) 
local TweenService = game:GetService("TweenService")
local UserInputService = game:GetService("UserInputService")
local Players = game:GetService("Players")

local player = Players.LocalPlayer
local mouse = player:GetMouse()

local gui = script.Parent
local follower = gui.Follower
local redFrames = gui.RedFrames

local function updateFollowerPosition()
    local newPos = UDim2.new(0, mouse.X, 0, mouse.Y)
    local tweenInfo = TweenInfo.new(0.1)
    local tween = TweenService:Create(follower, tweenInfo, {Position = newPos})
    tween:Play()
end

local function spawnRedFrame()
    local redFrame = Instance.new("Frame")
    redFrame.BackgroundColor3 = Color3.fromRGB(255, 0, 0)
    redFrame.Size = UDim2.new(0, 50, 0, 50)
    redFrame.Position = UDim2.new(0, math.random(0, gui.AbsoluteSize.X), 0, -50)
    redFrame.Parent = redFrames

local tweenInfo = TweenInfo.new(3, Enum.EasingStyle.Linear)
    local tween = TweenService:Create(redFrame, tweenInfo, {Position = UDim2.new(redFrame.Position.X.Scale, redFrame.Position.X.Offset, 1, redFrame.Position.Y.Offset)})
    tween:Play()

tween.Completed:Connect(function()
        if redFrame and redFrame.Parent then
            redFrame:Destroy()
        end
    end)
end

local function checkCollision()
    for _, redFrame in ipairs(redFrames:GetChildren()) do
        if redFrame:IsA("Frame") then
            local xDiff = math.abs(redFrame.AbsolutePosition.X - follower.AbsolutePosition.X)
            local yDiff = math.abs(redFrame.AbsolutePosition.Y - follower.AbsolutePosition.Y)

if xDiff <= (redFrame.AbsoluteSize.X / 2 + follower.AbsoluteSize.X / 2) and yDiff <= (redFrame.AbsoluteSize.Y / 2 + follower.AbsoluteSize.Y / 2) then
                follower:Destroy()
                break
            end
        end
    end
end

mouse.Move:Connect(updateFollowerPosition)
spawnRedFrame()
while wait(1) do
    spawnRedFrame()
    checkCollision()
end

-- Place the local script inside a ScreenGui. Create a Frame named "Follower" and a Folder named "RedFrames" inside the ScreenGui. The Follower Frame should be the GUI that follows the mouse. The RedFrames folder will contain the red frames that the player must dodge.

"clickable part located in workspace that gives a player 1 random tool with a string value called common form a folder called ToolsFolder inside serverstorage"

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

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

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

local maxGems = 100000
local maxGold = 100000

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

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

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

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

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

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

"Can you write a script that causes players to ragdoll upon death using R15?"

"script a text button that opens a frame"

"make a script that works inside the part that changes the text on the textlabel to what the value inside of the configuration is"

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

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

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

local punching = false
local punchCount = 0
local canPunch = true

local function punch()
	if canPunch then
		if punching then
			if animTrack2.IsPlaying then
				return
			end
			punching = false
			animTrack1:Stop()
			animTrack2:Play()
			-- make left arm do damage
			local leftArm = character:FindFirstChild("Left Arm")
			local function onTouched(part)
				local otherCharacter = part.Parent
				local otherHumanoid = otherCharacter:FindFirstChildWhichIsA("Humanoid")
				if otherHumanoid then
					otherHumanoid:TakeDamage(10)
				end
			end
			leftArm.Touched:Connect(onTouched)
		else
			if animTrack1.IsPlaying then
				return
			end
			punching = true
			animTrack2:Stop()
			animTrack1:Play()
			-- make right arm do damage
			local rightArm = character:FindFirstChild("Right Arm")
			local function onTouched(part)
				local otherCharacter = part.Parent
				local otherHumanoid = otherCharacter:FindFirstChildWhichIsA("Humanoid")
				if otherHumanoid then
					otherHumanoid:TakeDamage(10)
				end
			end
			rightArm.Touched:Connect(onTouched)
		end
		punchCount = punchCount + 1
		if punchCount >= 4 then
			canPunch = false
			wait(2)
			canPunch = true
			punchCount = 0
		end
	end
end

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

"Make a script where all entitys freeze when player is damaged"

"Keep the current script, but addon to it by making it so the background transparency for the TextLabel is 0.5, as well as making it a Dark Grey Color."

"a roblox script that prints "Fully loaded" once your game is fully loaded, also tell where to put it"

"increment data store when a player joins the game"

"make a jump animation"

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

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

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

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

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

local kamehameha = Instance.new("Part")
kamehameha.Name = "Kamehameha"
kamehameha.Parent = character
kamehameha.Anchored = true
kamehameha.CanCollide = false

local kamehamehaMesh = Instance.new("SpecialMesh")
kamehamehaMesh.MeshType = "Sphere"
kamehamehaMesh.Parent = kamehameha

local kamehamehaLight = Instance.new("PointLight")
kamehamehaLight.Parent = kamehameha
kamehamehaLight.Range = 10

local kamehamehaSound = Instance.new("Sound")
kamehamehaSound.SoundId = "rbxassetid://YourSoundIdHere"
kamehamehaSound.Parent = kamehameha

local kamehamehaSpeed = 100

local kamehamehaDamage = 10

local function fireKamehameha()
	local characterCF = character.PrimaryPart.CFrame
	local lookVector = characterCF.lookVector
	
	kamehameha.CFrame = characterCF * CFrame.new(0,2,0)
	kamehamehaSound:Play()
	
	for i = 1, 10 do
		kamehameha.CFrame = kamehameha.CFrame   lookVector * kamehamehaSpeed
		wait()
	end
	
	for _, part in pairs(workspace:GetDescendants()) do
		if part:IsA("BasePart") and part.Name ~= "Kamehameha" and part.Name ~= "HumanoidRootPart" then
			local distance = (kamehameha.Position - part.Position).magnitude
			if distance < 5 then
				local humanoid = part.Parent:FindFirstChildWhichIsA("Humanoid")
				if humanoid then
					humanoid.Health = humanoid.Health - kamehamehaDamage
				end
			end
		end
	end
	
	kamehameha:Destroy()
end

player.KeyDown:Connect(function(key)
	if key == "e" then
		fireKamehameha()
	end
end)

"create a Roll script inside playercharacter that works when players press Q and changes their speed when they are rollong and playes animation."

"make a fire effect"

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

"make a serverscript that checks whenever a player clicks the button called 'Shutdown' it kicks all players for the reason User requested server shutdown"

"if a player with the item "15324577" in their avatar joins they get kicked for reason : "e-kitten / e-boy detected 😨" -- tell me where to put the script"

"create code for 2 seperate scripts an Input Manager to detect when a Player Clicks using M1 and Fires a Local Scipt Under it by Invoking a BindaBle Function when the player clicks"

To achieve the functionality described, you'll need two scripts: a LocalScript for detecting mouse clicks (M1) and a Script for handling the action when the click occurs. Here's how you can set it up:

### Script 1: Input Manager (LocalScript)
This LocalScript will detect when the player clicks their mouse and then invoke a BindableFunction to handle the action. This script should be placed in a LocalScript within the player's PlayerScripts or a GUI.

```lua
-- LocalScript to detect mouse clicks and invoke a BindableFunction
local player = game.Players.LocalPlayer
local mouse = player:GetMouse()
local bindableFunction = game.ReplicatedStorage:WaitForChild("OnClickFunction") -- Assuming the BindableFunction is stored in ReplicatedStorage

mouse.Button1Down:Connect(function()
    bindableFunction:Invoke() -- Invokes the BindableFunction
end)
```

### Script 2: Action Handler (Script)
This Script will be connected to the BindableFunction and will perform the desired action when the function is invoked. This script should be placed in a Script within ServerScriptService or Workspace.

```lua
-- Script to handle the action when the BindableFunction is invoked
local bindableFunction = Instance.new("BindableFunction", game.ReplicatedStorage)
bindableFunction.Name = "OnClickFunction"

bindableFunction.OnInvoke = function()
    -- Code to execute when the player clicks M1
    print("Player clicked M1!") -- Example action
    -- Add any additional actions you want to perform here
end
```

This setup ensures that when a player clicks their mouse (M1), the LocalScript detects this action and invokes a BindableFunction. The Script connected to the BindableFunction then performs whatever actions are defined within it. This method is useful for separating client-side detection of inputs and server-side actions, adhering to Roblox's security model that restricts certain actions to the server.

"make a script that when player touches a part they own everything in that model"

"if dirt is clicked 3 times with click detector destroy script.parent only make it work if tool called shovel is being held"

"can you make me a script for a ball that when you click m2 the ball dribbles based on where your facing and when you kick it it plays an animation and shows my vfx"

-- local script 
local UserInputService = game:GetService("UserInputService")
local player = game.Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")
local ball = game.Workspace.Ball
local animation = Instance.new("Animation")
animation.AnimationId = "rbxassetid://your_animation_id" -- replace with your animation id
local vfx = game.ReplicatedStorage:WaitForChild("YourVFX") -- replace with your vfx name

local function onInputBegan(input, gameProcessedEvent)
    if input.UserInputType == Enum.UserInputType.MouseButton2 then
        local direction = UserInputService:GetMouseLocation() - ball.Position
        ball.Velocity = direction.Unit * 50
        local animTrack = humanoid:LoadAnimation(animation)
        animTrack:Play()
        local vfxClone = vfx:Clone()
        vfxClone.Parent = workspace
        vfxClone.Position = ball.Position
    end
end

UserInputService.InputBegan:Connect(onInputBegan)

"can you make the humanoid double jump after pressing spacebar twice and move the humanoid up a little bit with custom animation"

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

local doubleJumpAnimation = Instance.new("Animation")
doubleJumpAnimation.AnimationId = "rbxassetid://YourAnimationIDHere"
local doubleJumpAnimTrack = humanoid:LoadAnimation(doubleJumpAnimation)

local canDoubleJump = false
local isJumping = false

local function onJumpRequest()
	if not isJumping then
		isJumping = true
		humanoid.Jump = true
	elseif canDoubleJump then
		canDoubleJump = false
		humanoid.JumpPower = 0
		doubleJumpAnimTrack:Play()
		wait(0.15)
		humanoid.JumpPower = 50
		humanoid.Jump = true
	end
end

local function onStateChanged(_, state)
	if state == Enum.HumanoidStateType.Landed then
		isJumping = false
		canDoubleJump = false
	elseif state == Enum.HumanoidStateType.Freefall then
		if not canDoubleJump and isJumping then
			canDoubleJump = true
		end
	end
end

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

"............"

-- modify the function to include the random entity spawning, blacklist entities, and check condition for certain entities 
return function(Vargs)
	local server, service = Vargs.Server, Vargs.Service

server.Commands.rldspawn = {
		Prefix = server.Settings.Prefix;	-- Prefix to use for command
		Commands = {"rldspawn"};	-- Commands
		Args = {"entity"};	-- Command arguments
		Description = "Spawns an entity in Rooms Low Detailed (Works only in that game)";	-- 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 entity = (args[1])

local blacklist = {"Noonie", "OOk_NEWERMODEL"}
			local checkEntities = {"CG-55Old","CGTA-55", "CG-55oldParticles","CG-55", "G-55Oldfx", "B-85",  "OLDB-55"}

if entity == "random" then
				local entities = game:GetService("ServerStorage").Monsters:GetChildren()
				entity = entities[math.random(#entities)].Name
			end

if table.find(blacklist, entity) then
				return
			end

for _, v in pairs(workspace.SpawnedEnitites:GetChildren()) do
				if table.find(checkEntities, v.Name) then
					return
				end
			end

for i,v in pairs(game:GetService("ServerStorage").Monsters:GetDescendants()) do
				if v.Name == entity and v:IsA("Model") then
					local c = v:Clone()
					c.Parent = workspace.SpawnedEnitites
				end
			end

end
	}
end

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

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

"make a lua script executor that runs lua Also create the gui for it Make the gui look good. Make it a serverside script. ERROR gui did not load"

-- server script

-- Create a RemoteEvent
local Event = Instance.new("RemoteEvent")
Event.Name = "ExecuteScript"
Event.Parent = game.ReplicatedStorage

-- Create a RemoteFunction
local Function = Instance.new("RemoteFunction")
Function.Name = "ExecuteScript"
Function.Parent = game.ReplicatedStorage

-- Create a ScreenGui
local Gui = Instance.new("ScreenGui")
Gui.Parent = game.Players.LocalPlayer.PlayerGui

-- Create a Frame
local Frame = Instance.new("Frame")
Frame.Size = UDim2.new(0.5, 0, 0.5, 0)
Frame.Position = UDim2.new(0.25, 0, 0.25, 0)
Frame.Parent = Gui

-- Create a TextLabel
local Label = Instance.new("TextLabel")
Label.Text = "Script Executor"
Label.Size = UDim2.new(1, 0, 0.25, 0)
Label.Position = UDim2.new(0, 0, 0, 0)
Label.Parent = Frame

-- Create a TextBox
local TextBox = Instance.new("TextBox")
TextBox.Size = UDim2.new(1, 0, 0.5, 0)
TextBox.Position = UDim2.new(0, 0, 0.25, 0)
TextBox.Parent = Frame

-- Create a Button
local Button = Instance.new("TextButton")
Button.Text = "Execute"
Button.Size = UDim2.new(1, 0, 0.25, 0)
Button.Position = UDim2.new(0, 0, 0.75, 0)
Button.Parent = Frame

-- Connect the Button's Click event
Button.MouseButton1Click:Connect(function()
	-- Execute the script
	Event:FireServer(TextBox.Text)
end)

-- Create a RemoteFunction that executes a script
Function.OnServerInvoke = function(player, script)
	-- Execute the script
	local success, error = pcall(function()
		loadstring(script)()
	end)
	
	-- Check for errors
	if not success then
		warn("Error executing script: " .. error)
	end
end

"make a random block hole script"

"make a sound play when the player joins the game"

"make rock paper siccsors"

-- client script for rock paper scissors game 
local player = game.Players.LocalPlayer
local mouse = player:GetMouse()
local gui = player.PlayerGui:WaitForChild("RockPaperScissorsGui")
local rockButton = gui:WaitForChild("RockButton")
local paperButton = gui:WaitForChild("PaperButton")
local scissorsButton = gui:WaitForChild("ScissorsButton")
local resultLabel = gui:WaitForChild("ResultLabel")

local function playRound(playerChoice)
    local choices = {"rock", "paper", "scissors"}
    local computerChoice = choices[math.random(1,3)]
    
    if playerChoice == computerChoice then
        resultLabel.Text = "Tie!"
    elseif (playerChoice == "rock" and computerChoice == "scissors") or 
           (playerChoice == "paper" and computerChoice == "rock") or 
           (playerChoice == "scissors" and computerChoice == "paper") then
        resultLabel.Text = "You win!"
    else
        resultLabel.Text = "You lose!"
    end
end

rockButton.MouseButton1Click:Connect(function()
    playRound("rock")
end)

paperButton.MouseButton1Click:Connect(function()
    playRound("paper")
end)

scissorsButton.MouseButton1Click:Connect(function()
    playRound("scissors")
end)

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

"if it is not pursuing or no longer pursuing a player, it should find the nearest waypoint and path to it. It should follow the way points to game.workspace.Door"

-- server script 
local pfs = game:GetService("PathfindingService")
local humanoid = script.Parent
local aggroRange = 20
local waypoints = game.Workspace.Waypoints:GetChildren() -- assuming waypoints are parts stored in a model
local door = game.Workspace.Door

-- Check if HumanoidRootPart exists
if not humanoid:FindFirstChild("HumanoidRootPart") then
	print("Error: Humanoid has no HumanoidRootPart")
	return
end

local path = pfs:CreatePath()
local targetPlayer

-- Function to check if a player is in aggro range
local function isPlayerInAggroRange(player)
	local playerPosition = player.Character.HumanoidRootPart.Position
	local distance = (humanoid.HumanoidRootPart.Position - playerPosition).Magnitude
	
	return distance <= aggroRange
end

-- Function to pursue a player
local function pursuePlayer(player)
	path:ComputeAsync(humanoid.HumanoidRootPart.Position, player.Character.HumanoidRootPart.Position)
	
	for _, pathWaypoint in pairs(path:GetWaypoints()) do
		humanoid.Humanoid:MoveTo(pathWaypoint.Position)
		humanoid.Humanoid.MoveToFinished:Wait()
	end
end

-- Function to find the nearest waypoint
local function findNearestWaypoint()
	local nearestWaypoint
	local shortestDistance = math.huge
	
	for _, waypoint in pairs(waypoints) do
		local distance = (humanoid.HumanoidRootPart.Position - waypoint.Position).Magnitude
		
		if distance < shortestDistance then
			nearestWaypoint = waypoint
			shortestDistance = distance
		end
	end
	
	return nearestWaypoint
end

-- Function to path to the door
local function pathToDoor()
	path:ComputeAsync(humanoid.HumanoidRootPart.Position, door.Position)
	
	for _, pathWaypoint in pairs(path:GetWaypoints()) do
		humanoid.Humanoid:MoveTo(pathWaypoint.Position)
		humanoid.Humanoid.MoveToFinished:Wait()
	end
end

-- Listen for player entering aggro range
game.Players.PlayerAdded:Connect(function(player)
	player.CharacterAdded:Connect(function(character)
		while true do
			if isPlayerInAggroRange(player) then
				targetPlayer = player
				break
			end
			
			wait(1)
		end
		
		while targetPlayer do
			if not isPlayerInAggroRange(targetPlayer) or not targetPlayer.Character or targetPlayer.Character.Humanoid.Health <= 0 then
				targetPlayer = nil
			else
				pursuePlayer(targetPlayer)
			end
			
			wait(1)
		end
		
		if not targetPlayer then
			local nearestWaypoint = findNearestWaypoint()
			
			if nearestWaypoint then
				pursuePlayer({Character = {HumanoidRootPart = nearestWaypoint}})
			else
				pathToDoor()
			end
		end
	end)
end)

-- Disable collision for NPCs
humanoid.HumanoidRootPart.CanCollide = false

"make a part move forever and make it loop once it reaches the max studs and make it affect the part named water"

"when a player steps on the model, shake the model for 2 seconds and then make the model cancollide false and transparent. make the model cancollide true and opaque after 3 seconds."

-- script for model 
local model = script.Parent
local debounce = true

local function shakeModel()
    local originalPositions = {}
    for _, part in ipairs(model:GetChildren()) do
        if part:IsA("BasePart") then
            originalPositions[part] = part.Position
            part.Anchored = false
        end
    end

for _ = 1, 20 do
        for part, originalPosition in pairs(originalPositions) do
            part.Position = originalPosition + Vector3.new(math.random(-1, 1), math.random(-1, 1), math.random(-1, 1))
        end
        wait(0.1)
    end

for part, originalPosition in pairs(originalPositions) do
        part.Position = originalPosition
        part.Anchored = true
    end
end

local function onTouch(otherPart)
    if debounce then
        debounce = false
        local player = game.Players:GetPlayerFromCharacter(otherPart.Parent)
        if player then
            shakeModel()

for _, part in ipairs(model:GetChildren()) do
                if part:IsA("BasePart") then
                    part.CanCollide = false
                    part.Transparency = 0.5
                end
            end

wait(3)

for _, part in ipairs(model:GetChildren()) do
                if part:IsA("BasePart") then
                    part.CanCollide = true
                    part.Transparency = 0
                end
            end
        end
        debounce = true
    end
end

model.PrimaryPart.Touched:Connect(onTouch)

"Keep the current script, but once again make it so it starts at the size I give, and only gets smaller from there. In the script your just gave me it when all the way up the left side of my screen, I dont want that. I want it to be the exact size i give you, then it gets smaller {0, 24},{0, 225}"

"a lazer eye tool where if I hold down my mouse for 2 seconds i shoot 2 deadly beams out of my eyes with good vfx, it doesnt work"

I can help you create a script for the laser eye tool. Please note that you will need to create the visual effects (VFX) yourself, as it's not possible to generate them through the script alone.

Here's a script that creates a laser eye tool that shoots beams when the mouse is held down for 2 seconds:

```lua
-- Local script

local Players = game:GetService("Players")
local player = Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")
local mouse = player:GetMouse()

local debounce = false
local holdingMouse = false
local holdTime = 0

mouse.Button1Down:Connect(function()
	holdingMouse = true
	while holdingMouse do
		holdTime = holdTime + 0.1
		if holdTime >= 2 and not debounce then
			debounce = true
			shootLaserBeams()
			wait(2) -- Cooldown time
			debounce = false
		end
		wait(0.1)
	end
end)

mouse.Button1Up:Connect(function()
	holdingMouse = false
	holdTime = 0
end)

function shootLaserBeams()
	local head = character.Head
	local leftEyePosition = head.Position + Vector3.new(-0.5, 0, 0)
	local rightEyePosition = head.Position + Vector3.new(0.5, 0, 0)
	local direction = mouse.Hit.Position - head.Position

createLaserBeam(leftEyePosition, direction)
	createLaserBeam(rightEyePosition, direction)
end

function createLaserBeam(startPosition, direction)
	local beam = Instance.new("Part", workspace)
	beam.BrickColor = BrickColor.new("Bright red")
	beam.FormFactor = "Custom"
	beam.Material = "Neon"
	beam.Transparency = 0.25
	beam.Anchored = true
	beam.Locked = true
	beam.CanCollide = false
	local distance = 100 -- Change this value to adjust the length of the laser beams
	beam.Size = Vector3.new(0.3, 0.3, distance)
	beam.CFrame = CFrame.new(startPosition, startPosition + direction) * CFrame.new(0, 0, -distance / 2)

-- Add your VFX here

wait(0.1) -- Adjust this value to control how long the laser beams stay visible
	beam:Destroy()
end
```

This script creates a laser eye tool that shoots beams when the mouse is held down for 2 seconds. You'll need to create the visual effects (VFX) yourself and add them to the script where indicated.

"Q key for dribbling the ball"

"Create a Camera GetDecendents script. The Camera rotates with the Vehicle on All Axis. The Camera mode is activated when the player sits in any seat or VehicleSeat."

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

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

local stage26BadgeId = 0 -- Replace with your badge ID
local stage51BadgeId = 0 -- Replace with your badge ID
local rebirth1BadgeId = 0 -- Replace with your badge ID
local rebirth5BadgeId = 0 -- Replace with your badge ID

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

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

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

local function onPlayerAdded(player)
    player.leaderstats.Stage.Changed:Connect(function()
        checkAwards(player)
    end)

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

players.PlayerAdded:Connect(onPlayerAdded)

"Make a event system like survive the disasaters but it modifies parts and adds effects to them also use messages and hints"

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

local eventSystem = Instance.new("BindableEvent", screenGui)

local events = {"Disaster1", "Disaster2", "Disaster3"} -- Add more events as needed

local function startEvent(eventName)
    local eventPart = Instance.new("Part", workspace) -- Create a new part for the event
    eventPart.Name = eventName
    eventPart.BrickColor = BrickColor.Random() -- Change the color of the part randomly

local effect = Instance.new("Fire", eventPart) -- Add a fire effect to the part
    effect.Heat = math.random(10, 50) -- Randomize the heat of the fire effect

game:GetService("Chat"):Chat(player, "Event " .. eventName .. " has started!") -- Send a chat message to the player
    game:GetService("HintService"):Hint("Survive the " .. eventName .. "!") -- Send a hint to the player
end

eventSystem.Event:Connect(startEvent) -- Connect the startEvent function to the event system

while true do
    wait(5) -- Wait for 5 seconds
    local randomEvent = events[math.random(#events)] -- Select a random event
    eventSystem:Fire(randomEvent) -- Start the random event
end

"make me a script that saves the tools when they leave the game"

-- server script 
local DataStoreService = game:GetService("DataStoreService")
local toolDataStore = DataStoreService:GetDataStore("ToolData")

game.Players.PlayerRemoving:Connect(function(player)
	local toolsToSave = {}
	for _, tool in ipairs(player.Backpack:GetChildren()) do
		if tool:IsA("Tool") then
			table.insert(toolsToSave, tool.Name)
		end
	end
	local success, errorMessage = pcall(function()
		toolDataStore:SetAsync(player.UserId, toolsToSave)
	end)
	if not success then
		warn("Failed to save tools for player " .. player.Name .. ": " .. errorMessage)
	end
end)

game.Players.PlayerAdded:Connect(function(player)
	local success, savedTools = pcall(function()
		return toolDataStore:GetAsync(player.UserId)
	end)
	if success and savedTools then
		player.CharacterAdded:Connect(function(character)
			for _, toolName in ipairs(savedTools) do
				local tool = game.ServerStorage:FindFirstChild(toolName)
				if tool then
					tool:Clone().Parent = player.Backpack
				end
			end
		end)
	else
		warn("Failed to load tools for player " .. player.Name)
	end
end)

"make a script that loop teleports my character 50 studs away from the nearest opposite team player when i press r and stops when i press r again"

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

local function getNearestOpponent()
    local nearestDistance = math.huge
    local nearestOpponent = nil
    for _, otherPlayer in pairs(Players:GetPlayers()) do
        if otherPlayer.TeamColor ~= player.TeamColor then
            local otherCharacter = otherPlayer.Character
            if otherCharacter then
                local distance = (character.PrimaryPart.Position - otherCharacter.PrimaryPart.Position).Magnitude
                if distance < nearestDistance then
                    nearestDistance = distance
                    nearestOpponent = otherPlayer
                end
            end
        end
    end
    return nearestOpponent
end

local function teleport()
    while teleporting do
        local opponent = getNearestOpponent()
        if opponent then
            local opponentCharacter = opponent.Character
            local teleportPosition = opponentCharacter.PrimaryPart.Position - ((character.PrimaryPart.Position - opponentCharacter.PrimaryPart.Position).Unit * 50)
            character:SetPrimaryPartCFrame(CFrame.new(teleportPosition))
        end
        wait(0.1)
    end
end

local function onKeyPress(input)
    if input.KeyCode == Enum.KeyCode.R then
        teleporting = not teleporting
        if teleporting then
            teleport()
        end
    end
end

UserInputService.InputBegan:Connect(onKeyPress)

"create a script where when a player stands on my part called Bank it will countdown 10 seconds above my part called bank and if they stay on it for 10 seconds then they get 500 Money but if they come off it the countdown ends"

-- script for Bank part 
local part = script.Parent
local debounce = true
local countdown = 10
local function onTouched(otherPart)
    local player = game.Players:FindFirstChild(otherPart.Parent.Name)
    if player and debounce then
        debounce = false
        local timer = Instance.new("BillboardGui")
        timer.Size = UDim2.new(0, 100, 0, 50)
        timer.Adornee = part
        timer.Parent = part
        local timerText = Instance.new("TextLabel")
        timerText.Size = UDim2.new(1, 0, 1, 0)
        timerText.TextColor3 = Color3.new(1, 1, 1)
        timerText.BackgroundTransparency = 1
        timerText.Parent = timer
        for i = countdown, 0, -1 do
            timerText.Text = tostring(i)
            wait(1)
            if not part:IsDescendantOf(game.Workspace) then
                timer:Destroy()
                return
            end
        end
        player.leaderstats.Money.Value = player.leaderstats.Money.Value + 500
        timer:Destroy()
        debounce = true
    end
end

local function onEnded(otherPart)
    local player = game.Players:FindFirstChild(otherPart.Parent.Name)
    if player and not debounce then
        debounce = true
        part.BillboardGui:Destroy()
    end
end

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

"make a color changer with 20 colors and able to select a body part to change color along with a button to open and close the menu with all colors added as brick colors with no uicorners also make the toggelable button a text button and make the button clickable and make the menu open when clicked"

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

local toggleButton = Instance.new("TextButton", screenGui)
toggleButton.Text = "Open/Close Menu"
toggleButton.TextColor3 = Color3.fromRGB(255, 255, 255)
toggleButton.BackgroundColor3 = Color3.fromRGB(0, 0, 0)

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

local bodyPartDropdown = Instance.new("DropDownBox", menu)
bodyPartDropdown.Position = UDim2.new(0, 0, 0, 0)
bodyPartDropdown.Size = UDim2.new(0, 200, 0, 50)
bodyPartDropdown.PlaceholderText = "Select a Body Part"

for _, part in pairs({"Head", "Torso", "Left Arm", "Right Arm", "Left Leg", "Right Leg"}) do
    local option = Instance.new("Option", bodyPartDropdown)
    option.Text = part
end

local colorButtons = {}
for i = 1, 20 do
    local colorButton = Instance.new("TextButton", menu)
    colorButton.Position = UDim2.new(0, (i - 1) * 50, 0, 50)
    colorButton.Size = UDim2.new(0, 50, 0, 50)
    colorButton.BackgroundColor3 = BrickColor.random().Color
    table.insert(colorButtons, colorButton)
end

toggleButton.MouseButton1Click:Connect(function()
    menu.Visible = not menu.Visible
end)

for _, colorButton in pairs(colorButtons) do
    colorButton.MouseButton1Click:Connect(function()
        local selectedPart = bodyPartDropdown.Value
        if selectedPart and player.Character then
            local part = player.Character:FindFirstChild(selectedPart)
            if part then
                part.BrickColor = BrickColor.new(colorButton.BackgroundColor3)
            end
        end
    end)
end

"GodMode"

"Make me a function that when a button is pressed it takes you to a private lobby, shouldnt show in the roblox server list"

"create a script that spawns a ton of parts"

"Pls donate stand"

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

"Noclip script"

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

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

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

local function onChat(player, message)
    if string.sub(message, 1, 9) == "/votekick" then
        local targetPlayer = string.sub(message, 11)
        if game.Players:FindFirstChild(targetPlayer) then
            local target = game.Players:FindFirstChild(targetPlayer)
            VoteKickGui.Frame.Visible = true
            VoteKickGui.Frame.NameLabel.Text = target.Name
            local yesVotes = 0
            local noVotes = 0
            for _, player in pairs(Players) do
                VoteKickGui.Frame.YesButton.MouseButton1Click:Connect(function()
                    yesVotes = yesVotes + 1
                end)
                VoteKickGui.Frame.NoButton.MouseButton1Click:Connect(function()
                    noVotes = noVotes + 1
                end)
            end
            if yesVotes > #Players/2 then
                target:Kick()
            end
        end
    end
end

game.Players.PlayerAdded:Connect(function(player)
    player.Chatted:Connect(onChat)
end)

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

"script that gives the player a random piece of gear from the Gear folder in serverstorage every 5 minutes if they are stage 210."

"can you make a script that lets 2 scoreboards keep score of goals when a blue's part get's touched red gets a point and when red's part gets touched blue team gets a point. comments please"

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

"make a roblox lua script that puts the player in 3d person view"

"Create an immersive camera system that simulates realistic human head tracking based on where the mouse icon is with a limited angle of degrees and is also physics based."

Creating a realistic head tracking camera system is quite complex, but here's a simple version using the Camera Manipulation API in Roblox. This script should be placed in a LocalScript under StarterPlayerScripts.

```lua
local UserInputService = game:GetService("UserInputService")
local RunService = game:GetService("RunService")
local Players = game:GetService("Players")
local player = Players.LocalPlayer
local character
local head
local camera = workspace.CurrentCamera
local maxAngle = 45 -- Maximum angle the head can turn

local function updateHeadTrack()
    if character and head then
        local mousePosition = UserInputService:GetMouseLocation()
        local viewportSize = camera.ViewportSize
        local screenCenter = Vector2.new(viewportSize.X / 2, viewportSize.Y / 2)
        local mouseOffset = (mousePosition - screenCenter) / screenCenter

local xAngle = math.clamp(mouseOffset.Y * maxAngle, -maxAngle, maxAngle)
        local yAngle = math.clamp(mouseOffset.X * maxAngle, -maxAngle, maxAngle)

local headCFrame = CFrame.Angles(math.rad(xAngle), math.rad(yAngle), 0)
        head.CFrame = character.HumanoidRootPart.CFrame * headCFrame
    end
end

local function onCharacterAdded(newCharacter)
    character = newCharacter
    head = character:WaitForChild("Head")
end

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

RunService.RenderStepped:Connect(updateHeadTrack)
```

This script will rotate the character's head based on the mouse position on the screen, within a limited angle. Note that this is not a physics-based solution, but it provides a simple head tracking effect. You can adjust the `maxAngle` variable to change the maximum angle the head can turn.

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

"Make this part disappear when clicked by the players"

"Keep the current script, but addon to it by making it so the image has UIstroke on it, as well as changing the images background color to Red"

-- server script 
while true do
    for _, player in pairs(game:GetService("Players"):GetPlayers()) do
        if player:FindFirstChild("CombatTag") then
            if player.CombatTag.Value == true then
                print(player.Name .. " is in combat!")
                local gui = Instance.new("ScreenGui")
                local imageLabel = Instance.new("ImageLabel")
                local uiCorner = Instance.new("UICorner")
                local uiStroke = Instance.new("UIStroke") -- create a new UIStroke instance

imageLabel.Parent = gui
                imageLabel.Size = UDim2.new(0, 100, 0, 100)
                imageLabel.Position = UDim2.new(0.5, -50, 0.5, -50)
                imageLabel.Image = "rbxassetid://YourImageIDHere" -- replace with your image id
                imageLabel.BackgroundColor3 = Color3.fromRGB(255, 0, 0) -- set the background color to red

uiCorner.CornerRadius = UDim.new(1,0) -- make the image circular
                uiCorner.Parent = imageLabel -- apply the UICorner to the imageLabel

uiStroke.Color = Color3.fromRGB(255, 255, 255) -- set the stroke color to white
                uiStroke.Thickness = 3 -- set the stroke thickness
                uiStroke.Transparency = 0 -- set the stroke transparency
                uiStroke.Parent = imageLabel -- apply the UIStroke to the imageLabel
                
                gui.Parent = player:FindFirstChild("PlayerGui")
            else
                if player:FindFirstChild("PlayerGui"):FindFirstChild("ScreenGui") then
                    player:FindFirstChild("PlayerGui"):FindFirstChild("ScreenGui"):Destroy()
                end
            end
        end
    end
    task.wait(1) -- wait for 1 second before the loop starts again
end

"rain bricks from the air forever"

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

"make a zombie spawner"

local spawns = script.Parent
local zombies = game.Workspace.Zombies
 
local spawn_time = 10
local max_zombies = 10
 
local wave = 0
 
local health = 100
 
while true do
        game.Workspace.Zombie.Head.BillboardGui.TextLabel.Text = 'Wave: '..wave
        wait(spawn_time)
        if #zombies:GetChildren() < max_zombies then
                spawns.Wave_Sound:Play()
                wave  = 1
                for _, spwn in pairs(spawns:GetChildren()) do
                        if spwn:IsA('BasePart') then
                                spwn.PointLight.Brightness = 50
                                wait(0.25)
                                spwn.PointLight.Brightness = 0
                                local zombieCopy = game.ReplicatedStorage['Zombie']:Clone()
                                zombieCopy.Parent = zombies
                                zombieCopy.HumanoidRootPart.CFrame = CFrame.new(spwn.Position   Vector3.new(0,3,0))
                                zombieCopy.Humanoid.Health = health
                        end
                end
                health  = 100
        end
end

"I'm modifying Adonis Admin and making it my own admin with custom commands, make a module script for the admin and give me the Big T rank whenever i load it in the game and turn into a require script it can be in any game, the custom commands are already made i just need the module"

-- module script for custom admin system with Big T rank 
local AdminModule = {}

-- Table to hold all the ranks and their associated players
AdminModule.Ranks = {
    ["Big T"] = {"YourRobloxUsername"} -- Replace 'YourRobloxUsername' with your actual Roblox username
}

-- Function to check if a player is in a specific rank
function AdminModule:IsPlayerInRank(player, rank)
    for _, playerName in ipairs(self.Ranks[rank] or {}) do
        if player.Name == playerName then
            return true
        end
    end
    return false
end

-- Function to get the rank of a player
function AdminModule:GetPlayerRank(player)
    for rank, players in pairs(self.Ranks) do
        for _, playerName in ipairs(players) do
            if player.Name == playerName then
                return rank
            end
        end
    end
    return nil
end

-- Function to initialize the admin system
function AdminModule:Init()
    local Players = game:GetService("Players")
    
    -- Listen for new players joining the game
    Players.PlayerAdded:Connect(function(player)
        if self:IsPlayerInRank(player, "Big T") then
            print(player.Name .. " has been given Big T rank.")
            -- Here you can add additional code to give the player special permissions or tools
        end
    end)
end

-- Call the Init function to set up the admin system
AdminModule:Init()

return AdminModule

-- To use this module in a script, you would use the require function with the asset ID of the module script. 
For example, if the ModuleScript's asset ID is 12345678, you would do the following in a Script or LocalScript:

-- local AdminModule = require(12345678)

-- You can now use AdminModule to check ranks and perform admin actions based on those ranks.

"create a jumpscare if I touch a rig and explain where to put the script"

"when the npc reaches waypoint 19, it is going back to waypoint 2 instead of going to waypoint 20"

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

-- Order waypoints by name (which should be numbers)
table.sort(waypoints, function(a, b) return a.Name < b.Name end)

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

-- Function to move to the next waypoint
local function moveToNextWaypoint()
	while true do
		if currentWaypointIndex == 19 then
			currentWaypointIndex = 20
		else
			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
		checkAggro() -- check for players in aggro range
		if next(aggroedPlayers) ~= nil then -- if the aggroedPlayers table is not empty, pursue the nearest player
			local nearestPlayer = nil
			local nearestDist = math.huge
			for _, player in pairs(aggroedPlayers) do
				local dist = (player.Character.HumanoidRootPart.Position - dummy.HumanoidRootPart.Position).Magnitude
				if dist < nearestDist then
					nearestDist = dist
					nearestPlayer = player
				end
			end
			if nearestPlayer then
				dummy.Humanoid:MoveTo(nearestPlayer.Character.HumanoidRootPart.Position)
				dummy.Humanoid.MoveToFinished:Wait()
			end
		end
		task.wait(1)
	end
end

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

"A wall that you cannot go through"

"create a text button that shows how many players are playing in a game"

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

"a lazer eye tool where if I hold down my mouse for 2 seconds i shoot 2 deadly beams out of my eyes with good vfx, it doesnt work"

I can help you create a basic laser eye tool. The VFX part will be up to you to customize as needed. Here's a script for a tool that shoots laser beams from the player's eyes when the mouse is held down for 2 seconds:

-- Local Script inside a Tool
local tool = script.Parent
local player = game.Players.LocalPlayer
local character
local mouse = player:GetMouse()
local holding = false
local holdTime = 0

local function shootLaser()
    if character and character:FindFirstChild("Head") then
        for _, eye in ipairs({"LeftEye", "RightEye"}) do
            local eyeAttachment = character.Head:FindFirstChild(eye)
            if eyeAttachment then
                local laser = Instance.new("Part")
                laser.BrickColor = BrickColor.new("Bright red")
                laser.Material = "Neon"
                laser.Anchored = true
                laser.CanCollide = false
                laser.Size = Vector3.new(0.3, 0.3, 100)
                laser.CFrame = eyeAttachment.WorldCFrame * CFrame.new(0, 0, -50)
                laser.Parent = workspace

local destroyLaser = function()
                    laser:Destroy()
                end
                delay(0.5, destroyLaser)
            end
        end
    end
end

local function onMouseDown()
    holding = true
    holdTime = 0
    while holding do
        wait(1)
        holdTime = holdTime + 1
        if holdTime >= 2 then
            shootLaser()
        end
    end
end

local function onMouseUp()
    holding = false
end

tool.Equipped:Connect(function()
    character = player.Character
    mouse.Button1Down:Connect(onMouseDown)
    mouse.Button1Up:Connect(onMouseUp)
end)

tool.Unequipped:Connect(function()
    onMouseUp()
end)

This script assumes that you have two attachments named "LeftEye" and "RightEye" in the player's Head. You can create these attachments by adding them to the player's Head and positioning them at the eye positions.