local Settings = {
["Name"] = "transIate",
["Local"] = true,
["Context"] = true
}
local GetPlayer = function()
if [Link] or [Link] then
return [Link]
else
return [Link]:FindFirstChild([Link]) or nil
end
end
local CurrentPlayer = GetPlayer()
--[[ We need someway to do this without substrings, right? ]]--
Explode = function(String)
local List = {}
for Item in [Link](String, "%S+") do
[Link](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
[Link](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([Link]:GetPlayers()) do
if Value:lower() == "all" then
[Link](Players, Player)
elseif Value:lower() == "others" then
if Player ~= CurrentPlayer then
[Link](Players, Player)
end
elseif Value:lower() == "me" then
[Link](Players, CurrentPlayer)
break
elseif Value:lower() == "guests" then
if [Link]:sub(1, 6) == "Guest " then
[Link](Players, Player)
end
elseif Value:lower() == "nonguests" then
if [Link]:sub(1, 6) ~= "Guest " then
[Link](Players, Player)
end
elseif Value:lower() == "nonbc" then
if [Link] == [Link] then
[Link](Players, Player)
end
elseif Value:lower() == "bc" then
if [Link] == [Link] then
[Link](Players, Player)
end
elseif Value:lower() == "tbc" then
if [Link] == [Link]
then
[Link](Players, Player)
end
elseif Value:lower() == "obc" then
if [Link] ==
[Link] then
[Link](Players, Player)
end
else
if [Link]:lower():sub(1, #Value) == Value:lower() then
[Link](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() [Link]:BreakJoints() end)
end
end},
{"Heal", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link] =
[Link] end)
end
end},
{"Godmode", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link] = [Link] end)
end
end},
{"Ungodmode", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link] = 100 end)
end
end},
{"FastSpeed", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link] = 50 end)
end
end},
{"NormalSpeed", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link] = 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
[Link]=false;
[Link]=[Link]'Institutional white';
bv=[Link]'BodyVelocity';
[Link]=v;
[Link]=[Link](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,[Link]:children''do
if(v:IsA'BasePart')then
local b=[Link]('SpecialMesh',v);
[Link]=[Link];[Link]=[Link](1,1,.00001);
elseif(v:IsA'Hat')then [Link]=[Link](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=[Link];
c=function(v)
local r={};
for _,d in next,v:children''do
[Link](r,d);
for _,o in next,c(d)do
[Link](r,o);
end;
end;
return r;
end;
for _,v in next,c(char)do
if([Link]:find'Weld'or [Link]:find'Motor6D')then
[Link](welds,v);
end;
end;
while wait''do
[Link](function()
for _,v in next,welds do
local args={0,0,0};
local toUse=[Link](1,3);
local done={};
for i=1,toUse do
local asdf=[Link](1,3);
repeat
asdf=[Link](1,3);
until done[asdf]==nil;
done[asdf]=true;
args[asdf]=.075;
end;
v.C0=v.C0*[Link](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=[Link];
local head=[Link];
local torso=[Link];
local neck=[Link];
[Link]:connect(function()
neck.C0=[Link](0,1,0);
local headCF=[Link]*[Link](0,0.5,0);
local newCF=[Link](headCF.p,[Link].p);
neck.C1=newCF:inverse''*[Link];
end);end)end end},
{"SlowSpeed", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link] = 5 end)
end
end},
{"Mute",function(String)
local PlayerList=GetPlayers(String)
for i,v in pairs,(PlayerList)do
[Link]:SetCoreGuiEnabled('All',false);
end end},
{"unMute",function(String)
local PlayerList=GetPlayers(String)
for i,v in pairs,(PlayerList)do
[Link]:SetCoreGuiEnabled('All',true);
end end},
{"Stand", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link] = false
[Link] = false end)
end
end},
{"Sit", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link] = true end)
end
end},
{"Lie", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link] = true end)
end
end},
{"Jump", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link] = 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 = [Link]("Model", [Link])
[Link]("Part", FakeChar).Name = "Torso"
[Link]("Humanoid", FakeChar)
pcall(function() [Link] = FakeChar end)
end
end},
{"ForceField", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link]("ForceField", [Link]) end)
end
end},
{"UnForceField", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() while [Link]:FindFirstChild("ForceField") do
[Link]:Destroy() end end)
end
end},
{"Sparkles", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link]("Sparkles", [Link]) end)
end
end},
{"Unsparkles", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() while [Link]:FindFirstChild("Sparkles") do
[Link]:Destroy() end end)
end
end},
{"Fire", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link]("Fire", [Link]) end)
end
end},
{"Unfire", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() while [Link]:FindFirstChild("Fire") do
[Link]:Destroy() end end)
end
end},
{"Smoke", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link]("Smoke", [Link]) end)
end
end},
{"Unsmoke", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() while [Link]:FindFirstChild("Smoke") do
[Link]:Destroy() end end)
end
end},
{"Visible", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() local Objects = Recurse([Link], "BasePart") for
i, v in pairs(Objects) do [Link] = 0 end end)
end
end},
{"Invisible", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() local Objects = Recurse([Link], "BasePart") for
i, v in pairs(Objects) do [Link] = 1 end end)
end
end},
{"Explode", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link]("Explosion", Workspace).Position =
[Link] end)
end
end},
{"RemoveCharacter", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link]:Destroy() end)
end
end},
{"TeleTo", function(String)
local PlayerList = GetPlayers(String)
PlayerList = PlayerList[1]
pcall(function() [Link] =
[Link] end)
end},
{"TeleHere", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link] =
[Link] 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() [Link] = nil [Link] = [Link] 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() [Link] =
[Link] end)
end
end
Item:Destroy()
end
end},
{"ColorMap", function()
local Objects = Recurse([Link], "BasePart")
for i, v in pairs(Objects) do
[Link](tick())
[Link] = [Link]()
[Link] = [Link]()
[Link] = [Link]()
end
end},
{"RobloxLock", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link] = true [Link] = true
end)
end
end},
{"UnRobloxLock", function(String)
local PlayerList = GetPlayers(String)
for i, v in pairs(PlayerList) do
pcall(function() [Link] = false [Link] =
false end)
end
end},
{"Announce", function(String)
local PlayerList = GetPlayers("all")
for i, v in pairs(PlayerList) do
pcall(function() Game:GetService("Chat"):Chat([Link], String) end)
end
end},
{"Spam", function(String)
ypcall(function() for i = 1, 100 do [Link]: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 = [Link]("TextBox")
DefaultTextBox.BackgroundColor3 = [Link](0, 0, 0)
DefaultTextBox.BorderColor3 = [Link](1, 1, 1)
[Link] = true
[Link] = 2
[Link] = 4
DefaultTextBox.TextStrokeColor3 = [Link](1, 1, 1)
[Link] = 0
[Link] = 0
[Link] = 0
local DefaultTextButton = [Link]("TextButton")
DefaultTextButton.BackgroundColor3 = [Link](0, 0, 0)
DefaultTextButton.BorderColor3 = [Link](1, 1, 1)
[Link] = 2
[Link] = 4
DefaultTextButton.TextStrokeColor3 = [Link](1, 1, 1)
[Link] = 0
[Link] = 2
[Link] = 1
local DefaultTextLabel = [Link]("TextLabel")
[Link] = 2
[Link] = 5
DefaultTextLabel.TextStrokeColor3 = [Link](1, 1, 1)
[Link] = 0
[Link] = 2
[Link] = 1
local MainGUI = [Link]("ScreenGui")
local MainFrame = [Link]("Frame", MainGUI)
[Link] = 3
[Link] = false
[Link] = [Link](0, 500, 0, 250)
[Link] = [Link](0.5, -250, 0.5, -125)
local ToggleButton = DefaultTextButton:Clone()
[Link] = [Link](0, 100, 0, 25)
[Link] = [Link](0, 0, 0.5, 0)
[Link] = "Toggle CKM SC"
ToggleButton.MouseButton1Click:connect(function()
[Link] = not [Link]
end)
[Link] = MainGUI
local QuickKickTextBox = DefaultTextBox:Clone()
[Link] = [Link](0, 150, 0, 25)
[Link] = [Link](0, 0, 0.5, 50)
[Link] = "Quick Kick"
[Link]:connect(function(Enter)
if Enter then
local Func = GetRunnable("Kick")
[Link]([Link](function() ypcall(function()
Func([Link]) end) end))
end
end)
[Link] = MainGUI
local Title = DefaultTextLabel:Clone()
[Link] = [Link](0.5, 0, 0, 5)
[Link] = "Dreemz Server Control V1.1"
[Link] = MainFrame
local Keywords = DefaultTextLabel:Clone()
[Link] = [Link](0.5, 0, 0, 30)
[Link] = 4
[Link] = "Keywords: all, others, me, guests, nonguests, nonbc, bc, tbc, obc"
[Link] = MainFrame
local ScriptBox = DefaultTextBox:Clone()
[Link] = [Link](1, 0, 0, 100)
[Link] = [Link](0, 0, 0, 50)
[Link] = "Click ENTER to execute."
[Link]:connect(function(Enter)
if Enter then
local Success, Error = ypcall(loadstring([Link]))
if Success then
[Link] = "Executed Successfully"
else
[Link] = Error
end
end
end)
[Link] = MainFrame
local PlayerLabel = DefaultTextLabel:Clone()
[Link] = [Link](0, 25, 0, 210)
[Link] = 4
[Link] = "Players"
[Link] = MainFrame
local PlayerBox = DefaultTextBox:Clone()
[Link] = [Link](0.75, 0, 0, 15)
[Link] = [Link](0, 60, 0, 205)
[Link] = "Argument (Players or String [Depending on Command])."
[Link] = MainFrame
local CurrentCommand = DefaultTextButton:Clone()
[Link] = [Link](0.5, 0, 0, 15)
[Link] = [Link](0.25, 0, 0, 175)
[Link] = 4
[Link] = Commands[CommandAt][1]
CurrentCommand.MouseButton1Down:connect(function()
local Func = GetRunnable([Link])
[Link]([Link](function() ypcall(function()
Func([Link]) end) end))
end)
[Link] = MainFrame
local PreviousCommand = DefaultTextButton:Clone()
[Link] = [Link](0.25, 0, 0, 15)
[Link] = [Link](0, 0, 0, 175)
[Link] = "<<"
PreviousCommand.MouseButton1Click:connect(function()
if CommandAt - 1 >= 1 then
CommandAt = CommandAt - 1
else
CommandAt = #Commands
end
[Link] = Commands[CommandAt][1]
end)
[Link] = MainFrame
local NextCommand = DefaultTextButton:Clone()
[Link] = [Link](0.25, 0, 0, 15)
[Link] = [Link](0.75, 0, 0, 175)
[Link] = ">>"
NextCommand.MouseButton1Click:connect(function()
if CommandAt + 1 <= #Commands then
CommandAt = CommandAt + 1
else
CommandAt = 1
end
[Link] = Commands[CommandAt][1]
end)
[Link] = MainFrame
[Link] = [Link] and [Link] or [Link]