Haddock - Roblox Library

"a part drops from this part ever 4 seconds"

"Create a tween that makes the player's character body parts float out of the current position and slowly fade away when the character walks"

"FilterRE is a remote function. not remote event"

"a roblox script that once you step on a part named "PartFreeze" it freezes your client for 3 seconds and the unfreezes it"

"Create a script that changes a parts color every second"

"create a script inside a text label located inside a screen gui saying Leveled up everytime the player levels up."

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

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

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

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

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

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

local rodAim = false

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

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

"My truss Part called up will have a green highlight around it and its transparency is1 and its can collide is false but when a Player touches my Part called button2 button2 will go down 1 stud using tween service and my truss Part called up will have its transparency set to 0 and its can collide set to True"

"make a script that works inside the part that makes the part glitch out along with randomly adding a randomized part effect and changing the brick color randomly and make the glitch time random"

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

"play animation"

"Make a CFrame model move like a train"

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

"make a function that randomly fires"

"when i press I on my keyboard i will sit"

"when a player walks on my part they will take 1 damage and if they stand still on my part they will take 1 damage"

"make a roblox lua script that kick's people when the keybind k is pressed and if you look at the player then that player will be selected to be kicked"

"make a script for leaderstats called Money"

"write a roblox script that when you say "!test" it will slowly and smoothly make the ambient green and smoothly change to the clocktime to 0, also tell where to put the script."

"make that my arms doesn't make damage until the animation plays"

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

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

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

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

"make a fly hack."

"Make the player camera lock on a part with smooth rotation"

"you will fly when you click a fly button and you control it by where you look"

-- LocalScript inside a ScreenGui with a TextButton named "FlyButton" 
local flyButton = script.Parent.FlyButton
local player = game:GetService("Players").LocalPlayer
local character
local flying = false

local function toggleFly()
    if character then
        flying = not flying
        local humanoid = character:FindFirstChild("Humanoid")
        if flying then
            flyButton.Text = "Stop Flying"
            humanoid.PlatformStand = true
        else
            flyButton.Text = "Start Flying"
            humanoid.PlatformStand = false
        end
    end
end

local function fly()
    if character and flying then
        local humanoidRootPart = character:FindFirstChild("HumanoidRootPart")
        local camera = workspace.CurrentCamera
        local direction = camera.CFrame.LookVector
        humanoidRootPart.Velocity = direction * 50
    end
end

flyButton.MouseButton1Click:Connect(toggleFly)
game:GetService("RunService").Heartbeat:Connect(fly)

player.CharacterAdded:Connect(function(newCharacter)
    character = newCharacter
end)

character = player.Character or player.CharacterAdded:Wait()

"im changing the text but nothing prints"

-- The print statements in the script are only executed when the associated events are triggered. 
-- If you're changing the text in the TextBoxes but nothing is printing, it's possible that the FocusLost events are not being triggered. 
-- This could be because the TextBox is not losing focus (e.g., you're not clicking outside of the TextBox after changing the text), 
-- or because the 'enterPressed' parameter is not true (e.g., you're not pressing Enter after changing the text). 
-- If you want to print something every time the text in the TextBoxes changes, regardless of whether they lose focus or not, 
-- you could use the TextBox's TextChanged event instead:

gui.FlightInfo.FlightCode.TextBox1.TextChanged:Connect(function()
	print("TextBox1 text was changed to: " .. gui.TextBox1.Text)
end)

gui.FlightInfo.Aircraft.TextBox2.TextChanged:Connect(function()
	print("TextBox2 text was changed to: " .. gui.TextBox2.Text)
end)

gui.TextBox3.TextChanged:Connect(function()
	print("TextBox3 text was changed to: " .. gui.TextBox3.Text)
end)

gui.TextBox4.TextChanged:Connect(function()
	print("TextBox4 text was changed to: " .. gui.TextBox4.Text)
end)

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

"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 script that plays an animation for another player if I click on the player. The animation ID is 1"

"Write me the most complex script for time"

I'm not sure what you mean by "the most complex script for time," but here's a script that demonstrates a digital clock system in Roblox using a SurfaceGui. This script updates the clock every second and displays the current time in hours, minutes, and seconds.

--lua
-- Server Script
local function createTimeLabel(parent)
    local label = Instance.new("TextLabel")
    label.Parent = parent
    label.Size = UDim2.new(1, 0, 1, 0)
    label.BackgroundTransparency = 1
    label.TextScaled = true
    label.Font = Enum.Font.SourceSansBold
    label.TextColor3 = Color3.new(1, 1, 1)
    return label
end

local function createClock(part)
    local surfaceGui = Instance.new("SurfaceGui", part)
    surfaceGui.Face = Enum.NormalId.Front
    surfaceGui.LightInfluence = 0
    surfaceGui.CanvasSize = Vector2.new(500, 500)
    local timeLabel = createTimeLabel(surfaceGui)
    return timeLabel
end

local clockPart = Instance.new("Part", workspace)
clockPart.Size = Vector3.new(10, 5, 1)
clockPart.Anchored = true
clockPart.CFrame = CFrame.new(0, 5, 0)
local clockLabel = createClock(clockPart)

while true do
    local currentTime = os.date("*t")
    local hours = string.format("d", currentTime.hour)
    local minutes = string.format("d", currentTime.min)
    local seconds = string.format("d", currentTime.sec)
    clockLabel.Text = hours .. ":" .. minutes .. ":" .. seconds
    task.wait(1)
end
--

This script creates a part in the workspace, adds a SurfaceGui to it, and updates the displayed time every second. The time is formatted as a digital clock with hours, minutes, and seconds.

"the npc should get within 5 units of the player before attempting to attack"

In the `attackPlayer` function, you can add a condition to check if the NPC is within 5 units of the player before attempting to attack. If the NPC is not within 5 units of the player, it will continue moving towards the player until it is within range. Here's how you can modify the function:

```lua
-- Function to attack a player
local function attackPlayer(player)
    isAttacking = true
    npc.Humanoid:MoveTo(player.Character.HumanoidRootPart.Position)
    while (player.Character.HumanoidRootPart.Position - npc.HumanoidRootPart.Position).Magnitude > 5 do
        wait(0.1) -- wait for a short time before checking the distance again
    end
    npc.Humanoid:LoadAnimation(npc.Animations.AttackAnimation):Play()
    wait(2) -- attack cooldown
    if (player.Character.HumanoidRootPart.Position - npc.HumanoidRootPart.Position).Magnitude < 5 then
        player.Character.Humanoid:TakeDamage(10)
    end
    isAttacking = false
end
```

This will ensure that the NPC gets within 5 units of the player before attempting to attack.

"a player holds W make player dash forward by pressing Q a player holds A make player dash left by pressing Q a player holds s make player dash back by pressing Q a player holds D make player dash right by pressing Q w/ custom animations for each"

-- 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 forwardDashAnimation = Instance.new("Animation")
forwardDashAnimation.AnimationId = "rbxassetid://YourForwardDashAnimationIDHere"

local leftDashAnimation = Instance.new("Animation")
leftDashAnimation.AnimationId = "rbxassetid://YourLeftDashAnimationIDHere"

local backwardDashAnimation = Instance.new("Animation")
backwardDashAnimation.AnimationId = "rbxassetid://YourBackwardDashAnimationIDHere"

local rightDashAnimation = Instance.new("Animation")
rightDashAnimation.AnimationId = "rbxassetid://YourRightDashAnimationIDHere"

local function onKeyDown(input)
    local keyCode = input.KeyCode
    if keyCode == Enum.KeyCode.Q then
        local moveDirection = UserInputService:GetMoveVector()
        if moveDirection == Vector3.new(1, 0, 0) then
            local animationTrack = humanoid:LoadAnimation(rightDashAnimation)
            animationTrack:Play()
        elseif moveDirection == Vector3.new(-1, 0, 0) then
            local animationTrack = humanoid:LoadAnimation(leftDashAnimation)
            animationTrack:Play()
        elseif moveDirection == Vector3.new(0, 0, 1) then
            local animationTrack = humanoid:LoadAnimation(backwardDashAnimation)
            animationTrack:Play()
        elseif moveDirection == Vector3.new(0, 0, -1) then
            local animationTrack = humanoid:LoadAnimation(forwardDashAnimation)
            animationTrack:Play()
        end
    end
end

UserInputService.InputBegan:Connect(onKeyDown)

"Make me a script where the camera angle locks the players body and movement. The keybind is z"

"code a superpower with comments explaining where to put everything"

-- script for superpower activation, place this script in a part or a button in the game 
local part = script.Parent

local function activateSuperPower(otherPart)
    local player = game.Players:FindFirstChild(otherPart.Parent.Name)
    if player then
        local character = player.Character
        if character then
            local humanoid = character:FindFirstChild("Humanoid")
            if humanoid then
                humanoid.WalkSpeed = 50 -- Increase walk speed
                humanoid.JumpPower = 100 -- Increase jump power

-- Add a particle effect to the character (optional)
                local particle = Instance.new("ParticleEmitter")
                particle.Parent = character.HumanoidRootPart
                particle.Rate = 50
                particle.Lifetime = NumberRange.new(1, 2)
                particle.Size = NumberSequence.new(0.5, 0.5)
                particle.Speed = NumberRange.new(5, 10)
                particle.Color = ColorSequence.new(Color3.fromRGB(0, 255, 255))

-- Reset the superpower after 10 seconds
                wait(10)
                humanoid.WalkSpeed = 16
                humanoid.JumpPower = 50
                particle:Destroy()
            end
        end
    end
end

part.Touched:Connect(activateSuperPower)

-- Don't forget to add leaderstats to the player 
-- Place this script in ServerScriptService 
game.Players.PlayerAdded:Connect(function(player)
    local leaderstats = Instance.new("Folder")
    leaderstats.Name = "leaderstats"
    leaderstats.Parent = player

local superPower = Instance.new("BoolValue")
    superPower.Name = "SuperPower"
    superPower.Value = false
    superPower.Parent = leaderstats
end)

"create a script for Button that when touched by a player it spawns Jeep and make it so that it can be spawned as many times as possible so long it exceeds 20 studs of another Jeep and even if the Jeep is destroyed or deleted from the Workspace"

"exp system that will start the 2x exp event on friday and finish it on sunday 12 am the exp event will Multiply the exp the Player gets when they level up make sure it just multiplies the exp value they get this is for a Model Named exp thingy in wor"

-- script for exp system in a model named "exp thingy" 
local expModel = game.Workspace["exp thingy"]
local Players = game:GetService("Players")

local function isExpEventActive()
    local currentDate = os.date("*t")
    local currentDay = currentDate.wday
    if currentDay >= 6 and currentDay <= 7 then -- 6 is Friday, 7 is Saturday
        return true
    else
        return false
    end
end

local function levelUp(player)
    local playerStats = player.leaderstats
    local exp = playerStats.Exp.Value
    local level = playerStats.Level.Value
    local expToNextLevel = level * 100

if exp >= expToNextLevel then
        playerStats.Level.Value = playerStats.Level.Value + 1
        playerStats.Exp.Value = exp - expToNextLevel

if isExpEventActive() then
            playerStats.Exp.Value = playerStats.Exp.Value * 2
        end
    end
end

local function onExpChange(player, expValue)
    levelUp(player)
end

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

local exp = Instance.new("IntValue")
    exp.Name = "Exp"
    exp.Value = 0
    exp.Parent = stats

local level = Instance.new("IntValue")
    level.Name = "Level"
    level.Value = 1
    level.Parent = stats

exp:GetPropertyChangedSignal("Value"):Connect(function()
        onExpChange(player, exp.Value)
    end)
end

Players.PlayerAdded:Connect(onPlayerAdded)

"line 55 i only want it to play unless gui size doesnt == normalSize"

-- roblox script 
local player = game.Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local head = character:WaitForChild("Head")
local drown = Instance.new("Sound")
drown.SoundId = "rbxassetid://6556968450"
drown.Parent = head
drown.Name = "bad"
drown.Looped = true
drown.Volume = 0.3
drown.PlaybackSpeed = 0.5
drown:Stop()
local breath = Instance.new("Sound")
breath.SoundId = "rbxassetid://360202811"
breath.Parent = head
breath.Name = "good"
breath.Looped = true
breath.Volume = 0.3
local humanoid = character:WaitForChild("Humanoid")
local gui1 = player.PlayerGui.Oxygen.BarGray
local gui = player.PlayerGui.Oxygen.BarGray.Bar
local imageLabel = player.PlayerGui.Oxygen.Drown
local tweenService = game:GetService("TweenService")
local swimSize = UDim2.new(0, 0, 0, 6)
local normalSize = UDim2.new(0, 363, 0, 6)
local swimTween = TweenInfo.new(10, Enum.EasingStyle.Linear, Enum.EasingDirection.Out)
local normalTween = TweenInfo.new(6, Enum.EasingStyle.Linear, Enum.EasingDirection.Out)
local swimTween = tweenService:Create(gui, swimTween, {Size = swimSize})
local normalTween = tweenService:Create(gui, normalTween, {Size = normalSize})

while true do
	if gui.Size == normalSize then
		gui1.Visible = false
		local transparencyTween = tweenService:Create(imageLabel, TweenInfo.new(3, Enum.EasingStyle.Linear, Enum.EasingDirection.Out), {ImageTransparency = 1})
		transparencyTween:Play()
	end
	if humanoid:GetState() == Enum.HumanoidStateType.Swimming then
		gui1.Visible = true
		swimTween:Play()
		if gui.Size == swimSize then
			humanoid.Health = humanoid.Health - 3
			if not drown.IsPlaying then
				drown:Play()
				drown.PlaybackSpeed = 0.5
			end
			if breath.IsPlaying then
				breath:Stop()
			end
			local transparencyTween = tweenService:Create(imageLabel, TweenInfo.new(3, Enum.EasingStyle.Linear, Enum.EasingDirection.Out), {ImageTransparency = 0})
			transparencyTween:Play()
		end
	else
		drown:Stop()
		normalTween:Play()
		if not breath.IsPlaying and gui.Size ~= normalSize then
			breath:Play()
		end
		if gui.Size == normalSize then
			if breath.IsPlaying then
				breath:Stop()
			end
		end
	end
	task.wait(0.2)
end

"CreateA script that makes the part grow or shrink in size based on mouse scrolling. This is a part is located in workspace.Part"

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

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

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

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

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

"make a fe script that when you press the button from the bottom of the screen an NPC will spawn in front of you"

"Make a roblox script where my Part called leee will show the top 20 players with the most of my leaderstat called Robux"

"When the game detects a player without a tool named "Football", it will give them a different specific tool of my choice from server storage."

"players can not jump"

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

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

"On line 42 for custom actions, could a workaround for this system to work include making it so that when the player presses the key to start typing in the chat bar, the indicator would appear?"

Yes, you can design a workaround where pressing a key to start typing in the chat bar triggers the typing indicator. This approach requires detecting a specific key press event and then showing the typing indicator. However, it's important to note that Roblox's default chat system captures keyboard input directly when typing into the chat, which might limit the ability to detect specific key presses meant for starting chat input.

To implement this, you would need to create a custom input handler that listens for the key press that activates the chat (usually "/", but this can be customized in some games). When this key is pressed, you can trigger the typing indicator to appear above the player's head. Remember, this method won't detect when the player is actually typing or has finished typing; it merely shows an indicator when they press the key to start chatting.

Here's an example script that demonstrates how to show a typing indicator when the player presses a specific key (in this case, the "/" key, which is commonly used to start chatting). This script should be placed in a LocalScript within a suitable location, such as a player's character or a GUI.

```lua
local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")

local localPlayer = Players.LocalPlayer

local function showTypingIndicator()
    if not localPlayer.Character or not localPlayer.Character:FindFirstChild("Head") then return end
    local typingGui = localPlayer.Character.Head:FindFirstChild("TypingGui") or Instance.new("BillboardGui")
    local textLabel = typingGui:FindFirstChild("TextLabel") or Instance.new("TextLabel", typingGui)

typingGui.Adornee = localPlayer.Character.Head
    typingGui.Name = "TypingGui"
    typingGui.Size = UDim2.new(0, 200, 0, 50)
    typingGui.StudsOffset = Vector3.new(0, 2, 0)
    if not typingGui.Parent then typingGui.Parent = localPlayer.Character.Head end

textLabel.BackgroundTransparency = 1
    textLabel.Size = UDim2.new(1, 0, 1, 0)
    textLabel.TextColor3 = Color3.new(1, 1, 1)
    textLabel.TextScaled = true
    textLabel.Text = localPlayer.Name .. " is typing..."

typingGui.Enabled = true

delay(5, function()
        if typingGui then
            typingGui.Enabled = false
        end
    end)
end

UserInputService.InputBegan:Connect(function(input, gameProcessed)
    if gameProcessed then return end -- Ignore if the game has processed the input
    if input.KeyCode == Enum.KeyCode.Slash then -- Check if the "/" key was pressed
        showTypingIndicator()
    end
end)
```

This script listens for the "/" key press to trigger the typing indicator. It's a basic implementation and might need adjustments based on specific game mechanics or if you use a custom chat system.

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

"create a datastore that saves a Bool value called Knight inside the player"

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

-- LocalScript inside the Frame 
local player = game.Players.LocalPlayer
local dailyRewards = script.Parent
local buttons = dailyRewards:GetChildren()
local dataStore = game:GetService("DataStoreService"):GetDataStore("DailyRewards")
local rewardClaimedKey = "RewardClaimed"

local function checkClaimStatus()
    local lastClaimed = dataStore:GetAsync(player.UserId .. rewardClaimedKey)
    if lastClaimed then
        local difference = os.difftime(os.time(), lastClaimed)
        if difference >= 86400 then -- 86400 seconds in a day
            return true
        else
            return false
        end
    else
        return true
    end
end

local function claimReward(button)
    if checkClaimStatus() then
        local rewardAmount = tonumber(button.RewardAmount.Value)
        player.leaderstats.Currency.Value = player.leaderstats.Currency.Value + rewardAmount
        dataStore:SetAsync(player.UserId .. rewardClaimedKey, os.time())
        button.Text = "Claimed"
        button.BackgroundColor3 = Color3.fromRGB(100, 100, 100)
        button.Active = false
    else
        button.Text = "Already Claimed"
    end
end

for _, button in pairs(buttons) do
    if button:IsA("TextButton") then
        button.MouseButton1Click:Connect(function()
            claimReward(button)
        end)
    end
end

-- Instructions 
1. Create a Frame inside a ScreenGui.
2. Inside the Frame, create multiple TextButtons.
3. Add an IntValue named "RewardAmount" inside each TextButton and set its value to the desired reward amount.
4. Create a LocalScript inside the Frame and paste the above code.
5. Make sure the player has a leaderstats folder with a Currency IntValue inside it.

"make a gui that shares your screen"

"make a script when i press q a part spawns"

"a script that makes it that if I click while having a tool equipped, a sword swing happens, the animations are replacable within the script and there are working hitboxes infront of the player performing the swing"

-- local script inside the tool 
local tool = script.Parent
local player = game.Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")
local mouse = player:GetMouse()

local swordSwingAnimation = Instance.new("Animation")
swordSwingAnimation.AnimationId = "rbxassetid://YOUR_ANIMATION_ID_HERE"

local hitbox = Instance.new("Part")
hitbox.Name = "Hitbox"
hitbox.Size = Vector3.new(5, 5, 1)
hitbox.Transparency = 1
hitbox.CanCollide = false
hitbox.Parent = character

local function onActivated()
    local swing = humanoid:LoadAnimation(swordSwingAnimation)
    swing:Play()
    
    hitbox.CFrame = character.HumanoidRootPart.CFrame * CFrame.new(0, 0, -5)
    hitbox.Touched:Connect(function(hit)
        local hitCharacter = hit.Parent
        local hitHumanoid = hitCharacter:FindFirstChild("Humanoid")
        if hitHumanoid then
            hitHumanoid.Health = hitHumanoid.Health - 10
        end
    end)
    
    wait(0.5) -- Adjust this value based on the duration of your animation
    hitbox.Touched:Disconnect()
end

tool.Activated:Connect(onActivated)

tool.Unequipped:Connect(function()
    hitbox.Parent = nil
end)

tool.Equipped:Connect(function()
    hitbox.Parent = character
end)

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

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

"script a chair sit"

"can you make me a script that gives 23 people their own shirt and pants make it so i can put their ids"

"change health of a player on part touch"

"there is a button it says ask for a blox fruit when you click it you can type what you want then click send when you do that when Harlandroblox joins the game he can see what people have sent and can reply to them and when they join the game it will show them the reply"

-- This mode only specializes in Module scripts, we recommend using another appropriate mode for getting better responses for this query 
-- 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 askButton = Instance.new("TextButton", background)
askButton.Text = "Ask for a Blox Fruit"
askButton.TextColor3 = Color3.fromRGB(255, 255, 255)
askButton.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
askButton.UICorner = 5

local userInput = Instance.new("TextBox", background)
userInput.PlaceholderText = "Type your request here"
userInput.TextColor3 = Color3.fromRGB(255, 255, 255)
userInput.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
userInput.UICorner = 5

local sendButton = Instance.new("TextButton", background)
sendButton.Text = "Send"
sendButton.TextColor3 = Color3.fromRGB(255, 255, 255)
sendButton.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
sendButton.UICorner = 5

local function sendMessage()
    local requestMessage = userInput.Text
    -- Send the requestMessage to the server (use a RemoteEvent or RemoteFunction)
end

sendButton.MouseButton1Click:Connect(sendMessage)

local function onPlayerAdded(newPlayer)
    if newPlayer.Name == "Harlandroblox" then
        -- Show the messages to Harlandroblox (use a RemoteEvent or RemoteFunction)
    end
end

game.Players.PlayerAdded:Connect(onPlayerAdded)

"make leaderstats and datastore for coins, save and load player coins. give players 5 coins every time they progress a stage. show a ui notifcation for a few seconds when a player gains coins. add detailed comments, instructions and description"

-- server script (ServerScriptService) 
local DataStoreService = game:GetService("DataStoreService")
local coinDataStore = DataStoreService:GetDataStore("CoinData")
local Players = game:GetService("Players")

-- Function to save player coins
local function saveCoins(player)
    local success, err = pcall(function()
        local coins = player.leaderstats.Coins.Value
        coinDataStore:SetAsync(player.UserId, coins)
    end)
    if not success then
        warn("Failed to save coins for player: " .. player.Name)
    end
end

-- Function to load player coins
local function loadCoins(player)
    local success, coins = pcall(function()
        return coinDataStore:GetAsync(player.UserId)
    end)
    if success then
        return coins
    else
        warn("Failed to load coins for player: " .. player.Name)
        return nil
    end
end

-- Function to setup leaderstats and load coins
local function onPlayerAdded(player)
    local leaderstats = Instance.new("Folder")
    leaderstats.Name = "leaderstats"
    leaderstats.Parent = player

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

local savedCoins = loadCoins(player)
    if savedCoins then
        coins.Value = savedCoins
    else
        coins.Value = 0
    end

player.CharacterAdded:Connect(function(character)
        character:WaitForChild("Humanoid").Died:Connect(function()
            saveCoins(player)
        end)
    end)
end

-- Function to handle player stage progression
local function onStageProgressed(player)
    player.leaderstats.Coins.Value = player.leaderstats.Coins.Value + 5

-- UI notification script
    local notification = Instance.new("RemoteEvent")
    notification.Name = "CoinNotification"
    notification.Parent = player
    notification:FireClient(player, "You earned 5 coins!")
    wait(3)
    notification:Destroy()
end

-- Connect player added and stage progression events
Players.PlayerAdded:Connect(onPlayerAdded)
game.ReplicatedStorage.StageProgressed.OnServerEvent:Connect(onStageProgressed)

-- local script (StarterGui) 
local player = game.Players.LocalPlayer
local notificationEvent = player:WaitForChild("CoinNotification")

local function showNotification(text)
    local screenGui = Instance.new("ScreenGui")
    screenGui.Parent = player.PlayerGui

local notificationFrame = Instance.new("Frame")
    notificationFrame.Size = UDim2.new(0.3, 0, 0.1, 0)
    notificationFrame.Position = UDim2.new(0.5, 0, 0.9, 0)
    notificationFrame.AnchorPoint = Vector2.new(0.5, 0.5)
    notificationFrame.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
    notificationFrame.BorderSizePixel = 0
    notificationFrame.Parent = screenGui

local notificationText = Instance.new("TextLabel")
    notificationText.Size = UDim2.new(1, 0, 1, 0)
    notificationText.BackgroundTransparency = 1
    notificationText.Text = text
    notificationText.TextColor3 = Color3.fromRGB(255, 255, 255)
    notificationText.Font = Enum.Font.SourceSans
    notificationText.TextScaled = true
    notificationText.Parent = notificationFrame

wait(3)
    screenGui:Destroy()
end

notificationEvent.OnClientEvent:Connect(showNotification)

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

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

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

UserInputService.InputBegan:Connect(function(input, gameProcessedEvent)
    if gameProcessedEvent then return end
    if input.KeyCode == Enum.KeyCode.C then
        applyBuffs()
    end
end)
```

"create a vote-kick system. The vote kick should end when all the players voted or after 5 seconds. Make it a serverscript."

local Players = game:GetService("Players")
local voteInProgress = false
local voteStartTime = 0
local voteEndTime = 0
local voteTarget = nil

local function startVote(targetPlayer)
    voteInProgress = true
    voteStartTime = os.time()
    voteEndTime = voteStartTime + 5
    voteTarget = targetPlayer
    for _, player in pairs(Players:GetPlayers()) do
        if player ~= targetPlayer then
            player:Kick("Vote kick in progress")
        end
    end
end

local function endVote()
    voteInProgress = false
    if voteTarget then
        voteTarget:Kick("Vote kick successful")
    end
end

Players.PlayerAdded:Connect(function(player)
    player.Chatted:Connect(function(message)
        if voteInProgress and message == "yes" then
            voteTarget:Kick("Vote kick successful")
            endVote()
        end
    end)
end)

game:GetService("RunService").RenderStepped:Connect(function()
    if voteInProgress and os.time() > voteEndTime then
        endVote()
    end
end)

game:GetService("ReplicatedStorage").VoteKick:OnServerEvent(function(player)
    startVote(player)
end)

"make a roblox script that loop follows the most close player"

"a roblox script that when you get closer to a part named "test" it makes the ambient more red"

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

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

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

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

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

game.Players.PlayerAdded:Connect(onPlayerAdded)

"Can u make jumping too?"

-- server script 
local seat = script.Parent.VehicleSeat
local backwheel = script.Parent.BackWheel
local frontwheel = script.Parent.FrontWheel

local steerAngle = 30
local speed = 60
local jumpForce = 100

seat:GetPropertyChangedSignal("Steer"):Connect(function()
	frontwheel.PB.SteeringConstraint.TargetAngle = steerAngle*seat.Steer
end)

seat:GetPropertyChangedSignal("Throttle"):Connect(function()
	frontwheel.Wales.WheelConst.AngularVelocity = speed*seat.Throttle
	backwheel.Wales.WheelConst.AngularVelocity = speed*seat.Throttle
end)

-- local script 
local UserInputService = game:GetService("UserInputService")
local player = game.Players.LocalPlayer
local seat = script.Parent

local function onKeyPress(input)
	if input.KeyCode == Enum.KeyCode.W then
		seat.Throttle = 1
	elseif input.KeyCode == Enum.KeyCode.S then
		seat.Throttle = -1
	elseif input.KeyCode == Enum.KeyCode.A then
		seat.Steer = -1
	elseif input.KeyCode == Enum.KeyCode.D then
		seat.Steer = 1
	elseif input.KeyCode == Enum.KeyCode.Space then
		seat.Velocity = Vector3.new(0, jumpForce, 0)
	end
end

local function onKeyRelease(input)
	if input.KeyCode == Enum.KeyCode.W or input.KeyCode == Enum.KeyCode.S then
		seat.Throttle = 0
	elseif input.KeyCode == Enum.KeyCode.A or input.KeyCode == Enum.KeyCode.D then
		seat.Steer = 0
	end
end

UserInputService.InputBegan:Connect(onKeyPress)
UserInputService.InputEnded:Connect(onKeyRelease)

"if activated all true if activated again all false"

"Create a script that makes the NPC follow the last joined player. Make sure it keeps following that player until a new player joins."

local Players = game:GetService("Players")
local RunService = game:GetService("RunService") -- make sure you actually define runservice
local humanoid = script.Parent
local root = humanoid.Parent.PrimaryPart

local lastPlayer = nil

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

Players.PlayerAdded:Connect(function(player)
	lastPlayer = player
end)

RunService.Heartbeat:Connect(function()
	if lastPlayer then
		local nearestPlayer, distance, direction = findNearestPlayer()
		if nearestPlayer == lastPlayer then
			humanoid:Move(direction)
		end
	end
end)

"script for 2 sets of teleporters with the option to make them one-way. add detailed comments, explanation and instructions."

-- Script for teleporter A (TeleporterA) 
local teleporterA = script.Parent
local teleporterB = game.Workspace.TeleporterB
local teleporterC = game.Workspace.TeleporterC
local teleporterD = game.Workspace.TeleporterD

local oneWay = false -- Set to true for one-way teleportation

local function teleportAtoB(otherPart)
    local player = game.Players:FindFirstChild(otherPart.Parent.Name)
    if player then
        -- Teleport player from TeleporterA to TeleporterB
        player.Character.HumanoidRootPart.CFrame = teleporterB.CFrame + Vector3.new(0, 5, 0)
        if oneWay then return end
        wait(1) -- Prevents player from being teleported back immediately
    end
end

teleporterA.Touched:Connect(teleportAtoB)

-- Script for teleporter B (TeleporterB) 
local teleporterB = script.Parent

local function teleportBtoA(otherPart)
    local player = game.Players:FindFirstChild(otherPart.Parent.Name)
    if player and not oneWay then
        -- Teleport player from TeleporterB to TeleporterA
        player.Character.HumanoidRootPart.CFrame = teleporterA.CFrame + Vector3.new(0, 5, 0)
        wait(1) -- Prevents player from being teleported back immediately
    end
end

teleporterB.Touched:Connect(teleportBtoA)

-- Script for teleporter C (TeleporterC) 
local teleporterC = script.Parent

local function teleportCtoD(otherPart)
    local player = game.Players:FindFirstChild(otherPart.Parent.Name)
    if player then
        -- Teleport player from TeleporterC to TeleporterD
        player.Character.HumanoidRootPart.CFrame = teleporterD.CFrame + Vector3.new(0, 5, 0)
        if oneWay then return end
        wait(1) -- Prevents player from being teleported back immediately
    end
end

teleporterC.Touched:Connect(teleportCtoD)

-- Script for teleporter D (TeleporterD) 
local teleporterD = script.Parent

local function teleportDtoC(otherPart)
    local player = game.Players:FindFirstChild(otherPart.Parent.Name)
    if player and not oneWay then
        -- Teleport player from TeleporterD to TeleporterC
        player.Character.HumanoidRootPart.CFrame = teleporterC.CFrame + Vector3.new(0, 5, 0)
        wait(1) -- Prevents player from being teleported back immediately
    end
end

teleporterD.Touched:Connect(teleportDtoC)

-- Instructions:
1. Create 4 parts in the Workspace and name them TeleporterA, TeleporterB, TeleporterC, and TeleporterD.
2. Copy and paste each script into the corresponding teleporter part.
3. Set the 'oneWay' variable to true in the scripts if you want the teleporters to be one-way.
4. Test the teleporters in-game by walking on them.

"Create a script that saves players position that won’t make players fall of map"

-- Local script 
local Players = game:GetService("Players")
local player = Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoidRootPart = character:WaitForChild("HumanoidRootPart")

local function savePosition()
    local savedPosition = humanoidRootPart.Position
    game:GetService("DataStoreService"):GetDataStore("PlayerPositions"):SetAsync(player.UserId, savedPosition)
end

local function loadPosition()
    local savedPosition = game:GetService("DataStoreService"):GetDataStore("PlayerPositions"):GetAsync(player.UserId)
    if savedPosition then
        local newY = workspace.Baseplate.Size.Y/2 + 5
        if savedPosition.Y < newY then
            savedPosition = Vector3.new(savedPosition.X, newY, savedPosition.Z)
        end
        humanoidRootPart.CFrame = CFrame.new(savedPosition)
    end
end

player.CharacterAdded:Connect(function(character)
    humanoidRootPart = character:WaitForChild("HumanoidRootPart")
    loadPosition()
end)

game:BindToClose(function()
    savePosition()
end)

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

-- Local Script 
local Players = game:GetService("Players")
local TweenService = game:GetService("TweenService")

local player = Players.LocalPlayer
local camera = workspace.CurrentCamera
local blur = Instance.new("BlurEffect")
blur.Parent = workspace.CurrentCamera
blur.Size = 0

local function updateBlur()
    local lastCFrame = camera.CFrame
    while true do
        wait()
        local deltaCFrame = lastCFrame:ToObjectSpace(camera.CFrame)
        local rotationAmount = math.abs(deltaCFrame.Y)
        local targetBlurSize = math.min(rotationAmount * 100, 20)
        local tweenInfo = TweenInfo.new(0.1, Enum.EasingStyle.Sine, Enum.EasingDirection.Out)
        local tween = TweenService:Create(blur, tweenInfo, {Size = targetBlurSize})
        tween:Play()
        lastCFrame = camera.CFrame
    end
end

player.CharacterAdded:Connect(function(character)
    local humanoid = character:WaitForChild("Humanoid")
    humanoid.CameraOffset = Vector3.new(0, 1.5, 0)
    camera.CameraSubject = humanoid
    camera.CameraType = Enum.CameraType.Custom
    updateBlur()
end)

"create a script for a screengui, when the player joins, the screengui transparency goes to 0 , after 3 seconds , its transparency goes up by 0.2, 5 times."

"make a bricks color change every 0.25 seconds"

"Create a realistic IGBT VVVF"

"Make a script when the gui button is pressed it toggles everything being 0.8 transparency and when clicked again it goes back to normal"

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

"create a script that will allow the player too pick up a object and make it disappear when clicked"

"A leaderboard that counts your time on how long you have been on the server for. by every minute"

"Make me a script where I can change the angle of my screen up and down. I can use the keybinds f and g to switch the angles 5 and -5. Then make that script to be able to be used in football games."

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

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

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

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

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

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

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

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

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

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

"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 a laser eye tool that shoots beams when you hold down your mouse for 2 seconds. However, I cannot provide you with VFX as it requires assets and designing.

First, create a Tool in StarterPack and name it "LaserEyes". Then, add a LocalScript inside the Tool with the following code:

```lua
local tool = script.Parent
local player = game:GetService("Players").LocalPlayer
local mouse = player:GetMouse()
local debounce = false
local holdTime = 0

local function shootLaserEyes()
    local character = player.Character
    if character and character:FindFirstChild("Head") then
        local head = character.Head
        local leftEyePosition = head.Position + Vector3.new(-0.75, 0.5, 0)
        local rightEyePosition = head.Position + Vector3.new(0.75, 0.5, 0)
        local targetPosition = mouse.Hit.p

local leftBeam = Instance.new("Part", workspace)
        leftBeam.BrickColor = BrickColor.new("Bright red")
        leftBeam.Material = "Neon"
        leftBeam.Transparency = 0.25
        leftBeam.Anchored = true
        leftBeam.Locked = true
        leftBeam.CanCollide = false

local rightBeam = leftBeam:Clone()
        rightBeam.Parent = workspace

local distance = (leftEyePosition - targetPosition).magnitude
        leftBeam.Size = Vector3.new(0.3, 0.3, distance)
        rightBeam.Size = Vector3.new(0.3, 0.3, distance)

leftBeam.CFrame = CFrame.new(leftEyePosition, targetPosition) * CFrame.new(0, 0, -distance / 2)
        rightBeam.CFrame = CFrame.new(rightEyePosition, targetPosition) * CFrame.new(0, 0, -distance / 2)

wait(0.1) -- You can adjust this value to control how long the beams stay visible

leftBeam:Destroy()
        rightBeam:Destroy()
    end
end

local function onMouseDown()
    if debounce then return end
    debounce = true
    holdTime = 0

while mouse.Button1Down do
        holdTime = holdTime + 0.1
        if holdTime >= 2 then
            shootLaserEyes()
            break
        end
        wait(0.1)
    end

debounce = false
end

mouse.Button1Down:Connect(onMouseDown)
```

This script will create a laser eye tool that shoots beams when you hold down your mouse for 2 seconds. You can customize the appearance of the beams by modifying the properties of the `leftBeam` and `rightBeam` instances in the script.

"You spawn on a baseplate named ‘baseplate’. There is a 5 second countdown that show up on your screen every time you die. When the 5 second countdown ends, you get teleported to another baseplate named ‘arena’."

-- server script 
game.Players.PlayerAdded:Connect(function(player)
    player.CharacterAdded:Connect(function(character)
        character:WaitForChild("Humanoid").Died:Connect(function()
            local countdown = Instance.new("IntValue")
            countdown.Name = "Countdown"
            countdown.Value = 5
            countdown.Parent = player
            
            repeat
                wait(1)
                countdown.Value = countdown.Value - 1
            until countdown.Value == 0
            
            local arena = game.Workspace:FindFirstChild("arena")
            player.RespawnLocation = arena.SpawnLocation
            player:LoadCharacter()
        end)
    end)
end)

-- local script 
game.Players.LocalPlayer.ChildAdded:Connect(function(child)
    if child.Name == "Countdown" then
        local screenGui = Instance.new("ScreenGui")
        local textLabel = Instance.new("TextLabel")
        
        textLabel.Text = tostring(child.Value)
        textLabel.Size = UDim2.new(0, 200, 0, 50)
        textLabel.Position = UDim2.new(0.5, -100, 0.5, -25)
        textLabel.Parent = screenGui
        
        screenGui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")
        
        child.Changed:Connect(function()
            textLabel.Text = tostring(child.Value)
            
            if child.Value == 0 then
                screenGui:Destroy()
            end
        end)
    end
end)

"makes a script that cleans the workspace every few minutes"

"Make a SellPad that sells Food"

"make a button to switch between running and walking"

"make a script that spawns a part then puts it on the players head"

"the head is cancollide false and anchored false, so since the head is supposed to act like the new head, try putting new attachments to the body so it can go on like a normal head"

-- server script 
if HitPart.Name == "Head" then
    if HitPart.Parent.Name == "Furry" or HitPart.Parent.Name == "Neko" then
        print('Gibbed:' .. HitPart.Parent.Name)
        local newHead = GoreHead:Clone()
        newHead.Parent = HitPart.Parent
        HitPart:Remove()
        newHead.Transparency = 0 -- making sure the new head is visible
        newHead.CanCollide = false
        newHead.Anchored = false

-- create new attachments for the body
        local neckAttachment = Instance.new("Attachment")
        neckAttachment.Name = "Neck"
        neckAttachment.Parent = HitPart.Parent["UpperTorso"]
        neckAttachment.Position = Vector3.new(0, 1, 0)

local headAttachment = Instance.new("Attachment")
        headAttachment.Name = "Head"
        headAttachment.Parent = newHead
        headAttachment.Position = Vector3.new(0, -1, 0)

-- create a new weld constraint to connect the head and body
        local weld = Instance.new("WeldConstraint")
        weld.Parent = HitPart.Parent["UpperTorso"]
        weld.Part0 = HitPart.Parent["UpperTorso"]
        weld.Part1 = newHead
    end
end

"make something that makes the baseplate white."

"script for a part that gives the player a random piece of gear from the Gear folder in serverstorage every 5 minutes if they touch the part and are stage 210. the part displays a 5 minute countdown. add detailed comments and instructions"

"The hinge needs to be in it. Is there another way to set the script to open at 90, and close at 0."

"make a script that spins my character at 300 speed"

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

"make it use :GetPropertyChangedSignal("WalkSpeed") and local WalkSpeed = Humanoid.WalkSpeed RootPart.Running.PlaybackSpeed = WalkSpeed / RunningDivisor RootPart.Swimming.PlaybackSpeed = WalkSpeed / SwimmingDivisor RootPart.Climbing.PlaybackSpeed = WalkSpeed / ClimbingDivisor"

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

"make a script for a ui text label that displays and starts a 5 minute countdown when the player touches the part called GearPart. touching the part during the countdown does not interrupt it."

-- script for GearPart 
local part = script.Parent
local touched = false

local function startCountdown(player)
    if not touched then
        touched = true
        local gui = player.PlayerGui
        local label = gui.MainUI.CountdownLabel
        local timeLeft = 300 -- 5 minutes in seconds

while timeLeft > 0 do
            local minutes = math.floor(timeLeft / 60)
            local seconds = timeLeft % 60
            label.Text = string.format("%02d:%02d", minutes, seconds)
            wait(1)
            timeLeft = timeLeft - 1
        end
        label.Text = "Countdown Finished"
    end
end

local function onTouch(otherPart)
    local player = game.Players:FindFirstChild(otherPart.Parent.Name)
    if player then
        startCountdown(player)
    end
end

part.Touched:Connect(onTouch)

-- Local script for UI 
local Player = game:GetService("Players").LocalPlayer
local MainUI = Instance.new("ScreenGui")
MainUI.Name = "MainUI"
MainUI.Parent = Player.PlayerGui

local CountdownLabel = Instance.new("TextLabel")
CountdownLabel.Name = "CountdownLabel"
CountdownLabel.Parent = MainUI
CountdownLabel.Size = UDim2.new(0.2, 0, 0.1, 0)
CountdownLabel.Position = UDim2.new(0.4, 0, 0.4, 0)
CountdownLabel.Text = "Touch the GearPart"
CountdownLabel.TextScaled = true
CountdownLabel.BackgroundTransparency = 1
CountdownLabel.TextColor3 = Color3.new(1, 1, 1)

"Create a script that plays an animation when I click on a player, the animation is 12584847759 Make sure you use player:GetMouse()"

"make a creepy hint script that activates as soon as a certan part is touched if its touched then activate a 2 min timer if the timer ends then kill the player also set the fog to a creepy setting"

"make a tycoon"

"Write a system for a Euphoria movement system"

Yes, you can fix this by setting a maximum speed value and ensuring the newSpeed value does not exceed this limit. Here's the updated FluidMovement function with a maxSpeed value:

```lua
function EuphoriaModule:FluidMovement(character, deltaTime)
    if not deltaTime then
        return
    end

local humanoid = character.Humanoid
    local rootPart = character.HumanoidRootPart
    local targetSpeed = humanoid.WalkSpeed
    local currentSpeed = rootPart.Velocity.Magnitude
    local maxSpeed = 50 -- Set the maximum speed value

if humanoid:GetState() == Enum.HumanoidStateType.Running then
        targetSpeed = targetSpeed * 1.5
    end

local newSpeed = lerp(currentSpeed, targetSpeed, deltaTime * 5)
    newSpeed = math.clamp(newSpeed, 0, maxSpeed) -- Clamp the newSpeed value within a specific range
    humanoid.WalkSpeed = newSpeed

local moveDirection = humanoid.MoveDirection
    if moveDirection.Magnitude > 0 then
        moveDirection = moveDirection.Unit -- Normalize the moveDirection vector
        local targetCFrame = CFrame.new(rootPart.Position, rootPart.Position   moveDirection)
        rootPart.CFrame = rootPart.CFrame:Lerp(targetCFrame, deltaTime * 5)
    end
end
```

In this example, the maxSpeed value is set to 50. You can adjust this value to control the maximum speed the player can reach. The newSpeed value is clamped between 0 and maxSpeed, ensuring the player's speed does not exceed the limit.

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

-- main script (ServerScriptService) 
local Players = game:GetService("Players")
local DataStoreService = game:GetService("DataStoreService")
local StageDataStore = DataStoreService:GetDataStore("StageData")
local Checkpoints = game.Workspace.Checkpoints

function onPlayerAdded(player)
    -- create leaderstats and values
    local leaderstats = Instance.new("Folder")
    leaderstats.Name = "leaderstats"
    leaderstats.Parent = player
    
    local stage = Instance.new("IntValue")
    stage.Name = "Stage"
    stage.Value = 0
    stage.Parent = leaderstats
    
    local rebirths = Instance.new("IntValue")
    rebirths.Name = "Rebirths"
    rebirths.Value = 0
    rebirths.Parent = leaderstats
    
    -- load player data
    local success, errorMessage = pcall(function()
        local loadedData = StageDataStore:GetAsync(player.UserId .. "-StageData")
        if loadedData then
            stage.Value = loadedData[1]
            rebirths.Value = loadedData[2]
        end
    end)
    if not success then
        print("Error loading data: " .. errorMessage)
    end
end

function onPlayerRemoving(player)
    -- save player data
    local success, errorMessage = pcall(function()
        StageDataStore:SetAsync(player.UserId .. "-StageData", {player.leaderstats.Stage.Value, player.leaderstats.Rebirths.Value})
    end)
    if not success then
        print("Error saving data: " .. errorMessage)
    end
end

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

-- script for stage checkpoints 
for i, stagePart in ipairs(Checkpoints:GetChildren()) do
    stagePart.Touched:Connect(function(hit)
        local player = game.Players:FindFirstChild(hit.Parent.Name)
        if player and player.leaderstats.Stage.Value < tonumber(stagePart.Name) then
            player.leaderstats.Stage.Value = tonumber(stagePart.Name)
        end
    end)
end

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

rebirthPart.Touched:Connect(function(hit)
    local player = game.Players:FindFirstChild(hit.Parent.Name)
    if player and player.leaderstats.Stage.Value >= 65 then
        player.leaderstats.Stage.Value = 0
        player.leaderstats.Rebirths.Value = player.leaderstats.Rebirths.Value + 1
        player.Character.HumanoidRootPart.CFrame = Checkpoints["1"].CFrame + Vector3.new(0, 5, 0)
    end
end)

--[[ Instructions:
1. Create a folder named "Checkpoints" in the Workspace.
2. Inside the folder, create numbered parts for each stage (e.g., 1, 2, 3, etc.).
3. Create a part named "Rebirth" in the Workspace for the rebirth location.
4. Place the main script in ServerScriptService.
5. Place the stage checkpoints script and the rebirth script in the same script as the main script.
6. Test the game to ensure stages and rebirths are working as intended.
7. Data is saved and loaded using DataStores, so progress will be saved across sessions.
--]]

"adopt me script that allows to pet farm and baby farm at the same time with a button and when preesed enable/disable the pet and baby auto farm and add a button that when preeesed is labeld hide hides the window"

I cannot provide a script that directly relates to the Adopt Me game as it goes against Roblox's terms of service. However, I can provide you with a basic script for creating a GUI button that toggles the visibility of a window and another button that enables/disables a feature.

Create a ScreenGui in StarterGui and add two TextButtons inside it. Name one "ToggleFarm" and the other "ToggleWindow". Add a Frame inside the ScreenGui and name it "Window".

Here's the local script to be placed inside the ScreenGui:

```lua
local toggleFarmButton = script.Parent.ToggleFarm
local toggleWindowButton = script.Parent.ToggleWindow
local window = script.Parent.Window

local farmingEnabled = false

local function toggleFarm()
    farmingEnabled = not farmingEnabled
    
    if farmingEnabled then
        toggleFarmButton.Text = "Disable Farm"
        -- Add your farming logic here
    else
        toggleFarmButton.Text = "Enable Farm"
        -- Add logic to stop farming here
    end
end

local function toggleWindow()
    window.Visible = not window.Visible
    
    if window.Visible then
        toggleWindowButton.Text = "Hide"
    else
        toggleWindowButton.Text = "Show"
    end
end

toggleFarmButton.MouseButton1Click:Connect(toggleFarm)
toggleWindowButton.MouseButton1Click:Connect(toggleWindow)
```

This script creates two functions, one for toggling the farming feature and another for toggling the visibility of the window. Replace the comments in the script with your own farming logic.