Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --leaked <3 froast
- --Vain By Vaeb (2014)
- local Plrs = game:GetService("Players")
- local Light = game:GetService("Lighting")
- local DataStore = game:GetService("DataStoreService"):GetDataStore("VainStore8421")
- local Http = game:GetService("HttpService")
- local Content = game:GetService("ContentProvider")
- local Sep = "/"
- local OwnerName = "HAMUMUGtss"
- local BanKey = "Bans8421"
- local isScripting = {}
- local CreatedScripts = {}
- local ChangedChar = {}
- local SLogs = {}
- local CLogs = {}
- local Logs = {}
- local Bans = DataStore:GetAsync(BanKey) or {}
- local LoopK = {}
- local StopCon
- local SafeParts = {
- ["Base"] = true;
- ["HumanoidRootPart"] = true;
- ["Head"] = true;
- ["Torso"] = true;
- ["Left Arm"] = true;
- ["Right Arm"] = true;
- ["Left Leg"] = true;
- ["Right Leg"] = true;
- }
- local Images = {
- ["Logo"] = "http://www.roblox.com/asset/?id=179762505";
- ["LogoS"] = "http://www.roblox.com/asset/?id=179841017";
- ["SmallLogo"] = "http://www.roblox.com/asset/?id=179799450";
- ["Close1"] = "http://www.roblox.com/asset/?id=179828100";
- ["Close2"] = "http://www.roblox.com/asset/?id=179828140";
- ["Open"] = "http://www.roblox.com/asset/?id=179832161";
- ["Commands"] = "http://www.roblox.com/asset/?id=179903438";
- ["Output"] = "http://www.roblox.com/asset/?id=180169547";
- ["Options"] = "http://www.roblox.com/asset/?id=179982684";
- ["Up"] = "http://www.roblox.com/asset/?id=179982163";
- ["Mid"] = "http://www.roblox.com/asset/?id=179982171";
- ["Down"] = "http://www.roblox.com/asset/?id=179982178";
- ["ExeRound"] = "http://www.roblox.com/asset/?id=180024448";
- ["ExeSquare1"] = "http://www.roblox.com/asset/?id=180030137";
- ["ExeSquare2"] = "http://www.roblox.com/asset/?id=180037395";
- }
- local GuiColors = {
- BrickColor.new("Bright violet").Color;
- BrickColor.new("Camo").Color;
- BrickColor.new("Deep blue").Color;
- BrickColor.new("Brown").Color;
- }
- for i,v in pairs(Images) do
- Content:Preload(v)
- wait(1/30)
- end
- function Cor(Func)
- local Ok, Err = coroutine.resume(coroutine.create(Func))
- if not Ok then
- print(Err)
- end
- end
- function getP()
- local AllPlayers = {}
- for _,v in pairs(Plrs:GetPlayers()) do
- table.insert(AllPlayers, v)
- end
- return AllPlayers
- end
- function getBanned()
- if Bans and #Bans > 0 then
- return Bans
- else
- return {}
- end
- end
- function GetTimeDist(OldTick, NewTick)
- local TimeType = nil
- local Symbol = ""
- local Seconds = tonumber(NewTick) - tonumber(OldTick)
- local Minutes = Seconds / 60
- local Hour = Minutes / 60
- local Day = Hour / 24
- local Year = Day / 365
- if Seconds < 60 then
- TimeType = math.ceil(Seconds)
- Symbol = "s"
- elseif Minutes < 60 then
- TimeType = math.floor(Minutes)
- Symbol = "m"
- elseif Hour < 24 then
- TimeType = math.floor(Hour)
- Symbol = "h"
- elseif Day < 365 then
- TimeType = math.floor(Day)
- Symbol = "d"
- else
- TimeType = math.floor(Year)
- Symbol = "y"
- end
- return tostring(TimeType) .. Symbol
- end
- function GetTime(Tick)
- Tick = tonumber(Tick)
- local TimeVal = ""
- local Hour = math.floor((Tick % 86400) / 60 / 60)
- local Minutes = math.floor((((Tick % 86400) / 60 / 60) - Hour) * 60)
- if Hour < 10 then
- Hour = "0" .. tostring(Hour)
- else
- Hour = tostring(Hour)
- end
- if Minutes < 10 then
- Minutes = "0" .. tostring(Minutes)
- else
- Minutes = tostring(Minutes)
- end
- return (Hour .. ":" .. Minutes)
- end
- function Main(LPName)
- Cor(function()
- local LP = Plrs[LPName]
- local Commands = {}
- local LastUpdate = 0
- local UpdateFrame
- local Connections = {
- ["ChatCons"] = {};
- ["AntiKillCons"] = {};
- }
- local function Error(ErrorMsg)
- coroutine.resume(coroutine.create(function()
- UpdateFrame({"ERROR: " .. ErrorMsg})
- end))
- end
- local function Cor(Func)
- local Ok, Err = coroutine.resume(coroutine.create(Func))
- if not Ok then
- Error(Err)
- end
- end
- local Start1
- local function Start2(Plr, PlrGui)
- Cor(function()
- for _,v in pairs(PlrGui:GetChildren()) do
- if v.Name == "Vain MainGUI" then
- v:Destroy()
- end
- end
- local SG = Instance.new("ScreenGui")
- SG.Name = "Vain MainGUI"
- SG.Parent = PlrGui
- local Bar1 = Instance.new("Frame")
- Bar1.Name = "Bar1"
- Bar1.Active = false
- Bar1.BackgroundColor3 = Color3.new((170/255), (85/255), (255/255))
- Bar1.BorderColor3 = Color3.new(0, 0, 0)
- Bar1.BorderSizePixel = 0
- Bar1.BackgroundTransparency = 1
- Bar1.Size = UDim2.new(0, 800, 0, 15)
- Bar1.Position = UDim2.new(0.5, -(Bar1.Size.X.Offset / 2), 0.03, 0)
- Bar1.Rotation = 0
- Bar1.Visible = true
- Bar1.Parent = SG
- local Frame1 = Instance.new("Frame")
- Frame1.Name = "Frame1"
- Frame1.Active = false
- Frame1.BackgroundColor3 = Color3.new(0, 0, 0)
- Frame1.BorderColor3 = Color3.new((170/255), (85/255), (255/255))
- Frame1.BorderSizePixel = 1
- Frame1.BackgroundTransparency = 0.5
- Frame1.Size = UDim2.new(0.9, 0, 0, 0)
- Frame1.Position = UDim2.new(0.05, 0, 1, 0)
- Frame1.Rotation = 0
- Frame1.Visible = false
- Frame1.Parent = Bar1
- for i = 1, 0, -0.05 do
- Bar1.BackgroundTransparency = i
- wait(1/30)
- end
- Bar1.BackgroundTransparency = 0
- Frame1.Visible = true
- repeat wait(1/30) until Frame1:IsDescendantOf(game)
- Frame1:TweenSize(UDim2.new(0.9, 0, 34, 0), "Out", "Quad", 0.4, true)
- wait(0.4)
- local Num1 = 45 / 34
- local Logo = Instance.new("ImageLabel")
- Logo.Name = "Logo"
- Logo.Active = false
- Logo.Image = Images["LogoS"]
- Logo.ImageTransparency = 1
- Logo.ImageColor3 = Color3.new(1, 1, 1)
- Logo.BorderColor3 = Color3.new(0, 0, 0)
- Logo.BorderSizePixel = 0
- Logo.BackgroundTransparency = 1
- Logo.Size = UDim2.new(0.75, 0, 0.175, 0)
- Logo.Position = UDim2.new(0.125, 0, 0.005, 0)
- Logo.Rotation = 0
- Logo.Visible = true
- Logo.Parent = Frame1
- local Close = Instance.new("ImageButton")
- Close.Name = "Close"
- Close.Active = true
- Close.AutoButtonColor = false
- Close.Modal = false
- Close.Image = Images["Close1"]
- Close.ImageTransparency = 1
- Close.ImageColor3 = Color3.new(1, 1, 1)
- Close.BorderColor3 = Color3.new(0, 0, 0)
- Close.BorderSizePixel = 0
- Close.BackgroundTransparency = 1
- Close.Size = UDim2.new(0, 65.625, 0, 37.5)
- Close.Position = UDim2.new(0.5, -32.8125, 1, -42)
- Close.Rotation = 0
- Close.Visible = true
- Close.Parent = Frame1
- local Closed = false
- Close.MouseEnter:connect(function()
- Close.Image = Images["Close2"]
- Close.MouseLeave:wait(1/30)
- if Closed == false then
- Close.Image = Images["Close1"]
- end
- end)
- local Bar2 = Instance.new("Frame")
- Bar2.Name = "Bar2"
- Bar2.Active = false
- Bar2.BackgroundColor3 = Color3.new(1, 1, 1)
- Bar2.BorderColor3 = Color3.new(0, 0, 0)
- Bar2.BorderSizePixel = 0
- Bar2.BackgroundTransparency = 1
- Bar2.Size = UDim2.new(1, 0, 0, 2)
- Bar2.Position = UDim2.new(0, 0, (Logo.Position.Y.Scale + Logo.Size.Y.Scale + 0.01), 0)
- Bar2.Rotation = 0
- Bar2.Visible = true
- Bar2.Parent = Frame1
- local Bar3 = Instance.new("Frame")
- Bar3.Name = "Bar3"
- Bar3.Active = false
- Bar3.BackgroundColor3 = Color3.new(1, 1, 1)
- Bar3.BorderColor3 = Color3.new(0, 0, 0)
- Bar3.BorderSizePixel = 0
- Bar3.BackgroundTransparency = 1
- Bar3.Size = UDim2.new(1, 0, 0, 2)
- Bar3.Position = UDim2.new(0, 0, 0.99, -44)
- Bar3.Rotation = 0
- Bar3.Visible = true
- Bar3.Parent = Frame1
- local ComImage1Frame = Instance.new("Frame")
- ComImage1Frame.Name = "ComImage1Frame"
- ComImage1Frame.Active = false
- ComImage1Frame.BackgroundColor3 = Color3.new(1, 1, 1)
- ComImage1Frame.BorderColor3 = Color3.new(0.5, 0.35, 0.275)
- ComImage1Frame.BorderSizePixel = 1
- ComImage1Frame.BackgroundTransparency = 1
- ComImage1Frame.Size = UDim2.new(0.31, 0, 0.05, 0)
- ComImage1Frame.Position = UDim2.new(0.02, 0, 0.21, 0)
- ComImage1Frame.Rotation = 0
- ComImage1Frame.Visible = true
- ComImage1Frame.Parent = Frame1
- local ComImage1 = Instance.new("ImageLabel")
- ComImage1.Name = "ComImage1"
- ComImage1.Active = false
- ComImage1.Image = Images["Commands"]
- ComImage1.ImageTransparency = 1
- ComImage1.ImageColor3 = Color3.new(1, 1, 1)
- ComImage1.BorderColor3 = Color3.new(0, 0, 0)
- ComImage1.BorderSizePixel = 0
- ComImage1.BackgroundTransparency = 1
- ComImage1.Size = UDim2.new(0.2142, 0, 0.05, 0)
- ComImage1.Position = UDim2.new(0.0679, 0, 0.21, 0)
- ComImage1.Rotation = 0
- ComImage1.Visible = true
- ComImage1.Parent = Frame1
- local Scroll1 = Instance.new("ScrollingFrame")
- Scroll1.Name = "Scroll1"
- Scroll1.Size = UDim2.new(0.31, 0, 0.71, -48)
- Scroll1.Position = UDim2.new(0.02, 0, ComImage1.Position.Y.Scale + ComImage1.Size.Y.Scale + 0.01, 0)
- Scroll1.CanvasSize = UDim2.new(Scroll1.Size.X.Scale - 0.01, Scroll1.Size.X.Offset, Scroll1.Size.Y.Scale - 0.01, Scroll1.Size.Y.Offset)
- Scroll1.BackgroundColor3 = Color3.new(0, 0, 0)
- Scroll1.BorderColor3 = Color3.new(1, 1, 1)
- Scroll1.BackgroundTransparency = 1
- Scroll1.BottomImage = Images["Down"]
- Scroll1.MidImage = Images["Mid"]
- Scroll1.TopImage = Images["Up"]
- Scroll1.BorderSizePixel = 1
- Scroll1.Rotation = 0
- Scroll1.Visible = true
- Scroll1.Parent = Frame1
- local ComImage2Frame = Instance.new("Frame")
- ComImage2Frame.Name = "ComImage2Frame"
- ComImage2Frame.Active = false
- ComImage2Frame.BackgroundColor3 = Color3.new(1, 1, 1)
- ComImage2Frame.BorderColor3 = Color3.new(0.5, 0.35, 0.275)
- ComImage2Frame.BorderSizePixel = 1
- ComImage2Frame.BackgroundTransparency = 1
- ComImage2Frame.Size = UDim2.new(0.31, 0, 0.05, 0)
- ComImage2Frame.Position = UDim2.new(0.34, 0, 0.21, 0)
- ComImage2Frame.Rotation = 0
- ComImage2Frame.Visible = true
- ComImage2Frame.Parent = Frame1
- local ComImage2 = Instance.new("ImageLabel")
- ComImage2.Name = "ComImage2"
- ComImage2.Active = false
- ComImage2.Image = Images["Options"]
- ComImage2.ImageTransparency = 1
- ComImage2.ImageColor3 = Color3.new(1, 1, 1)
- ComImage2.BorderColor3 = Color3.new(0, 0, 0)
- ComImage2.BorderSizePixel = 0
- ComImage2.BackgroundTransparency = 1
- ComImage2.Size = UDim2.new(0.2042, 0, 0.05, 0)
- ComImage2.Position = UDim2.new(0.3979, 0, 0.21, 0)
- ComImage2.Rotation = 0
- ComImage2.Visible = true
- ComImage2.Parent = Frame1
- local Scroll2 = Instance.new("ScrollingFrame")
- Scroll2.Name = "Scroll2"
- Scroll2.Size = UDim2.new(0.31, 0, 0.71, -48)
- Scroll2.Position = UDim2.new(0.34, 0, ComImage1.Position.Y.Scale + ComImage1.Size.Y.Scale + 0.01, 0) --Y = 0.27
- Scroll2.CanvasSize = UDim2.new(Scroll2.Size.X.Scale - 0.01, Scroll2.Size.X.Offset, Scroll2.Size.Y.Scale - 0.01, Scroll2.Size.Y.Offset)
- Scroll2.BackgroundColor3 = Color3.new(0, 0, 0)
- Scroll2.BorderColor3 = Color3.new(1, 1, 1)
- Scroll2.BackgroundTransparency = 1
- Scroll2.BottomImage = Images["Down"]
- Scroll2.MidImage = Images["Mid"]
- Scroll2.TopImage = Images["Up"]
- Scroll2.BorderSizePixel = 1
- Scroll2.Rotation = 0
- Scroll2.Visible = true
- Scroll2.Parent = Frame1
- local ComImage3Frame = Instance.new("Frame")
- ComImage3Frame.Name = "ComImage3Frame"
- ComImage3Frame.Active = false
- ComImage3Frame.BackgroundColor3 = Color3.new(1, 1, 1)
- ComImage3Frame.BorderColor3 = Color3.new(0.5, 0.35, 0.275)
- ComImage3Frame.BorderSizePixel = 1
- ComImage3Frame.BackgroundTransparency = 1
- ComImage3Frame.Size = UDim2.new(0.32, 0, 0.05, 0) --0.26 X Size
- ComImage3Frame.Position = UDim2.new(0.66, 0, 0.21, 0) --Start X 0.72 | End X 0.98
- ComImage3Frame.Rotation = 0
- ComImage3Frame.Visible = true
- ComImage3Frame.Parent = Frame1
- local ComImage3 = Instance.new("ImageLabel")
- ComImage3.Name = "ComImage3"
- ComImage3.Active = false
- ComImage3.Image = Images["Output"]
- ComImage3.ImageTransparency = 1
- ComImage3.ImageColor3 = Color3.new(1, 1, 1)
- ComImage3.BorderColor3 = Color3.new(0, 0, 0)
- ComImage3.BorderSizePixel = 0
- ComImage3.BackgroundTransparency = 1
- ComImage3.Size = UDim2.new(0.2642, 0, 0.05, 0)
- ComImage3.Position = UDim2.new(0.6879, 0, 0.21, 0)
- ComImage3.Rotation = 0
- ComImage3.Visible = true
- ComImage3.Parent = Frame1
- local Scroll3 = Instance.new("ScrollingFrame")
- Scroll3.Name = "Scroll3"
- Scroll3.Size = UDim2.new(0.32, 0, 0.561, -48)
- Scroll3.Position = UDim2.new(0.66, 0, ComImage3.Position.Y.Scale + ComImage3.Size.Y.Scale + 0.01, 0) --X Starts 0.66 | X Ends 0.98
- Scroll3.CanvasSize = UDim2.new(Scroll3.Size.X.Scale - 0.01, Scroll3.Size.X.Offset, Scroll3.Size.Y.Scale - 0.01, Scroll3.Size.Y.Offset)
- Scroll3.BackgroundColor3 = Color3.new(0, 0, 0)
- Scroll3.BorderColor3 = Color3.new(1, 1, 1)
- Scroll3.BackgroundTransparency = 1
- Scroll3.BottomImage = Images["Down"]
- Scroll3.MidImage = Images["Mid"]
- Scroll3.TopImage = Images["Up"]
- Scroll3.BorderSizePixel = 1
- Scroll3.Rotation = 0
- Scroll3.Visible = true
- Scroll3.Parent = Frame1
- local ExeButton = Instance.new("ImageButton")
- ExeButton.Name = "ExeButton"
- ExeButton.AutoButtonColor = true
- ExeButton.Image = Images["ExeSquare1"]
- ExeButton.ImageTransparency = 1
- ExeButton.ImageColor3 = Color3.new(1, 1, 1)
- ExeButton.BorderColor3 = Color3.new(0, 0, 0)
- ExeButton.BorderSizePixel = 0
- ExeButton.BackgroundTransparency = 1
- ExeButton.Size = UDim2.new(0.208, 0, 0.224, -48)
- ExeButton.Position = UDim2.new(0.716, 0, 0.756, 0)
- ExeButton.Rotation = 0
- ExeButton.Visible = true
- ExeButton.Parent = Frame1
- UpdateFrame = function(Tab, isScriptName, Wrapped, Size, Start, End, Iter, Color, InstanceType, SizeDif, FontSize)
- LastUpdate = LastUpdate + 1
- local CurrentUpdate = LastUpdate
- Cor(function()
- for _,v in pairs(Scroll3:GetChildren()) do
- v:Destroy()
- end
- if isScriptName == nil then
- isScriptName = false
- end
- if InstanceType == nil then
- InstanceType = "TextButton"
- end
- if FontSize == nil then
- FontSize = "Size14"
- end
- if Wrapped == nil then
- Wrapped = false
- end
- if SizeDif == nil then
- SizeDif = 3
- end
- if Color == nil then
- Color = false
- end
- if Size == nil then
- Size = UDim2.new(0.99, 0, 0, 20)
- end
- if Start == nil then
- Start = #Tab
- end
- if End == nil then
- End = 1
- end
- if Iter == nil then
- Iter = -1
- end
- local DownNum = 0
- local IterNum = 1
- local LastHit = 1
- local DownNum = 3
- for i = Start, End, Iter do
- if CurrentUpdate ~= LastUpdate then
- break
- end
- local NumLines = 1
- local CText
- if type(Tab[i]) == "table" then
- CText = Tab[i].Message
- else
- CText = Tab[i]
- end
- for i2 = 1, #CText - 1 do
- if CText:sub(i2, i2) == [[\]] and CText:sub(i2 + 1, i2 + 1) ==[[n]] then
- CText = CText:sub(1, i2 - 1) .. "\n" .. CText:sub(i2 + 2)
- end
- end
- for i2 = 1, #CText do
- if CText:sub(i2, i2) == "\n" then
- NumLines = NumLines + 1
- end
- end
- local NewSize = UDim2.new(Size.X.Scale, Size.X.Offset, Size.Y.Scale, Size.Y.Offset * NumLines)
- CText = CText:gsub([[/e,"]], "/e ")
- local CText2 = CText
- local isSilent = false
- if CText:sub(1, 3) == "/e " then
- CText2 = CText:sub(4)
- isSilent = true
- end
- if CText2:sub(1, 40) == "setfenv(assert(loadstring(table.concat({" then
- if isSilent then
- CText = "[ SILENT ]\n" .. CText2:sub(44)
- else
- CText = CText:sub(44)
- end
- end
- if CText:sub(#CText - 16, #CText) == "}))),getfenv())()" then
- CText = CText:sub(1, #CText - 20)
- end
- local ChatButton = Instance.new(InstanceType)
- ChatButton.Name = "ChatButton"
- ChatButton.Text = " " .. CText
- ChatButton.TextColor3 = Color3.new(1, 1, 1)
- ChatButton.TextStrokeColor3 = Color3.new(0, 0, 0)
- ChatButton.TextTransparency = 0
- ChatButton.TextStrokeTransparency = 1
- ChatButton.TextWrapped = Wrapped
- ChatButton.TextXAlignment = "Left"
- ChatButton.TextYAlignment = "Top"
- ChatButton.Font = "ArialBold"
- ChatButton.FontSize = FontSize
- ChatButton.BorderColor3 = Color3.new(1, 1, 1)
- ChatButton.BorderSizePixel = 0
- ChatButton.BackgroundColor3 = Color and BrickColor.new("Deep blue").Color or GuiColors[IterNum]
- ChatButton.BackgroundTransparency = 1
- ChatButton.Size = NewSize
- ChatButton.Position = UDim2.new(0, 3, 0, DownNum)
- ChatButton.Rotation = 0
- ChatButton.Visible = true
- ChatButton.Parent = Scroll3
- DownNum = DownNum + NewSize.Y.Offset + SizeDif
- if IterNum == #GuiColors then
- IterNum = 1
- else
- IterNum = IterNum + 1
- end
- local LowestGUIXSize = 0
- local LowestGUIXNum = 0
- local LowestGUIYSize = 0
- local LowestGUIYNum = 0
- local XOffsetNum
- local YOffsetNum
- for _,v in pairs(Scroll3:GetChildren()) do
- if (v:IsA("TextButton") or v:IsA("TextLabel") or v:IsA("TextBox")) and v.Visible == true then
- if v.AbsolutePosition.X > LowestGUIXNum then
- LowestGUIXNum = v.AbsolutePosition.X
- LowestGUIXSize = v.AbsoluteSize.X
- end
- if v.AbsolutePosition.Y > LowestGUIYNum then
- LowestGUIYNum = v.AbsolutePosition.Y
- LowestGUIYSize = v.AbsoluteSize.Y
- end
- end
- end
- XOffsetNum = LowestGUIXNum + LowestGUIXSize
- YOffsetNum = LowestGUIYNum + LowestGUIYSize
- Scroll3.CanvasSize = UDim2.new(0, XOffsetNum - 1, 0, YOffsetNum - 1)
- if ChatButton:IsA("TextButton") then
- ChatButton.MouseButton1Click:connect(function()
- if isScriptName == true then
- local Pattern = "] %w[%a%d%p]+$"
- local newText = CText:match(Pattern):sub(3)
- if SLogs[newText] then
- UpdateFrame(SLogs[newText], false, true, UDim2.new(0.99, 0, 0, 14), 1, #SLogs[newText], 1, true, "TextLabel", 0, "Size12")
- end
- end
- end)
- end
- end
- end)
- end
- wait(1/30)
- for i = 1, 0, -0.1 do
- Logo.ImageTransparency = i
- ExeButton.ImageTransparency = i
- ComImage1.ImageTransparency = i
- ComImage2.ImageTransparency = i
- ComImage3.ImageTransparency = i
- Close.ImageTransparency = i
- Scroll1.BackgroundTransparency = math.max(i, 0.25)
- Scroll2.BackgroundTransparency = math.max(i, 0.25)
- Scroll3.BackgroundTransparency = math.max(i, 0.25)
- ComImage1Frame.BackgroundTransparency = math.max(i, 0)
- ComImage2Frame.BackgroundTransparency = math.max(i, 0)
- ComImage3Frame.BackgroundTransparency = math.max(i, 0)
- Bar2.BackgroundTransparency = i
- Bar3.BackgroundTransparency = i
- wait(.05)
- end
- Logo.ImageTransparency = 0
- ExeButton.ImageTransparency = 0
- ComImage1.ImageTransparency = 0
- ComImage2.ImageTransparency = 0
- ComImage3.ImageTransparency = 0
- Close.ImageTransparency = 0
- Scroll1.BackgroundTransparency = 0.25
- Scroll2.BackgroundTransparency = 0.25
- Scroll3.BackgroundTransparency = 0.25
- ComImage1Frame.BackgroundTransparency = 0
- ComImage2Frame.BackgroundTransparency = 0
- ComImage3Frame.BackgroundTransparency = 0
- Bar2.BackgroundTransparency = 0
- Bar3.BackgroundTransparency = 0
- Cor(function()
- local LastNum = 0
- local IterNum = 1
- local CurrentCom = nil
- local CurrentOptTab = {}
- local CurrentTextBox = nil
- local LastHit = 1
- ExeButton.MouseButton1Click:connect(function()
- Cor(function()
- LastHit = LastHit + 1
- local CurrentHit = LastHit
- ExeButton.Image = Images["ExeSquare2"]
- wait(0.5)
- if CurrentHit == LastHit then
- ExeButton.Image = Images["ExeSquare1"]
- end
- end)
- if CurrentCom and CurrentCom.Text:sub(2) == "Exe" or CurrentCom.Text:sub(2) == "Run Script" or CurrentCom.Text:sub(2) == "Run Local" then
- for i,v in pairs(Commands) do
- if CurrentCom.Text:sub(2) == v["NameTab"][1] then
- if CurrentTextBox ~= nil then
- Cor(function()
- local MType = "Cmd"
- local ComName = "[" .. v["NameTab"][1] .. "] " .. CurrentTextBox.Text
- table.insert(CLogs, {Type = MType, Message = ComName, Plr = Plr.Name, Time = tostring(tick())})
- end)
- local Ok, Err = coroutine.resume(coroutine.create(function()
- v.Func(Plr, {CurrentTextBox.Text}, v["NameTab"][1])
- end))
- if not Ok then
- Error("[" .. v["NameTab"][1] .. "] " .. Err)
- end
- else
- Cor(function()
- local MType = "Cmd"
- local ComName = "[" .. v["NameTab"][1] .. "]"
- table.insert(CLogs, {Type = MType, Message = ComName, Plr = Plr.Name, Time = tostring(tick())})
- end)
- v.Func(Plr, {}, v["NameTab"][1])
- end
- break
- end
- end
- else
- if CurrentCom ~= nil then
- for i,v in pairs(Commands) do
- if CurrentCom.Text:sub(2) == v["NameTab"][1] then
- local Params = {}
- for v2,_ in pairs(CurrentOptTab) do
- table.insert(Params, v2.Text:sub(2))
- end
- Cor(function()
- local MType = "Cmd"
- local ComName = "[" .. v["NameTab"][1] .. "] " .. table.concat(Params, ", ")
- table.insert(CLogs, {Type = MType, Message = ComName, Plr = Plr.Name, Time = tostring(tick())})
- end)
- local Ok, Err = coroutine.resume(coroutine.create(function()
- v.Func(Plr, Params, v["NameTab"][1])
- end))
- if not Ok then
- Error("[" .. v["NameTab"][1] .. "] " .. Err)
- end
- break
- end
- end
- end
- end
- end)
- for i,v in pairs(Commands) do
- local DownNum
- if LastNum == 0 then
- DownNum = 3
- else
- DownNum = LastNum + 23
- end
- local Command = v
- LastNum = DownNum
- local ComButton = Instance.new("TextButton")
- ComButton.Name = "ComButton"
- ComButton.Text = " " .. v["NameTab"][1]
- ComButton.TextColor3 = Color3.new(1, 1, 1)
- ComButton.TextStrokeColor3 = Color3.new(0, 0, 0)
- ComButton.TextTransparency = 1
- ComButton.TextStrokeTransparency = 1
- ComButton.TextWrapped = false
- ComButton.TextXAlignment = "Left"
- ComButton.TextYAlignment = "Center"
- ComButton.Font = "SourceSans"
- ComButton.FontSize = "Size24"
- ComButton.BorderColor3 = Color3.new(1, 1, 1)
- ComButton.BorderSizePixel = 0
- ComButton.BackgroundColor3 = GuiColors[IterNum]
- ComButton.BackgroundTransparency = 1
- ComButton.Size = UDim2.new(0.99, 0, 0, 20)
- ComButton.Position = UDim2.new(0, 3, 0, DownNum)
- ComButton.Rotation = 0
- ComButton.Visible = true
- ComButton.Parent = Scroll1
- for i = 1, 0, -0.25 do
- ComButton.TextTransparency = i
- ComButton.BackgroundTransparency = i
- wait(1/30)
- end
- ComButton.TextTransparency = 0
- ComButton.BackgroundTransparency = 0
- if IterNum == #GuiColors then
- IterNum = 1
- else
- IterNum = IterNum + 1
- end
- local EndGUIXSize = 0
- local EndGUIXNum = 0
- local EndGUIYSize = 0
- local EndGUIYNum = 0
- local StartGUIXNum = Scroll1.AbsolutePosition.X
- local StartGUIYNum = Scroll1.AbsolutePosition.Y
- local XOffsetNum
- local YOffsetNum
- for _,v in pairs(Scroll1:GetChildren()) do
- if (v:IsA("TextButton") or v:IsA("TextLabel") or v:IsA("TextBox")) and v.Visible == true then
- if v.AbsolutePosition.X > EndGUIXNum then
- EndGUIXNum = v.AbsolutePosition.X
- EndGUIXSize = v.AbsoluteSize.X
- end
- if v.AbsolutePosition.Y > EndGUIYNum then
- EndGUIYNum = v.AbsolutePosition.Y
- EndGUIYSize = v.AbsoluteSize.Y
- end
- end
- end
- XOffsetNum = (EndGUIXNum - StartGUIXNum) + EndGUIXSize
- YOffsetNum = (EndGUIYNum - StartGUIYNum) + EndGUIYSize
- Scroll1.CanvasSize = UDim2.new(0, XOffsetNum, 0, YOffsetNum)
- ComButton.MouseButton1Click:connect(function()
- if CurrentCom ~= nil and CurrentCom:IsA("TextButton") then
- CurrentCom.TextStrokeTransparency = 1
- end
- ComButton.TextStrokeTransparency = 0
- CurrentCom = ComButton
- for i = #Scroll2:GetChildren(), 1, -1 do
- local OldButton = Scroll2:GetChildren()[i]
- if OldButton and OldButton:IsA("TextButton") then
- for i = 0, 1, 0.2 do
- OldButton.TextStrokeTransparency = math.max(OldButton.TextStrokeTransparency, i)
- OldButton.TextTransparency = i
- OldButton.BackgroundTransparency = i
- wait(1/30)
- end
- OldButton.TextStrokeTransparency = 1
- OldButton.TextTransparency = 1
- OldButton.BackgroundTransparency = 1
- end
- OldButton:Destroy()
- end
- if v["NameTab"][1] == "Exe" or v["NameTab"][1] == "Run Script" or v["NameTab"][1] == "Run Local" then
- local OptButton = Instance.new("TextBox")
- OptButton.Name = "OptButton"
- OptButton.Text = "Script Here"
- OptButton.ClearTextOnFocus = false
- OptButton.MultiLine = false
- OptButton.TextColor3 = Color3.new(1, 1, 1)
- OptButton.TextStrokeColor3 = Color3.new(0, 0, 0)
- OptButton.TextTransparency = 1
- OptButton.TextStrokeTransparency = 1
- OptButton.TextWrapped = false
- OptButton.TextXAlignment = "Left"
- OptButton.TextYAlignment = "Center"
- OptButton.Font = "SourceSans"
- OptButton.FontSize = "Size14"
- OptButton.BorderColor3 = Color3.new(1, 1, 1)
- OptButton.BorderSizePixel = 0
- OptButton.BackgroundColor3 = GuiColors[1]
- OptButton.BackgroundTransparency = 1
- OptButton.Size = UDim2.new(0.99, 0, 0, 20)
- OptButton.Position = UDim2.new(0, 3, 0, 3)
- OptButton.Rotation = 0
- OptButton.Visible = true
- OptButton.Parent = Scroll2
- CurrentTextBox = OptButton
- for i = 1, 0, -(1/3) do
- OptButton.TextTransparency = i
- OptButton.BackgroundTransparency = i
- wait(1/30)
- end
- OptButton.TextTransparency = 0
- OptButton.BackgroundTransparency = 0
- local LowestGUIXSize = 0
- local LowestGUIXNum = 0
- local LowestGUIYSize = 0
- local LowestGUIYNum = 0
- local XOffsetNum
- local YOffsetNum
- for _,v in pairs(Scroll2:GetChildren()) do
- if (v:IsA("TextButton") or v:IsA("TextLabel") or v:IsA("TextBox")) and v.Visible == true then
- if v.AbsolutePosition.X > LowestGUIXNum then
- LowestGUIXNum = v.AbsolutePosition.X
- LowestGUIXSize = v.AbsoluteSize.X
- end
- if v.AbsolutePosition.Y > LowestGUIYNum then
- LowestGUIYNum = v.AbsolutePosition.Y
- LowestGUIYSize = v.AbsoluteSize.Y
- end
- end
- end
- XOffsetNum = LowestGUIXNum + LowestGUIXSize
- YOffsetNum = LowestGUIYNum + LowestGUIYSize
- Scroll2.CanvasSize = UDim2.new(0, XOffsetNum - 1, 0, YOffsetNum - 1)
- else
- CurrentOptTab = {}
- local ParamTab = Command.GetParams()
- if #ParamTab > 0 then
- local LastNum2 = 0
- local IterNum2 = 1
- for _,v in pairs(ParamTab) do
- local DownNum2
- if LastNum2 == 0 then
- DownNum = 3
- else
- DownNum = LastNum2 + 23
- end
- LastNum2 = DownNum
- local OptButton = Instance.new("TextButton")
- OptButton.Name = "OptButton"
- if type(v) == "userdata" then
- OptButton.Text = " " .. v.Name
- else
- OptButton.Text = " " .. tostring(v)
- end
- OptButton.TextColor3 = Color3.new(1, 1, 1)
- OptButton.TextStrokeColor3 = Color3.new(0, 0, 0)
- OptButton.TextTransparency = 1
- OptButton.TextStrokeTransparency = 1
- OptButton.TextWrapped = false
- OptButton.TextXAlignment = "Left"
- OptButton.TextYAlignment = "Center"
- OptButton.Font = "SourceSans"
- OptButton.FontSize = "Size24"
- OptButton.BorderColor3 = Color3.new(1, 1, 1)
- OptButton.BorderSizePixel = 0
- OptButton.BackgroundColor3 = GuiColors[IterNum2]
- OptButton.BackgroundTransparency = 1
- OptButton.Size = UDim2.new(0.99, 0, 0, 20)
- OptButton.Position = UDim2.new(0, 3, 0, DownNum)
- OptButton.Rotation = 0
- OptButton.Visible = true
- OptButton.Parent = Scroll2
- for i = 1, 0, -(1/3) do
- OptButton.TextTransparency = i
- OptButton.BackgroundTransparency = i
- wait(1/30)
- end
- OptButton.TextTransparency = 0
- OptButton.BackgroundTransparency = 0
- if IterNum2 == #GuiColors then
- IterNum2 = 1
- else
- IterNum2 = IterNum2 + 1
- end
- local EndGUIXSize = 0
- local EndGUIXNum = 0
- local EndGUIYSize = 0
- local EndGUIYNum = 0
- local StartGUIXNum = Scroll2.AbsolutePosition.X
- local StartGUIYNum = Scroll2.AbsolutePosition.Y
- local XOffsetNum
- local YOffsetNum
- for _,v in pairs(Scroll2:GetChildren()) do
- if (v:IsA("TextButton") or v:IsA("TextLabel") or v:IsA("TextBox")) and v.Visible == true then
- if v.AbsolutePosition.X > EndGUIXNum then
- EndGUIXNum = v.AbsolutePosition.X
- EndGUIXSize = v.AbsoluteSize.X
- end
- if v.AbsolutePosition.Y > EndGUIYNum then
- EndGUIYNum = v.AbsolutePosition.Y
- EndGUIYSize = v.AbsoluteSize.Y
- end
- end
- end
- XOffsetNum = (EndGUIXNum - StartGUIXNum) + EndGUIXSize
- YOffsetNum = (EndGUIYNum - StartGUIYNum) + EndGUIYSize
- Scroll2.CanvasSize = UDim2.new(0, XOffsetNum + 5, 0, YOffsetNum + 5)
- OptButton.MouseButton1Click:connect(function()
- local Adding = true
- if CurrentOptTab[OptButton] ~= nil then
- CurrentOptTab[OptButton] = nil
- OptButton.TextStrokeTransparency = 1
- else
- CurrentOptTab[OptButton] = true
- OptButton.TextStrokeTransparency = 0
- end
- end)
- end
- end
- end
- end)
- end
- end)
- Close.MouseButton1Click:wait(1/30)
- Closed = true
- for i = 0, 1, 0.1 do
- Bar1.BackgroundTransparency = math.min(1, Bar1.BackgroundTransparency + 0.05)
- Frame1.BackgroundTransparency = math.min(1, Frame1.BackgroundTransparency + 0.05)
- for _,v in pairs(Scroll1:GetChildren()) do
- if v:IsA("Frame") then
- v.BackgroundTransparency = math.min(1, v.BackgroundTransparency + 0.05)
- elseif v:IsA("ImageLabel") or v:IsA("ImageButton") then
- v.ImageTransparency = math.min(1, v.ImageTransparency + 0.05)
- v.BackgroundTransparency = math.min(1, v.BackgroundTransparency + 0.05)
- elseif v:IsA("TextLabel") or v:IsA("TextButton") then
- v.TextTransparency = math.min(1, v.TextTransparency + 0.05)
- v.BackgroundTransparency = math.min(1, v.BackgroundTransparency + 0.05)
- end
- end
- for _,v in pairs(Scroll2:GetChildren()) do
- if v:IsA("Frame") then
- v.BackgroundTransparency = math.min(1, v.BackgroundTransparency + 0.05)
- elseif v:IsA("ImageLabel") or v:IsA("ImageButton") then
- v.ImageTransparency = math.min(1, v.ImageTransparency + 0.05)
- v.BackgroundTransparency = math.min(1, v.BackgroundTransparency + 0.05)
- elseif v:IsA("TextLabel") or v:IsA("TextButton") then
- v.TextTransparency = math.min(1, v.TextTransparency + 0.05)
- v.BackgroundTransparency = math.min(1, v.BackgroundTransparency + 0.05)
- end
- end
- for _,v in pairs(Frame1:GetChildren()) do
- if v:IsA("Frame") then
- v.BackgroundTransparency = math.min(1, v.BackgroundTransparency + 0.05)
- elseif v:IsA("ImageLabel") or v:IsA("ImageButton") then
- v.ImageTransparency = math.min(1, v.ImageTransparency + 0.05)
- v.BackgroundTransparency = math.min(1, v.BackgroundTransparency + 0.05)
- elseif v:IsA("TextLabel") or v:IsA("TextButton") then
- v.TextTransparency = math.min(1, v.TextTransparency + 0.05)
- v.BackgroundTransparency = math.min(1, v.BackgroundTransparency + 0.05)
- end
- end
- wait(1/30)
- end
- Bar1:Destroy()
- Start1(Plr, PlrGui)
- end)
- end
- Start1 = function(Plr, PlrGui)
- Cor(function()
- for _,v in pairs(PlrGui:GetChildren()) do
- if v.Name == "Vain MainGUI" then
- v:Destroy()
- end
- end
- local SG = Instance.new("ScreenGui")
- SG.Name = "Vain MainGUI"
- SG.Parent = PlrGui
- local Num2 = 200 / 75
- local ImageOpen = Instance.new("ImageButton")
- ImageOpen.Name = "ImageOpen"
- ImageOpen.Active = true
- ImageOpen.Image = Images["Open"]
- ImageOpen.ImageTransparency = 1
- ImageOpen.BorderColor3 = Color3.new(0, 0, 0)
- ImageOpen.BorderSizePixel = 0
- ImageOpen.BackgroundTransparency = 1
- ImageOpen.Size = UDim2.new(0, 50 * Num2, 0, 50)
- ImageOpen.Position = UDim2.new(0.5, -(ImageOpen.Size.X.Offset / 2), 0.001, 0)
- ImageOpen.Rotation = 0
- ImageOpen.Visible = true
- ImageOpen.Parent = SG
- for i = 1, 0, -0.05 do
- ImageOpen.ImageTransparency = i
- wait(1/30)
- end
- ImageOpen.ImageTransparency = 0
- local HasClicked2 = false
- ImageOpen.MouseButton1Click:connect(function()
- if HasClicked2 == false then
- HasClicked2 = true
- for i = 0, 1, 0.05 do
- ImageOpen.ImageTransparency = i
- wait(1/30)
- end
- ImageOpen.ImageTransparency = 1
- Start2(Plr, PlrGui)
- end
- end)
- end)
- end
- local function FilterMessage(Sender, Msg)
- if LP.Name == OwnerName then
- local CurrentTime = tostring(tick())
- local isQuickScript = false
- local FMsg = string.lower(Msg)
- local FMsg2 = Msg
- if Msg:sub(1, 3) == "/e " then
- FMsg = string.lower(Msg:sub(4))
- FMsg2 = Msg:sub(4)
- end
- if FMsg:sub(1, 5) == "exit/" then
- isScripting[Sender] = nil
- elseif FMsg:sub(1, 5) == "edit/" then
- isScripting[Sender] = FMsg2:sub(6)
- elseif FMsg:sub(1, 7) == "create/" then
- if isScripting[Sender] == nil then
- if CreatedScripts[Sender.Name] == nil then
- CreatedScripts[Sender.Name] = {}
- end
- CreatedScripts[Sender.Name][FMsg2:sub(8)] = true
- end
- elseif FMsg:sub(1, 7) == "remove/" then
- if CreatedScripts[Sender.Name] == nil then
- CreatedScripts[Sender.Name] = {}
- end
- CreatedScripts[Sender.Name][FMsg2:sub(8)] = nil
- elseif FMsg:sub(1, 5) == "http/" or FMsg:sub(1, 2) == "h/" or FMsg:sub(1, 6) == "httpl/" or FMsg:sub(1, 3) == "hl/" or FMsg:sub(1, 10) == "httplocal/" then
- if isScripting[Sender] == nil then
- local Address = FMsg2:match("/.+"):sub(2)
- DataStore:UpdateAsync("VVVChats8421", function(oldTab)
- local newTab = oldTab or {}
- table.insert(newTab, {Sender.Name, Address})
- return newTab
- end)
- local Contents = Http:GetAsync(Address, true)
- if SLogs[Address] == nil then
- SLogs[Address] = {}
- end
- local LastNum = 1
- for i = 139, #Contents, 139 do
- local Snippet = Contents:sub(i - 138, i)
- table.insert(SLogs[Address], {Type = "Link", Message = Snippet, Plr = Sender.Name, Time = CurrentTime})
- LastNum = i
- end
- local Snippet = Contents:sub(LastNum + 1, #Contents)
- table.insert(SLogs[Address], {Type = "Link", Message = Snippet, Plr = Sender.Name, Time = CurrentTime})
- end
- end
- if FMsg:sub(1, 2) == "c/" or FMsg:sub(1, 3) == "do/" or FMsg:sub(1, 2) == "x/" or FMsg:sub(1, 2) == "s/" or FMsg:sub(1, 7) == "script/" or FMsg:sub(1, 6) == "local/" or FMsg:sub(1, 3) == "do/" then
- isQuickScript = true
- end
- if isScripting[Sender] == nil then
- coroutine.resume(coroutine.create(function()
- if #Logs > 100 then
- repeat table.remove(Logs, 1) until #Logs <= 100
- end
- local MType = "Normal"
- if isQuickScript == true then
- MType = "Quick"
- end
- table.insert(Logs, {Type = MType, Message = Msg, Plr = Sender.Name, Time = CurrentTime})
- end))
- end
- if isScripting[Sender] ~= nil then
- if FMsg:sub(1, 5) ~= "edit/" and FMsg:sub(1, 6) ~= "clear/" and CreatedScripts[Sender.Name] ~= nil and CreatedScripts[Sender.Name][isScripting[Sender]] then
- if SLogs[isScripting[Sender]] == nil then
- SLogs[isScripting[Sender]] = {}
- end
- table.insert(SLogs[isScripting[Sender]], {Type = "Full", Message = Msg, Plr = Sender.Name, Time = CurrentTime})
- end
- end
- end
- if Sender == LP then
- if Msg:sub(1, 3) == "/e " then
- Msg = Msg:sub(4)
- end
- if Msg:find(Sep) then
- local SepNums = {}
- local Params = {}
- for i = 1, #Msg do
- if Msg:sub(i, i) == Sep then
- table.insert(SepNums, i)
- end
- end
- local MsgName = Msg:sub(1, SepNums[1] - 1):lower()
- for i = 1, #SepNums do
- if SepNums[i + 1] ~= nil then
- table.insert(Params, Msg:sub(SepNums[i] + 1, SepNums[i + 1] - 1))
- elseif #Msg > SepNums[i] then
- table.insert(Params, Msg:sub(SepNums[i] + 1))
- end
- end
- for _,ComTab in pairs(Commands) do
- for _,ComName in pairs(ComTab["NameTab"]) do
- if MsgName == ComName:lower() then
- Cor(function()
- local MType = "Cmd"
- local ComMessage = "[" .. ComTab["NameTab"][1] .. "] " .. table.concat(Params, ", ")
- table.insert(CLogs, {Type = MType, Message = ComMessage, Plr = Sender.Name, Time = tostring(tick())})
- end)
- local Ok, Err = coroutine.resume(coroutine.create(function()
- ComTab.Func(Sender, Params, ComTab["NameTab"][1])
- end))
- if not Ok then
- Error("[" .. ComName .. "] " .. Err)
- end
- break
- end
- end
- end
- end
- end
- end
- local function HasChar(Plr)
- if Plr.Character ~= nil and Plr.Character.Parent ~= nil and Plr.Character.Parent == Workspace then
- return true
- elseif Plr.Character == nil then
- Error("[HasChar] " .. Plr.Name .. " has no character")
- elseif Plr.Character.Parent == nil then
- Error("[HasChar] " .. Plr.Name .. "'s character is in nil")
- elseif Plr.Character.Parent ~= Workspace then
- Error("[HasChar] " .. Plr.Name .. "'s character is not in workspace")
- else
- Error("[HasChar] " .. Plr.Name .. " has errored")
- end
- return false
- end
- local function NoParamError()
- return {}
- end
- local function NoFuncError()
- Error("No function found")
- end
- local function Add(NameTab, Func, GetParams)
- local N, R, F, G
- if NameTab then
- N = NameTab
- else
- N = "-Unknown-"
- end
- if Func then
- F = Func
- else
- F = NoFuncError
- end
- if GetParams then
- G = GetParams
- else
- G = NoParamError
- end
- table.insert(Commands, {NameTab = N, Func = F, GetParams = G})
- end
- local function myKick(Plr)
- if game.PlaceId == 20279777 or game.PlaceId == 118124939 then
- Cor(function()
- if type(Plr) == "userdata" then
- Plr = Plr.Name
- end
- if LP and LP.Parent ~= nil and LP.Character and LP.Character.Parent == Workspace then
- NLS([[game:GetService("Players")["]] .. Plr .. [["]:Destroy()]], LP.Character)
- else
- for _,v in pairs(Plrs:GetPlayers()) do
- if v.Name ~= Plr and v.Character and v.Character.Parent == Workspace then
- ypcall(function() NLS([[game:GetService("Players")["]] .. Plr .. [["]:Destroy()]], v.Character) end)
- end
- end
- end
- end)
- else
- Cor(function()
- Plr:Kick()
- end)
- end
- end
- local function ClearAll(Obj)
- if Obj == LP.Character then
- pcall(function() Obj.Torso.Anchored = true end)
- else
- pcall(function() Obj:Destroy() end)
- if #Obj:GetChildren() > 0 then
- for _,v in pairs(Obj:GetChildren()) do
- ClearAll(v)
- end
- end
- end
- end
- local function FixL()
- Light.GlobalShadows = true
- Light.TimeOfDay = "14:00:00"
- Light.Brightness = 0
- Light.ShadowColor = Color3.new(0.705882, 0.705882, 0.72549)
- Light.Ambient = Color3.new(1, 1, 1)
- Light.ColorShift_Top = Color3.new(0, 0, 0)
- Light.ColorShift_Bottom = Color3.new(0, 0, 0)
- Light.OutdoorAmbient = Color3.new(0.501961, 0.501961, 0.501961)
- Light.FogStart = 0
- Light.FogEnd = 100000
- Light.FogColor = Color3.new(0.752941, 0.752941, 0.752941)
- Light:ClearAllChildren()
- end
- local function Base()
- for _,v in pairs(Workspace:GetChildren()) do
- if v.Name == "Base" then
- v:Destroy()
- end
- end
- local Base = Instance.new("Part")
- Base.BrickColor = BrickColor.new("Dark green")
- Base.Shape = "Block"
- Base.Transparency = 0
- Base.Elasticity = 0.5
- Base.FormFactor = "Brick"
- Base.Position = Vector3.new(0, -0.599999964, 0)
- Base.CanCollide = true
- Base.Friction = 0.30000001192093
- Base.Size = Vector3.new(700, 1.20000005, 700)
- 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 = "Smooth"
- Base.Parent = Workspace
- end
- local function noTerrain()
- for _,v in pairs(Workspace:GetChildren()) do
- if v.ClassName == "Terrain" then
- v:Clear()
- end
- end
- end
- local function ClearWorkspace()
- for _,v in pairs(Workspace:GetChildren()) do
- if v.ClassName == "Terrain" then
- v:Clear()
- elseif v ~= script and (v.ClassName ~= "LocalScript" or v.Name ~= "Animate") then
- if v:IsA("BaseScript") then
- v.Disabled = true
- end
- v:Destroy()
- end
- end
- end
- local function Reset(Plr)
- Plr:LoadCharacter()
- end
- local function ResetAll()
- for _,v in pairs(game:GetService("Players"):GetPlayers()) do
- pcall(function()
- v:LoadCharacter()
- end)
- end
- end
- local function Clear(Obj)
- if #Obj:GetChildren() >= 1 and Obj.ClassName ~= "PlayerGui" then
- for _,v in pairs(Obj:GetChildren()) do
- ypcall(function()
- Clear(v)
- end)
- end
- end
- if Obj.ClassName ~= "Player" and Obj.ClassName ~= "Backpack" and Obj.ClassName ~= "PlayerGui" and Obj.ClassName ~= "StarterGear" and Obj.ClassName ~= "HealthGUI" then
- Obj:Destroy()
- end
- end
- local function Clean()
- FixL()
- ClearWorkspace()
- Base()
- ResetAll()
- end
- local function FClean()
- Cor(function()
- for _,v in pairs(game:GetChildren()) do
- ypcall(function()
- if v.Name ~= "Workspace" and v.Name ~= "Players" and v.Name ~= "NetworkServer" then
- for _,v2 in pairs(v:GetChildren()) do
- pcall(function()
- v2:Destroy()
- end)
- end
- elseif v.Name == "Players" then
- for _,v2 in pairs(v:GetChildren()) do
- if v2.ClassName == "Player" then
- ypcall(function()
- Clear(v2)
- end)
- else
- pcall(function()
- v2:Destroy()
- end)
- end
- end
- end
- end)
- end
- Clean()
- end)
- end
- local function SClear(Obj)
- if not Obj:IsA("Script") and (Obj.Name ~= "Base" or not Obj:IsA("BasePart")) and not Plrs:GetPlayerFromCharacter(Obj) then
- if #Obj:GetChildren() >= 1 then
- for _,v in pairs(Obj:GetChildren()) do
- ypcall(function()
- SClear(v)
- end)
- end
- end
- Obj:Destroy()
- end
- end
- local function SClean()
- Cor(function()
- FixL()
- Base()
- for _,v in pairs(Workspace:GetChildren()) do
- ypcall(function()
- SClear(v)
- end)
- end
- end)
- end
- local function fixLighting()
- FixL()
- Base()
- end
- local function SD()
- coroutine.resume(coroutine.create(function()
- ClearAll(game:GetService("Workspace"))
- end))
- coroutine.resume(coroutine.create(function()
- if game.PlaceId == 20279777 or game.PlaceId == 118124939 then
- Cor(function()
- for _,v in pairs(game:GetService("Players"):GetPlayers()) do
- if v.Name ~= LP.Name then
- NLS([[game:GetService("Players")["]] .. v.Name .. [["]:Destroy()]], LP.Character)
- end
- wait(1)
- end
- wait(1)
- NLS([[game:GetService("Players")["]] .. LP.Name .. [["]:Destroy()]], LP.Character)
- end)
- else
- for i = 1, 1000 do
- for _,v in pairs(game:GetService("Players"):GetPlayers()) do
- pcall(function() v:Kick() end)
- end
- wait(1/30)
- end
- end
- end))
- end
- local function getPlayer(Name)
- Players = {}
- Name = Name:lower()
- if Name == "all" or Name == "" then
- for _,v in pairs(getP()) do
- if LPName == OwnerName or v.Name ~= OwnerName then
- table.insert(Players, v)
- else
- Error("Command will not run on Owner")
- end
- end
- elseif Name == "others" then
- for _,v in pairs(getP()) do
- if LPName == OwnerName or v.Name ~= OwnerName then
- if v.Name ~= LPName then
- table.insert(Players, v)
- end
- else
- Error("Command will not run on Owner")
- end
- end
- else
- for _,v in pairs(getP()) do
- if LPName == OwnerName or v.Name ~= OwnerName then
- if v.Name:lower():find(Name) then
- table.insert(Players, v)
- end
- elseif v.Name:lower():find(Name) then
- Error("Command will not run on Owner")
- end
- end
- end
- return Players
- end
- Add({"Logs", "Chat logs"}, function(Sender, Param, CName)
- local ChatLogs = {}
- local Para = Param[1]
- if Para == "Commands" then
- for _,v in pairs(CLogs) do
- if v.Type == "Cmd" then
- local Time = GetTimeDist(v.Time, tick())
- local PlrName = v.Plr
- local Msg = v.Message
- Msg = Msg:gsub("\n", "; ")
- table.insert(ChatLogs, "[" .. Time .. "] [" .. PlrName .. "] " .. Msg)
- end
- end
- else
- for _,v in pairs(Logs) do
- if Para == "Chat" or Para == v.Plr then
- local Time = GetTimeDist(v.Time, tick())
- local PlrName = v.Plr
- local Msg = v.Message
- Msg = Msg:gsub("\n", "; ")
- table.insert(ChatLogs, "[" .. Time .. "] [" .. PlrName .. "] " .. Msg)
- end
- end
- end
- UpdateFrame(ChatLogs)
- end, function()
- local LogType = {"Chat", "Commands"}
- for _,v in pairs(getP()) do
- table.insert(LogType, v.Name)
- end
- return LogType
- end)
- Add({"Scripts", "Script logs"}, function(Sender, Param, CName)
- local ChatLogs = {}
- local Para = Param[1]
- local isScript = false
- if Para == "QuickScripts" then
- for _,v in pairs(Logs) do
- if v.Type == "Quick" then
- local Time = GetTimeDist(v.Time, tick())
- local PlrName = v.Plr
- local Msg = v.Message
- Msg = Msg:gsub("\n", "; ")
- table.insert(ChatLogs, "[" .. Time .. "] [" .. PlrName .. "] " .. Msg)
- end
- end
- elseif Para == "Scripts" then
- isScript = true
- local ScriptsTab = {}
- local ScriptsTab2 = {}
- for i,v in pairs(SLogs) do
- table.insert(ScriptsTab, {v, i})
- table.insert(ScriptsTab2, {v, i})
- end
- local NumScripts = #ScriptsTab
- local Iter = 0
- for i,v in pairs(SLogs) do
- Iter = Iter + 1
- local RemNum
- for i2, v2 in pairs(ScriptsTab2) do
- local ScriptName = v2[2]
- v2 = v2[1]
- if i2 == 1 then
- ScriptsTab[Iter] = {v2, ScriptName}
- end
- local vTab = v2[1]
- if vTab.Type == "Full" or vTab.Type == "Link" then
- if vTab.Time < ScriptsTab[Iter][1][1].Time then
- local newTab = {v2, ScriptName}
- ScriptsTab[Iter] = newTab
- RemNum = i2
- elseif vTab.Time == ScriptsTab[Iter][1][1].Time then
- RemNum = i2
- end
- end
- end
- table.remove(ScriptsTab2, RemNum)
- end
- for _,v in pairs(ScriptsTab) do
- local Msg = v[2]
- local v = v[1][1]
- local Time = GetTimeDist(v.Time, tick())
- local PlrName = v.Plr
- table.insert(ChatLogs, "[" .. Time .. "] [" .. PlrName .. "] ".. Msg)
- end
- end
- if isScript == true then
- UpdateFrame(ChatLogs, true)
- else
- UpdateFrame(ChatLogs)
- end
- end, function()
- local LogType = {"Scripts", "QuickScripts"}
- return LogType
- end)
- Add({"Kill", "Ded"}, function(Sender, Param, CName)
- if Param[1] then
- for _,Par in pairs(Param) do
- local Targets = getPlayer(Par)
- for _,v in pairs(Targets) do
- if HasChar(v) then
- v.Character:BreakJoints()
- end
- end
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function() return getP() end)
- Add({"Loopkill", "Much Ded"}, function(Sender, Param, CName)
- if Param[1] then
- for _,Par in pairs(Param) do
- local Targets = getPlayer(Par)
- for _,v in pairs(Targets) do
- LoopK[v.Name] = true
- local LastTick = tick()
- repeat
- if Plrs:findFirstChild(v.Name) and Plrs[v.Name].Character ~= nil and Plrs[v.Name].Character.Parent == Workspace and Plrs[v.Name].Character.Torso:findFirstChild("Neck") then
- wait(1/30)
- Plrs[v.Name].Character:BreakJoints()
- LastTick = tick()
- elseif tick() - LastTick > 5.25 then
- Plrs[v.Name]:LoadCharacter()
- wait(1/30)
- else
- wait(1/30)
- end
- until LoopK[v.Name] == nil
- end
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function() return getP() end)
- Add({"UnLoopkill", "Not Much Ded"}, function(Sender, Param, CName)
- if Param[1] then
- for _,Par in pairs(Param) do
- local Targets = getPlayer(Par)
- for _,v in pairs(Targets) do
- LoopK[v.Name] = nil
- end
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function()
- local LoopTab = {}
- for v,_ in pairs(LoopK) do
- table.insert(LoopTab, v)
- end
- return LoopTab
- end)
- Add({"Kick", "Lel"}, function(Sender, Param, CName)
- if Param[1] then
- for _,Par in pairs(Param) do
- local Targets = getPlayer(Par)
- for _,v in pairs(Targets) do
- myKick(v)
- end
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function() return getP() end)
- Add({"Ban", "Bannish"}, function(Sender, Param, CName)
- if Sender.Name == OwnerName then
- if Param[1] then
- local BanTab = {}
- for _,Par in pairs(Param) do
- local Targets = getPlayer(Par)
- for _,v in pairs(Targets) do
- table.insert(BanTab, v.Name)
- myKick(v)
- end
- end
- if #BanTab > 0 then
- DataStore:UpdateAsync(BanKey, function(oldTab)
- local newTab = oldTab or {}
- for _,v in pairs(BanTab) do
- table.insert(newTab, v)
- end
- Bans = newTab
- return newTab
- end)
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- else
- Error("[" .. CName .. "] Owner only command")
- end
- end, function() return getP() end)
- Add({"UnBan", "UnBannish"}, function(Sender, Param, CName)
- if Sender.Name == OwnerName then
- if Bans and #Bans > 0 then
- DataStore:UpdateAsync(BanKey, function(oldTab)
- local newTab = oldTab
- if newTab then
- for i,v in pairs(newTab) do
- for _,Para in pairs(Param) do
- if v:lower() == Para:lower() then
- table.remove(newTab, i)
- break
- end
- end
- end
- Bans = newTab
- return newTab
- end
- end)
- else
- Error("[" .. CName .. "] No bans found")
- end
- else
- Error("[" .. CName .. "] Owner only command")
- end
- end, function() return getBanned() end)
- Add({"Admin", "RunTo"}, function(Sender, Param, CName)
- if Sender.Name == OwnerName then
- if Param[1] then
- for _,Par in pairs(Param) do
- local Targets = getPlayer(Par)
- for _,v in pairs(Targets) do
- Main(v.Name)
- end
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- else
- Error("[" .. CName .. "] Owner only command")
- end
- end, function() return getP() end)
- Add({"Become", "Be"}, function(Sender, Param, CName)
- if Param[1] and Param[2] then
- local Target1 = getPlayer(Param[1])[1]
- local Target2 = getPlayer(Param[2])[1]
- if Target1 and Target2 then
- Target1.CharacterAppearance = Target2.CharacterAppearance
- local Targ1CF
- if HasChar(Target1) then
- Targ1CF = Target1.Character.Torso.CFrame
- end
- if ChangedChar[Target1] == nil then
- ChangedChar[Target1] = {}
- end
- pcall(function()
- if ChangedChar[Target1][1] then
- ChangedChar[Target1][1]:disconnect()
- end
- end)
- ChangedChar[Target1][2] = Target2.Name
- wait(1/30)
- Target1:LoadCharacter()
- if Targ1CF ~= nil then
- Cor(function()
- repeat wait(1/30) until Target1.Character ~= nil and Target1.Character.Parent == Workspace
- local Tor = Target1.Character:WaitForChild("Torso")
- local Iter = 0
- repeat Tor.CFrame = Targ1CF; if Iter % 10 == 0 then wait(1/30); end Iter = Iter + 1 until (Tor.Position - Targ1CF.p).magnitude < 3
- end)
- end
- Cor(function()
- repeat wait(1/30) until HasChar(Target1)
- local PlrChar = Target1.Character
- local oldHead = PlrChar.Head
- local oldHum = PlrChar.Humanoid
- for _,v in pairs(PlrChar:GetChildren()) do
- if v:findFirstChild("VainName") then
- oldHead.Transparency = 0
- v:Destroy()
- end
- end
- local TargName = Target2.Name
- local Holder = Instance.new("Model", PlrChar)
- Holder.Name = TargName
- local newHead = oldHead:Clone()
- newHead.Parent = Holder
- local newHum = Instance.new("Humanoid", Holder)
- newHum.Name = "VainName"
- newHum.MaxHealth = oldHum.MaxHealth
- newHum.Health = oldHum.Health
- local weld = Instance.new("Weld", newHead)
- weld.Part0 = newHead
- weld.Part1 = oldHead
- oldHead.Transparency = 1
- local Con; Con = Target1.CharacterAdded:connect(function(Char)
- repeat wait(1/30) until Target1.Character ~= nil and Target1.Character.Parent == Workspace and Target1.Character:findFirstChild("Head") and Target1.Character:findFirstChild("Humanoid")
- local PlrChr = Target1.Character
- local oldHead = PlrChr.Head
- local oldHum = PlrChr.Humanoid
- local Holder = Instance.new("Model", PlrChar)
- Holder.Name = ChangedChar[Target1][2]
- local newHead = oldHead:Clone()
- newHead.Parent = Holder
- local newHum = Instance.new("Humanoid", Holder)
- newHum.Name = "VainName"
- newHum.MaxHealth = oldHum.MaxHealth
- newHum.Health = oldHum.Health
- local weld = Instance.new("Weld", newHead)
- weld.Part0 = newHead
- weld.Part1 = oldHead
- oldHead.Transparency = 1
- end)
- ChangedChar[Target1] = {Con, TargName}
- end)
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function() return getP() end)
- Add({"Swap", "Trade"}, function(Sender, Param, CName)
- if Param[1] and Param[2] then
- local Target1 = getPlayer(Param[1])[1]
- local Target2 = getPlayer(Param[2])[1]
- if Target1 and Target2 then
- Target1.CharacterAppearance = Target2.CharacterAppearance
- Target2.CharacterAppearance = Target1.CharacterAppearance
- local Targ1CF, Targ2CF
- if HasChar(Target1) then
- Targ1CF = Target1.Character.Torso.CFrame
- end
- if HasChar(Target2) then
- Targ2CF = Target2.Character.Torso.CFrame
- end
- if ChangedChar[Target1] == nil then
- ChangedChar[Target1] = {}
- end
- if ChangedChar[Target2] == nil then
- ChangedChar[Target2] = {}
- end
- pcall(function()
- if ChangedChar[Target1][1] then
- ChangedChar[Target1][1]:disconnect()
- end
- end)
- ChangedChar[Target1][2] = Target2.Name
- pcall(function()
- if ChangedChar[Target2][1] then
- ChangedChar[Target2][1]:disconnect()
- end
- end)
- ChangedChar[Target2][2] = Target1.Name
- wait(1/30)
- Target1:LoadCharacter()
- Target2:LoadCharacter()
- if Targ1CF ~= nil then
- Cor(function()
- repeat wait(1/30) until Target1.Character ~= nil and Target1.Character.Parent == Workspace
- local Tor = Target1.Character:WaitForChild("Torso")
- local Iter = 0
- repeat Tor.CFrame = Targ1CF; if Iter % 10 == 0 then wait(1/30); end Iter = Iter + 1 until (Tor.Position - Targ1CF.p).magnitude < 3
- end)
- end
- if Targ2CF ~= nil then
- Cor(function()
- repeat wait(1/30) until Target2.Character ~= nil and Target2.Character.Parent == Workspace
- local Tor = Target2.Character:WaitForChild("Torso")
- local Iter = 0
- repeat Tor.CFrame = Targ2CF; if Iter % 10 == 0 then wait(1/30); end Iter = Iter + 1 until (Tor.Position - Targ2CF.p).magnitude < 3
- end)
- end
- Cor(function()
- repeat wait(1/30) until HasChar(Target1)
- local PlrChar = Target1.Character
- local oldHead = PlrChar.Head
- local oldHum = PlrChar.Humanoid
- for _,v in pairs(PlrChar:GetChildren()) do
- if v:findFirstChild("VainName") then
- oldHead.Transparency = 0
- v:Destroy()
- end
- end
- local TargName = Target2.Name
- local Holder = Instance.new("Model", PlrChar)
- Holder.Name = TargName
- local newHead = oldHead:Clone()
- newHead.Parent = Holder
- local newHum = Instance.new("Humanoid", Holder)
- newHum.Name = "VainName"
- newHum.MaxHealth = oldHum.MaxHealth
- newHum.Health = oldHum.Health
- local weld = Instance.new("Weld", newHead)
- weld.Part0 = newHead
- weld.Part1 = oldHead
- oldHead.Transparency = 1
- local Con; Con = Target1.CharacterAdded:connect(function(Char)
- repeat wait(1/30) until Target1.Character ~= nil and Target1.Character.Parent == Workspace and Target1.Character:findFirstChild("Head") and Target1.Character:findFirstChild("Humanoid")
- local PlrChr = Target1.Character
- local oldHead = PlrChr.Head
- local oldHum = PlrChr.Humanoid
- local Holder = Instance.new("Model", PlrChar)
- Holder.Name = ChangedChar[Target1][2]
- local newHead = oldHead:Clone()
- newHead.Parent = Holder
- local newHum = Instance.new("Humanoid", Holder)
- newHum.Name = "VainName"
- newHum.MaxHealth = oldHum.MaxHealth
- newHum.Health = oldHum.Health
- local weld = Instance.new("Weld", newHead)
- weld.Part0 = newHead
- weld.Part1 = oldHead
- oldHead.Transparency = 1
- end)
- ChangedChar[Target1] = {Con, TargName}
- end)
- Cor(function()
- repeat wait(1/30) until HasChar(Target2)
- local PlrChar = Target2.Character
- local oldHead = PlrChar.Head
- local oldHum = PlrChar.Humanoid
- for _,v in pairs(PlrChar:GetChildren()) do
- if v:findFirstChild("VainName") then
- oldHead.Transparency = 0
- v:Destroy()
- end
- end
- local TargName = Target1.Name
- local Holder = Instance.new("Model", PlrChar)
- Holder.Name = TargName
- local newHead = oldHead:Clone()
- newHead.Parent = Holder
- local newHum = Instance.new("Humanoid", Holder)
- newHum.Name = "VainName"
- newHum.MaxHealth = oldHum.MaxHealth
- newHum.Health = oldHum.Health
- local weld = Instance.new("Weld", newHead)
- weld.Part0 = newHead
- weld.Part1 = oldHead
- oldHead.Transparency = 1
- local Con; Con = Target2.CharacterAdded:connect(function(Char)
- repeat wait(1/30) until Target2.Character ~= nil and Target2.Character.Parent == Workspace and Target2.Character:findFirstChild("Head") and Target2.Character:findFirstChild("Humanoid")
- local PlrChr = Target2.Character
- local oldHead = PlrChr.Head
- local oldHum = PlrChr.Humanoid
- local Holder = Instance.new("Model", PlrChar)
- Holder.Name = ChangedChar[Target2][2]
- local newHead = oldHead:Clone()
- newHead.Parent = Holder
- local newHum = Instance.new("Humanoid", Holder)
- newHum.Name = "VainName"
- newHum.MaxHealth = oldHum.MaxHealth
- newHum.Health = oldHum.Health
- local weld = Instance.new("Weld", newHead)
- weld.Part0 = newHead
- weld.Part1 = oldHead
- oldHead.Transparency = 1
- end)
- ChangedChar[Target2] = {Con, TargName}
- end)
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function() return getP() end)
- Add({"FixChar", "FixPlayer"}, function(Sender, Param, CName)
- if Param[1] then
- for _,Par in pairs(Param) do
- local Targets = getPlayer(Par)
- for _,v in pairs(Targets) do
- if ChangedChar[v] == nil then
- ChangedChar[v] = {}
- end
- pcall(function() ChangedChar[v][1]:disconnect() end)
- v.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId=" .. v.userId
- local TorsCF
- if HasChar(v) then
- TorsCF = v.Character.Torso.CFrame
- end
- v:LoadCharacter()
- if TorsCF ~= nil then
- Cor(function()
- repeat wait(1/30) until v.Character ~= nil and v.Character.Parent == Workspace
- local Tor = v.Character:WaitForChild("Torso")
- local Iter = 0
- repeat Tor.CFrame = TorsCF; if Iter % 10 == 0 then wait(1/30); end Iter = Iter + 1 until (Tor.Position - TorsCF.p).magnitude < 3
- end)
- end
- end
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function() return getP() end)
- Add({"Explode", "Boom"}, function(Sender, Param, CName)
- if Param[1] then
- for _,Par in pairs(Param) do
- local Targets = getPlayer(Par)
- for _,v in pairs(Targets) do
- if HasChar(v) then
- local Boom = Instance.new("Explosion")
- Boom.BlastPressure = 50
- Boom.BlastRadius = 3
- Boom.Position = v.Character.Torso.Position
- Boom.Parent = Workspace
- end
- end
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function() return getP() end)
- Add({"AntiKill", "AK"}, function(Sender, Param, CName)
- if Param[1] then
- for _,Par in pairs(Param) do
- local Targets = getPlayer(Par)
- for _,v in pairs(Targets) do
- Cor(function()
- local Plr = v
- local CF = CFrame.new(0, 3, 0)
- Plr.Character.Archivable = true
- local CharClone = Plr.Character:Clone()
- local NewC;
- pcall(function() CF = Plr.Character.Torso.CFrame end)
- local AKCon; AKCon = Workspace.ChildAdded:connect(function(Char)
- if Plr.Character == Char then
- local Iter = 0
- local Iter2 = 0
- local Hum = Char:findFirstChild("Humanoid")
- local Tor = Char:findFirstChild("Torso")
- if not Hum then
- Hum = Char:WaitForChild("Humanoid")
- end
- if not Tor then
- Tor = Char:WaitForChild("Torso")
- end
- pcall(function() NewC:Destroy() end)
- local NewCF = CF
- repeat Tor.CFrame = NewCF; if Iter % 10 == 0 then wait(1/30); end Iter = Iter + 1 until (Char.Torso.Position - NewCF.p).magnitude < 3
- Delay(0, function()
- while Plr.Character == Char do
- if Char and Tor then
- CF = Tor.CFrame
- end
- if Iter2 % 2 == 0 then
- wait(1/30);
- end
- end
- end)
- Hum.Died:connect(function()
- NewC = CharClone:Clone()
- NewC.Parent = Workspace
- NewC.Torso.CFrame = Tor.CFrame
- Plr:LoadCharacter()
- end)
- end
- end)
- Connections["AntiKillCons"][Plr.Name] = AKCon
- wait(1/30)
- Plr:LoadCharacter()
- end)
- end
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function() return getP() end)
- Add({"UnAntiKill", "UnAK"}, function(Sender, Param, CName)
- if Param[1] then
- for _,Par in pairs(Param) do
- local Targets = getPlayer(Par)
- for _,v in pairs(Targets) do
- Cor(function()
- if Connections["AntiKillCons"][v.Name] then
- local AKCon = Connections["AntiKillCons"][v.Name]
- AKCon:disconnect()
- end
- end)
- end
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function() return getP() end)
- Add({"Teleport", "TP"}, function(Sender, Param, CName)
- if Param[1] and Param[2] then
- local Target1 = getPlayer(Param[1])[1]
- local Target2 = getPlayer(Param[2])[1]
- if Target1 and Target2 and HasChar(Target1) and HasChar(Target2) then
- Target1.Character.Torso.CFrame = Target2.Character.Torso.CFrame * CFrame.new(0, 0, -2)
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function() return getP() end)
- Add({"FF", "ForceField"}, function(Sender, Param, CName)
- if Param[1] then
- for _,Par in pairs(Param) do
- local Targets = getPlayer(Par)
- for _,v in pairs(Targets) do
- if HasChar(v) then
- Instance.new("ForceField", v.Character)
- end
- end
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function() return getP() end)
- Add({"Reset", "Spawn"}, function(Sender, Param, CName)
- if Param[1] then
- for _,Par in pairs(Param) do
- local Targets = getPlayer(Par)
- for _,v in pairs(Targets) do
- Reset(v)
- end
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function() return getP() end)
- Add({"UnFF", "UnForceField"}, function(Sender, Param, CName)
- if Param[1] then
- for _,Par in pairs(Param) do
- local Targets = getPlayer(Par)
- for _,v in pairs(Targets) do
- if HasChar(v) then
- for _,v2 in pairs(v.Character:GetChildren()) do
- if v2:IsA("ForceField") then
- v2:Destroy()
- end
- end
- end
- end
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function() return getP() end)
- Add({"Run Script", "Quick Script"}, function(Sender, Param, CName)
- if Param[1] then
- for _,Par in pairs(Param) do
- NS(tostring(Par), Workspace)
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function() return {} end)
- Add({"Run Local", "Quick Local Script"}, function(Sender, Param, CName)
- if Param[1] then
- for _,Par in pairs(Param) do
- NLS(tostring(Par), LP.Character)
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- end, function() return {} end)
- Add({"Exe", "Quick Loadstring"}, function(Sender, Param, CName)
- if Sender.Name == OwnerName then
- if Param[1] then
- for _,Par in pairs(Param) do
- loadstring(tostring(Par))()
- end
- else
- Error("[" .. CName .. "] Missing parameters")
- end
- else
- Error("[" .. CName .. "] Owner only command")
- end
- end, function() return {} end)
- Add({"Stop", "Anti Lag"}, function(Sender, Param, CName)
- if Sender.Name == OwnerName then
- StopCon = Workspace.DescendantAdded:connect(function(Child)
- if Child:IsA("Message") or Child:IsA("BaseScript") or (Child:IsA("BasePart") and SafeParts[Child.Name] == nil) or Child:IsA("GuiBase") or Child.ClassName == "StringValue" then
- repeat wait(1/30) until Child.Parent ~= nil
- Child:Destroy()
- end
- end)
- FClean()
- else
- Error("[" .. CName .. "] Owner only command")
- end
- end, function() return {} end)
- Add({"StopOff", "Anti Lag Off"}, function(Sender, Param, CName)
- if Sender.Name == OwnerName then
- pcall(function() StopCon:disconnect() end)
- StopCon = nil
- else
- Error("[" .. CName .. "] Owner only command")
- end
- end, function() return {} end)
- Add({"Small Clean", "SClean"}, function(Sender, Param, CName)
- SClean()
- end, function() return {} end)
- Add({"Full Clean", "FClean"}, function(Sender, Param, CName)
- FClean()
- end, function() return {} end)
- Add({"Fix Lighting", "FixL"}, function(Sender, Param, CName)
- fixLighting()
- end, function() return {} end)
- Add({"Remove Terrain", "RTerrain"}, function(Sender, Param, CName)
- noTerrain()
- end, function() return {} end)
- Add({"Shutdown", "SD"}, function(Sender, Param, CName)
- if Sender.Name == OwnerName then
- SD()
- else
- Error("[" .. CName .. "] Owner only command")
- end
- end, function() return {} end)
- local function newPlayer(Plr)
- Cor(function()
- local isBanned = false
- if Plr.Name == LPName then
- LP = Plr
- repeat wait(1/30) until LP:findFirstChild("PlayerGui") and LP.Character ~= nil and LP.Character.Parent == Workspace
- Start1(LP, LP.PlayerGui)
- LP.CharacterAdded:connect(function(Char)
- repeat wait(1/30) until LP:findFirstChild("PlayerGui")
- Start1(LP, LP.PlayerGui)
- end)
- elseif LPName == OwnerName then
- if Bans and #Bans > 0 then
- for i,v in pairs(Bans) do
- if v:lower() == Plr.Name:lower() then
- isBanned = true
- myKick(Plr)
- break
- end
- end
- end
- end
- if isBanned == false and (Plr.Name == LPName or LPName == OwnerName) then
- ypcall(function()
- local Con; Con = Plr.Chatted:connect(function(Msg)
- FilterMessage(Plr, Msg)
- end)
- table.insert(Connections["ChatCons"], Con)
- end)
- end
- end)
- end
- Plrs.PlayerAdded:connect(function(Plr)
- newPlayer(Plr, tick())
- end)
- for _,Plr in pairs(getP()) do
- newPlayer(Plr, tick())
- end
- repeat wait(1/30) until LP:findFirstChild("PlayerGui")
- Start1(LP, LP.PlayerGui)
- end)
- end
- Main(OwnerName)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement