local __DARKLUA_BUNDLE_MODULES __DARKLUA_BUNDLE_MODULES = { cache = {}, load = function(m) if not __DARKLUA_BUNDLE_MODULES.cache[m] then __DARKLUA_BUNDLE_MODULES.cache[m] = { c = __DARKLUA_BUNDLE_MODULES[m](), } end return __DARKLUA_BUNDLE_MODULES.cache[m].c end, } do function __DARKLUA_BUNDLE_MODULES.a() local Maid = {} Maid.ClassName = 'Maid' function Maid.new() return setmetatable({_tasks = {}}, Maid) end function Maid.isMaid(value) return type(value) == 'table' and value.ClassName == 'Maid' end function Maid:__index(index) if Maid[index] then return Maid[index] else return self._tasks[index] end end function Maid:__newindex(index, newTask) if Maid[index] ~= nil then error(string.format("Cannot use '%s' as a Maid key", tostring(index)), 2) end local tasks = self._tasks local job = tasks[index] if job == newTask then return end tasks[index] = newTask if job then local jobType = typeof(job) if jobType == 'function' then job() elseif jobType == 'table' then if type(job.Destroy) == 'function' then job:Destroy() end elseif jobType == 'Instance' then job:Destroy() elseif jobType == 'thread' then local cancelled if coroutine.running() ~= job then cancelled = pcall(function() task.cancel(job) end) end if not cancelled then task.defer(function() task.cancel(job) end) end elseif jobType == 'RBXScriptConnection' then job:Disconnect() end end end function Maid:Add(task) if not task then error('Task cannot be false or nil', 2) end self[#self._tasks + 1] = task if type(task) == 'table' and not task.Destroy then warn('[Maid.Add] - Gave table task without .Destroy\n\n' .. debug.traceback()) end return task end function Maid:GiveTask(task) if not task then error('Task cannot be false or nil', 2) end local taskId = #self._tasks + 1 self[taskId] = task if type(task) == 'table' and not task.Destroy then warn('[Maid.GiveTask] - Gave table task without .Destroy\n\n' .. debug.traceback()) end return taskId end function Maid:GivePromise(promise) if not promise:IsPending() then return promise end local newPromise = promise.resolved(promise) local id = self:GiveTask(newPromise) newPromise:Finally(function() self[id] = nil end) return newPromise end function Maid:DoCleaning() local tasks = self._tasks for index, job in pairs(tasks)do if typeof(job) == 'RBXScriptConnection' then tasks[index] = nil job:Disconnect() end end local index, job = next(tasks) while job ~= nil do tasks[index] = nil local jobType = typeof(job) if jobType == 'function' then job() elseif jobType == 'table' and type(job.Destroy) == 'function' then job:Destroy() elseif jobType == 'Instance' then job:Destroy() elseif jobType == 'thread' then local cancelled if coroutine.running() ~= job then cancelled = pcall(function() task.cancel(job) end) end if not cancelled then local toCancel = job task.defer(function() task.cancel(toCancel) end) end elseif jobType == 'RBXScriptConnection' then job:Disconnect() end index, job = next(tasks) end end Maid.Destroy = Maid.DoCleaning return Maid end function __DARKLUA_BUNDLE_MODULES.b() return __DARKLUA_BUNDLE_MODULES.load'a'.new() end function __DARKLUA_BUNDLE_MODULES.c() local assets = Instance.new'Folder' return assets end function __DARKLUA_BUNDLE_MODULES.d() local assets, add, InsertService = Instance.new'Folder', function( name, to, what ) what.Name = name what.Parent = to return what end, game:GetService'InsertService' local insertMesh = function(meshId, collisionFidelity, renderFidelity) while true do local __DARKLUA_CONTINUE_3 = false repeat local success, mesh = pcall(InsertService.CreateMeshPartAsync, InsertService, meshId, collisionFidelity or Enum.CollisionFidelity.Default, renderFidelity or Enum.RenderFidelity.Automatic) if not success then warn(string.format('Failed to create mesh "%s": %s', tostring(meshId), tostring(mesh))) task.wait(0.5) __DARKLUA_CONTINUE_3 = true break end return mesh until true if not __DARKLUA_CONTINUE_3 then break end end end do local meshFolder = add('PlateMesh', assets, Instance.new'Folder') add('Block', meshFolder, insertMesh'rbxassetid://13307406342') add('Ball', meshFolder, insertMesh'rbxassetid://11640745670') add('Cylinder', meshFolder, insertMesh'rbxassetid://18406029582') end do local lifeLinkBeam = (add('LifeLinkBeam', assets, Instance.new'Beam')) lifeLinkBeam.Color = ColorSequence.new(Color3.new(0, 1, 0)) lifeLinkBeam.Transparency = NumberSequence.new{ NumberSequenceKeypoint.new(0, 1), NumberSequenceKeypoint.new(0.1, 0.75), NumberSequenceKeypoint.new(0.2, 0.75), NumberSequenceKeypoint.new(0.3, 0.4), NumberSequenceKeypoint.new(0.7, 0.4), NumberSequenceKeypoint.new(0.8, 0.75), NumberSequenceKeypoint.new(0.9, 0.75), NumberSequenceKeypoint.new(1, 1), } lifeLinkBeam.FaceCamera = true end return assets end function __DARKLUA_BUNDLE_MODULES.e() local assets = Instance.new'Folder' return assets end function __DARKLUA_BUNDLE_MODULES.f() local Assets = { Server = nil, Client = nil, Shared = nil, } Assets.Shared = __DARKLUA_BUNDLE_MODULES.load'c' if game:GetService'RunService':IsServer() then Assets.Server = __DARKLUA_BUNDLE_MODULES.load'd' else Assets.Client = __DARKLUA_BUNDLE_MODULES.load'e' end return table.freeze(Assets) end function __DARKLUA_BUNDLE_MODULES.g() local freeRunnerThread local acquireRunnerThreadAndCallEventHandler = function(fn, ...) local acquiredRunnerThread = freeRunnerThread freeRunnerThread = nil fn(...) freeRunnerThread = acquiredRunnerThread end local runEventHandlerInFreeThread, Connection = function(...) acquireRunnerThreadAndCallEventHandler(...) while true do acquireRunnerThreadAndCallEventHandler(coroutine.yield()) end end, {} Connection.__index = Connection function Connection:Disconnect() if not self.Connected then return end self.Connected = false if self._signal._handlerListHead == self then self._signal._handlerListHead = self._next else local prev = self._signal._handlerListHead while prev and prev._next ~= self do prev = prev._next end if prev then prev._next = self._next end end end Connection.Destroy = Connection.Disconnect setmetatable(Connection, { __index = function(_tb, key) error(('Attempt to get Connection::%s (not a valid member)'):format(tostring(key)), 2) end, __newindex = function(_tb, key, _value) error(('Attempt to set Connection::%s (not a valid member)'):format(tostring(key)), 2) end, }) local Signal = {} Signal.__index = Signal function Signal.new() local self = setmetatable({ _handlerListHead = false, _proxyHandler = nil, _yieldedThreads = nil, }, Signal) return self end function Signal.Wrap(rbxScriptSignal) assert(typeof(rbxScriptSignal) == 'RBXScriptSignal', 'Argument #1 to Signal.Wrap must be a RBXScriptSignal; got ' .. typeof(rbxScriptSignal)) local signal = Signal.new() signal._proxyHandler = rbxScriptSignal:Connect(function(...) signal:Fire(...) end) return signal end function Signal.Is(obj) return type(obj) == 'table' and getmetatable(obj) == Signal end function Signal:Connect(fn) local connection = setmetatable({ Connected = true, _signal = self, _fn = fn, _next = false, }, Connection) if self._handlerListHead then connection._next = self._handlerListHead self._handlerListHead = connection else self._handlerListHead = connection end return connection end function Signal:ConnectOnce(fn) return self:Once(fn) end function Signal:Once(fn) local connection, done = nil, false connection = self:Connect(function(...) if done then return end done = true connection:Disconnect() fn(...) end) return connection end function Signal:GetConnections() local items, item = {}, self._handlerListHead while item do table.insert(items, item) item = item._next end return items end function Signal:DisconnectAll() local item = self._handlerListHead while item do item.Connected = false item = item._next end self._handlerListHead = false local yieldedThreads = rawget(self, '_yieldedThreads') if yieldedThreads then for thread in next, yieldedThreads do if coroutine.status(thread) == 'suspended' then warn(debug.traceback(thread, 'signal disconnected; yielded thread cancelled', 2)) task.cancel(thread) end end table.clear(self._yieldedThreads) end end function Signal:Fire(...) local item = self._handlerListHead while item do if item.Connected then if not freeRunnerThread then freeRunnerThread = coroutine.create(runEventHandlerInFreeThread) end task.spawn(freeRunnerThread, item._fn, ...) end item = item._next end end function Signal:FireDeferred(...) local item = self._handlerListHead while item do local conn = item task.defer(function(...) if conn.Connected then conn._fn(...) end end, ...) item = item._next end end function Signal:Wait() local yieldedThreads = rawget(self, '_yieldedThreads') if not yieldedThreads then yieldedThreads = {} rawset(self, '_yieldedThreads', yieldedThreads) end local thread = coroutine.running() yieldedThreads[thread] = true self:Once(function(...) yieldedThreads[thread] = nil task.spawn(thread, ...) end) return coroutine.yield() end function Signal:Destroy() self:DisconnectAll() local proxyHandler = rawget(self, '_proxyHandler') if proxyHandler then proxyHandler:Disconnect() end end setmetatable(Signal, { __index = function(_tb, key) error(('Attempt to get Signal::%s (not a valid member)'):format(tostring(key)), 2) end, __newindex = function(_tb, key, _value) error(('Attempt to set Signal::%s (not a valid member)'):format(tostring(key)), 2) end, }) return table.freeze{ new = Signal.new, Wrap = Signal.Wrap, Is = Signal.Is, } end function __DARKLUA_BUNDLE_MODULES.h() local Signal, RunService, Scheduler = __DARKLUA_BUNDLE_MODULES.load'g', game:GetService'RunService', {} Scheduler.__index = Scheduler function Scheduler.new(rate, fixed) local self = setmetatable({ Signal = (Signal.new()), Active = false, rate = rate or 1.6666666666666665E-2, fixed = fixed or false, dt = 0, dtOffset = 0, durationThread = nil, }, Scheduler) self:Start() return self end function Scheduler.fixed(rate) return Scheduler.new(rate, true) end function Scheduler.connect(rate, callback) local self = Scheduler.new(rate) local connection = self:Connect(callback) return self, connection end function Scheduler.connectFixed(rate, callback) local self = Scheduler.fixed(rate) local connection = self:Connect(callback) return self, connection end function Scheduler:Destroy() self:Stop() self.Signal:Destroy() end function Scheduler:Connect(callback) return self.Signal:Connect(callback) end function Scheduler:Wait() return self.Signal:Wait() end function Scheduler:Step(dt) self.Signal:Fire(dt or self.rate) end local scheduled = {} function Scheduler:Start(duration) if not self.Active then self.Active = true local index = table.find(scheduled, self) if not index then table.insert(scheduled, self) end end if self.durationThread then task.cancel(self.durationThread) self.durationThread = nil end if duration then self.durationThread = task.delay(duration, function() self.durationThread = nil self:Stop() end) end end function Scheduler:Stop(duration) if self.Active then self.Active = false local index = table.find(scheduled, self) if index then table.remove(scheduled, index) end end if self.durationThread then task.cancel(self.durationThread) self.durationThread = nil end if duration then self.durationThread = task.delay(duration, function() self.durationThread = nil self:Start() end) end end local update = function(dtUpdate) for _, scheduler in ipairs(scheduled)do local dt, rate = scheduler.dt, scheduler.rate dt += dtUpdate if scheduler.fixed then while dt >= rate do scheduler.Signal:Fire(rate) dt -= rate end elseif dt >= rate then scheduler.Signal:Fire(dt - scheduler.dtOffset) dt = math.min(dt - rate, rate) scheduler.dtOffset = dt end scheduler.dt = dt end end local updateLoop = RunService.Heartbeat:Connect(update) __DARKLUA_BUNDLE_MODULES.load'b':GiveTask(updateLoop) return Scheduler end function __DARKLUA_BUNDLE_MODULES.i() local ipairs, table = ipairs, table return function(enumItems) local enum = {} for index, name in ipairs(enumItems)do enum[name] = index - 1 enum[index - 1] = name end setmetatable(enum, { __index = function(_, index) return error(string.format('"%s" is not a valid enum item.', tostring(index)), 2) end, }) return table.freeze(enum) end end function __DARKLUA_BUNDLE_MODULES.j() local Enum = __DARKLUA_BUNDLE_MODULES.load'i' return table.freeze{ Server = Enum{ 'Connect', 'Event', 'Invoke', }, Client = Enum{ 'ConnectResult', 'Event', 'InvokeResult', 'Disconnect', }, } end function __DARKLUA_BUNDLE_MODULES.k() return 'Network' end function __DARKLUA_BUNDLE_MODULES.l() local Maid, Signal, Scheduler, HeadMaid, HttpService, Players, ReplicatedStorage, RunService, Methods = __DARKLUA_BUNDLE_MODULES.load'a', __DARKLUA_BUNDLE_MODULES.load'g', __DARKLUA_BUNDLE_MODULES.load'h', __DARKLUA_BUNDLE_MODULES.load'b', game:GetService'HttpService', game:GetService'Players', game:GetService'ReplicatedStorage', game:GetService'RunService', __DARKLUA_BUNDLE_MODULES.load'j' local Network = {} Network.Maid = HeadMaid:Add(Maid.new()) Network.Id = __DARKLUA_BUNDLE_MODULES.load'k' Network.Connected = (Network.Maid:Add(Signal.new())) Network.Disconnected = (Network.Maid:Add(Signal.new())) Network.ConnectedPlayers = {} Network.ListeningPlayers = ({}) Network.PlayerKeys = ({}) Network.Events = {} Network.Invokes = {} Network.Maid:GiveTask(function() table.clear(Network.ConnectedPlayers) end) local send = function(player, method, ...) do task.spawn(function(...) while true do if not Network.ConnectedPlayers[player] then return end if Network.ListeningPlayers[player] then break end task.wait() end Network.Maid.Remote:FireClient(player, Network:GetKey(player), method, ...) end, ...) end end function Network:SetId(id) Network.Id = id end function Network:GetConnected() local connected = {} for player, _ in next, Network.ConnectedPlayers do table.insert(connected, player) end return connected end function Network:IsConnected(player) return Network.ConnectedPlayers[player] ~= nil end function Network:SetKey(player, key) Network.PlayerKeys[player] = key end function Network:GetKey(player) local key = Network.PlayerKeys[player] return key and key.Client end function Network:GenerateKey() return { Server = HttpService:GenerateGUID(false), Client = HttpService:GenerateGUID(false), } end function Network:Connect(player) local wasConnected = Network:IsConnected(player) Network.ConnectedPlayers[player] = os.clock() do Network.ListeningPlayers[player] = true end if not wasConnected then Network.Connected:Fire(player) end end function Network:Disconnect(player, why) if not Network:IsConnected(player) then return end Network.Maid.Remote:FireClient(player, Network:GetKey(player), Methods.Client.Disconnect, why) Network.ConnectedPlayers[player] = nil do Network.ListeningPlayers[player] = nil Network.PlayerKeys[player] = nil end Network.Disconnected:Fire(player) end function Network:CreateRemote() do table.clear(Network.ListeningPlayers) end local remote = Instance.new'RemoteEvent' Network.Maid.Remote = remote remote.Name = Network.Id remote.Archivable = false remote.Parent = ReplicatedStorage Network.Maid.OnServerEvent = remote.OnServerEvent:Connect(function( player, key, method, ... ) if method == Methods.Server.Connect and not Network:IsConnected(player) then if (key == nil or not Network.PlayerKeys[player] or key ~= Network.PlayerKeys[player].Server) then return remote:FireClient(player, Network:GetKey(player), Methods.Client.ConnectResult, false) end remote:FireClient(player, Network:GetKey(player), Methods.Client.ConnectResult, true) Network:Connect(player) return end do if key == nil or not Network.PlayerKeys[player] or key ~= Network.PlayerKeys[player].Server then return end end Network:Connect(player) if method == Methods.Server.Event then local event = ... local callback = Network.Events[event] if callback then callback(player, select(2, ...)) end elseif method == Methods.Server.Invoke then local invoke, id = ... local callback = Network.Invokes[invoke] if callback then send(player, Methods.Client.InvokeResult, id, callback(player, select(3, ...))) end end end) end function Network:IsRemoteOK() local remote = Network.Maid.Remote if not remote then return false end return remote.Parent == ReplicatedStorage and remote.Name == Network.Id end function Network:Init() Network:CreateRemote() do Network.Maid.RefitLoop = Scheduler.connect(5, function() Network:CreateRemote() end) Network.Maid.RefitCheckLooop = RunService.PostSimulation:Connect(function( ) if not Network:IsRemoteOK() then Network:CreateRemote() end end) end Network.Maid.DisconnectLoop = Scheduler.connect(1, function() for player, lastPing in next, Network.ConnectedPlayers do local __DARKLUA_CONTINUE_16 = false repeat if player.Parent ~= Players then Network:Disconnect(player, 'You left game') __DARKLUA_CONTINUE_16 = true break end if os.clock() - lastPing > 15 then Network:Disconnect(player, 'You stopped pinging the server') __DARKLUA_CONTINUE_16 = true break end __DARKLUA_CONTINUE_16 = true until true if not __DARKLUA_CONTINUE_16 then break end end end) end function Network:FireClient(player, event, ...) send(player, Methods.Client.Event, event, ...) end function Network:FireAllClients(event, ...) for player in next, Network.ConnectedPlayers do send(player, Methods.Client.Event, event, ...) end end function Network.event(name, callback) Network.Events[name] = callback return function() if Network.Events[name] == callback then Network.Events[name] = nil end end end function Network.invoke(name, callback) Network.Invokes[name] = callback return function() if Network.Invokes[name] == callback then Network.Invokes[name] = nil end end end return Network end function __DARKLUA_BUNDLE_MODULES.m() local Network, Status = __DARKLUA_BUNDLE_MODULES.load'l', {} Status.Current = '...' Network.invoke('GetStatus', function() return Status.Current end) function Status:Set(text) if Status.Current == text then return end Status.Current = text Network:FireAllClients('SetStatus', text) end return setmetatable(Status, { __call = Status.Set, }) end function __DARKLUA_BUNDLE_MODULES.n() local Network, Maid, Signal, HeadMaid = __DARKLUA_BUNDLE_MODULES.load'l', __DARKLUA_BUNDLE_MODULES.load'a', __DARKLUA_BUNDLE_MODULES.load'g', __DARKLUA_BUNDLE_MODULES.load'b' local Teams = {} Teams.Maid = HeadMaid:Add(Maid.new()) Teams.List = {} Teams.Updated = (Teams.Maid:Add(Signal.new())) local mapTeamsList = function() local mapped = {} for player, team in next, Teams.List do mapped[tostring(player.UserId)] = team end return mapped end Teams.Maid:GiveTask(Teams.Updated:Connect(function() Teams.Maid.UpdateThread = task.defer(function() Network:FireAllClients('UpdateTeams', mapTeamsList()) end) end)) Network.invoke('GetTeams', function() return mapTeamsList() end) function Teams:Assign(player, team) local oldTeam = Teams.List[player] Teams.List[player] = team Teams.Updated:Fire(player, team, oldTeam) end function Teams:Get(player) return Teams.List[player] end function Teams:GetPlayers(team) local players = {} for player, playerTeam in next, Teams.List do if playerTeam == team then table.insert(players, player) end end return players end function Teams:GetAmount(team) return #Teams:GetPlayers(team) end Network.Disconnected:Connect(function(player) Teams:Assign(player, nil) end) return Teams end function __DARKLUA_BUNDLE_MODULES.o() return __DARKLUA_BUNDLE_MODULES.load'i'{ 'Playing', 'Lobby', } end function __DARKLUA_BUNDLE_MODULES.p() local Maid = {} Maid.ClassName = 'Maid' function Maid.new() return setmetatable({_tasks = {}}, Maid) end function Maid.isMaid(value) return type(value) == 'table' and value.ClassName == 'Maid' end function Maid:__index(index) if Maid[index] then return Maid[index] else return self._tasks[index] end end function Maid:__newindex(index, newTask) if Maid[index] ~= nil then error(string.format("Cannot use '%s' as a Maid key", tostring(index)), 2) end local tasks = self._tasks local job = tasks[index] if job == newTask then return end tasks[index] = newTask if job then local jobType = typeof(job) if jobType == 'function' then job() elseif jobType == 'table' then if type(job.Destroy) == 'function' then job:Destroy() end elseif jobType == 'Instance' then job:Destroy() elseif jobType == 'thread' then local cancelled if coroutine.running() ~= job then cancelled = pcall(function() task.cancel(job) end) end if not cancelled then task.defer(function() task.cancel(job) end) end elseif jobType == 'RBXScriptConnection' then job:Disconnect() end end end function Maid:Add(task) if not task then error('Task cannot be false or nil', 2) end self[#self._tasks + 1] = task if type(task) == 'table' and not task.Destroy then warn('[Maid.Add] - Gave table task without .Destroy\n\n' .. debug.traceback()) end return task end function Maid:GiveTask(task) if not task then error('Task cannot be false or nil', 2) end local taskId = #self._tasks + 1 self[taskId] = task if type(task) == 'table' and not task.Destroy then warn('[Maid.GiveTask] - Gave table task without .Destroy\n\n' .. debug.traceback()) end return taskId end function Maid:GivePromise(promise) if not promise:IsPending() then return promise end local newPromise = promise.resolved(promise) local id = self:GiveTask(newPromise) newPromise:Finally(function() self[id] = nil end) return newPromise end function Maid:DoCleaning() local tasks = self._tasks for index, job in pairs(tasks)do if typeof(job) == 'RBXScriptConnection' then tasks[index] = nil job:Disconnect() end end local index, job = next(tasks) while job ~= nil do tasks[index] = nil local jobType = typeof(job) if jobType == 'function' then job() elseif jobType == 'table' and type(job.Destroy) == 'function' then job:Destroy() elseif jobType == 'Instance' then job:Destroy() elseif jobType == 'thread' then local cancelled if coroutine.running() ~= job then cancelled = pcall(function() task.cancel(job) end) end if not cancelled then local toCancel = job task.defer(function() task.cancel(toCancel) end) end elseif jobType == 'RBXScriptConnection' then job:Disconnect() end index, job = next(tasks) end end Maid.Destroy = Maid.DoCleaning return Maid end function __DARKLUA_BUNDLE_MODULES.q() return function(origin, arenaSize, lavaHeight) local lobby = Instance.new'Folder' local newPart = function(class) local basePart = Instance.new(class or 'Part') basePart.Anchored = true basePart.Material = Enum.Material.SmoothPlastic basePart.Parent = lobby return basePart end do local makeCorner, offset = function(position) local corner = newPart() corner.Color = Color3.fromRGB(103, 102, 104) corner.Size = Vector3.new(24, 1, 24) corner.Position = position local createSpawn = function(x, z) local spawnPart = newPart'Part' spawnPart.Name = 'SpawnLocation' spawnPart.Size = Vector3.new(8, 0.5, 8) spawnPart.Position = position + Vector3.new(x, 0.75, z) spawnPart.Parent = lobby local decal = Instance.new'Decal' decal.Texture = 'rbxasset://textures/SpawnLocation.png' decal.Face = Enum.NormalId.Top decal.Parent = spawnPart end createSpawn(5, 5) createSpawn(-5, 5) createSpawn(5, -5) createSpawn(-5, -5) end, 17 + arenaSize / 2 local xOffset, zOffset = Vector3.xAxis * offset, Vector3.zAxis * offset makeCorner(origin + xOffset + zOffset) makeCorner(origin - xOffset + zOffset) makeCorner(origin + xOffset - zOffset) makeCorner(origin - xOffset - zOffset) end do local makePath, offset = function(position, rotation) local flip, path = rotation % 180 ~= 0, newPart() path.Size = (flip and { (Vector3.new(24, 1, arenaSize + 10)), } or { (Vector3.new(arenaSize + 10, 1, 24)), })[1] path.Position = position local speed1 = newPart() speed1.Color = Color3.fromRGB(127, 127, 130) speed1.Size = (flip and { (Vector3.new(6, 0.1, arenaSize + 4)), } or { (Vector3.new(arenaSize + 4, 0.1, 6)), })[1] speed1.Position = position + Vector3.new(0, 0.55, 0) + (flip and { (Vector3.new(5, 0, 0)), } or { (Vector3.new(0, 0, 5)), })[1] local speed2 = newPart() speed2.Color = speed1.Color speed2.Size = speed1.Size speed2.Position = position + Vector3.new(0, 0.55, 0) + (flip and { (Vector3.new(-5, 0, 0)), } or { (Vector3.new(0, 0, -5)), })[1] local speed = 50 speed1.AssemblyLinearVelocity = (flip and { (Vector3.new(0, 0, -speed)), } or { (Vector3.new(speed, 0, 0)), })[1] speed2.AssemblyLinearVelocity = -speed1.AssemblyLinearVelocity end, 17 + arenaSize / 2 local xOffset, zOffset = Vector3.xAxis * offset, Vector3.zAxis * offset makePath(origin - zOffset, 0) makePath(origin - xOffset, 90) makePath(origin + zOffset, 180) makePath(origin + xOffset, 270) end do local width, lava = 5, newPart() lava.CanCollide = false lava.Position = origin + Vector3.yAxis * (lavaHeight - width / 2) lava.Size = Vector3.new(arenaSize, width, arenaSize) lava.Material = Enum.Material.Neon lava.Color = Color3.fromRGB(211, 56, 17) lava.Touched:Connect(function(hit) hit:BreakJoints() hit:Destroy() end) end return lobby end end function __DARKLUA_BUNDLE_MODULES.r() local HeadMaid, Maid, Network, lobbyCreator, Arena = __DARKLUA_BUNDLE_MODULES.load'b', __DARKLUA_BUNDLE_MODULES.load'p', __DARKLUA_BUNDLE_MODULES.load'l', __DARKLUA_BUNDLE_MODULES.load'q', {} Arena.Maid = HeadMaid:Add(Maid.new()) Arena.ArenaMaid = Arena.Maid:Add(Maid.new()) Arena.Folder = nil Arena.Lobby = nil Arena.Wall = nil Arena.Origin = Vector3.zero Arena.Size = 0 Arena.LavaHeight = -100 local root = script if script.Parent ~= workspace then task.defer(function() script.Parent = workspace end) end local maxPartSize, createWall = 2048, function(position, size) local wall = (Arena.Maid.Lobby:Add(Instance.new'Part')) wall.Anchored = true wall.Transparency = 1 if position then wall.Position = position end if size then wall.Size = size end wall.Parent = Arena.Lobby return wall end function Arena:SetOrigin(origin) Arena.Origin = origin Network:FireAllClients('SetArenaOrigin', origin) end function Arena:SetSize(size) Arena.Size = size Network:FireAllClients('SetArenaSize', size) end function Arena:SetLavaHeight(height) Arena.LavaHeight = height end function Arena:Create() Arena:Remove() Arena:CreateLobby() local arena = Arena.ArenaMaid:Add(Instance.new'Folder') Arena.Folder = arena Arena.ArenaMaid:GiveTask(function() Arena.Arena = nil end) arena.Parent = root end function Arena:Remove() Arena.ArenaMaid:DoCleaning() end function Arena:CreateLobby() local origin, size, maid = Arena.Origin, Arena.Size, Maid.new() Arena.Maid.Lobby = maid Arena.Lobby = lobbyCreator(origin, size, Arena.LavaHeight) Arena.Lobby.Parent = root maid.Lobby = Arena.Lobby local height = maxPartSize Arena.Wall = createWall(origin, Vector3.new(size + 10, height, size + 10)) do local width = maxPartSize / 3 local offset = size / 2 + width / 2 + 5 + 24 local xOffset, zOffset = Vector3.xAxis * offset, Vector3.zAxis * offset createWall(origin + xOffset, Vector3.new(width, height, width * 3)) createWall(origin + zOffset, Vector3.new(width * 3, height, width)) createWall(origin - xOffset, Vector3.new(width, height, width * 3)) createWall(origin - zOffset, Vector3.new(width * 3, height, width)) end Network:FireAllClients('SetArenaLobby', Arena.Lobby) end local removeCollision = function(part) if not part:IsA'BasePart' then return end local noCollisionConstraint = Instance.new'NoCollisionConstraint' noCollisionConstraint.Part0 = part noCollisionConstraint.Part1 = Arena.Wall noCollisionConstraint.Parent = part end function Arena:Allow(instance) removeCollision(instance) instance.DescendantAdded:Connect(removeCollision) for _, descendant in ipairs(instance:GetDescendants())do removeCollision(descendant) end end function Arena.moveTo(model, position) local wall = Arena.Wall if not wall then return model:MoveTo(position) end wall.CanCollide = false model:MoveTo(position) wall.CanCollide = true end Network.invoke('GetArenaSettings', function() return Arena.Origin, Arena.Size, Arena.Lobby end) return Arena end function __DARKLUA_BUNDLE_MODULES.s() local Arena, Players, Character = __DARKLUA_BUNDLE_MODULES.load'r', game:GetService'Players', {} function Character.get(target) if typeof(target) ~= 'Instance' then return end if target:IsA'Player' then return target.Character elseif target:IsA'Model' then return target end end function Character.getRoot(target) local character = Character.get(target) if not character then return end local root = character:FindFirstChild'HumanoidRootPart' if root and root:IsA'BasePart' then return root end end function Character.getPart(target) local character = Character.get(target) if not character then return end local part = character:FindFirstChild'HumanoidRootPart' or character:FindFirstChild'Torso' or character:FindFirstChild'UpperTorso' or character:FindFirstChild'LowerTorso' or character:FindFirstChild'Head' if part and part:IsA'BasePart' then return part end return character:FindFirstChildWhichIsA('BasePart', true) end function Character.getHumanoid(target) local character = Character.get(target) if character then return character:FindFirstChildOfClass'Humanoid' end end function Character.isReady(target) local character = Character.get(target) return Character.getRoot(character) and character:IsDescendantOf(workspace) end function Character.getCFrame(target) local root = Character.getRoot(target) if root then return root.CFrame end end function Character.teleport(target, location, preventClipping) local character = Character.get(target) if not character then return end local root = Character.getRoot(character) if not root then return end local locationCharacter = Character.get(location) if locationCharacter then local locationRoot = Character.getRoot(locationCharacter) if not locationRoot then return end location = locationRoot.CFrame elseif typeof(location) == 'Instance' and location:IsA'BasePart' then location = location.CFrame elseif typeof(location) == 'Vector3' then location = CFrame.new(location) * root.CFrame.Rotation elseif typeof(location) ~= 'CFrame' then return end character.PrimaryPart = root if not preventClipping then return character:PivotTo(location) end local humanoid = Character.getHumanoid(character) local hipHeight = (humanoid and { (humanoid.HipHeight), } or {2})[1] Arena.moveTo(character, location.Position) character:PivotTo(CFrame.new(root.Position + Vector3.yAxis * hipHeight) * location.Rotation) end function Character.freeze(target) local character = Character.get(target) if not character then return end local root = Character.getRoot(character) if root then root.Anchored = true end end function Character.unfreeze(target) local character = Character.get(target) if not character then return end local root = Character.getRoot(character) if root then root.Anchored = false end end function Character.load(player) return pcall(player.LoadCharacter, player) end function Character.refresh(player) local cframe = Character.getCFrame(player) while not Character.load(player) do task.wait() end while not Character.isReady(player) do task.wait() end Character.teleport(player, cframe) end function Character.kill(target) local humanoid = Character.getHumanoid(target) if humanoid then humanoid.Health = 0 end end function Character.remove(target) local character = Character.get(target) if character then local player = Players:GetPlayerFromCharacter(character) if player then player.Character = nil end character:Destroy() end end function Character.damage(target, damage) local humanoid = Character.getHumanoid(target) if humanoid then humanoid:TakeDamage(damage) end end return table.freeze(Character) end function __DARKLUA_BUNDLE_MODULES.t() local Maid, HeadMaid, Arena, Character, Assets, TweenService, RunService, Plate = __DARKLUA_BUNDLE_MODULES.load'a', __DARKLUA_BUNDLE_MODULES.load'b', __DARKLUA_BUNDLE_MODULES.load'r', __DARKLUA_BUNDLE_MODULES.load's', __DARKLUA_BUNDLE_MODULES.load'f', game:GetService'TweenService', game:GetService'RunService', {} local Plates = {} Plate.__index = Plate function Plate.new(owner) local self = setmetatable({}, Plate) self.Maid = Maid.new() self.Owners = (type(owner) == 'table' and {owner} or { {owner}, })[1] self.Part = nil self.PartMaid = self.Maid:Add(Maid.new()) self.CFrame = CFrame.identity self.Move = Vector3.zero self.Rotate = Vector3.zero self.SizeChange = Vector3.zero self.LinearVelocity = Vector3.zero self.AngularVelocity = Vector3.zero table.insert(Plates.List, self) self.Maid:GiveTask(function() local index = table.find(Plates.List, self) if index then table.remove(Plates.List, index) end end) self:Reset() return self end function Plate:Destroy() self.Maid:Destroy() end function Plate.from(plate) local self = Plate.new(table.clone(plate.Owners)) self:Reset(plate.Part) return self end function Plate:UpdateTags() local part = self.Part part:SetAttribute('IsPlate', true) local userIds = {} for _, player in ipairs(self.Owners)do table.insert(userIds, player.UserId) end part:SetAttribute('Owners', table.concat(userIds, ',')) end function Plate:Reset(clone) self.PartMaid:DoCleaning() self.Move = Vector3.zero self.Rotate = Vector3.zero self.SizeChange = Vector3.zero self.LinearVelocity = Vector3.zero self.AngularVelocity = Vector3.zero local part = Instance.fromExisting(clone or Assets.Server.PlateMesh.Block) part.Name = 'Plate' part.Anchored = true part.CFrame = self.CFrame part.Parent = assert(Arena.Folder, 'No Arena exists yet.') self.Part = part if not clone then part.Material = Enum.Material.SmoothPlastic self:SetSize(Plates.DefaultPlateSize) end self.Maid.Removing = part.AncestryChanged:Connect(function() if not part:IsDescendantOf(Arena.Folder) then self:Destroy() end end) local minSize = 0.0011 self.PartMaid:GiveTask(part:GetPropertyChangedSignal'Size':Connect(function( ) local aboveMinSize = 0 if part.Size.X > minSize then aboveMinSize += 1 end if part.Size.Y > minSize then aboveMinSize += 1 end if part.Size.Z > minSize then aboveMinSize += 1 end part.CanCollide = aboveMinSize >= 2 end)) self.PartMaid:GiveTask(RunService.Heartbeat:Connect(function(dt) part.AssemblyLinearVelocity = Vector3.zero part.AssemblyAngularVelocity = Vector3.zero if self.Move ~= Vector3.zero then local move, dtMove = nil, Plates.MovePerSecond * dt if self.Move.Magnitude < dtMove then move = self.Move self.Move = Vector3.zero else move = self.Move.Unit * dtMove self.Move -= move end part.Position += move end if self.Rotate ~= Vector3.zero then local rotate, dtRotate = nil, Plates.RotatePerSecond * dt if self.Rotate.Magnitude < dtRotate then rotate = self.Rotate self.Rotate = Vector3.zero else rotate = self.Rotate.Unit * dtRotate self.Rotate -= rotate end part.Rotation += rotate end if self.SizeChange ~= Vector3.zero then local size, dtSize = nil, Plates.SizePerSecond * dt if self.SizeChange.Magnitude < dtSize then size = self.SizeChange self.SizeChange = Vector3.zero else size = self.SizeChange.Unit * dtSize self.SizeChange -= size end part.Size += size end part.AssemblyLinearVelocity += self.LinearVelocity part.AssemblyAngularVelocity += self.AngularVelocity end)) self.PartMaid:GiveTask(part:GetPropertyChangedSignal'CFrame':Connect(function( ) self.CFrame = part.CFrame end)) self:UpdateTags() self.Maid.Part = part end function Plate:Kill() local killDuration, maid = 15, Maid.new() self.Maid.Kill = maid local sound = (maid:Add(Instance.new'Sound')) sound.SoundId = 'rbxassetid://8863377426' sound.Volume = 4 sound.PlaybackSpeed = Random.new():NextNumber(1.05, 1.175) sound.Parent = self.Part sound:Play() sound.Ended:Once(function() sound:Destroy() end) local oldTransparency = self.Part.Transparency self.Part.Transparency = 0.25 local tween = TweenService:Create(self.Part, TweenInfo.new(killDuration), {Transparency = 1}) tween:Play() maid.CancelTween = function() tween:Cancel() self.Part.Transparency = oldTransparency end maid.Thread = task.delay(killDuration, function() self:Destroy() maid:Destroy() end) end function Plate:SetCFrame(cframe) self.CFrame = cframe self.Part.CFrame = cframe end function Plate:SetPosition(position) self:SetCFrame(CFrame.new(position) * self.CFrame.Rotation) end function Plate:GetMoveTarget() return self.Part.Position + self.Move end function Plate:GetRotateTarget() return self.Part.Rotation + self.Rotate end function Plate:GetCFrameTarget() local targetPosition, targetRotation = self:GetMoveTarget(), self:GetRotateTarget() return CFrame.new(targetPosition) * CFrame.fromOrientation(math.rad(targetRotation.X), math.rad(targetRotation.Y), math.rad(targetRotation.Z)) end function Plate:GetSizeTarget() return self.Part.Size + self.SizeChange end function Plate:MoveTo(position) self.Move = position - self.Part.Position end function Plate:RotateTo(rotation) self.Rotate = rotation - self.Part.Rotation end function Plate:CFrameTo(cframe) local rx, ry, rz = cframe:ToOrientation() local x, y, z = math.deg(rx), math.deg(ry), math.deg(rz) self:MoveTo(cframe.Position) self:RotateTo(Vector3.new(x, y, z)) end function Plate:SizeTo(size) self.SizeChange = size - self.Part.Size end function Plate:SetSize(size) self.Part.Size = size end function Plate:AddSize(size) self:SizeTo(self.Part.Size + size) end function Plate:RemoveSize(size) self:SizeTo(self.Part.Size - size) end function Plate:Grow(amount) return self:AddSize(Vector3.new(amount, (self:GetShape() == Enum.PartType.Ball and {amount} or {0})[1], amount)) end function Plate:Shrink(amount) return self:RemoveSize(Vector3.new(amount, (self:GetShape() == Enum.PartType.Ball and {amount} or {0})[1], amount)) end function Plate:Bring(target) Character.teleport(target, self.CFrame.Position + Vector3.yAxis * 1, true) end function Plate:IsOwner(player) return table.find(self.Owners, player) ~= nil end function Plate:AddOwner(player) if not self:IsOwner(player) then table.insert(self.Owners, player) self:UpdateTags() end end function Plate:RemoveOwner(player) if self:IsOwner(player) then table.remove(self.Owners, table.find(self.Owners, player)) self:UpdateTags() end end function Plate:SetShape(shape) local part, plateMesh = (self.Part), (Assets.Server.PlateMesh) if shape == Enum.PartType.Ball then part:ApplyMesh(plateMesh.Ball) elseif shape == Enum.PartType.Block then part:ApplyMesh(plateMesh.Block) elseif shape == Enum.PartType.Cylinder then part:ApplyMesh(plateMesh.Cylinder) end end function Plate:GetShape() local meshId, plateMesh = (self.Part.MeshId), (Assets.Server.PlateMesh) if meshId == plateMesh.Ball.MeshId then return Enum.PartType.Ball elseif meshId == plateMesh.Block.MeshId then return Enum.PartType.Block elseif meshId == plateMesh.Cylinder.MeshId then return Enum.PartType.Cylinder end end Plates.DefaultPlateSize = Vector3.new(20, 1, 20) Plates.List = {} Plates.new = Plate.new Plates.from = Plate.from Plates.MovePerSecond = 2.5 Plates.RotatePerSecond = 20 Plates.SizePerSecond = 3 function Plates:GetPlates() return Plates.List end function Plates:ClearAll() local list = table.clone(Plates.List) table.clear(Plates.List) for _, plate in ipairs(list)do plate:Destroy() end end function Plates:PlayerDied(player) for _, plate in ipairs(Plates:GetPlates())do local __DARKLUA_CONTINUE_27 = false repeat if not plate:IsOwner(player) then __DARKLUA_CONTINUE_27 = true break end plate:RemoveOwner(player) if #plate.Owners <= 0 then task.defer(function() plate:Kill() end) end __DARKLUA_CONTINUE_27 = true until true if not __DARKLUA_CONTINUE_27 then break end end end HeadMaid:GiveTask(function() Plates:ClearAll() end) return Plates end function __DARKLUA_BUNDLE_MODULES.u() local Teams, Team, Network, Match = __DARKLUA_BUNDLE_MODULES.load'n', __DARKLUA_BUNDLE_MODULES.load'o', __DARKLUA_BUNDLE_MODULES.load'l', {} function Match:GetPlaying() return Teams:GetPlayers(Team.Playing) end function Match:GetAmountPlaying() return Teams:GetAmount(Team.Playing) end function Match:IsPlaying(player) return Teams:Get(player) == Team.Playing end function Match:AssignAll(team) for _, player in ipairs(Network:GetConnected())do Teams:Assign(player, team) end end function Match:AddPlayer(player) Teams:Assign(player, Team.Playing) end function Match:RemovePlayer(player) if Network:IsConnected(player) then Teams:Assign(player, Team.Lobby) else Teams:Assign(player, nil) end end return Match end function __DARKLUA_BUNDLE_MODULES.v() return __DARKLUA_BUNDLE_MODULES.load'i'{ 'None', 'Environment', 'Player', 'Plate', } end function __DARKLUA_BUNDLE_MODULES.w() local RunService, Character, Plates, Arena, Maid, Scheduler, Assets, Match, Selector, random = game:GetService'RunService', __DARKLUA_BUNDLE_MODULES.load's', __DARKLUA_BUNDLE_MODULES.load't', __DARKLUA_BUNDLE_MODULES.load'r', __DARKLUA_BUNDLE_MODULES.load'a', __DARKLUA_BUNDLE_MODULES.load'h', __DARKLUA_BUNDLE_MODULES.load'f', __DARKLUA_BUNDLE_MODULES.load'u', __DARKLUA_BUNDLE_MODULES.load'v', Random.new() local randomBoolean, get2RandomPlayers, get2RandomPlates, parentArena, moveTo = function( ) return random:NextInteger(0, 1) == 1 end, function() local availablePlayers = Match:GetPlaying() if #availablePlayers < 2 then return nil, nil end local player1Index, player2Index = random:NextInteger(1, #availablePlayers), random:NextInteger(1, #availablePlayers - 1) return table.remove(availablePlayers, player1Index), availablePlayers[player2Index] end, function() local availablePlates = table.clone(Plates:GetPlates()) if #availablePlates < 2 then return nil, nil end local plate1Index, plate2Index = random:NextInteger(1, #availablePlates), random:NextInteger(1, #availablePlates - 1) return table.remove(availablePlates, plate1Index), availablePlates[plate2Index] end, function(instance) Arena:Allow(instance) instance.Parent = Arena.Folder end, Arena.moveTo return table.freeze{ { 1, function() local targets = random:NextInteger(1, 2) return string.format('%s plate(s) will return to normal', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) context.Plate:Reset() end, }, { 1, function() local targets = random:NextInteger(1, 2) return string.format('%s players(s) will return to normal', tostring(targets)), targets end, function(targets) return targets, Selector.Player end, function(context) Character.refresh(context.Player) end, }, { 1.5, function() local targets, amount = random:NextInteger(1, 3), random:NextInteger(2, 6) return string.format('%s plate(s) will grow by %s studs', tostring(targets), tostring(amount)), targets, amount end, function(targets) return targets, Selector.Plate end, function(context, _, amount) context.Plate:Grow(amount) end, }, { 2, function() local targets, amount = random:NextInteger(1, 3), random:NextInteger(2, 6) return string.format('%s plate(s) will shrink by %s studs', tostring(targets), tostring(amount)), targets, amount end, function(targets) return targets, Selector.Plate end, function(context, _, amount) context.Plate:Shrink(amount) end, }, { 1, function() local targets = random:NextInteger(1, 3) return string.format('%s plate(s) will change color', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) context.Plate.Part.Color = Color3.new(random:NextNumber(), random:NextNumber(), random:NextNumber()) end, }, { 1, function() local targets = random:NextInteger(1, 3) return string.format('%s plate(s) will change material', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) local materials = { Enum.Material.Brick, Enum.Material.Cobblestone, Enum.Material.Concrete, Enum.Material.CorrodedMetal, Enum.Material.DiamondPlate, Enum.Material.Fabric, Enum.Material.Foil, Enum.Material.ForceField, Enum.Material.Glass, Enum.Material.Granite, Enum.Material.Grass, Enum.Material.Ice, Enum.Material.Marble, Enum.Material.Metal, Enum.Material.Neon, Enum.Material.Pebble, Enum.Material.Plastic, Enum.Material.Sand, Enum.Material.Slate, Enum.Material.SmoothPlastic, Enum.Material.Wood, Enum.Material.WoodPlanks, } context.Plate.Part.Material = materials[random:NextInteger(1, #materials)] end, }, { 1, function() local targets = random:NextInteger(1, 3) return string.format('%s plate(s) will become a disco plate', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) local part = context.Plate.Part context.Plate.PartMaid.DiscoThread = task.defer(function() while true do part.Color = Color3.new(random:NextNumber(), random:NextNumber(), random:NextNumber()) task.wait(0.5) end end) end, }, { 1, function() local targets, amount = random:NextInteger(1, 2), random:NextInteger(10, 25) return string.format('%s plate(s) will ascend %s studs', tostring(targets), tostring(amount)), targets, amount end, function(targets) return targets, Selector.Plate end, function(context, _, amount) context.Plate.Move += Vector3.yAxis * amount end, }, { 1, function() local targets, amount = random:NextInteger(1, 2), random:NextInteger(10, 25) return string.format('%s plate(s) will descend %s studs', tostring(targets), tostring(amount)), targets, amount end, function(targets) return targets, Selector.Plate end, function(context, _, amount) context.Plate.Move -= Vector3.yAxis * amount end, }, { 1, function() return '1 plate will return to normal height' end, function() return 1, Selector.Plate end, function(context) context.Plate:MoveTo(context.Plate.Part.Position * Vector3.new(1, 0, 1) + Vector3.yAxis * Arena.Origin.Y) end, }, { 1, function() local targets = random:NextInteger(1, 2) return string.format('%s plate(s) will be split in half', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) local plate = context.Plate local half = Plates.from(plate) if #plate.Owners > 1 then local owners = plate.Owners local transferAmount = math.floor(#owners / 2) for _ = 1, transferAmount do local owner = owners[random:NextInteger(1, #owners)] plate:RemoveOwner(owner) end for _, owner in ipairs(plate.Owners)do half:RemoveOwner(owner) end end local splitX, size, cframe = randomBoolean(), plate.Part.Size, plate.CFrame plate.Part.Size = (splitX and { (Vector3.new(size.X / 2, size.Y, size.Z)), } or { (Vector3.new(size.X, size.Y, size.Z / 2)), })[1] half.Part.Size = plate.Part.Size plate:SetCFrame(cframe * (splitX and { (CFrame.new(size.X / 4, 0, 0)), } or { (CFrame.new(0, 0, size.Z / 4)), })[1]) half:SetCFrame(cframe * (splitX and { (CFrame.new(-size.X / 4, 0, 0)), } or { (CFrame.new(0, 0, -size.Z / 4)), })[1]) context:Highlight(half.Part) end, }, { 1.5, '2 plates will merge together', nil, function(context) local plate1, plate2 = get2RandomPlates() if not plate1 or not plate2 then return end local plate1Position, plate2Position, mergeOnX = (plate1.Part.Position), (plate2.Part.Position), randomBoolean() local plate1Positive, maid = (mergeOnX and { (plate1Position.X > plate2Position.X), } or { (plate1Position.Z > plate2Position.Z), })[1], Maid.new() plate1.PartMaid.MergeMaid = maid plate2.PartMaid.MergeMaid = maid local merge, updateMove = function() plate1.PartMaid.MergeMaid = nil plate2.PartMaid.MergeMaid = nil maid:DoCleaning() local part1, part2 = plate1.Part, plate2.Part local size1, size2 = part1.Size, part2.Size local add = (mergeOnX and { (Vector3.new(size2.X, size1.Y - (size1.Y + size2.Y) / 2, size1.Z - (size1.Z + size2.Z) / 2)), } or { (Vector3.new(size1.X - (size1.X + size2.X) / 2, size1.Y - (size1.Y + size2.Y) / 2, size2.Z)), })[1] plate1.Part.Size += add plate1:SetCFrame(plate1.CFrame * CFrame.new(((plate1Positive and { (-add), } or {add})[1]) / 2)) for _, owner in ipairs(plate2.Owners)do plate1:AddOwner(owner) end plate1.LinearVelocity = plate1.LinearVelocity:Lerp(plate2.LinearVelocity, 0.5) plate1.AngularVelocity = plate1.AngularVelocity:Lerp(plate2.AngularVelocity, 0.5) part1.Color = part1.Color:Lerp(part2.Color, 0.5) if plate1:GetShape() ~= plate2:GetShape() then plate1:SetShape(Enum.PartType.Block) end plate2:Destroy() end, function() local plate1Target, plate2Target, plate1Size, plate2Size = (plate1:GetCFrameTarget()), (plate2:GetCFrameTarget()), (plate1.Part.Size), (plate2.Part.Size) local middle, offset = plate1Target:Lerp(plate2Target, 0.5), (mergeOnX and { ((plate1Size.X + plate2Size.X) / 4), } or { ((plate1Size.Z + plate2Size.Z) / 4), })[1] local plate1Offset, plate2Offset = (plate1Positive and {offset} or { (-offset), })[1], (plate1Positive and { (-offset), } or {offset})[1] plate1:CFrameTo(middle * (mergeOnX and { (CFrame.new(plate1Offset, 0, 0)), } or { (CFrame.new(0, 0, plate1Offset)), })[1]) plate2:CFrameTo(middle * (mergeOnX and { (CFrame.new(plate2Offset, 0, 0)), } or { (CFrame.new(0, 0, plate2Offset)), })[1]) local size1, size2 = (plate1:GetSizeTarget()), (plate2:GetSizeTarget()) plate1:SizeTo((mergeOnX and { (Vector3.new(size1.X, (size1.Y + size2.Y) / 2, (size1.Z + size2.Z) / 2)), } or { (Vector3.new((size1.X + size2.X) / 2, (size1.Y + size2.Y) / 2, size1.Z)), })[1]) plate2:SizeTo((mergeOnX and { (Vector3.new(size2.X, (size1.Y + size2.Y) / 2, (size1.Z + size2.Z) / 2)), } or { (Vector3.new((size1.X + size2.X) / 2, (size1.Y + size2.Y) / 2, size2.Z)), })[1]) end updateMove() maid.loop = Scheduler.connect(0.1, function() updateMove() local totalMagnitude = plate1.Move.Magnitude + plate1.Rotate.Magnitude + plate1.SizeChange.Magnitude + plate2.Move.Magnitude + plate2.Rotate.Magnitude + plate2.SizeChange.Magnitude if totalMagnitude < 0.25 then merge() end end) context:ShowPlate(plate1) context:ShowPlate(plate2) end, }, { 1, 'A bridge will be constructed between 2 plates', nil, function(context) local plate1, plate2 = get2RandomPlates() if not plate1 or not plate2 then return end local part1, part2 = plate1.Part, plate2.Part local position1, position2 = part1.Position + Vector3.yAxis * 1, part2.Position + Vector3.yAxis * 1 local distance, bridge = (position1 - position2).Magnitude, Instance.new'Part' bridge.Anchored = false bridge.CanCollide = true bridge.Size = Vector3.new(5, distance, 0.75) bridge.CFrame = CFrame.lookAt(position1, position2) * CFrame.new(0, 0.6, -distance * 0.5) * CFrame.Angles(math.rad(90), 0, 0) parentArena(bridge) bridge:SetNetworkOwner(nil) context:ShowPlate(plate1) context:ShowPlate(plate2) end, }, { 1, '1 plate will recieve a ball', { 1, Selector.Plate, }, function(context) local model, ball = Instance.new'Model', Instance.new'Part' ball.Material = Enum.Material.SmoothPlastic ball.Size = Vector3.one * 7.5 ball.Shape = Enum.PartType.Ball ball.Parent = model parentArena(model) moveTo(model, context.Plate.Part.Position) end, }, { 1, '1 plate will get a laser spinner', { 1, Selector.Plate, }, function(context) local plate = context.Plate local part, maid = plate.Part, plate.PartMaid:Add(Maid.new()) local laser = maid:Add(Instance.new'Part') laser.Anchored = true laser.CanCollide = false laser.Material = Enum.Material.Neon laser.Color = Color3.fromRGB(255, 0, 0) laser.Parent = part maid.TouchedThread = task.delay(1, function() maid.Touched = laser.Touched:Connect(function(hit) Character.damage(hit.Parent, 10) end) end) local rotationPerSec = random:NextNumber(25, 35) if randomBoolean() then rotationPerSec = -rotationPerSec end local rotation = random:NextNumber(0, 360) maid.Loop = RunService.Heartbeat:Connect(function(dt) local maxSize = math.max(part.Size.X, part.Size.Z) laser.Size = Vector3.new((1.4142135623730951) * maxSize, 1, 1) rotation = (rotation + rotationPerSec * dt) % 360 laser.CFrame = part.CFrame * CFrame.new(Vector3.yAxis * (part.Size.Y / 2 + 0.5)) * CFrame.Angles(0, math.rad(rotation), 0) end) end, }, { 1, function() local targets = random:NextInteger(1, 2) return string.format('%s plate(s) will become a treadmill', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) local speed, dir = random:NextNumber(8, 12), random:NextInteger(1, 4) if dir == 1 then context.Plate.LinearVelocity += Vector3.new(speed, 0, 0) elseif dir == 2 then context.Plate.LinearVelocity -= Vector3.new(speed, 0, 0) elseif dir == 3 then context.Plate.LinearVelocity += Vector3.new(0, 0, speed) else context.Plate.LinearVelocity -= Vector3.new(0, 0, speed) end end, }, { 1, function() local targets = random:NextInteger(1, 2) return string.format('%s plate(s) will become a trampoline', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) local power = random:NextNumber(50, 80) context.Plate.LinearVelocity = Vector3.new(context.Plate.LinearVelocity.X, math.max(context.Plate.LinearVelocity.Y, power), context.Plate.LinearVelocity.Z) end, }, { 1, function() local targets = random:NextInteger(1, 2) return string.format('%s plate(s) will become a cube', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) local size = context.Plate:GetSizeTarget() local maxSize = math.max(size.X, size.Y, size.Z) context.Plate:SizeTo(Vector3.one * maxSize) context.Plate:SetShape(Enum.PartType.Block) end, }, { 1, function() local targets = random:NextInteger(1, 2) return string.format('%s plate(s) will become a sphere', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) local size = context.Plate:GetSizeTarget() local maxSize = math.max(size.X, size.Y, size.Z) context.Plate:SizeTo(Vector3.one * maxSize) context.Plate:SetShape(Enum.PartType.Ball) end, }, { 1, function() local targets = random:NextInteger(1, 2) return string.format('%s plate(s) will become a cylinder', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) local size = context.Plate:GetSizeTarget() local maxSize = math.max(size.X, size.Z) context.Plate:SizeTo(Vector3.new(maxSize, size.Y, maxSize)) context.Plate:SetShape(Enum.PartType.Cylinder) end, }, { 1, function() local targets = random:NextInteger(1, 2) return string.format('%s plate(s) will flip', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) local rotation = randomBoolean() and 180 or -180 context.Plate.Rotate += (randomBoolean() and { (Vector3.new(rotation, 0, 0)), } or { (Vector3.new(0, 0, rotation)), })[1] end, }, { 1, function() local targets = random:NextInteger(1, 2) return string.format('%s plate(s) will rotate', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) context.Plate.Rotate += Vector3.new(0, (randomBoolean() and 90 or -90) * random:NextNumber(2, 4), 0) end, }, { 1, function() local targets = random:NextInteger(1, 2) return string.format('%s plate(s) will move', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) local direction, distance = Vector3.new(random:NextNumber(-1, 1), 0, random:NextNumber( -1, 1)).Unit, random:NextNumber(15, 30) context.Plate.Move += direction * distance end, }, { 1, function() local targets = random:NextInteger(1, 2) return string.format('%s players(s) will teleport to a random plate', tostring(targets)), targets end, function(targets) return targets, Selector.Player end, function(context) local availablePlates = Plates:GetPlates() if #availablePlates < 1 then return end local plate = availablePlates[random:NextInteger(1, #availablePlates)] plate:Bring(context.Player) end, }, { 1, '2 plates will swap position', nil, function(context) local plate1, plate2 = get2RandomPlates() if not plate1 or not plate2 then return end local cframe1, cframe2 = plate1.CFrame, plate2.CFrame plate1:SetCFrame(cframe2) plate2:SetCFrame(cframe1) context:ShowPlate(plate1) context:ShowPlate(plate2) end, }, { 1, '2 players will swap position', nil, function(context) local player1, player2 = get2RandomPlayers() if not player1 or not player2 then return end local cframe1, cframe2 = Character.getCFrame(player1), Character.getCFrame(player2) Character.teleport(player1, cframe2) Character.teleport(player2, cframe1) context:ShowPlayer(player1) context:ShowPlayer(player2) end, }, { 1, function() local targets, amount = random:NextInteger(1, 3), random:NextInteger(3, 7) return string.format('%s player(s) will gain %s walkspeed', tostring(targets), tostring(amount)), targets, amount end, function(targets) return targets, Selector.Player end, function(context, _, amount) local humanoid = (Character.getHumanoid(context.Player)) if humanoid then humanoid.WalkSpeed += amount end end, }, { 1, function() local targets, amount = random:NextInteger(1, 3), random:NextInteger(3, 7) return string.format('%s player(s) will lose %s walkspeed', tostring(targets), tostring(amount)), targets, amount end, function(targets) return targets, Selector.Player end, function(context, _, amount) local humanoid = (Character.getHumanoid(context.Player)) if humanoid then humanoid.WalkSpeed -= amount end end, }, { 1, function() local targets, minutes = random:NextInteger(1, 2), random:NextInteger(1, 2) return string.format('%s player(s) will gain a forcefield for %s minute(s)', tostring(targets), tostring(minutes)), targets, minutes end, function(targets) return targets, Selector.Player end, function(context, _, minutes) local forceField = Instance.new'ForceField' forceField.Parent = context.Player.Character task.delay(minutes * 60, game.Destroy, forceField) end, }, { 1, '2 players lives will becomed linked', nil, function(context) local player1, player2 = get2RandomPlayers() if not player1 or not player2 then return end local character1, character2 = Character.get(player1), Character.get(player2) local humanoid1, humanoid2 = Character.getHumanoid(character1), Character.getHumanoid(character2) humanoid1.Died:Once(function() task.defer(Character.kill, character2) end) humanoid2.Died:Once(function() task.defer(Character.kill, character1) end) context:ShowPlayer(player1) context:ShowPlayer(player2) local part1, part2, attachment1 = Character.getPart(character1), Character.getPart(character2), Instance.new'Attachment' attachment1.Parent = part1 local attachment2 = Instance.new'Attachment' attachment2.Parent = part2 local beam = (Assets.Server.LifeLinkBeam:Clone()) beam.Attachment0 = attachment1 beam.Attachment1 = attachment2 beam.Parent = part1 end, }, { 1, function() local targets = random:NextInteger(1, 1) return string.format('%s player(s) will recieve a ball and chain', tostring(targets)), targets end, function(targets) return targets, Selector.Player end, function(context) local character = Character.get(context.Player) local leftLeg = character:FindFirstChild'Left Leg' or character:FindFirstChild'LeftLowerLeg' if not leftLeg then return end local ball = Instance.new'Part' ball.Color = Color3.new(0, 0, 0) ball.Shape = Enum.PartType.Ball ball.Size = Vector3.one * 2.5 ball.Material = Enum.Material.Metal ball.Position = leftLeg.Position + Vector3.one * 1.5 ball.CustomPhysicalProperties = PhysicalProperties.new(50, 2, 0) ball.Parent = character local attachment0 = Instance.new'Attachment' attachment0.Parent = leftLeg local attachment1 = Instance.new'Attachment' attachment1.Parent = ball local ropeConstraint = Instance.new'RopeConstraint' ropeConstraint.Color = BrickColor.DarkGray() ropeConstraint.Thickness = 0.2 ropeConstraint.Visible = true ropeConstraint.Length = 6 ropeConstraint.Attachment0 = attachment0 ropeConstraint.Attachment1 = attachment1 ropeConstraint.Parent = ball end, }, { 1, function() local targets = random:NextInteger(1, 1) return string.format('%s plate(s) will begin slowly sinking forever', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) local plate, sinkPerSecond = context.Plate, 0.3333333333333333 plate.PartMaid.ForeverSink = RunService.Heartbeat:Connect(function( dt ) plate:SetPosition(plate.CFrame.Position - Vector3.yAxis * sinkPerSecond * dt) end) end, }, { 1, function() local targets = random:NextInteger(1, 1) return string.format('%s plate(s) will become an elevator', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) local plate, maid = context.Plate, Maid.new() plate.PartMaid.Elevator = maid maid.Thead = task.defer(function() local move, cooldown = 20, 3 local duration = move / Plates.MovePerSecond plate.Move += Vector3.yAxis * move / 2 task.wait(duration / 2 + cooldown) while true do plate.Move -= Vector3.yAxis * move task.wait(duration + cooldown) plate.Move += Vector3.yAxis * move task.wait(duration + cooldown) end end) end, }, { 1, function() local targets = random:NextInteger(1, 1) return string.format('%s plate(s) will be given controls', tostring(targets)), targets end, function(targets) return targets, Selector.Plate end, function(context) local plate = context.Plate local part, maid = plate.Part, Maid.new() plate.PartMaid.Controls = maid local addControl = function(dir, rot) local activeColor, inactiveColor, range, control = Color3.fromRGB(165, 79, 21), Color3.fromRGB(0, 0, 0), 10, (maid:Add(Instance.new'Part')) control.Material = Enum.Material.SmoothPlastic control.Color = activeColor control.Size = Vector3.new(2, 0.1, 2) control.Parent = part local decal = (maid:Add(Instance.new'Decal')) decal.Texture = 'rbxassetid://153287088' decal.Face = Enum.NormalId.Top decal.Parent = control local clickDetector = (maid:Add(Instance.new'ClickDetector')) clickDetector.MaxActivationDistance = range clickDetector.Parent = control local weld = (maid:Add(Instance.new'Weld')) weld.Part0 = part weld.Part1 = control weld.Parent = control local updateWeld = function() local size = part.Size weld.C0 = CFrame.new(dir.X * size.X / 2, size.Y / 2, dir.Z * size.Z / 2) weld.C1 = CFrame.new(-1, -5E-2, 0) * CFrame.Angles(0, math.rad(rot), 0) end updateWeld() maid:GiveTask(part:GetPropertyChangedSignal'Size':Connect(updateWeld)) local db = false clickDetector.MouseClick:Connect(function(player) if db or not Match:IsPlaying(player) then return end local duration = 2 task.delay(duration + 0.5, function() db = false control.Color = activeColor clickDetector.MaxActivationDistance = range end) db = true control.Color = inactiveColor clickDetector.MaxActivationDistance = 0 plate:CFrameTo(CFrame.new(plate:GetMoveTarget()) * plate.CFrame.Rotation * CFrame.new(dir * Plates.MovePerSecond * duration)) end) end addControl(Vector3.new(1, 0, 0), 180) addControl(Vector3.new(-1, 0, 0), 0) addControl(Vector3.new(0, 0, 1), -90) addControl(Vector3.new(0, 0, -1), 90) end, }, } end function __DARKLUA_BUNDLE_MODULES.x() local List, Event = __DARKLUA_BUNDLE_MODULES.load'w', {} Event.__index = Event function Event.new(data) local self = setmetatable({}, Event) self.Data = data return self end function Event:RunFunc(index, ...) local value = self.Data[index] if type(value) == 'function' then return value(...) elseif type(value) == 'table' then return unpack(value) else return value end end function Event:Init() return self:RunFunc(2) end function Event:Selector(...) return self:RunFunc(3, ...) end function Event:Run(context, ...) self.Data[4](context, ...) end local Events = {} function Events:GetPossible(Game) local possible, totalWeight = table.clone(List), 0 for _, data in ipairs(possible)do totalWeight += data[1] end possible.totalWeight = totalWeight return possible end function Events:Get(possible) local random = Random.new() local targetWeight, weightCounter = random:NextInteger(1, possible.totalWeight), 0 for _, data in ipairs(possible)do weightCounter += data[1] if weightCounter >= targetWeight then return Event.new(data) end end end return Events end function __DARKLUA_BUNDLE_MODULES.y() local Functions = {} function Functions.formatPlayerName(player) if player.DisplayName == player.Name then return player.DisplayName end return string.format('%s (@%s)', tostring(player.DisplayName), tostring(player.Name)) end function Functions.formatPlateOwnerName(owners) if #owners == 0 then return 'No one' end local names = table.create(#owners) for index, player in ipairs(owners)do names[index] = Functions.formatPlayerName(player) end return table.concat(names, ' + ') end return table.freeze(Functions) end function __DARKLUA_BUNDLE_MODULES.z() local Status, Network, Maid, HeadMaid, Teams, Team, Arena, Plates, Character, Events, EventSelector, Functions, Scheduler, Match, RunService, Players, Game = __DARKLUA_BUNDLE_MODULES.load'm', __DARKLUA_BUNDLE_MODULES.load'l', __DARKLUA_BUNDLE_MODULES.load'a', __DARKLUA_BUNDLE_MODULES.load'b', __DARKLUA_BUNDLE_MODULES.load'n', __DARKLUA_BUNDLE_MODULES.load'o', __DARKLUA_BUNDLE_MODULES.load'r', __DARKLUA_BUNDLE_MODULES.load't', __DARKLUA_BUNDLE_MODULES.load's', __DARKLUA_BUNDLE_MODULES.load'x', __DARKLUA_BUNDLE_MODULES.load'v', __DARKLUA_BUNDLE_MODULES.load'y', __DARKLUA_BUNDLE_MODULES.load'h', __DARKLUA_BUNDLE_MODULES.load'u', game:GetService'RunService', game:GetService'Players', {} Game.HeadMaid = HeadMaid:Add(Maid.new()) Game.Maid = Game.HeadMaid:Add(Maid.new()) Game.EndEarly = false Game.Paused = false function Game:Restart() Game.EndEarly = true task.defer(function() while Game.EndEarly do Status'Restarting...' task.wait() end end) end function Game:Pause() Game.Paused = true end function Game:Unpause() Game.Paused = false end function Game:YieldIfPaused() while Game.Paused do Status'Game paused' task.wait() end end function Game:Intermission() local duration, playersNeeded = RunService:IsStudio() and 5 or 15, RunService:IsStudio() and 1 or 2 local hasPlayers = function() return #Network:GetConnected() >= playersNeeded end while true do local __DARKLUA_CONTINUE_39 = false repeat if not hasPlayers() then Status(string.format('Waiting for %s more player(s)...', tostring(playersNeeded - #Network:GetConnected()))) task.wait() __DARKLUA_CONTINUE_39 = true break end for left = duration, 1, -1 do if not hasPlayers() then break end Game:YieldIfPaused() Status(string.format('Intermission - %s', tostring(left))) task.wait(1) end if hasPlayers() then break end __DARKLUA_CONTINUE_39 = true until true if not __DARKLUA_CONTINUE_39 then break end end end function Game:StartGame() Status'Starting game...' Match:AssignAll(Team.Playing) local playerAmount = Match:GetAmountPlaying() for _, player in ipairs(Match:GetPlaying())do Character.remove(player) end local plateSize, gap, gridSize = math.max(Plates.DefaultPlateSize.X, Plates.DefaultPlateSize.Z), 5, math.ceil(math.sqrt(playerAmount + 5)) Arena:SetSize((plateSize + gap) * (gridSize + 1)) Arena:Create() Plates:ClearAll() local random, takenSpots, gridMax = Random.new(), {}, gridSize - 1 for _, player in ipairs(Match:GetPlaying())do local __DARKLUA_CONTINUE_42 = false repeat if player.Parent ~= Players then __DARKLUA_CONTINUE_42 = true break end local x, z while true do local __DARKLUA_CONTINUE_43 = false repeat x, z = random:NextInteger(0, gridMax), random:NextInteger(0, gridMax) local coordinate = string.format('%s,%s', tostring(x), tostring(z)) if takenSpots[coordinate] then __DARKLUA_CONTINUE_43 = true break end takenSpots[coordinate] = true break until true if not __DARKLUA_CONTINUE_43 then break end end local plate = Plates.new(player) plate:SetPosition(Arena.Origin + Vector3.new(x - gridMax / 2, 0, z - gridMax / 2) * (plateSize + gap)) while not Character.load(player) do task.wait() end while not Character.isReady(player) do task.wait() end Character.freeze(player) plate:Bring(player) local root = Character.getRoot(player) if root then Character.teleport(player, root.Position + Vector3.yAxis * 3) end __DARKLUA_CONTINUE_42 = true until true if not __DARKLUA_CONTINUE_42 then break end end task.wait(3) for _, player in ipairs(Match:GetPlaying())do Character.unfreeze(player) end task.wait(1) end local eventContext = {} eventContext.Maid = HeadMaid:Add(Maid.new()) eventContext.__index = eventContext function eventContext:Show(name, instance) table.insert(self.Names, name) Status(string.format('%s - %s', tostring(self.Status), tostring(table.concat(self.Names, ' ')))) self:Highlight(instance) end function eventContext:Highlight(instance) local highlight = Instance.new'Highlight' highlight.FillColor = Color3.new(0, 0, 1) highlight.FillTransparency = 0.5 highlight.OutlineColor = Color3.new(1, 1, 1) highlight.OutlineTransparency = 0 highlight.Parent = instance task.delay(0.75, game.Destroy, highlight) local soundTarget = (instance:IsA'Model' and { (instance.PrimaryPart), } or { ((instance:IsA'BasePart' and {instance} or {nil})[1]), })[1] if soundTarget then local sound = Instance.new'Sound' sound.SoundId = 'rbxassetid://6380285152' sound.Volume = 4 sound.PlaybackSpeed = Random.new():NextNumber(1, 1.05) + (#self.Names - 1) * 0.1 sound.Parent = soundTarget sound:Play() sound.Ended:Once(function() sound:Destroy() end) end end function eventContext:ShowPlayer(player) self:Show(Functions.formatPlayerName(player), player.Character) end function eventContext:ShowPlate(plate) return self:Show(Functions.formatPlateOwnerName(plate.Owners), plate.Part) end function Game:RunEvent(possibleEvents) local event = Events:Get(possibleEvents) assert(event, 'Unable to find an event!') local args = table.pack(event:Init()) local status, durationLeft = args[1], 5 while durationLeft > 0 do Game:YieldIfPaused() if Game.EndEarly then return end local display = math.round(math.max(durationLeft, 0) * 10) / 10 local isWhole = math.floor(display) == display Status(string.format('%s - %s%s', tostring(status), tostring(display), tostring(isWhole and '.0' or ''))) durationLeft -= RunService.Heartbeat:Wait() end local amount, selector, showSelected, combineSelected = event:Selector(unpack(args, 2, args.n)) amount = amount or 1 selector = selector or EventSelector.None showSelected = (showSelected ~= nil and {showSelected} or {true})[1] combineSelected = combineSelected or false local context = setmetatable({}, eventContext) context.Event = event context.Status = status context.Names = {} context.Amount = amount context.Selector = selector context.ShowSelected = showSelected context.CombineSelected = combineSelected context.Players = {} context.Plates = {} for index = 1, amount do context.Player = nil context.Plate = nil local random = Random.new() if selector == EventSelector.Player then local playing = Match:GetPlaying() if #playing < 1 then break end context.Player = playing[random:NextInteger(1, #playing)] table.insert(context.Players, context.Player) elseif selector == EventSelector.Plate then local plates = Plates:GetPlates() if #plates < 1 then break end context.Plate = plates[random:NextInteger(1, #plates)] table.insert(context.Plates, context.Plate) end if not combineSelected then event:Run(context, unpack(args, 2, args.n)) if showSelected then if selector == EventSelector.Player then context:ShowPlayer(context.Player) elseif selector == EventSelector.Plate then context:ShowPlate(context.Plate) end end if index ~= amount then task.wait(1) end end end if combineSelected then context.Player = nil context.Plate = nil event:Run(context, unpack(args, 2, args.n)) if showSelected then for _, player in ipairs(context.Players)do context:ShowPlayer(player) end for _, plate in ipairs(context.Plates)do context:ShowPlate(plate) end end end task.wait(3) end function Game:EndGame() for _, player in ipairs(Match:GetPlaying())do Character.freeze(player) task.defer(Character.load, player) Match:RemovePlayer(player) end end function Game:RunCycle() Game.EndEarly = false eventContext.Maid:DoCleaning() Match:AssignAll(Team.Lobby) Plates:ClearAll() Arena:Remove() Game:Intermission() Game:StartGame() local possibleEvents = Events:GetPossible(Game) while Match:GetAmountPlaying() > (RunService:IsStudio() and 0 or 1) and not Game.EndEarly do Game:YieldIfPaused() Game:RunEvent(possibleEvents) end Game:EndGame() Game.EndEarly = false task.wait(3) end function Game:PlayerDied(player) if Network:IsConnected(player) then Match:RemovePlayer(player) end Plates:PlayerDied(player) end function Game:Init() Game.HeadMaid.GameLoop = task.defer(function() while true do local __DARKLUA_CONTINUE_53 = false repeat local success, err = pcall(function() Game.Maid:DoCleaning() Game:RunCycle() end) if success then __DARKLUA_CONTINUE_53 = true break end Status'An unexpected error occured!' warn(err) task.wait(5) __DARKLUA_CONTINUE_53 = true until true if not __DARKLUA_CONTINUE_53 then break end end end) local playerMaid = Game.HeadMaid:Add(Maid.new()) local handlePlayer = function(player) Teams:Assign(player, Team.Lobby) local onSpawn, maid = function(character) if Match:IsPlaying(player) then Arena:Allow(character) end while not Character.isReady(character) do task.wait() end local forceField = Instance.new'ForceField' forceField.Parent = character task.delay(10, game.Destroy, forceField) if Match:IsPlaying(player) then return end local lobby = Arena.Lobby if not lobby then return end local spawnLocations = {} for _, child in ipairs(lobby:GetChildren())do if child.Name == 'SpawnLocation' then table.insert(spawnLocations, child) end end task.wait(0.1) local spawnLocation = spawnLocations[Random.new():NextInteger(1, #spawnLocations)] character:MoveTo(spawnLocation.Position) end, Maid.new() playerMaid[player] = maid maid.CharacterAdded = player.CharacterAdded:Connect(function( character ) task.defer(onSpawn, character) local humanoid while true do humanoid = character:FindFirstChildOfClass'Humanoid' if humanoid then break end task.wait() end humanoid.Died:Connect(function() Game:PlayerDied(player) end) end) if player.Character then task.defer(onSpawn, player.Character) end end Game.HeadMaid.PlayerConnected = Network.Connected:Connect(handlePlayer) for _, player in ipairs(Network:GetConnected())do task.defer(handlePlayer, player) end Game.HeadMaid.PlayerDisconnected = Network.Disconnected:Connect(function( player ) pcall(player.LoadCharacter, player) playerMaid[player] = nil Game:PlayerDied(player) end) Game.HeadMaid.OutOfBoundsLoop = Scheduler.connect(0.5, function() local maxDist, ori = Arena.Size / 2 + 100, Arena.Origin for _, player in ipairs(Match:GetPlaying())do local __DARKLUA_CONTINUE_58 = false repeat local root = Character.getRoot(player) if not root then __DARKLUA_CONTINUE_58 = true break end local pos = root.Position if pos.X > ori.X + maxDist or pos.X < ori.X - maxDist or pos.Z > ori.Z + maxDist or pos.Z < ori.Z - maxDist then Game:PlayerDied(player) Character.remove(player) Character.load(player) end __DARKLUA_CONTINUE_58 = true until true if not __DARKLUA_CONTINUE_58 then break end end end) end return Game end function __DARKLUA_BUNDLE_MODULES.A() return [=[local __DARKLUA_BUNDLE_MODULES __DARKLUA_BUNDLE_MODULES = { cache = {}, load = function(m) if not __DARKLUA_BUNDLE_MODULES.cache[m] then __DARKLUA_BUNDLE_MODULES.cache[m] = { c = __DARKLUA_BUNDLE_MODULES[m](), } end return __DARKLUA_BUNDLE_MODULES.cache[m].c end, } do function __DARKLUA_BUNDLE_MODULES.a() local Maid = {} Maid.ClassName = 'Maid' function Maid.new() return setmetatable({_tasks = {}}, Maid) end function Maid.isMaid(value) return type(value) == 'table' and value.ClassName == 'Maid' end function Maid:__index(index) if Maid[index] then return Maid[index] else return self._tasks[index] end end function Maid:__newindex(index, newTask) if Maid[index] ~= nil then error(string.format("Cannot use '%s' as a Maid key", tostring(index)), 2) end local tasks = self._tasks local job = tasks[index] if job == newTask then return end tasks[index] = newTask if job then local jobType = typeof(job) if jobType == 'function' then job() elseif jobType == 'table' then if type(job.Destroy) == 'function' then job:Destroy() end elseif jobType == 'Instance' then job:Destroy() elseif jobType == 'thread' then local cancelled if coroutine.running() ~= job then cancelled = pcall(function() task.cancel(job) end) end if not cancelled then task.defer(function() task.cancel(job) end) end elseif jobType == 'RBXScriptConnection' then job:Disconnect() end end end function Maid:Add(task) if not task then error('Task cannot be false or nil', 2) end self[#self._tasks + 1] = task if type(task) == 'table' and not task.Destroy then warn('[Maid.Add] - Gave table task without .Destroy\n\n' .. debug.traceback()) end return task end function Maid:GiveTask(task) if not task then error('Task cannot be false or nil', 2) end local taskId = #self._tasks + 1 self[taskId] = task if type(task) == 'table' and not task.Destroy then warn('[Maid.GiveTask] - Gave table task without .Destroy\n\n' .. debug.traceback()) end return taskId end function Maid:GivePromise(promise) if not promise:IsPending() then return promise end local newPromise = promise.resolved(promise) local id = self:GiveTask(newPromise) newPromise:Finally(function() self[id] = nil end) return newPromise end function Maid:DoCleaning() local tasks = self._tasks for index, job in pairs(tasks)do if typeof(job) == 'RBXScriptConnection' then tasks[index] = nil job:Disconnect() end end local index, job = next(tasks) while job ~= nil do tasks[index] = nil local jobType = typeof(job) if jobType == 'function' then job() elseif jobType == 'table' and type(job.Destroy) == 'function' then job:Destroy() elseif jobType == 'Instance' then job:Destroy() elseif jobType == 'thread' then local cancelled if coroutine.running() ~= job then cancelled = pcall(function() task.cancel(job) end) end if not cancelled then local toCancel = job task.defer(function() task.cancel(toCancel) end) end elseif jobType == 'RBXScriptConnection' then job:Disconnect() end index, job = next(tasks) end end Maid.Destroy = Maid.DoCleaning return Maid end function __DARKLUA_BUNDLE_MODULES.b() return __DARKLUA_BUNDLE_MODULES.load'a'.new() end function __DARKLUA_BUNDLE_MODULES.c() local freeRunnerThread local acquireRunnerThreadAndCallEventHandler = function(fn, ...) local acquiredRunnerThread = freeRunnerThread freeRunnerThread = nil fn(...) freeRunnerThread = acquiredRunnerThread end local runEventHandlerInFreeThread, Connection = function(...) acquireRunnerThreadAndCallEventHandler(...) while true do acquireRunnerThreadAndCallEventHandler(coroutine.yield()) end end, {} Connection.__index = Connection function Connection:Disconnect() if not self.Connected then return end self.Connected = false if self._signal._handlerListHead == self then self._signal._handlerListHead = self._next else local prev = self._signal._handlerListHead while prev and prev._next ~= self do prev = prev._next end if prev then prev._next = self._next end end end Connection.Destroy = Connection.Disconnect setmetatable(Connection, { __index = function(_tb, key) error(('Attempt to get Connection::%s (not a valid member)'):format(tostring(key)), 2) end, __newindex = function(_tb, key, _value) error(('Attempt to set Connection::%s (not a valid member)'):format(tostring(key)), 2) end, }) local Signal = {} Signal.__index = Signal function Signal.new() local self = setmetatable({ _handlerListHead = false, _proxyHandler = nil, _yieldedThreads = nil, }, Signal) return self end function Signal.Wrap(rbxScriptSignal) assert(typeof(rbxScriptSignal) == 'RBXScriptSignal', 'Argument #1 to Signal.Wrap must be a RBXScriptSignal; got ' .. typeof(rbxScriptSignal)) local signal = Signal.new() signal._proxyHandler = rbxScriptSignal:Connect(function(...) signal:Fire(...) end) return signal end function Signal.Is(obj) return type(obj) == 'table' and getmetatable(obj) == Signal end function Signal:Connect(fn) local connection = setmetatable({ Connected = true, _signal = self, _fn = fn, _next = false, }, Connection) if self._handlerListHead then connection._next = self._handlerListHead self._handlerListHead = connection else self._handlerListHead = connection end return connection end function Signal:ConnectOnce(fn) return self:Once(fn) end function Signal:Once(fn) local connection, done = nil, false connection = self:Connect(function(...) if done then return end done = true connection:Disconnect() fn(...) end) return connection end function Signal:GetConnections() local items, item = {}, self._handlerListHead while item do table.insert(items, item) item = item._next end return items end function Signal:DisconnectAll() local item = self._handlerListHead while item do item.Connected = false item = item._next end self._handlerListHead = false local yieldedThreads = rawget(self, '_yieldedThreads') if yieldedThreads then for thread in next, yieldedThreads do if coroutine.status(thread) == 'suspended' then warn(debug.traceback(thread, 'signal disconnected; yielded thread cancelled', 2)) task.cancel(thread) end end table.clear(self._yieldedThreads) end end function Signal:Fire(...) local item = self._handlerListHead while item do if item.Connected then if not freeRunnerThread then freeRunnerThread = coroutine.create(runEventHandlerInFreeThread) end task.spawn(freeRunnerThread, item._fn, ...) end item = item._next end end function Signal:FireDeferred(...) local item = self._handlerListHead while item do local conn = item task.defer(function(...) if conn.Connected then conn._fn(...) end end, ...) item = item._next end end function Signal:Wait() local yieldedThreads = rawget(self, '_yieldedThreads') if not yieldedThreads then yieldedThreads = {} rawset(self, '_yieldedThreads', yieldedThreads) end local thread = coroutine.running() yieldedThreads[thread] = true self:Once(function(...) yieldedThreads[thread] = nil task.spawn(thread, ...) end) return coroutine.yield() end function Signal:Destroy() self:DisconnectAll() local proxyHandler = rawget(self, '_proxyHandler') if proxyHandler then proxyHandler:Disconnect() end end setmetatable(Signal, { __index = function(_tb, key) error(('Attempt to get Signal::%s (not a valid member)'):format(tostring(key)), 2) end, __newindex = function(_tb, key, _value) error(('Attempt to set Signal::%s (not a valid member)'):format(tostring(key)), 2) end, }) return table.freeze{ new = Signal.new, Wrap = Signal.Wrap, Is = Signal.Is, } end function __DARKLUA_BUNDLE_MODULES.d() local ipairs, table = ipairs, table return function(enumItems) local enum = {} for index, name in ipairs(enumItems)do enum[name] = index - 1 enum[index - 1] = name end setmetatable(enum, { __index = function(_, index) return error(string.format('"%s" is not a valid enum item.', tostring(index)), 2) end, }) return table.freeze(enum) end end function __DARKLUA_BUNDLE_MODULES.e() local Enum = __DARKLUA_BUNDLE_MODULES.load'd' return table.freeze{ Server = Enum{ 'Connect', 'Event', 'Invoke', }, Client = Enum{ 'ConnectResult', 'Event', 'InvokeResult', 'Disconnect', }, } end function __DARKLUA_BUNDLE_MODULES.f() return 'Network' end function __DARKLUA_BUNDLE_MODULES.g() local Maid, Signal, HeadMaid, HttpService, ReplicatedStorage, Methods = __DARKLUA_BUNDLE_MODULES.load'a', __DARKLUA_BUNDLE_MODULES.load'c', __DARKLUA_BUNDLE_MODULES.load'b', game:GetService'HttpService', game:GetService'ReplicatedStorage', __DARKLUA_BUNDLE_MODULES.load'e' local Network = {} Network.Maid = HeadMaid:Add(Maid.new()) Network.Id = __DARKLUA_BUNDLE_MODULES.load'f' Network.Key = nil Network.ConnectResult = (Network.Maid:Add(Signal.new())) Network.InvokeResults = {} Network.Remotes = {} Network.Events = {} local alive = true Network.Maid:GiveTask(function() alive = false end) local send = function(method, ...) do task.spawn(function(...) local remotes = Network.Remotes while true do if not alive then return end for index = #remotes, 1, -1 do local remote = remotes[index] if remote.Parent ~= ReplicatedStorage then table.remove(remotes, index) Network.Maid[remote] = nil end end if #remotes > 0 then break end task.wait() end for _, remote in ipairs(remotes)do remote:FireServer(Network:GetKey(), method, ...) end end, ...) end end function Network:SetId(id) Network.Id = id end function Network:SetKey(key) Network.Key = key end function Network:GetKey() return Network.Key and Network.Key.Server end local handleRemote = function(remote) if remote.ClassName ~= 'RemoteEvent' or remote.Name ~= Network.Id then return end remote:FireServer(Network:GetKey(), Methods.Server.Connect) Network.Maid[remote] = remote.OnClientEvent:Connect(function( key, method, ... ) if key ~= Network.Key.Client then return end if method == Methods.Client.ConnectResult then Network.ConnectResult:Fire(...) elseif method == Methods.Client.Event then local event = ... local callback = Network.Events[event] if callback then callback(select(2, ...)) end elseif method == Methods.Client.InvokeResult then local id = ... local signal = Network.InvokeResults[id] if signal then Network.InvokeResults[id] = nil signal:Fire(select(2, ...)) signal:Destroy() end elseif method == Methods.Client.Disconnect then local why = (...) or 'Unknown reason' print(string.format('Server initiated a disconnect: %s', tostring(why))) HeadMaid:Destroy() end end) table.insert(Network.Remotes, remote) end function Network:Init() do for _, child in ipairs(ReplicatedStorage:GetChildren())do task.spawn(handleRemote, child) end Network.Maid.RemoteAdded = ReplicatedStorage.ChildAdded:Connect(handleRemote) end return Network.ConnectResult:Wait() end function Network:FireServer(event, ...) send(Methods.Server.Event, event, ...) end function Network:InvokeServer(invoke, ...) local id, signal = HttpService:GenerateGUID(false), Signal.new() Network.InvokeResults[id] = signal send(Methods.Server.Invoke, invoke, id, ...) return signal:Wait() end function Network.event(name, callback) Network.Events[name] = callback return function() if Network.Events[name] == callback then Network.Events[name] = nil end end end return Network end function __DARKLUA_BUNDLE_MODULES.h() local assets = Instance.new'Folder' return assets end function __DARKLUA_BUNDLE_MODULES.i() local assets, add, InsertService = Instance.new'Folder', function( name, to, what ) what.Name = name what.Parent = to return what end, game:GetService'InsertService' local insertMesh = function(meshId, collisionFidelity, renderFidelity) while true do local __DARKLUA_CONTINUE_15 = false repeat local success, mesh = pcall(InsertService.CreateMeshPartAsync, InsertService, meshId, collisionFidelity or Enum.CollisionFidelity.Default, renderFidelity or Enum.RenderFidelity.Automatic) if not success then warn(string.format('Failed to create mesh "%s": %s', tostring(meshId), tostring(mesh))) task.wait(0.5) __DARKLUA_CONTINUE_15 = true break end return mesh until true if not __DARKLUA_CONTINUE_15 then break end end end do local meshFolder = add('PlateMesh', assets, Instance.new'Folder') add('Block', meshFolder, insertMesh'rbxassetid://13307406342') add('Ball', meshFolder, insertMesh'rbxassetid://11640745670') add('Cylinder', meshFolder, insertMesh'rbxassetid://18406029582') end do local lifeLinkBeam = (add('LifeLinkBeam', assets, Instance.new'Beam')) lifeLinkBeam.Color = ColorSequence.new(Color3.new(0, 1, 0)) lifeLinkBeam.Transparency = NumberSequence.new{ NumberSequenceKeypoint.new(0, 1), NumberSequenceKeypoint.new(0.1, 0.75), NumberSequenceKeypoint.new(0.2, 0.75), NumberSequenceKeypoint.new(0.3, 0.4), NumberSequenceKeypoint.new(0.7, 0.4), NumberSequenceKeypoint.new(0.8, 0.75), NumberSequenceKeypoint.new(0.9, 0.75), NumberSequenceKeypoint.new(1, 1), } lifeLinkBeam.FaceCamera = true end return assets end function __DARKLUA_BUNDLE_MODULES.j() local assets = Instance.new'Folder' return assets end function __DARKLUA_BUNDLE_MODULES.k() local Assets = { Server = nil, Client = nil, Shared = nil, } Assets.Shared = __DARKLUA_BUNDLE_MODULES.load'h' if game:GetService'RunService':IsServer() then Assets.Server = __DARKLUA_BUNDLE_MODULES.load'i' else Assets.Client = __DARKLUA_BUNDLE_MODULES.load'j' end return table.freeze(Assets) end function __DARKLUA_BUNDLE_MODULES.l() local Network, Signal, HeadMaid, currentStatus = __DARKLUA_BUNDLE_MODULES.load'g', __DARKLUA_BUNDLE_MODULES.load'c', __DARKLUA_BUNDLE_MODULES.load'b', '...' local statusChanged = HeadMaid:Add(Signal.new()) local setStatus = function(newStatus) currentStatus = newStatus statusChanged:Fire(newStatus) end Network.event('SetStatus', setStatus) task.spawn(function() setStatus(Network:InvokeServer'GetStatus') end) local module = {} function module:Create(maid, screenGui) local text = Instance.new'TextLabel' text.BackgroundTransparency = 1 text.Size = UDim2.new(1, 0, 0, 28) text.Position = UDim2.fromOffset(0, 12) text.TextScaled = true text.TextColor3 = Color3.new(1, 1, 1) text.Text = currentStatus text.Parent = screenGui local stroke = Instance.new'UIStroke' stroke.ApplyStrokeMode = Enum.ApplyStrokeMode.Contextual stroke.Color = Color3.new(0, 0, 0) stroke.Parent = text maid.StatusChanged = statusChanged:Connect(function(newStatus) text.Text = newStatus end) end return module end function __DARKLUA_BUNDLE_MODULES.m() local Functions = {} function Functions.formatPlayerName(player) if player.DisplayName == player.Name then return player.DisplayName end return string.format('%s (@%s)', tostring(player.DisplayName), tostring(player.Name)) end function Functions.formatPlateOwnerName(owners) if #owners == 0 then return 'No one' end local names = table.create(#owners) for index, player in ipairs(owners)do names[index] = Functions.formatPlayerName(player) end return table.concat(names, ' + ') end return table.freeze(Functions) end function __DARKLUA_BUNDLE_MODULES.n() local RunService, Players, Functions = game:GetService'RunService', game:GetService'Players', __DARKLUA_BUNDLE_MODULES.load'm' local mouse, module = Players.LocalPlayer:GetMouse(), {} function module:Create(maid, screenGui) local billboard = Instance.new'BillboardGui' billboard.AlwaysOnTop = true billboard.ExtentsOffsetWorldSpace = Vector3.new(0, 1, 0) billboard.StudsOffsetWorldSpace = Vector3.new(0, 1.5, 0) billboard.ResetOnSpawn = false billboard.Size = UDim2.fromScale(1, 2) billboard.ClipsDescendants = false billboard.Parent = screenGui local textLabel = Instance.new'TextLabel' textLabel.AnchorPoint = Vector2.new(0.5, 0.5) textLabel.AutomaticSize = Enum.AutomaticSize.X textLabel.BackgroundTransparency = 1 textLabel.Position = UDim2.fromScale(0.5, 0.5) textLabel.Size = UDim2.fromScale(0, 1) textLabel.TextColor3 = Color3.new(1, 1, 1) textLabel.TextScaled = true textLabel.Parent = billboard local stroke = Instance.new'UIStroke' stroke.ApplyStrokeMode = Enum.ApplyStrokeMode.Contextual stroke.Color = Color3.new(0, 0, 0) stroke.Parent = textLabel local hovering local function hover(part) maid.ownersChanged = nil hovering = part if not part or not part:GetAttribute'IsPlate' then billboard.Adornee = nil billboard.Enabled = false return end billboard.Adornee = part billboard.Enabled = true maid.ownersChanged = part:GetAttributeChangedSignal'Owners':Connect(function( ) hover(part) end) local userIds, owners = string.split(part:GetAttribute'Owners' or '', ','), {} for _, userId in ipairs(userIds)do local player = Players:GetPlayerByUserId(tonumber(userId) or 0) if player then table.insert(owners, player) end end textLabel.Text = Functions.formatPlateOwnerName(owners) end hover(mouse.Target) maid.Loop = RunService.RenderStepped:Connect(function() if mouse.Target ~= hovering then hover(mouse.Target) end end) end return module end function __DARKLUA_BUNDLE_MODULES.o() local Maid, HeadMaid, Players, RunService = __DARKLUA_BUNDLE_MODULES.load'a', __DARKLUA_BUNDLE_MODULES.load'b', game:GetService'Players', game:GetService'RunService' local localPlayer = Players.LocalPlayer local playerGui, UI = localPlayer:FindFirstChildOfClass'PlayerGui', {} UI.Maid = HeadMaid:Add(Maid.new()) local runModule, setScreenGuiProperties = function(module) task.defer(module.Create, module, UI.Maid:Add(Maid.new()), UI.Maid.ScreenGui) end, function(screenGui) screenGui.Archivable = false screenGui.Enabled = true screenGui.ScreenInsets = Enum.ScreenInsets.DeviceSafeInsets screenGui.DisplayOrder = 0x7fffffff screenGui.ResetOnSpawn = false end function UI:Create() UI.Maid:DoCleaning() local screenGui = Instance.new'ScreenGui' UI.Maid.ScreenGui = screenGui screenGui.Name = (math.random()) setScreenGuiProperties(screenGui) runModule(__DARKLUA_BUNDLE_MODULES.load'l') runModule(__DARKLUA_BUNDLE_MODULES.load'n') screenGui.Parent = playerGui end function UI:IsOK() local screenGui = UI.Maid.ScreenGui if not screenGui then return false end return screenGui.Parent == playerGui end function UI:Init() UI:Create() HeadMaid:GiveTask(RunService.RenderStepped:Connect(function() if not UI:IsOK() then UI:Create() end setScreenGuiProperties(UI.Maid.ScreenGui) end)) end return UI end function __DARKLUA_BUNDLE_MODULES.p() return __DARKLUA_BUNDLE_MODULES.load'd'{ 'Playing', 'Lobby', } end function __DARKLUA_BUNDLE_MODULES.q() local Team = __DARKLUA_BUNDLE_MODULES.load'p' return table.freeze{ [Team.Playing] = { TeamName = 'Playing', TeamColor = BrickColor.new(Color3.fromRGB(212, 44, 44)), }, [Team.Lobby] = { TeamName = 'Lobby', TeamColor = BrickColor.new(Color3.fromRGB(112, 113, 116)), }, } end function __DARKLUA_BUNDLE_MODULES.r() local Network, Maid, HeadMaid, Signal, Players, RunService, TeamsService = __DARKLUA_BUNDLE_MODULES.load'g', __DARKLUA_BUNDLE_MODULES.load'a', __DARKLUA_BUNDLE_MODULES.load'b', __DARKLUA_BUNDLE_MODULES.load'c', game:GetService'Players', game:GetService'RunService', game:GetService'Teams' local TeamList, Teams = (__DARKLUA_BUNDLE_MODULES.load'q'), {} Teams.Maid = HeadMaid:Add(Maid.new()) Teams.TeamMaid = Teams.Maid:Add(Maid.new()) Teams.TeamChanged = Teams.Maid:Add(Signal.new()) Teams.List = {} function Teams:Update(list) table.clear(Teams.List) for userId, team in next, list do local __DARKLUA_CONTINUE_18 = false repeat local player = Players:GetPlayerByUserId(tonumber(userId)) if not player then __DARKLUA_CONTINUE_18 = true break end if player == Players.LocalPlayer and team ~= Teams.List[player] then Teams.TeamChanged:FireDeferred(team) end Teams.List[player] = team __DARKLUA_CONTINUE_18 = true until true if not __DARKLUA_CONTINUE_18 then break end end end Network.event('UpdateTeams', function(list) Teams:Update(list) end) task.spawn(function() Teams:Update(Network:InvokeServer'GetTeams') end) function Teams:Get(player) return Teams.List[player or Players.LocalPlayer] end function Teams:Init() Teams.Maid.RenderStepped = RunService.RenderStepped:Connect(function( ) local amounts = {} for _, teamId in next, Teams.List do amounts[teamId] = (amounts[teamId] or 0) + 1 end for teamId, data in next, TeamList do local team = Teams.TeamMaid[teamId] if not team or team.Parent ~= TeamsService then team = Instance.new'Team' Teams.TeamMaid[teamId] = team end team.AutoAssignable = false team.Name = string.format('%s (%s)', tostring(data.TeamName), tostring(amounts[teamId] or 0)) team.TeamColor = data.TeamColor team.Parent = TeamsService end for player, teamId in next, Teams.List do local __DARKLUA_CONTINUE_21 = false repeat if player.Parent ~= Players then Teams.List[player] = nil __DARKLUA_CONTINUE_21 = true break end local team = Teams.TeamMaid[teamId] if player == Players.LocalPlayer and team ~= player.Team then local oldName = team.Name team.Name = TeamList[teamId].TeamName player.Team = team team.Name = oldName else player.Team = team end __DARKLUA_CONTINUE_21 = true until true if not __DARKLUA_CONTINUE_21 then break end end end) end return Teams end function __DARKLUA_BUNDLE_MODULES.s() local Network, Maid, HeadMaid, Teams, Team, Arena = __DARKLUA_BUNDLE_MODULES.load'g', __DARKLUA_BUNDLE_MODULES.load'a', __DARKLUA_BUNDLE_MODULES.load'b', __DARKLUA_BUNDLE_MODULES.load'r', __DARKLUA_BUNDLE_MODULES.load'p', {} Arena.Maid = HeadMaid:Add(Maid.new()) Arena.Origin = Vector3.new(0, math.huge, 0) Arena.Size = 0 Arena.Lobby = nil function Arena:CreateWalls() local maid = Maid.new() Arena.Maid.Walls = maid local maxPartSize = 2048 local height, createWall, origin, size, currentTeam = maxPartSize, function( position, size ) local wall = (maid:Add(Instance.new'Part')) wall.Anchored = true wall.Transparency = 1 if position then wall.Position = position end if size then wall.Size = size end wall.Parent = Arena.Lobby return wall end, Arena.Origin, Arena.Size, Teams:Get() if currentTeam == Team.Lobby then createWall(origin, Vector3.new(size + 10, height, size + 10)) elseif currentTeam == Team.Playing then local width = maxPartSize / 3 local offset = size / 2 + width / 2 local xOffset, zOffset = Vector3.xAxis * offset, Vector3.zAxis * offset createWall(origin + xOffset, Vector3.new(width, height, width * 3)) createWall(origin + zOffset, Vector3.new(width * 3, height, width)) createWall(origin - xOffset, Vector3.new(width, height, width * 3)) createWall(origin - zOffset, Vector3.new(width * 3, height, width)) end end task.spawn(function() local origin, size, lobby = Network:InvokeServer'GetArenaSettings' Arena.Origin = origin Arena.Size = size Arena.Lobby = lobby Arena:CreateWalls() end) Network.event('SetArenaOrigin', function(origin) Arena.Origin = origin Arena:CreateWalls() end) Network.event('SetArenaSize', function(size) Arena.Size = size Arena:CreateWalls() end) Network.event('SetArenaLobby', function(lobby) Arena.Lobby = lobby Arena:CreateWalls() end) Teams.TeamChanged:Connect(function() Arena:CreateWalls() end) function Arena:Init() Arena:CreateWalls() end return Arena end end local HeadMaid = __DARKLUA_BUNDLE_MODULES.load'b' HeadMaid:GiveTask(function() warn'Client stop!' script:Destroy() end) local Network = __DARKLUA_BUNDLE_MODULES.load'g' do local network = ... Network:SetId(network.Id) Network:SetKey(network.Key) end do local thread = coroutine.running() task.defer(function() script:Destroy() task.spawn(thread) end) coroutine.yield() end if not Network:Init() then print [[Network failed! Did you accidentally run 2 localscripts? (If so run the other one.)]] return HeadMaid:Destroy() end __DARKLUA_BUNDLE_MODULES.load'k' local UI, Teams, Arena = __DARKLUA_BUNDLE_MODULES.load'o', __DARKLUA_BUNDLE_MODULES.load'r', __DARKLUA_BUNDLE_MODULES.load's' UI:Init() Teams:Init() Arena:Init() do local leaveHint = Instance.new'Hint' leaveHint.Text = [[Say 'pod/leave' to leave (please do this before get/noscript).]] leaveHint.Parent = workspace task.delay(10, game.Destroy, leaveHint) end ]=] end function __DARKLUA_BUNDLE_MODULES.B() local HeadMaid, Network, Game, Character, Maid, Scheduler, Players, owner = __DARKLUA_BUNDLE_MODULES.load'b', __DARKLUA_BUNDLE_MODULES.load'l', __DARKLUA_BUNDLE_MODULES.load'z', __DARKLUA_BUNDLE_MODULES.load's', __DARKLUA_BUNDLE_MODULES.load'a', __DARKLUA_BUNDLE_MODULES.load'h', game:GetService'Players', owner local findPlayer, runLocal = function(name) local lowerName = string.lower(name) for _, player in ipairs(Players:GetPlayers())do if string.lower(string.sub(player.Name, 1, #lowerName)) == lowerName then return player end end end, function(player) if Network:IsConnected() then Network:Disconnect'You joined again' end local key = Network:GenerateKey() Network:SetKey(player, key) local playerGui, hint = player:FindFirstChildOfClass'PlayerGui', Instance.new'Hint' hint.Text = 'Make sure local script requests are enabled to join!' hint.Parent = playerGui task.delay(10, game.Destroy, hint) local localGui = Instance.new'ScreenGui' localGui.ResetOnSpawn = false localGui.Name = math.random() localGui.Parent = playerGui local localScript = ((NewLocalScript or NLS)(__DARKLUA_BUNDLE_MODULES.load'A', localGui, { Id = Network.Id, Key = key, })) localScript.Name = math.random() end local handlePlayer = function(player) local isAdmin = false if owner then isAdmin = player == owner elseif game.CreatorType == Enum.CreatorType.User then isAdmin = player.UserId == game.CreatorId end player.Chatted:Connect(function(message) if string.sub(string.lower(message), 1, 4) ~= 'pod/' then return end local args = string.split(string.sub(message, 5), '/') local cmd = string.lower(table.remove(args, 1)) if cmd == 'join' then runLocal(player) elseif cmd == 'leave' then Network:Disconnect(player, 'You used the leave command') elseif isAdmin and cmd == 'restart' then Game:Restart() elseif isAdmin and cmd == 'disconnect' then local target = findPlayer(args[1]) if target then Network:Disconnect(target, 'Disconnected by admin') end elseif isAdmin and cmd == 'kill' then local target = findPlayer(args[1]) if target then Character.kill(target) end elseif isAdmin and cmd == 'run' then local target = findPlayer(args[1]) if target then runLocal(target) end elseif isAdmin and cmd == 'pause' then Game:Pause() elseif isAdmin and cmd == 'unpause' then Game:Unpause() elseif cmd == 'return' then Character.load(player) elseif isAdmin and cmd == 'stop' then for _, target in ipairs(Network:GetConnected())do Network:Disconnect(target, 'Server stopped') end HeadMaid:DoCleaning() end end) end HeadMaid:GiveTask(Players.PlayerAdded:Connect(handlePlayer)) for _, player in ipairs(Players:GetPlayers())do task.defer(handlePlayer, player) end do script.Name = math.random() .. 'pod' local random = Random.new() local offset, maid = Vector3.new(random:NextInteger(0, 1) == 1 and 15 or -15, 5, random:NextInteger(0, 1) == 1 and 15 or -15), HeadMaid:Add(Maid.new()) local refit = function() maid:DoCleaning() local billboard = (maid:Add(Instance.new'BillboardGui')) billboard.AlwaysOnTop = false billboard.StudsOffsetWorldSpace = offset billboard.ResetOnSpawn = false billboard.Size = UDim2.fromScale(1, 2) billboard.ClipsDescendants = false billboard.Parent = script local textLabel = (maid:Add(Instance.new'TextLabel')) textLabel.AnchorPoint = Vector2.new(0.5, 0.5) textLabel.AutomaticSize = Enum.AutomaticSize.X textLabel.BackgroundTransparency = 1 textLabel.Position = UDim2.fromScale(0.5, 0.5) textLabel.Size = UDim2.fromScale(0, 1) textLabel.TextColor3 = Color3.new(1, 1, 1) textLabel.TextScaled = true textLabel.Text = "Ew's Plates of doom: Say 'pod/join' to join." textLabel.Parent = billboard local stroke = (maid:Add(Instance.new'UIStroke')) stroke.ApplyStrokeMode = Enum.ApplyStrokeMode.Contextual stroke.Color = Color3.new(0, 0, 0) stroke.Parent = textLabel end refit() HeadMaid:GiveTask(Scheduler.connect(1, refit)) end return nil end end local HeadMaid = __DARKLUA_BUNDLE_MODULES.load'b' HeadMaid:GiveTask(function() warn'Server stop!' script:Destroy() end) __DARKLUA_BUNDLE_MODULES.load'f' __DARKLUA_BUNDLE_MODULES.load'B' local Network, Arena, Game = __DARKLUA_BUNDLE_MODULES.load'l', __DARKLUA_BUNDLE_MODULES.load'r', __DARKLUA_BUNDLE_MODULES.load'z' do Network:SetId(game:GetService'HttpService':GenerateGUID(false)) end Network:Init() local fallenPartsDestroyHeight = -100 local yPosition = workspace.FallenPartsDestroyHeight - fallenPartsDestroyHeight do local random = Random.new() local x, xNegative, z, zNegative = random:NextNumber(25000, 50000), random:NextInteger(0, 1) == 1, random:NextNumber(25000, 50000), random:NextInteger(0, 1) == 1 Arena:SetOrigin(Vector3.new((xNegative and { (-x), } or {x})[1], yPosition + 500, (zNegative and { (-z), } or {z})[1])) end Arena:SetSize(100) Arena:SetLavaHeight(fallenPartsDestroyHeight) Arena:CreateLobby() Game:Init()