Roblox/luau_corpus huggingface dataset:
-- SERVICES --
local RS = game:GetService("ReplicatedStorage")
local Players = game:GetService("Players")
local TS = game:GetService("TweenService")
-- Define the function to open or close the window with gene-alike effect
local function toggleWindow()
	if window.Visible then
		
		window.Visible = false
		dockbtn.Visible = false
		-- Close the window by tweening back to the button position and size
		window:TweenSizeAndPosition(
			UDim2.new(0, 0, 0, 0),
			UDim2.new(0, aFinderButton.AbsolutePosition.X, 0, aFinderButton.AbsolutePosition.Y),
			'Out',
			'Quad',
			0.5,
			false,
			function()
				window.Visible = false
			end
		)
	end
end
-- Initialize the tool
local SurfaceTool = {

	Name = 'Surface Tool';
	Color = BrickColor.new 'Bright violet';

	-- Default options
	Surface = 'All';

};
-- Change settings like you would with any other table.
ChatSettings.MaximumMessageLength = 100
ChatSettings.ShowChannelsBar = true
ChatSettings.GeneralChannelName = "All"
ChatSettings.EchoMessagesInGeneralChannel = false
-- Script should go inside of "StarterPlayerScripts"
-- Services --
local Players = game:GetService("Players")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
-- [[ Constants ]]--
local ZERO_VECTOR3 = Vector3.new(0, 0, 0)
local STATE_JUMPING = Enum.HumanoidStateType.Jumping
local STATE_FREEFALL = Enum.HumanoidStateType.Freefall
local STATE_LANDED = Enum.HumanoidStateType.Landed
----- sink plug handler -----

plug.Interactive.ClickDetector.MouseClick:Connect(function()
	if plugged.Value == false then
		plugged.Value = true
		plug.Plug.CFrame = plug.Plug.CFrame * CFrame.new(-0.054, 0, 0)
		plug.Interactive.CFrame = plug.Interactive.CFrame * CFrame.new(0, 0.14, 0)
		plug.Shaft.CFrame = plug.Shaft.CFrame * CFrame.new(0, 0.14, 0)
	else
		plugged.Value = false
		plug.Plug.CFrame = plug.Plug.CFrame * CFrame.new(0.054, 0, 0)
		plug.Interactive.CFrame = plug.Interactive.CFrame * CFrame.new(0, -0.14, 0)
		plug.Shaft.CFrame = plug.Shaft.CFrame * CFrame.new(0, -0.14, 0)
	end
end)
-- x3 EGGSOPEN

x3EggsOpenButton.MouseEnter:Connect(function()
	x3EggsOpenButton.Text = "349 R$"
	x3EggsOpenButton.TextColor3 = Color3.fromRGB(0, 255, 0)
end)

x3EggsOpenButton.MouseLeave:Connect(function()
	x3EggsOpenButton.Text = "BUY"
	x3EggsOpenButton.TextColor3 = Color3.fromRGB(255, 255, 255)
end)
--[[
	Returns the system associated with name
]]
function SystemManager.getSystemByName(name)
	return systems[name]
end

return SystemManager
--Text alignment default properties
defaults.ContainerHorizontalAlignment = "Center" -- Align,ent of text within frame container
defaults.ContainerVerticalAlignment = "Center" 
defaults.TextYAlignment = "Bottom" -- Alignment of the text on the line, only makes a difference if the line has variable text sizes
--// Variables
local L_1_ = game.Players.LocalPlayer
local L_2_ = L_1_.Character
local L_3_ = L_1_:GetMouse()
local L_4_ = script:WaitForChild('EnginePart').Value.Parent.Parent

local L_5_ = L_4_:WaitForChild('Networking')
local L_6_ = L_4_:WaitForChild('Modules')
local L_7_ = require(L_6_:WaitForChild('Config_Module'))

local L_8_ = game:GetService("UserInputService")
local L_9_ = game:GetService("RunService").RenderStepped

local L_10_ = script:WaitForChild('EnginePart').Value
local L_11_ = L_10_:WaitForChild('BodyPosition')
local L_12_ = L_10_:WaitForChild('BodyGyro')
local L_13_ = L_4_:WaitForChild('Required')

local L_14_ = false
local L_15_ = true
local L_16_ = false
local L_17_ = false

local L_18_ = L_7_.RocketAmmo

local L_19_ = false
local L_20_ = false
local L_21_ = false
local L_22_ = false
local L_23_ = false
local L_24_ = false
local L_25_ = true
local L_26_ = true

local L_27_ = true

local L_28_ = L_10_.Position
local L_29_ = L_10_.CFrame
local L_30_

local L_31_ = script:WaitForChild('HeliUI')
local L_32_ = L_31_:WaitForChild('Frame')
local L_33_ = L_32_:WaitForChild('Frame')
local L_34_ = L_33_:WaitForChild('AltDisp')
local L_35_ = L_33_:WaitForChild('StatusDisp')
local L_36_ = L_32_:WaitForChild('Title')
local L_37_ = L_33_:WaitForChild('RocketAmmo')
L_37_.Text = 'ATGs: ' .. L_18_

local L_38_ = workspace:FindFirstChild('BulletModel') or Instance.new('Folder')
L_38_.Parent = workspace

local L_39_ = {
	L_2_,
	L_4_,
	L_38_
}
-- gets the middle point of 2 vector3's
function maths:GetMidpoint3(v3,V3)
	return (v3+V3)/2
end
--------END RIGHT DOOR --------

wait(0.15)
end
until game.Workspace.DoorFlashing.Value == false

end


end
script.Parent.ClickDetector.MouseClick:connect(onClicked)
--[[Weld functions]]

	local JS = game:GetService("JointsService")
	local PGS_ON = workspace:PGSIsEnabled()
	
	function MakeWeld(x,y,type,s) 
		if type==nil then type="Weld" end
		local W=Instance.new(type,JS) 
		W.Part0=x W.Part1=y 
		W.C0=x.CFrame:inverse()*x.CFrame 
		W.C1=y.CFrame:inverse()*x.CFrame 
		if type=="Motor" and s~=nil then 
			W.MaxVelocity=s 
		end 
		return W	
	end
	
	function ModelWeld(a,b) 
		if a:IsA("BasePart") and 
			a.Parent.Name ~= ("Lights") then 
			MakeWeld(b,a,"Weld")
			for i,v in pairs(a:GetChildren()) do 
				if v ~= nil and v:IsA("BasePart") then
					ModelWeld(v,b) 
				end
			end
		elseif a:IsA("Model") then 
			for i,v in pairs(a:GetChildren()) do 
				ModelWeld(v,b) 
			end 
		end 
	end
	
	function UnAnchor(a) 
		if a:IsA("BasePart") then a.Anchored=false  end for i,v in pairs(a:GetChildren()) do UnAnchor(v) end 
	end
--[[ Version ]]
module.MajorVersion = 0
module.MinorVersion = 7
----------------------------------------------------------------------------------------------------
--------------------=[ CFRAME ]=--------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
	,EnableHolster = false
	,HolsterTo = 'Torso'				 -- Put the name of the body part you wanna holster to
	,HolsterPos = CFrame.new(0,0,0) * CFrame.Angles(math.rad(0),math.rad(0),math.rad(0))
	
	,RightArmPos = CFrame.new(-0.85, -0.2, -1.2) * CFrame.Angles(math.rad(-90), math.rad(0), math.rad(0))	--Server
	,LeftArmPos = CFrame.new(1.05,0.9,-1.4) * CFrame.Angles(math.rad(-100),math.rad(25),math.rad(-20))	--server
	
	,ServerGunPos = CFrame.new(-.3, -1, -0.4) * CFrame.Angles(math.rad(-90), math.rad(-90), math.rad(0))
	,GunPos = CFrame.new(0.15, -0.15, 1) * CFrame.Angles(math.rad(90), math.rad(0), math.rad(0))

	,RightPos = CFrame.new(-.65, -0.2, -1) * CFrame.Angles(math.rad(-90), math.rad(0), math.rad(0))	--Client
	,LeftPos = CFrame.new(1.2,0.1,-1.6) * CFrame.Angles(math.rad(-120),math.rad(35),math.rad(-20))	--Client
}

return Config
-- Class

local RadioButtonGroupClass = {}
RadioButtonGroupClass.__index = RadioButtonGroupClass
RadioButtonGroupClass.__type = "RadioButtonLabel"

function RadioButtonGroupClass:__tostring()
	return RadioButtonGroupClass.__type
end
-- Kind of messy right? Lol.
function onChat(msg,newPlayer)
if script.Chat5.Value == "" then
script.Chat5.Value = newPlayer.Name..": "..msg
elseif script.Chat5.Value ~= "" then
if script.Chat4.Value == "" then
script.Chat4.Value = newPlayer.Name..": "..msg
elseif script.Chat4.Value ~= "" then
if script.Chat3.Value == "" then
script.Chat3.Value = newPlayer.Name..": "..msg
elseif script.Chat3.Value ~= "" then
if script.Chat2.Value == "" then
script.Chat2.Value = newPlayer.Name..": "..msg
elseif script.Chat2.Value ~= "" then
if script.Chat1.Value == "" then
script.Chat1.Value = newPlayer.Name..": "..msg
elseif script.Chat1.Value ~= "" then
script.Chat1.Value = script.Chat2.Value
script.Chat2.Value = script.Chat3.Value
script.Chat3.Value = script.Chat4.Value
script.Chat4.Value = script.Chat5.Value
script.Chat5.Value = newPlayer.Name..": "..msg
end
end
end
end
end
end
function onEnter(newPlayer)
newPlayer.Chatted:connect(function(msg) onChat(msg,newPlayer) end)
end
game.Players.ChildAdded:connect(onEnter)
--[[
	Function called when leaving the state
]]
function PlayerPreGameReady.onLeave(stateMachine, serverPlayer, event, from, to)
	local element = playerStatusBoard:FindFirstChild(serverPlayer.player.Name)

	if element then
		element:Destroy()
	end
end

return PlayerPreGameReady
--Precalculated paths
local t,f,n=true,false,{}
local r={
[58]={{32,33,36,37,35,39,41,30,56,58},t},
[49]={{32,31,29,28,44,45,49},t},
[16]={n,f},
[19]={{32,33,36,37,35,39,41,30,56,58,20,19},t},
[59]={{32,33,36,37,35,39,41,59},t},
[63]={{32,33,36,37,35,39,41,30,56,58,23,62,63},t},
[34]={{32,34},t},
[21]={{32,33,36,37,35,39,41,30,56,58,20,21},t},
[48]={{32,31,29,28,44,45,49,48},t},
[27]={{32,31,29,28,27},t},
[14]={n,f},
[31]={{32,31},t},
[56]={{32,33,36,37,35,39,41,30,56},t},
[29]={{32,31,29},t},
[13]={n,f},
[47]={{32,31,29,28,44,45,49,48,47},t},
[12]={n,f},
[45]={{32,31,29,28,44,45},t},
[57]={{32,33,36,37,35,39,41,30,56,57},t},
[36]={{32,33,36},t},
[25]={{32,31,29,28,27,26,25},t},
[71]={{32,33,36,37,35,39,41,59,61,71},t},
[20]={{32,33,36,37,35,39,41,30,56,58,20},t},
[60]={{32,33,36,37,35,39,41,60},t},
[8]={n,f},
[4]={n,f},
[75]={{32,33,36,37,35,39,41,59,61,71,72,76,73,75},t},
[22]={{32,33,36,37,35,39,41,30,56,58,20,21,22},t},
[74]={{32,33,36,37,35,39,41,59,61,71,72,76,73,74},t},
[62]={{32,33,36,37,35,39,41,30,56,58,23,62},t},
[1]={n,f},
[6]={n,f},
[11]={n,f},
[15]={n,f},
[37]={{32,33,36,37},t},
[2]={n,f},
[35]={{32,33,36,37,35},t},
[53]={{32,31,29,28,44,45,49,48,47,52,53},t},
[73]={{32,33,36,37,35,39,41,59,61,71,72,76,73},t},
[72]={{32,33,36,37,35,39,41,59,61,71,72},t},
[33]={{32,33},t},
[69]={{32,33,36,37,35,39,41,60,69},t},
[65]={{32,33,36,37,35,39,41,30,56,58,20,19,66,64,65},t},
[26]={{32,31,29,28,27,26},t},
[68]={{32,33,36,37,35,39,41,30,56,58,20,19,66,64,67,68},t},
[76]={{32,33,36,37,35,39,41,59,61,71,72,76},t},
[50]={{32,31,29,28,44,45,49,48,47,50},t},
[66]={{32,33,36,37,35,39,41,30,56,58,20,19,66},t},
[10]={n,f},
[24]={{32,31,29,28,27,26,25,24},t},
[23]={{32,33,36,37,35,39,41,30,56,58,23},t},
[44]={{32,31,29,28,44},t},
[39]={{32,33,36,37,35,39},t},
[32]={{32},t},
[3]={n,f},
[30]={{32,33,36,37,35,39,41,30},t},
[51]={{32,31,29,28,44,45,49,48,47,50,51},t},
[18]={n,f},
[67]={{32,33,36,37,35,39,41,30,56,58,20,19,66,64,67},t},
[61]={{32,33,36,37,35,39,41,59,61},t},
[55]={{32,31,29,28,44,45,49,48,47,52,53,54,55},t},
[46]={{32,31,29,28,44,45,49,48,47,46},t},
[42]={{32,33,36,37,35,38,42},t},
[40]={{32,33,36,37,35,40},t},
[52]={{32,31,29,28,44,45,49,48,47,52},t},
[54]={{32,31,29,28,44,45,49,48,47,52,53,54},t},
[43]={n,f},
[7]={n,f},
[9]={n,f},
[41]={{32,33,36,37,35,39,41},t},
[17]={n,f},
[38]={{32,33,36,37,35,38},t},
[28]={{32,31,29,28},t},
[5]={n,f},
[64]={{32,33,36,37,35,39,41,30,56,58,20,19,66,64},t},
}
return r
-- ClientRemoteSignal
-- Stephen Leitnick
-- December 20, 2021

local Signal = require(script.Parent.Parent.Parent.Signal)
local Types = require(script.Parent.Parent.Types)
--[=[
	Converts text to have a ... after it if it's too long.
	@param str string
	@param characterLimit number
	@return string
]=]
function String.elipseLimit(str: string, characterLimit: number): string
	if #str > characterLimit then
		str = str:sub(1, characterLimit-3).."..."
	end
	return str
end
--//Backfire//--
--(Instructions)
--1: Put your ExhaustH into the 'Body' of the car.
--2: Make sure you exhaust is seperated into 2 meshes, the inside and the outer exhaust.
--3: Name the inside of the exhaust (the black part) 'Hot1'
--4: Put this script into the 'Plugins'
--5: Now when you rev your exhaust will heat up.
local randomability = math.random (1, 10)
	--[[
if script.Parent.Values.RPM.Value > 9400 and randomability <=1 and script.Parent.Values.Throttle.Value ~= 1 then
	car.Body.Exhaust.BFLight1.SpotLight.Enabled = true
	wait (0.03)
	car.Body.Exhaust.BFLight1.SpotLight.Enabled = false
	wait (0.07)
end
]]
if script.Parent.Values.RPM.Value > 5000 then
	if FE then
		handler:FireServer("heat1")
	else
	car.Body.ExhaustH.Hot1.Decal.Transparency = math.min(car.Body.ExhaustH.Hot1.Decal.Transparency+.005,1)
	car.Body.ExhaustH.Hot2.Decal.Transparency = math.min(car.Body.ExhaustH.Hot1.Decal.Transparency+.005,1)
	end
else
	if FE then
		handler:FireServer("heat2")
	else
	car.Body.ExhaustH.Hot1.Decal.Transparency = math.max(car.Body.ExhaustH.Hot1.Decal.Transparency-.01,0)
	car.Body.ExhaustH.Hot2.Decal.Transparency = math.max(car.Body.ExhaustH.Hot1.Decal.Transparency-.01,0)
	end
end

if car.Body.ExhaustH.Hot1.Decal.Transparency > .8 then
	if FE then
		handler:FireServer("heat3")
	else
	car.Body.ExhaustH.Hot1.Spark.Enabled = true
	car.Body.ExhaustH.Hot2.Spark.Enabled = true
	end
	else
		if FE then
		handler:FireServer("heat4")
	else
	car.Body.ExhaustH.Hot1.Spark.Enabled = false
	car.Body.ExhaustH.Hot2.Spark.Enabled = false
	end
end
--//Script
--Plaka()
--CarColor()

Stats.Locked.Changed:Connect(function()
ToogleLock(Stats.Locked.Value)
end)
Stats.Color.Changed:Connect(function()
CarColor()
end)



Fuel = script.Parent.Parent.Stats.Fuel
MainPart = script.Parent.Parent.Body.Main
while wait(.5) do
if oldpos == nil then
oldpos = MainPart.Position
else
newpos = MainPart.Position
Fuel.Value = Fuel.Value - (oldpos - newpos).Magnitude/150
oldpos = newpos
end
end
--/Recoil Modification
module.camRecoil = {
	RecoilUp 		= 1
	,RecoilTilt 	= 0.75
	,RecoilLeft 	= 0.8
	,RecoilRight 	= 0.8
}

module.gunRecoil = {
	RecoilUp 		= 1
	,RecoilTilt 	= 0.75
	,RecoilLeft 	= 0.8
	,RecoilRight 	= 0.8
}

module.AimRecoilReduction = 1
module.AimSpreadReduction = 1

module.MinRecoilPower 			= 1
module.MaxRecoilPower 			= 1
module.RecoilPowerStepAmount 	= 1

module.MinSpread 				= 1
module.MaxSpread 				= 1					
module.AimInaccuracyStepAmount 	= 1
module.AimInaccuracyDecrease 	= 1
module.WalkMult 				= 1

module.MuzzleVelocityMod	 	= 1

return module
-- Disable StarterGui
repeat
	success = pcall(function()
		StarterGui:SetCoreGuiEnabled(Enum.CoreGuiType.Backpack, false)
		StarterGui:SetCoreGuiEnabled(Enum.CoreGuiType.EmotesMenu, false)
		StarterGui:SetCoreGuiEnabled(Enum.CoreGuiType.PlayerList, false)
		StarterGui:SetCoreGuiEnabled(Enum.CoreGuiType.SelfView, false)
	end)
	
	if not success then
		task.wait(1)
	end
until success
-- Shift keys
local shiftKeyL = Enum.KeyCode.LeftShift
local shiftKeyR = Enum.KeyCode.RightShift
--[=[
	Use  to test that the given GuiObject or Rect is left, center, or right
	aligned with the other GuiObject or Rect.

	This can be especially useful to determine if a given pair of elements are
	under the influence of the same `UIListLayout`.

	```lua
	expect(a).toBeAlignedVertically(b, Enum.VerticalAlignment.Top) -- Jest
	expect(a).to.be.alignedVertically(b, Enum.VerticalAlignment.Top) -- TestEZ
	```

	![Example of alignedVertically(a, b, Enum.VerticalAlignment.Top)](/alignedVertically(a,%20b,%20Enum.VerticalAlignment.Top).png)

	```lua
	expect(a).toBeAlignedVertically(b, Enum.VerticalAlignment.Bottom) -- Jest
	expect(a).to.be.alignedVertically(b, Enum.VerticalAlignment.Bottom) -- TestEZ
	```

	![Example of alignedVertically(a, b, Enum.VerticalAlignment.Bottom)](/alignedVertically(a,%20b,%20Enum.VerticalAlignment.Bottom).png)


	@tag alignment
	@within CollisionMatchers2D
]=]
local function alignedVertically(a: GuiObject | Rect, b: GuiObject | Rect, verticalAlignment: Enum.VerticalAlignment)
	local aRect = toRect(a)
	local bRect = toRect(b)

	if verticalAlignment == Enum.VerticalAlignment.Top then
		return returnValue(aRect.Min.Y == bRect.Min.Y, "", "")
	elseif verticalAlignment == Enum.VerticalAlignment.Center then
		local aMiddle = (aRect.Min + aRect.Max) / 2
		local bMiddle = (bRect.Min + bRect.Max) / 2
		return returnValue(aMiddle.Y == bMiddle.Y, "", "")
	elseif verticalAlignment == Enum.VerticalAlignment.Bottom then
		return returnValue(aRect.Max.Y == bRect.Max.Y, "", "")
	end

	return returnValue(false, "Invalid VerticalAlignment!")
end

return alignedVertically
--//VIPERGUTZ
--//TASER ANIMATIONS

local Tool = script.Parent
local IdleAnimation
local IdleTrack = nil

IdleAnimation = Tool:WaitForChild("Idle")

script.Parent.Equipped:Connect(function(mouse)
	local MyCharacter = Tool.Parent
	local MyPlayer = game:GetService('Players'):GetPlayerFromCharacter(MyCharacter)
	local MyHumanoid = MyCharacter:FindFirstChild('Humanoid')
	
	if IdleAnimation then
		IdleTrack = MyHumanoid:LoadAnimation(IdleAnimation)
		IdleTrack.Priority = Enum.AnimationPriority.Movement
	end
	if IdleTrack then
		IdleTrack:Play()
	end
end)

script.Parent.Unequipped:Connect(function(mouse)
	if IdleTrack then
		IdleTrack:Stop()
	end
end)
---------------------------------------------
while true do
	Sound1:Play()
	Sound1.Ended:Wait()
	wait(5)
	Sound2:Play()
	Sound2.Ended:Wait()
	wait(5)
	Sound3:Play()
	Sound3.Ended:Wait()
	wait(5)
	Sound4:Play()
	Sound4.Ended:Wait()
	wait(5)
end
--[[Transmission]]
	Tune.TransModes		= {"Auto", "Semi", "Manual"}								--[[
	[Modes]
		"Auto"		: Automatic shifting
		"Semi"		: Clutchless manual shifting, dual clutch transmission
		"Manual"	: Manual shifting with clutch
		
		>Include within brackets
			eg: {"Semi"} or {"Auto", "Manual"}								
		>First mode is default mode													]]
	
	--Automatic Settings
	Tune.AutoShiftMode	= "Speed"												--[[
	[Modes]
		"Speed"		: Shifts based on wheel speed
		"RPM"		: Shifts based on RPM											]]	
	Tune.AutoUpThresh	= -300		--Automatic upshift point 	(relative to peak RPM, positive = Over-rev)
	Tune.AutoDownThresh = 1400		--Automatic downshift point (relative to peak RPM, positive = Under-rev)
	
	--Gear Ratios
	Tune.FinalDrive		= 3.06			-- Gearing determines top speed and wheel torque
	Tune.Ratios			= {				-- Higher ratio = more torque, Lower ratio = higher top speed
		--[[Reverse]]	3.70		,	-- Copy and paste a ratio to add a gear
		--[[Neutral]]	0			,	-- Ratios can also be deleted
		--[[ 1 ]]		3.53		,	-- Reverse, Neutral, and 1st gear are required
		--[[ 2 ]]		2.04		,
		--[[ 3 ]]		1.38		,
		--[[ 4 ]]		1.03		,
		--[[ 5 ]]		0.81		,
		--[[ 6 ]]		0.64		,
	}
	Tune.FDMult			= 1.5			-- Ratio multiplier (Change this value instead of FinalDrive if car is struggling with torque ; Default = 1)
--[[
		___      _______                _     
	   / _ |____/ ___/ /  ___ ____ ___ (_)__ 
	  / __ /___/ /__/ _ \/ _ `(_-<(_-</ (_-<
	 /_/ |_|   \___/_//_/\_,_/___/___/_/___/
 						SecondLogic @ Inspare
]]
local FE = workspace.FilteringEnabled
local car = script.Parent.Car.Value
local _Tune = require(car["A-Chassis Tune"])
local on = 0

script:WaitForChild("Rev")
script:WaitForChild("Turbo")

if not FE then
	for i,v in pairs(car.DriveSeat:GetChildren()) do
		for _,a in pairs(script:GetChildren()) do
			if v.Name==a.Name then v:Stop() wait() v:Destroy() end
		end
	end
	for i,v in pairs(script:GetChildren()) do
		v.Parent=car.DriveSeat
	end
	
	car.DriveSeat.Rev:Play()
	car.DriveSeat.Turbo:Play()
	
	while wait() do
		local _RPM = script.Parent.Values.RPM.Value
		
		if not car.DriveSeat.IsOn.Value then on=math.max(on-.015,0) else on=1 end
		car.DriveSeat.Rev.Pitch = (car.DriveSeat.Rev.SetPitch.Value + car.DriveSeat.Rev.SetRev.Value*_RPM/_Tune.Redline)*on^2
		car.DriveSeat.Turbo.Pitch = (car.DriveSeat.Turbo.SetPitch.Value + car.DriveSeat.Turbo.SetRev.Value*_RPM/_Tune.Redline)*on^2
	end
else
	local handler = car.AC6_FE_Sounds
	handler:FireServer("newSound","Rev",car.DriveSeat,script.Rev.SoundId,0,script.Rev.Volume,true)
	handler:FireServer("playSound","Rev")
	handler:FireServer("newSound","Turbo",car.DriveSeat,script.Turbo.SoundId,0,script.Turbo.Volume,true)
	handler:FireServer("playSound","Turbo")
	local pitch=0
	local pitch2=0
	while wait() do
		local _RPM = script.Parent.Values.RPM.Value
		
		if not car.DriveSeat.IsOn.Value then on=math.max(on-.015,0) else on=1 end
		pitch = (script.Rev.SetPitch.Value + script.Rev.SetRev.Value*_RPM/_Tune.Redline)*on^2
		pitch2 = (script.Turbo.SetPitch.Value + script.Turbo.SetRev.Value*_RPM/_Tune.Redline)*on^2
		handler:FireServer("updateSound","Rev",script.Rev.SoundId,pitch,script.Rev.Volume)
		handler:FireServer("updateSound","Turbo",script.Turbo.SoundId,pitch2,script.Turbo.Volume)
	end
end
-- Decompiled with the Synapse X Luau decompiler.

local v1 = false;
for v2, v3 in pairs(script.Parent.Side:GetDescendants()) do
	if v3:IsA("TextButton") or v3:IsA("ImageButton") then
		local u1 = v1;
		v3.Activated:Connect(function()
			if u1 == false then
				u1 = true;
				local l__Size__4 = v3.Parent.Size;
				v3.Parent:TweenSize(l__Size__4 + UDim2.new(-0.05, -0, -0.05, -0), "In", "Quad", 0.05, true);
				wait(0.1);
				v3.Parent:TweenSize(l__Size__4 + UDim2.new(0, 0, 0, 0), "In", "Quad", 0.05, true);
				wait(0.1);
				u1 = false;
			end;
		end);
	end;
end;
--[[Output Scaling Factor]]
local hpScaling = _Tune.WeightScaling*10
local FBrakeForce = _Tune.FBrakeForce
local RBrakeForce = _Tune.RBrakeForce
local PBrakeForce = _Tune.PBrakeForce
if not workspace:PGSIsEnabled() then
	hpScaling = _Tune.LegacyScaling*10
	FBrakeForce = _Tune.FLgcyBForce
	RBrakeForce = _Tune.RLgcyBForce
	PBrakeForce = _Tune.LgcyPBForce
end
---------------------------------








local button = script.Parent
local startcolor = button.BrickColor
local DB = false

local toolfolder = button.Parent["Place Tool in Here! <<"]
local toolstorage = {}
for i, tool in pairs(toolfolder:GetChildren()) do
	table.insert(toolstorage, tool:clone())
end
toolfolder:Destroy()

local block = button.Parent:FindFirstChild("Block")
if block ~= nil then
	if block:FindFirstChild("NameDisplay") then
		if block.NameDisplay.TextLabel.Text == "Custom Giver!" then
			if #toolstorage > 0 then
				block.NameDisplay.TextLabel.Text = toolstorage[1].Name
			else
				block.NameDisplay.TextLabel.Text = ""
			end
		end
	end
end


button.Touched:connect(function(hit)
	if DB then return end
	if hit == nil then return end
	if hit.Parent == nil then return end
	
	local player = game.Players:GetPlayerFromCharacter(hit.Parent)
	if player ~= nil then
		if player:FindFirstChild("Backpack") then
			local allow = true
			if #allow_team > 0 then
				local teams = game:GetService("Teams"):GetChildren()
				if #teams > 0 then
					allow = false
					for i, team in pairs(teams) do
						for i, allowedteamname in pairs(allow_team) do
							if team.Name == allowedteamname then
								if player.TeamColor == team.TeamColor then
									allow = true
								end
							end
						end
					end
				end
			end
			if not allow_duplicates then
				for i, tool in pairs(toolstorage) do
					if player.Backpack:FindFirstChild(tool.Name) then
						allow = false
					end
				end
			end
			if allow then
				DB = true
				button.BrickColor = BrickColor.new("Black")
				for i, tool in pairs(toolstorage) do
					local newtool = tool:clone()
					newtool.Parent = player.Backpack
				end
				wait(2)
				button.BrickColor = startcolor
				DB = false
			end
		end
	end
end)
---[[ Message Types ]]
module.MessageTypeDefault = "Message"
module.MessageTypeSystem = "System"
module.MessageTypeMeCommand = "MeCommand"
module.MessageTypeWelcome = "Welcome"
module.MessageTypeSetCore = "SetCore"
module.MessageTypeWhisper = "Whisper"
-- functions
	
function stopAllAnimations()
	local oldAnim = currentAnim
		
	-- return to idle If finishing an emote
	if (emoteNames[oldAnim] ~= nil and emoteNames[oldAnim] == false) then
		oldAnim = "idle"
	end
		
	currentAnim = ""
	if (currentAnimKeyframeHandler ~= nil) then
		currentAnimKeyframeHandler:disconnect()
	end
		
	if (oldAnimTrack ~= nil) then
		oldAnimTrack:Stop()
		oldAnimTrack:Destroy()
		oldAnimTrack = nil
	end
	if (currentAnimTrack ~= nil) then
		currentAnimTrack:Stop()
		currentAnimTrack:Destroy()
		currentAnimTrack = nil
	end
	return oldAnim
end
	
function keyFrameReachedFunc(frameName)
	if (frameName == "End") then
		--		print("Keyframe : ".. frameName)
		local repeatAnim = stopAllAnimations()
		playAnimation(repeatAnim, 0.0, Humanoid)
	end
end
--use this to determine if you want this human to be harmed or not, returns boolean

function boom()
	wait(1.5)
	Used = true
	Object.Anchored = true
	Object.Transparency = 1
	Object.CanCollide = false
	Object.Explode:Play()

	Explode()
end

boom()