local Settings = {
    ["Name"] = "transIate",
    ["Local"] = true,
    ["Context"] = true
}

local GetPlayer = function()
    if Settings.Context or Settings.Local then
        return Game.Players.LocalPlayer
    else
        return Game.Players:FindFirstChild(Settings.Name) or nil
    end
end

local CurrentPlayer = GetPlayer()


--[[ We need someway to do this without substrings, right? ]]--
Explode = function(String)
    local List = {}
    for Item in string.gmatch(String, "%S+") do
        table.insert(List, Item)
    end
    return List
end

--[[ In all of my days of scripting, I feel like this is the worst recurse function I've made... ]]--
Recurse = function(Location, Type, Objects)
    if not Objects or type(Objects) ~= "table" then
        Objects = {}
    end
    for Index, Child in pairs(Location:GetChildren()) do
        if Child:IsA(Type) then
            table.insert(Objects, Child)
        end
        Recurse(Child, Type, Objects)
    end
    return Objects
end

--[[ But this is a pretty good players-getter ]]--
local GetPlayers = function(String)
    local List = Explode(String)
    local Players = {}
    for Index, Value in pairs(List) do
        for Index, Player in pairs(Game.Players:GetPlayers()) do
            if Value:lower() == "all" then
                table.insert(Players, Player)
            elseif Value:lower() == "others" then
                if Player ~= CurrentPlayer then
                    table.insert(Players, Player)
                end
            elseif Value:lower() == "me" then
                table.insert(Players, CurrentPlayer)
                break
            elseif Value:lower() == "guests" then
                if Player.Name:sub(1, 6) == "Guest " then
                    table.insert(Players, Player)
                end
            elseif Value:lower() == "nonguests" then
                if Player.Name:sub(1, 6) ~= "Guest " then
                    table.insert(Players, Player)
                end
            elseif Value:lower() == "nonbc" then
                if Player.MembershipType == Enum.MembershipType.None then
                    table.insert(Players, Player)
                end
            elseif Value:lower() == "bc" then
                if Player.MembershipType == Enum.MembershipType.BuildersClub then
                    table.insert(Players, Player)
                end
            elseif Value:lower() == "tbc" then
                if Player.MembershipType == Enum.MembershipType.TurboBuildersClub then
                    table.insert(Players, Player)
                end
            elseif Value:lower() == "obc" then
                if Player.MembershipType == Enum.MembershipType.OutrageousBuildersClub then
                    table.insert(Players, Player)
                end
            else
                if Player.Name:lower():sub(1, #Value) == Value:lower() then
                    table.insert(Players, Player)
                end
            end
        end
    end
    return Players
end

--[[ Commands' Functions, 1 argument only! (The textbox text) ]]--
local Commands = {
    {"Kill", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.Character:BreakJoints() end)
        end
    end},
    {"Heal", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.Character.Humanoid.Health = v.Character.Humanoid.MaxHealth end)
        end
    end},
    {"Godmode", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.Character.Humanoid.MaxHealth = math.huge end)
        end
    end},
    {"Ungodmode", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.Character.Humanoid.MaxHealth = 100 end)
        end
    end},
    {"FastSpeed", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.Character.Humanoid.WalkSpeed = 50 end)
        end
    end},
    {"NormalSpeed", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.Character.Humanoid.WalkSpeed = 16 end)
        end
    end},
    {'DoD',function(String)
        local PlayerList=GetPlayers(String)
        for i,v in pairs(PlayerList) do
        pcall(function()
_f=function(_obj)
for x,_ in next,_obj:children''do
if(_:IsA'BasePart')then
v.Anchored=false;
v.BrickColor=BrickColor.new'Institutional white';
bv=Instance.new'BodyVelocity';
bv.Parent=v;
bv.maxForce=Vector3.new(100000000,100000000,100000000);
end;
_f(v)end end _f(workspace)
         end)
        end
    end},
    {'paper',function(String)
    local PlayerList=GetPlayers(String)
    for i,v in pairs(PlayerList)do
        pcall(function()
        for i,v in next,v.Character:children''do
if(v:IsA'BasePart')then
local b=Instance.new('SpecialMesh',v);
b.MeshType=Enum.MeshType.Brick;b.Scale=Vector3.new(1,1,.00001);
elseif(v:IsA'Hat')then  v.Handle.Mesh.Scale=Vector3.new(1,1,.005);
    elseif(v:IsA'CharacterMesh')then v:destroy''end end end)end end},
    {'dance',function(String)
        PlayerList=GetPlayers(String);
        for i,v in pairs,(PlayerList) do
            pcall(function()
            local welds={};
char=v.Character;
c=function(v)
    local r={};
    for _,d in next,v:children''do
        table.insert(r,d);
        for _,o in next,c(d)do
            table.insert(r,o);
        end;
    end;
    return r;
end;
for _,v in next,c(char)do
    if(v.className:find'Weld'or v.className:find'Motor6D')then
        table.insert(welds,v);
    end;
end;
while wait''do
    coroutine.wrap(function()
        for _,v in next,welds do
            local args={0,0,0};
            local toUse=math.random(1,3);
            local done={};
            for i=1,toUse do
                local asdf=math.random(1,3);
                repeat
                    asdf=math.random(1,3);
                until done[asdf]==nil;
                done[asdf]=true;
                args[asdf]=.075;
            end;
            v.C0=v.C0*CFrame.Angles(unpack(args));
        end;
    end)();
end;end)end end},
    {'look',function(String)
        local PlayerList=GetPlayers(String)
        for i,v in pairs,(PlayerList) do
            pcall(function()
local player=v
local mouse=player:getMouse'';
local char=player.Character;
local head=char.Head;
local torso=char.Torso;
local neck=torso.Neck;
mouse.Move:connect(function()
neck.C0=CFrame.new(0,1,0);
local headCF=torso.CFrame*CFrame.new(0,0.5,0);
local newCF=CFrame.new(headCF.p,mouse.Hit.p);
neck.C1=newCF:inverse''*torso.CFrame;
    end);end)end end},
    {"SlowSpeed", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.Character.Humanoid.WalkSpeed = 5 end)
        end
    end},
    {"Mute",function(String)
        local PlayerList=GetPlayers(String)
        for i,v in pairs,(PlayerList)do
v.StarterGui:SetCoreGuiEnabled('All',false);
    end end},
    {"unMute",function(String)
        local PlayerList=GetPlayers(String)
        for i,v in pairs,(PlayerList)do
v.StarterGui:SetCoreGuiEnabled('All',true);
    end end},
    {"Stand", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.Character.Humanoid.Sit = false v.Character.Humanoid.PlatformStand = false end)
        end
    end},
    {"Sit", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.Character.Humanoid.Sit = true end)
        end
    end},
    {"Lie", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.Character.Humanoid.PlatformStand = true end)
        end
    end},
    {"Jump", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.Character.Humanoid.Jump = true end)
        end
    end},
    {"Respawn", function(String) --[[ Not using LoadCharacter in-case it's a local script. ]]--
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            local FakeChar = Instance.new("Model", Game.Workspace)
            Instance.new("Part", FakeChar).Name = "Torso"
            Instance.new("Humanoid", FakeChar)
            pcall(function() v.Character = FakeChar end)
        end
    end},
    {"ForceField", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() Instance.new("ForceField", v.Character) end)
        end
    end},
    {"UnForceField", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() while v.Character:FindFirstChild("ForceField") do v.Character.ForceField:Destroy() end end)
        end
    end},
    {"Sparkles", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() Instance.new("Sparkles", v.Character.Torso) end)
        end
    end},
    {"Unsparkles", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() while v.Character.Torso:FindFirstChild("Sparkles") do v.Character.Torso.Sparkles:Destroy() end end)
        end
    end},
    {"Fire", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() Instance.new("Fire", v.Character.Torso) end)
        end
    end},
    {"Unfire", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() while v.Character.Torso:FindFirstChild("Fire") do v.Character.Torso.Fire:Destroy() end end)
        end
    end},
    {"Smoke", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() Instance.new("Smoke", v.Character.Torso) end)
        end
    end},
    {"Unsmoke", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() while v.Character.Torso:FindFirstChild("Smoke") do v.Character.Torso.Smoke:Destroy() end end)
        end
    end},
    {"Visible", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() local Objects = Recurse(v.Character, "BasePart") for i, v in pairs(Objects) do v.Transparency = 0 end end)
        end
    end},
    {"Invisible", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() local Objects = Recurse(v.Character, "BasePart") for i, v in pairs(Objects) do v.Transparency = 1 end end)
        end
    end},
    {"Explode", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() Instance.new("Explosion", Workspace).Position = v.Character.Torso.Position end)
        end
    end},
    {"RemoveCharacter", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.Character:Destroy() end)
        end
    end},
    {"TeleTo", function(String)
        local PlayerList = GetPlayers(String)
        PlayerList = PlayerList[1]
        pcall(function() CurrentPlayer.Character.Torso.CFrame = PlayerList.Character.Torso.CFrame end)
    end},
    {"TeleHere", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.Character.Torso.CFrame = CurrentPlayer.Character.Torso.CFrame end)
        end
    end},
    {"Kick", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v:Destroy() end)
        end
    end},
    {"Disconnect", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.Parent = nil v.Parent = Game.Players end)
        end
    end},
    {"Gear", function(String)
        local Item = Game:GetService("InsertService"):LoadAsset(tonumber(String))
        if Item then
            for Index, Child in pairs(Item:children()) do
                if Child:IsA("Tool") or Child:IsA("HopperBin") then
                    pcall(function() Child.Parent = Game.Players.LocalPlayer.Backpack end)
                end
            end
            Item:Destroy()
        end
    end},
    {"ColorMap", function()
        local Objects = Recurse(Game.Workspace, "BasePart")
        for i, v in pairs(Objects) do
            math.randomseed(tick())
            v.Transparency = math.random()
            v.Reflectance = math.random()
            v.BrickColor = BrickColor.Random()
        end
    end},
    {"RobloxLock", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.RobloxLocked = true v.Character.RobloxLocked = true end)
        end
    end},
    {"UnRobloxLock", function(String)
        local PlayerList = GetPlayers(String)
        for i, v in pairs(PlayerList) do
            pcall(function() v.RobloxLocked = false v.Character.RobloxLocked = false end)
        end
    end},
    {"Announce", function(String)
        local PlayerList = GetPlayers("all")
        for i, v in pairs(PlayerList) do
            pcall(function() Game:GetService("Chat"):Chat(v.Character, String) end)
        end
    end},
    {"Spam", function(String)
        ypcall(function() for i = 1, 100 do Game.Players:Chat(String) Wait(0.1) end end)
    end},
}

local CommandAt = 1

--[[
Keywords (start with "$")
    All - All players.
    Others - All players excluding you.
    Me - Only you.
    Guests - All guests.
    NonGuests - All non-guests.
    NonBC - All players without any form of BC.
    BC/TBC/OBC - All players with BC/TBC/OBC.
Notes
    If the keyword doesn't exist, it will find player(s) that name start with string.
    When selecting players, you can use spaces to add more to the list.
]]--

--[[ The easy part, getting the command. ]]--
function GetRunnable(Text)
    for Index, Value in pairs(Commands) do
        if Value[1] == Text then
            return Value[2]
        end
    end
end

--[[ The harder part... ]]--
local DefaultTextBox = Instance.new("TextBox")
DefaultTextBox.BackgroundColor3 = Color3.new(0, 0, 0)
DefaultTextBox.BorderColor3 = Color3.new(1, 1, 1)
DefaultTextBox.ClearTextOnFocus = true
DefaultTextBox.Font = 2
DefaultTextBox.FontSize = 4
DefaultTextBox.TextStrokeColor3 = Color3.new(1, 1, 1)
DefaultTextBox.TextStrokeTransparency = 0
DefaultTextBox.TextXAlignment = 0
DefaultTextBox.TextYAlignment = 0

local DefaultTextButton = Instance.new("TextButton")
DefaultTextButton.BackgroundColor3 = Color3.new(0, 0, 0)
DefaultTextButton.BorderColor3 = Color3.new(1, 1, 1)
DefaultTextButton.Font = 2
DefaultTextButton.FontSize = 4
DefaultTextButton.TextStrokeColor3 = Color3.new(1, 1, 1)
DefaultTextButton.TextStrokeTransparency = 0
DefaultTextButton.TextXAlignment = 2
DefaultTextButton.TextYAlignment = 1

local DefaultTextLabel = Instance.new("TextLabel")
DefaultTextLabel.Font = 2
DefaultTextLabel.FontSize = 5
DefaultTextLabel.TextStrokeColor3 = Color3.new(1, 1, 1)
DefaultTextLabel.TextStrokeTransparency = 0
DefaultTextLabel.TextXAlignment = 2
DefaultTextLabel.TextYAlignment = 1

local MainGUI = Instance.new("ScreenGui")
local MainFrame = Instance.new("Frame", MainGUI)
MainFrame.Style = 3
MainFrame.Visible = false
MainFrame.Size = UDim2.new(0, 500, 0, 250)
MainFrame.Position = UDim2.new(0.5, -250, 0.5, -125)

local ToggleButton = DefaultTextButton:Clone()
ToggleButton.Size = UDim2.new(0, 100, 0, 25)
ToggleButton.Position = UDim2.new(0, 0, 0.5, 0)
ToggleButton.Text = "Toggle CKM SC"
ToggleButton.MouseButton1Click:connect(function()
    MainFrame.Visible = not MainFrame.Visible
end)
ToggleButton.Parent = MainGUI

local QuickKickTextBox = DefaultTextBox:Clone()
QuickKickTextBox.Size = UDim2.new(0, 150, 0, 25)
QuickKickTextBox.Position = UDim2.new(0, 0, 0.5, 50)
QuickKickTextBox.Text = "Quick Kick"
QuickKickTextBox.FocusLost:connect(function(Enter)
    if Enter then
        local Func = GetRunnable("Kick")
        coroutine.resume(coroutine.create(function() ypcall(function() Func(QuickKickTextBox.Text) end) end))
    end
end)
QuickKickTextBox.Parent = MainGUI

local Title = DefaultTextLabel:Clone()
Title.Position = UDim2.new(0.5, 0, 0, 5)
Title.Text = "Dreemz Server Control V1.1"
Title.Parent = MainFrame

local Keywords = DefaultTextLabel:Clone()
Keywords.Position = UDim2.new(0.5, 0, 0, 30)
Keywords.FontSize = 4
Keywords.Text = "Keywords: all, others, me, guests, nonguests, nonbc, bc, tbc, obc"
Keywords.Parent = MainFrame

local ScriptBox = DefaultTextBox:Clone()
ScriptBox.Size = UDim2.new(1, 0, 0, 100)
ScriptBox.Position = UDim2.new(0, 0, 0, 50)
ScriptBox.Text = "Click ENTER to execute."
ScriptBox.FocusLost:connect(function(Enter)
    if Enter then
        local Success, Error = ypcall(loadstring(ScriptBox.Text))
        if Success then
            ScriptBox.Text = "Executed Successfully"
        else
            ScriptBox.Text = Error
        end
    end
end)
ScriptBox.Parent = MainFrame

local PlayerLabel = DefaultTextLabel:Clone()
PlayerLabel.Position = UDim2.new(0, 25, 0, 210)
PlayerLabel.FontSize = 4
PlayerLabel.Text = "Players"
PlayerLabel.Parent = MainFrame

local PlayerBox = DefaultTextBox:Clone()
PlayerBox.Size = UDim2.new(0.75, 0, 0, 15)
PlayerBox.Position = UDim2.new(0, 60, 0, 205)
PlayerBox.Text = "Argument (Players or String [Depending on Command])."
PlayerBox.Parent = MainFrame

local CurrentCommand = DefaultTextButton:Clone()
CurrentCommand.Size = UDim2.new(0.5, 0, 0, 15)
CurrentCommand.Position = UDim2.new(0.25, 0, 0, 175)
CurrentCommand.FontSize = 4
CurrentCommand.Text = Commands[CommandAt][1]
CurrentCommand.MouseButton1Down:connect(function()
    local Func = GetRunnable(CurrentCommand.Text)
    coroutine.resume(coroutine.create(function() ypcall(function() Func(PlayerBox.Text) end) end))
end)
CurrentCommand.Parent = MainFrame

local PreviousCommand = DefaultTextButton:Clone()
PreviousCommand.Size = UDim2.new(0.25, 0, 0, 15)
PreviousCommand.Position = UDim2.new(0, 0, 0, 175)
PreviousCommand.Text = "<<"
PreviousCommand.MouseButton1Click:connect(function()
    if CommandAt - 1 >= 1 then
        CommandAt = CommandAt - 1
    else
        CommandAt = #Commands
    end
    CurrentCommand.Text = Commands[CommandAt][1]
end)
PreviousCommand.Parent = MainFrame

local NextCommand = DefaultTextButton:Clone()
NextCommand.Size = UDim2.new(0.25, 0, 0, 15)
NextCommand.Position = UDim2.new(0.75, 0, 0, 175)
NextCommand.Text = ">>"
NextCommand.MouseButton1Click:connect(function()
    if CommandAt + 1 <= #Commands then
        CommandAt = CommandAt + 1
    else
        CommandAt = 1
    end
    CurrentCommand.Text = Commands[CommandAt][1]
end)
NextCommand.Parent = MainFrame


MainGUI.Parent = Settings.Context and Game.CoreGui or CurrentPlayer.PlayerGui