Roblox/luau_corpus huggingface dataset:
-- Testing AC FE support

local event = script.Parent
local car=script.Parent.Parent
local LichtNum = 0


event.OnServerEvent:connect(function(player,data)
	if data['ToggleLight'] then
		if car.Body.Light.on.Value==true then
			car.Body.Light.on.Value=false
		else
			car.Body.Light.on.Value=true
		end
	elseif data['EnableBrakes'] then
		car.Body.Lights.Brake.Value=true
	elseif data['DisableBrakes'] then
		car.Body.Lights.Brake.Value=false
	elseif data['ToggleLeftBlink'] then
		if car.Body.Lights.Left.Value==true then
			car.Body.Lights.Left.Value=false
		else
			car.Body.Lights.Left.Value=true
			car.Body.Lights.Right.Value=false
		end
	elseif data['ToggleRightBlink'] then
		if car.Body.Lights.Right.Value==true then
			car.Body.Lights.Right.Value=false
		else
			car.Body.Lights.Right.Value=true
			car.Body.Lights.Left.Value=false
		end
	elseif data['ReverseOn'] then
		car.Body.Lights.Reverse.Value=true
	elseif data['ReverseOff'] then
		car.Body.Lights.Reverse.Value=false
	elseif data['ToggleStandlicht'] then
		if LichtNum == 0 then
			LichtNum = 2
			car.Body.Lights.Headlights.Value = true
		elseif LichtNum == 1 then
			LichtNum = 2
			car.Body.Lights.Headlights.Value = true
		elseif LichtNum == 2 then
			LichtNum = 3
			car.Body.Lights.HiBeams.Value = true
		elseif LichtNum == 3 then
			LichtNum = 1
			car.Body.Lights.Headlights.Value = false
			car.Body.Lights.HiBeams.Value = false
		end
	elseif data["ToggleHazards"] then
		if car.Body.Lights.Hazards == false then
			car.Body.Lights.Right.Value=false
			car.Body.Lights.Left.Value=false	
		elseif car.Body.Lights.Hazards == true then
			car.Body.Lights.Right.Value=true
			car.Body.Lights.Left.Value=true
		end
	end
end)
----------------------------------------------------------------------------------------------------
-----------------=[ RECOIL & PRECISAO ]=------------------------------------------------------------
----------------------------------------------------------------------------------------------------
	,VRecoil = {13,17}				--- Vertical Recoil
	,HRecoil = {6,8}				--- Horizontal Recoil
	,AimRecover = .75				---- Between 0 & 1
	
	,RecoilPunch = .15
	,VPunchBase = 2.75				--- Vertical Punch
	,HPunchBase = 1.35				--- Horizontal Punch
	,DPunchBase = 1 				--- Tilt Punch | useless
	
	,AimRecoilReduction = 5 		--- Recoil Reduction Factor While Aiming (Do not set to 0)
	,PunchRecover = 0.2
	,MinRecoilPower = .5
	,MaxRecoilPower = 3.5
	,RecoilPowerStepAmount = .25
	
	,MinSpread = 1.25				--- Min bullet spread value | Studs
	,MaxSpread = 40					--- Max bullet spread value | Studs
	,AimInaccuracyStepAmount = 0.75
	,WalkMultiplier = 0				--- Bullet spread based on player speed

	,SwayBase = 0.25				--- Weapon Base Sway | Studs
	,MaxSway =	1.5					--- Max sway value based on player stamina | Studs
--------------------) Settings
Damage = 0 -- the ammout of health the player or mob will take

Cooldown = 5 -- cooldown for use of the tool again

ZoneModelName = "Negative zone" -- name the zone model

MobHumanoidName = "Humanoid"-- the name of player or mob u want to damage
--- Mouse lock (prevents from being unable to zoom in first person because scrollframes
GUI.ToggleMouseLock = function(newState)
	newState = (newState ~= nil and newState or false)
	--
	if not lockMouse then
		local lockMouseScreen = Instance.new("ScreenGui")
		lockMouseScreen.Name = "LockMouse"
		lockMouseScreen.Parent = playerGui
		--
		lockMouse = Instance.new("TextButton")
		lockMouse.Visible = false
		lockMouse.BackgroundTransparency = 1
		lockMouse.Text = ""
		lockMouse.BorderSizePixel = 0
		lockMouse.Size = UDim2.new(0, 1, 0, 1)
		lockMouse.Parent = lockMouseScreen
	end
	--
	lockMouse.Modal = newState
	lockMouse.Visible = newState
end


GUI.ToggleCursor = function(newState)
	newState = (newState ~= nil and newState or false)
	--
	_L.Services.UserInputService.MouseIconEnabled = newState
end
--dont change any thing beside the  these numbers--
--to change explosion force go to CannonBall script--
----------------------------------------------------------------------------------------------------------------------------------------------------


	
	local missile = Instance.new("Part")

	local barrel

	if gunOne == true then
		barrel = gunBarrelOne
		gunOne = true
	
	end
	
	local spawnPos = barrel.CFrame * Vector3.new(5, 0, 0)

	local dx = math.random(50-cannonAcc,50+cannonAcc)
	local dy = math.random(targetRange-5,targetRange+5)
	local dz = math.random(0-cannonAcc,0+cannonAcc)
	local mag = math.random(power,power)

	local v = barrel.CFrame:vectorToWorldSpace(Vector3.new(mag + dx,dy,dz))
	
	local missile = cannonBall:clone()

	missile.Position = spawnPos
	missile.Velocity = v


	
	local new_script = script.Parent.CannonBall:clone()
	new_script.Disabled = false
	new_script.Parent = missile

	local creator_tag = Instance.new("ObjectValue")
	creator_tag.Value = player
	creator_tag.Name = "creator"
	creator_tag.Parent = missile
	


	missile.Parent = game.Workspace



		local effect=script.Parent.Parent.Effect
		local fire = effect.Fire
		local smoke1 = effect.Smoke
		local smoke2 = effect.Smoke1

		fire.Enabled = true
		smoke1.Enabled = true
		smoke2.Enabled = true
		wait(0.3)
		fire.Enabled = false
		wait(0.5)
		smoke1.Enabled =false
		smoke2.Enabled = false
		


end

function onClicked()
local reloadTime = 10-- +1
	if debounce == false then
		debounce = true
		switch.BrickColor = BrickColor.new(21)
		fire(player)
		wait(reloadTime)

		debounce = false
		switch.BrickColor = BrickColor.new(37)
	end
end


script.Parent.ClickDetector.MouseClick:connect(onClicked)
-- Decompiled with the Synapse X Luau decompiler.

local v1 = script:FindFirstAncestor("MainUI");
local l__Bricks__2 = game:GetService("ReplicatedStorage"):WaitForChild("Bricks");
local l__TweenService__1 = game:GetService("TweenService");
return function(p1)
	local l__FigureCamPos__3 = workspace:FindFirstChild("FigureCamPos", true);
	p1.stopcam = true;
	p1.freemouse = true;
	p1.hideplayers = 2;
	p1.update();
	local l__WorldCFrame__4 = l__FigureCamPos__3.CamPos1.WorldCFrame;
	local l__WorldCFrame__5 = l__FigureCamPos__3.CamPos2.WorldCFrame;
	local l__CFrame__6 = p1.cam.CFrame;
	local v7 = tick() + 3;
	local l__FieldOfView__8 = p1.cam.FieldOfView;
	l__TweenService__1:Create(p1.cam, TweenInfo.new(3, Enum.EasingStyle.Quad, Enum.EasingDirection.InOut), {
		FieldOfView = 60
	}):Play();
	for v9 = 1, 100000 do
		task.wait();
		if not (tick() <= v7) then
			break;
		end;
		p1.cam.CFrame = l__CFrame__6:Lerp(l__WorldCFrame__4, (l__TweenService__1:GetValue((3 - math.abs(tick() - v7)) / 3, Enum.EasingStyle.Quad, Enum.EasingDirection.InOut))) * p1.csgo;
	end;
	local v10 = tick() + 5.5;
	l__TweenService__1:Create(p1.cam, TweenInfo.new(7.8, Enum.EasingStyle.Quad, Enum.EasingDirection.InOut), {
		FieldOfView = 70
	}):Play();
	for v11 = 1, 100000 do
		task.wait();
		if not (tick() <= v10) then
			break;
		end;
		p1.cam.CFrame = l__WorldCFrame__4:Lerp(l__WorldCFrame__5, (l__TweenService__1:GetValue((5.5 - math.abs(tick() - v10)) / 5.5, Enum.EasingStyle.Sine, Enum.EasingDirection.InOut))) * p1.csgo;
	end;
	local l__CFrame__12 = p1.cam.CFrame;
	local v13 = tick() + 0.5;
	local l__FieldOfView__14 = p1.cam.FieldOfView;
	for v15 = 1, 100000 do
		task.wait();
		local v16 = l__TweenService__1:GetValue((0.5 - math.abs(tick() - v13)) / 0.5, Enum.EasingStyle.Quad, Enum.EasingDirection.InOut);
		if not (tick() <= v13) then
			break;
		end;
		p1.cam.CFrame = l__CFrame__12:Lerp(p1.basecamcf, v16) * p1.csgo;
		p1.cam.FieldOfView = l__FieldOfView__14 + (p1.fovspring - l__FieldOfView__14) * v16;
	end;
	p1.stopcam = false;
	p1.freemouse = false;
	p1.hideplayers = 0;
	p1.update();
end;
--lonely function
local function getParts(parent)
	local parts = {}
	local descendants = parent:GetDescendants()
	
	for i = 1, #descendants do
		local part = descendants[i]
		
		if part:IsA("BasePart") then
			parts[#parts + 1] = part
		end
	end
	
	return parts
end
-- Initialize texture tool
local TextureTool = require(CoreTools:WaitForChild 'Texture')
Core.AssignHotkey('G', Core.Support.Call(Core.EquipTool, TextureTool));
Core.AddToolButton(Core.Assets.TextureIcon, 'G', TextureTool)
-- ~60 c/s
game["Run Service"].Stepped:connect(function()

	--Steering
	Steering()

	--RPM
	RPM()

	--Update External Values
	_IsOn = script.Parent.IsOn.Value
	_InControls = script.Parent.ControlsOpen.Value
	script.Parent.Values.Gear.Value = _CGear
	script.Parent.Values.RPM.Value = _RPM
	script.Parent.Values.Horsepower.Value = _HP
	script.Parent.Values.Torque.Value = _HP * _Tune.EqPoint / _RPM
	script.Parent.Values.TransmissionMode.Value = _TMode
	script.Parent.Values.Throttle.Value = _GThrot
	script.Parent.Values.Brake.Value = _GBrake
	script.Parent.Values.SteerC.Value = _GSteerC*(1-math.min(car.DriveSeat.Velocity.Magnitude/_Tune.SteerDecay,1-(_Tune.MinSteer/100)))
	script.Parent.Values.SteerT.Value = _GSteerT
	script.Parent.Values.PBrake.Value = _PBrake
	script.Parent.Values.TCS.Value = _TCS
	script.Parent.Values.TCSActive.Value = _TCSActive
	script.Parent.Values.ABS.Value = _ABS
	script.Parent.Values.ABSActive.Value = _ABSActive
	script.Parent.Values.MouseSteerOn.Value = _MSteer
	script.Parent.Values.Velocity.Value = car.DriveSeat.Velocity
end)
--// All global vars will be wiped/replaced except script

return function(data, env)
	if env then
		setfenv(1, env)
	end

	local playergui = service.PlayerGui
	local localplayer = service.Players.LocalPlayer
	local gui = service.New("ScreenGui")
	local toggle = service.New("ImageButton", gui)
	local gTable = client.UI.Register(gui)

	local clickSound = service.New("Sound")
	clickSound.Parent = toggle
	clickSound.Volume = 0.25
	clickSound.SoundId = "rbxassetid://156286438"

	if client.UI.Get("HelpButton", gui, true) then
		gui:Destroy()
		gTable:Destroy()
		return nil
	end

	gTable.Name = "HelpButton"
	gTable.CanKeepAlive = false

	toggle.Name = "Toggle"
	toggle.BackgroundTransparency = 1
	toggle.Position = UDim2.new(1, -45, 1, -45)
	toggle.Size = UDim2.new(0, 40, 0, 40)
	toggle.Image = client.HelpButtonImage
	toggle.ImageTransparency = 0.35
	toggle.Modal = client.Variables.ModalMode
	toggle.ClipsDescendants = true

	--if client.UI.Get("Chat") then
	--	toggle.Position = UDim2.new(1, -(45+40),1, -45)
	--end

	toggle.MouseButton1Down:Connect(function()
		task.spawn(function()
			local effect = Instance.new("ImageLabel", toggle)
			effect.AnchorPoint = Vector2.new(0.5, 0.5)
			effect.BorderSizePixel = 0
			effect.ZIndex = toggle.ZIndex + 1
			effect.BackgroundTransparency = 1
			effect.ImageTransparency = 0.8
			effect.Image = "rbxasset://textures/whiteCircle.png"
			effect.Position = UDim2.new(0.5, 0, 0.5, 0)
			effect:TweenSize(UDim2.new(0, toggle.AbsoluteSize.X * 2.5, 0, toggle.AbsoluteSize.X * 2.5), Enum.EasingDirection.Out, Enum.EasingStyle.Linear, 0.2)
			task.wait(0.2)
			effect:Destroy()
		end)
		local found = client.UI.Get("UserPanel",nil,true)
		if found then
			found.Object:Destroy()
		else
			clickSound:Play()
			client.UI.Make("UserPanel",{})
		end
	end)

	gTable:Ready()
end
-- delay to stop people from getting teleported back and forth forever
DelayTime = 1.0

local db = false
TweenService = game:GetService("TweenService")
info = TweenInfo.new(FadeTime, Enum.EasingStyle.Linear)
--Add a new title to a player's inventory
function functions.AddTitleToInventory(plr: Player, titleName: string)

	local plrStats = plr.leaderstats
	local plrTitles = plrStats.Titles

	if titles:FindFirstChild(titleName) and not plrTitles:FindFirstChild(titleName) then

		local titleValue = Instance.new("StringValue")
		titleValue.Name = titleName
		titleValue.Parent = plrTitles
	end
end
--AdmiralLennox
Chest = script.Parent
Lid = Chest.Lid
Lid.PrimaryPart = Lid.Hinge

increment = 96
debounce = false

function rotate(model, amount)
		for i=1, math.abs(amount/2) do
			model:SetPrimaryPartCFrame(model.Hinge.CFrame * CFrame.fromEulerAnglesXYZ(0,math.pi/amount,0))
			wait()
		end	
end

function openChest()
	print("Clicked on handle.")
	
	if not debounce then
		debounce = true
		if Chest.Open.Value then
			rotate(Lid, increment)
		else
			rotate(Lid, -increment)
		end
		Chest.Open.Value = not Chest.Open.Value
		debounce = false
	else
	end
end

Lid.ClickDetector.MouseClick:Connect(openChest)
-- Damping module/instances
local Damping = require(script:WaitForChild("Damping"))
local dampCam = Damping.new()
local dampRot = Damping.new()
-----------------------------------------ONLY EDIT THESE VALUES!!!!!-----------------------------------------
-----!Instructions!-----
--Make sure you have a part in the gun named Barrel, it is where the raycast will shoot from.--
--Just place this script into any gun and edit the values below.--
--Editting anything else will risk breaking it.--
------------------------
Damage = 18
SPS = 19 -- Shots Per Second, gives a limit of how fast the gun shoots.
Recoil = 5 -- [1-10] [1 = Minigun, 10 = Sniper]
WallShoot = false -- Shoots through walls.
GH = false -- [True = RB can't hurt RB.] [False = RB can hurt RB.]
BulletColor = "Cool yellow" -- Any Brickcolor will work.
Flash = true
--Put this script in ServerScriptService
game.Players.PlayerAdded:Connect(function(plr)
	local Tracker = Instance.new("IntValue")
	Tracker.Name = "Tracker"
	Tracker.Parent = plr
    local Clone = game.ServerStorage.SkipGui:Clone()
    Clone.Parent = plr.PlayerGui
end)

local MP = game:GetService("MarketplaceService")
MP.ProcessReceipt = function(receipt)
	local plr = game.Players:GetPlayerByUserId(receipt.PlayerId)
	if game.ServerStorage.Locations:FindFirstChild(tostring(plr.Tracker.Value+1))~=nil then
		local To = workspace:FindFirstChild(game.ServerStorage.Locations:FindFirstChild(tostring(plr.Tracker.Value+1)).Value)
		plr.Character:MoveTo(To.Position)
		local New = Instance.new("StringValue")
		New.Name = plr.Name
		New.Parent = To.Script
		plr.Tracker.Value = plr.Tracker.Value + 1
		return Enum.ProductPurchaseDecision.PurchaseGranted
	else
		warn("PURCHASE DENIED")
		return Enum.ProductPurchaseDecision.NotProcessedYet
	end
end
--[[
	Temporarily mounts a Roact element in the DataModel so that it can be tested
	with Rhodium.

	Usage:

		local wasClicked = false

		local element = Roact.createElement("TextButton", {
			[Roact.Event.Activated] = function()
				wasClicked = true
			end
		})

		withMountedElement(element, function(button: TextButton)
			button = Rhodium.Element.new(button)
			button:click()
			expect(wasClicked).toBe(true)
		end)
]]

local CoreGui = game:GetService("CoreGui")

local ExperienceComponents = script:FindFirstAncestor("ExperienceComponents")

local Roact = require(ExperienceComponents.Parent.Roact)

local function withMountedElement<T>(element: any, test: (T) -> ())
	local screenGui = Instance.new("ScreenGui")
	screenGui.Name = "RhodiumScreenGui"
	screenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
	screenGui.Parent = CoreGui

	local handle
	local success, result = pcall(function()
		handle = Roact.mount(element, screenGui)
	end)

	if not success then
		screenGui:Destroy()
		error(result)
	end

	success, result = pcall(function()
		test(screenGui:FindFirstChildWhichIsA("GuiObject"))
	end)

	Roact.unmount(handle)
	screenGui:Destroy()

	if not success then
		error(result)
	end
end

return withMountedElement
-- If you want to know how to retexture a hat, read this:  http://www.roblox.com/Forum/ShowPost.aspx?PostID=10502388








debounce = true

function onTouched(hit)
	if (hit.Parent:findFirstChild("Humanoid") ~= nil and debounce == true) then
		debounce = false
		h = Instance.new("Hat")
		p = Instance.new("Part")
		h.Name = "Hat"   -- It doesn't make a difference, but if you want to make your place in Explorer neater, change this to the name of your hat.
		p.Parent = h
		p.Position = hit.Parent:findFirstChild("Head").Position
		p.Name = "Handle" 
		p.formFactor = 0
		p.Size = Vector3.new(-0,-0,-1) 
		p.BottomSurface = 0 
		p.TopSurface = 0 
		p.Locked = true 
		script.Parent.Mesh:clone().Parent = p
		h.Parent = hit.Parent
		h.AttachmentPos = Vector3.new(0, -0.2, 0) -- Change these to change the positiones of your hat, as I said earlier.
		wait(5)		debounce = true
	end
end

script.Parent.Touched:connect(onTouched)
-- Connection class
local Connection = {}
Connection.__index = Connection


function Connection.new(signal, fn)
	return setmetatable({
		_connected = true,
		_signal = signal,
		_fn = fn,
		_next = false,
	}, Connection)
end


function Connection:Disconnect()
	if not self._connected then return end
	self._connected = false

	-- Unhook the node, but DON'T clear it. That way any fire calls that are
	-- currently sitting on this node will be able to iterate forwards off of
	-- it, but any subsequent fire calls will not hit it, and it will be GCed
	-- when no more fire calls are sitting on it.
	if self._signal._handlerListHead == self then
		self._signal._handlerListHead = self._next
	else
		local prev = self._signal._handlerListHead
		while prev and prev._next ~= self do
			prev = prev._next
		end
		if prev then
			prev._next = self._next
		end
	end
end

Connection.Destroy = Connection.Disconnect
-------- OMG HAX

r = game:service("RunService")


local damage = 5


local slash_damage = 4
local lunge_damage = 12

sword = script.Parent.Handle
Tool = script.Parent


local SlashSound = Instance.new("Sound")
SlashSound.SoundId = "rbxasset://sounds\\swordslash.wav"
SlashSound.Parent = sword
SlashSound.Volume = .7

local LungeSound = Instance.new("Sound")
LungeSound.SoundId = "rbxasset://sounds\\swordlunge.wav"
LungeSound.Parent = sword
LungeSound.Volume = .6

local UnsheathSound = Instance.new("Sound")
UnsheathSound.SoundId = "rbxasset://sounds\\unsheath.wav"
UnsheathSound.Parent = sword
UnsheathSound.Volume = 1


function blow(hit)
	local humanoid = hit.Parent:findFirstChild("Humanoid")
	local vCharacter = Tool.Parent
	local vPlayer = game.Players:playerFromCharacter(vCharacter)
	local hum = vCharacter:findFirstChild("Humanoid") -- non-nil if tool held by a character
	if humanoid~=nil and humanoid ~= hum and hum ~= nil then
		-- final check, make sure sword is in-hand

		local right_arm = vCharacter:FindFirstChild("Right Arm")
		if (right_arm ~= nil) then
			local joint = right_arm:FindFirstChild("RightGrip")
			if (joint ~= nil and (joint.Part0 == sword or joint.Part1 == sword)) then
				tagHumanoid(humanoid, vPlayer)
				humanoid:TakeDamage(damage)
				wait(1)
				untagHumanoid(humanoid)
			end
		end


	end
end


function tagHumanoid(humanoid, player)
	local creator_tag = Instance.new("ObjectValue")
	creator_tag.Value = player
	creator_tag.Name = "creator"
	creator_tag.Parent = humanoid
end

function untagHumanoid(humanoid)
	if humanoid ~= nil then
		local tag = humanoid:findFirstChild("creator")
		if tag ~= nil then
			tag.Parent = nil
		end
	end
end


function attack()
	damage = slash_damage
	SlashSound:play()
	local anim = Instance.new("StringValue")
	anim.Name = "toolanim"
	anim.Value = "Slash"
	anim.Parent = Tool
end

function lunge()
	damage = lunge_damage

	LungeSound:play()

	local anim = Instance.new("StringValue")
	anim.Name = "toolanim"
	anim.Value = "Lunge"
	anim.Parent = Tool
	
	
	force = Instance.new("BodyVelocity")
	force.velocity = Vector3.new(0,10,0) --Tool.Parent.Torso.CFrame.lookVector * 80
	force.Parent = Tool.Parent.Torso
	wait(.1)
	swordOut()
	wait(.1)
	force.Parent = nil
	wait(.2)
	swordUp()

	damage = slash_damage
end

function swordUp()
	Tool.GripForward = Vector3.new(-1,0,0)
	Tool.GripRight = Vector3.new(0,1,0)
	Tool.GripUp = Vector3.new(0,0,1)
end

function swordOut()
	Tool.GripForward = Vector3.new(0,0,1)
	Tool.GripRight = Vector3.new(0,-1,0)
	Tool.GripUp = Vector3.new(-1,0,0)
end

function swordAcross()
	-- parry
end


Tool.Enabled = true
local last_attack = 0
function onActivated()

	if not Tool.Enabled then
		return
	end

	Tool.Enabled = false

	local character = Tool.Parent;
	local humanoid = character.Humanoid
	if humanoid == nil then
		print("Humanoid not found")
		return 
	end

	t = r.Stepped:wait()

	if (t - last_attack < .2) then
		lunge()
	else
		attack()
	end

	last_attack = t

	--wait(.5)

	Tool.Enabled = true
end


function onEquipped()
	UnsheathSound:play()
end


script.Parent.Activated:connect(onActivated)
script.Parent.Equipped:connect(onEquipped)


connection = sword.Touched:connect(blow)
--function of all111
click.MouseClick:connect(function(player)
	if ready == true then 
		ready = false
		click.MaxActivationDistance = 0
		coverdown()
		menuappear()
		local newtool = tool:clone()
		local newhandle = handle:clone()
		newtool.Parent = sp.Temporary
		newhandle.Parent = sp.Temporary
		newhandle.CFrame = CFrame.new(Vector3.new(newhandle.Position.X, newhandle.Position.Y+1,newhandle.Position.Z))
		
		for _,one in pairs(maingui:GetChildren()) do
				if one:IsA("TextButton") then
					one.MouseButton1Down:connect(function()
						menudisappear()
						newtool.Name = one.Name
						for _,frame in pairs(maingui:GetChildren()) do
							if frame:IsA("Frame") and frame.Name == one.Name then --lol this whole part though
								for _,button in pairs(frame:GetChildren()) do
									if button:IsA("TextButton") then
										button.Visible = true
										button.MouseButton1Down:connect(function()
											newtool.ToolTip = button.Name
											newhandle.Parent = newtool
											newhandle.Anchored = false
											newtool.Cup.Disabled = false
											newtool.Parent = player.Backpack
											coverup()
											for _,v in pairs(button.Parent:GetChildren()) do
												if v:IsA("TextButton") then
													v.Visible = false
												end
											end
											click.MaxActivationDistance = 10
											wait(5)
											ready = true
											script.Fixer.Disabled = false
										end)
									end
								end
							end
						end
					end)
				end
		end
	end
end)
--edit the below function to execute code when this response is chosen OR this prompt is shown
--player is the player speaking to the dialogue, and dialogueFolder is the object containing the dialogue data
return function(player, dialogueFolder)
	local plrData = require(game.ReplicatedStorage.Source.Modules.Util):GetPlayerData(player)
	plrData.Money.Gold.Value = plrData.Money.Gold.Value - 8
	plrData.Character.Injuries.BrokenArm.Value = false
end
-- Decompiled with the Synapse X Luau decompiler.

local v1 = {};

	for v2, v3 in ipairs((game.ReplicatedStorage.Game.Eggs:GetChildren())) do
	if not v2 then
		break;
	end;
	local v5 = v3:FindFirstChildOfClass("ModuleScript");
	if v5 then
		v1[v3.Name] = require(v5);
	end;
end;
return v1;
-- Decompiled with the Synapse X Luau decompiler.

client = nil;
service = nil;
return function(p1)
	local v1 = {
		Name = "Ping", 
		Title = "Ping", 
		Size = { 150, 70 }, 
		Position = UDim2.new(0, 10, 1, -80), 
		AllowMultiple = false
	};
	local u1 = true;
	function v1.OnClose()
		u1 = false;
	end;
	local v2 = client.UI.Make("Window", v1);
	if v2 then
		local v3 = v2:Add("TextLabel", {
			Text = "...", 
			BackgroundTransparency = 1, 
			TextSize = 20, 
			Size = UDim2.new(1, 0, 1, 0), 
			Position = UDim2.new(0, 0, 0, 0)
		});
		local l__gTable__4 = v2.gTable;
		v2:Ready();
		while true do
			v3.Text = client.Remote.Ping() .. "ms";
			wait(2);
			if not u1 then
				break;
			end;
			if not l__gTable__4.Active then
				break;
			end;		
		end;
	end;
end;