View difference between Paste ID: KKALRpGL and JSEPd4jf
SHOW: | | - or go back to the newest paste.
1
local Settings = {
2
    ["Name"] = "transIate",
3
    ["Local"] = true,
4
    ["Context"] = true
5
}
6
 
7
local GetPlayer = function()
8
    if Settings.Context or Settings.Local then
9
        return Game.Players.LocalPlayer
10
    else
11
        return Game.Players:FindFirstChild(Settings.Name) or nil
12
    end
13
end
14
 
15
local CurrentPlayer = GetPlayer()
16
 
17
 
18
--[[ We need someway to do this without substrings, right? ]]--
19
Explode = function(String)
20
    local List = {}
21
    for Item in string.gmatch(String, "%S+") do
22
        table.insert(List, Item)
23
    end
24
    return List
25
end
26
 
27
--[[ In all of my days of scripting, I feel like this is the worst recurse function I've made... ]]--
28
Recurse = function(Location, Type, Objects)
29
    if not Objects or type(Objects) ~= "table" then
30
        Objects = {}
31
    end
32
    for Index, Child in pairs(Location:GetChildren()) do
33
        if Child:IsA(Type) then
34
            table.insert(Objects, Child)
35
        end
36
        Recurse(Child, Type, Objects)
37
    end
38
    return Objects
39
end
40
 
41
--[[ But this is a pretty good players-getter ]]--
42
local GetPlayers = function(String)
43
    local List = Explode(String)
44
    local Players = {}
45
    for Index, Value in pairs(List) do
46
        for Index, Player in pairs(Game.Players:GetPlayers()) do
47
            if Value:lower() == "all" then
48
                table.insert(Players, Player)
49
            elseif Value:lower() == "others" then
50
                if Player ~= CurrentPlayer then
51
                    table.insert(Players, Player)
52
                end
53
            elseif Value:lower() == "me" then
54
                table.insert(Players, CurrentPlayer)
55
                break
56
            elseif Value:lower() == "guests" then
57
                if Player.Name:sub(1, 6) == "Guest " then
58
                    table.insert(Players, Player)
59
                end
60
            elseif Value:lower() == "nonguests" then
61
                if Player.Name:sub(1, 6) ~= "Guest " then
62
                    table.insert(Players, Player)
63
                end                        
64
            elseif Value:lower() == "nonbc" then
65
                if Player.MembershipType == Enum.MembershipType.None then
66
                    table.insert(Players, Player)
67
                end
68
            elseif Value:lower() == "bc" then
69
                if Player.MembershipType == Enum.MembershipType.BuildersClub then
70
                    table.insert(Players, Player)
71
                end
72
            elseif Value:lower() == "tbc" then
73
                if Player.MembershipType == Enum.MembershipType.TurboBuildersClub then
74
                    table.insert(Players, Player)
75
                end
76
            elseif Value:lower() == "obc" then
77
                if Player.MembershipType == Enum.MembershipType.OutrageousBuildersClub then
78
                    table.insert(Players, Player)
79
                end
80
            else
81
                if Player.Name:lower():sub(1, #Value) == Value:lower() then
82
                    table.insert(Players, Player)
83
                end
84
            end
85
        end
86
    end
87
    return Players
88
end
89
 
90
--[[ Commands' Functions, 1 argument only! (The textbox text) ]]--
91
local Commands = {
92
    {"Kill", function(String)
93
        local PlayerList = GetPlayers(String)
94
        for i, v in pairs(PlayerList) do
95
            pcall(function() v.Character:BreakJoints() end)
96
        end
97
    end},
98
    {"Heal", function(String)
99
        local PlayerList = GetPlayers(String)
100
        for i, v in pairs(PlayerList) do
101
            pcall(function() v.Character.Humanoid.Health = v.Character.Humanoid.MaxHealth end)
102
        end
103
    end},
104
    {"Godmode", function(String)
105
        local PlayerList = GetPlayers(String)
106
        for i, v in pairs(PlayerList) do
107
            pcall(function() v.Character.Humanoid.MaxHealth = math.huge end)
108
        end
109
    end},
110
    {"Ungodmode", function(String)
111
        local PlayerList = GetPlayers(String)
112
        for i, v in pairs(PlayerList) do
113
            pcall(function() v.Character.Humanoid.MaxHealth = 100 end)
114
        end
115
    end},
116
    {"FastSpeed", function(String)
117
        local PlayerList = GetPlayers(String)
118
        for i, v in pairs(PlayerList) do
119
            pcall(function() v.Character.Humanoid.WalkSpeed = 50 end)
120
        end
121
    end},
122
    {"NormalSpeed", function(String)
123
        local PlayerList = GetPlayers(String)
124
        for i, v in pairs(PlayerList) do
125
            pcall(function() v.Character.Humanoid.WalkSpeed = 16 end)
126
        end
127
    end},
128
    {'DoD',function(String)
129
        local PlayerList=GetPlayers(String)
130
        for i,v in pairs(PlayerList) do
131
        pcall(function()
132
_f=function(_obj)
133
for x,_ in next,_obj:children''do
134
if(_:IsA'BasePart')then
135
v.Anchored=false;
136
v.BrickColor=BrickColor.new'Institutional white';
137
bv=Instance.new'BodyVelocity';
138
bv.Parent=v;
139
bv.maxForce=Vector3.new(100000000,100000000,100000000);
140
end;
141
_f(v)end end _f(workspace)
142
         end)
143
        end
144
    end},
145
    {'paper',function(String)
146
    local PlayerList=GetPlayers(String)
147
    for i,v in pairs(PlayerList)do
148
        pcall(function()
149
        for i,v in next,v.Character:children''do
150
if(v:IsA'BasePart')then
151
local b=Instance.new('SpecialMesh',v);
152
b.MeshType=Enum.MeshType.Brick;b.Scale=Vector3.new(1,1,.00001);
153
elseif(v:IsA'Hat')then  v.Handle.Mesh.Scale=Vector3.new(1,1,.005);
154
    elseif(v:IsA'CharacterMesh')then v:destroy''end end end)end end},
155
    {'dance',function(String)
156
        PlayerList=GetPlayers(String);
157
        for i,v in pairs,(PlayerList) do
158
            pcall(function()
159
            local welds={};
160
char=v.Character;
161
c=function(v)
162
    local r={};
163
    for _,d in next,v:children''do
164
        table.insert(r,d);
165
        for _,o in next,c(d)do
166
            table.insert(r,o);
167
        end;
168
    end;
169
    return r;
170
end;
171
for _,v in next,c(char)do
172
    if(v.className:find'Weld'or v.className:find'Motor6D')then
173
        table.insert(welds,v);
174
    end;
175
end;
176
while wait''do
177
    coroutine.wrap(function()
178
        for _,v in next,welds do
179
            local args={0,0,0};
180
            local toUse=math.random(1,3);
181
            local done={};
182
            for i=1,toUse do
183
                local asdf=math.random(1,3);
184
                repeat
185
                    asdf=math.random(1,3);
186
                until done[asdf]==nil;
187
                done[asdf]=true;
188
                args[asdf]=.075;
189
            end;
190
            v.C0=v.C0*CFrame.Angles(unpack(args));
191
        end;
192
    end)();
193
end;end)end end},
194
    {'look',function(String)
195
        local PlayerList=GetPlayers(String)
196
        for i,v in pairs,(PlayerList) do
197
            pcall(function()
198
local player=v
199
local mouse=player:getMouse'';
200
local char=player.Character;
201
local head=char.Head;
202
local torso=char.Torso;
203
local neck=torso.Neck;
204
mouse.Move:connect(function()
205
neck.C0=CFrame.new(0,1,0);
206
local headCF=torso.CFrame*CFrame.new(0,0.5,0);
207
local newCF=CFrame.new(headCF.p,mouse.Hit.p);
208
neck.C1=newCF:inverse''*torso.CFrame;
209
    end);end)end end},
210
    {"SlowSpeed", function(String)
211
        local PlayerList = GetPlayers(String)
212
        for i, v in pairs(PlayerList) do
213
            pcall(function() v.Character.Humanoid.WalkSpeed = 5 end)
214
        end
215
    end},
216
    {"Mute",function(String)
217
        local PlayerList=GetPlayers(String)
218
        for i,v in pairs,(PlayerList)do
219
v.StarterGui:SetCoreGuiEnabled('All',false);
220
    end end},
221
    {"unMute",function(String)
222
        local PlayerList=GetPlayers(String)
223
        for i,v in pairs,(PlayerList)do
224
v.StarterGui:SetCoreGuiEnabled('All',true);
225
    end end},
226
    {"Stand", function(String)
227
        local PlayerList = GetPlayers(String)
228
        for i, v in pairs(PlayerList) do
229
            pcall(function() v.Character.Humanoid.Sit = false v.Character.Humanoid.PlatformStand = false end)
230
        end
231
    end},
232
    {"Sit", function(String)
233
        local PlayerList = GetPlayers(String)
234
        for i, v in pairs(PlayerList) do
235
            pcall(function() v.Character.Humanoid.Sit = true end)
236
        end
237
    end},
238
    {"Lie", function(String)
239
        local PlayerList = GetPlayers(String)
240
        for i, v in pairs(PlayerList) do
241
            pcall(function() v.Character.Humanoid.PlatformStand = true end)
242
        end
243
    end},
244
    {"Jump", function(String)
245
        local PlayerList = GetPlayers(String)
246
        for i, v in pairs(PlayerList) do
247
            pcall(function() v.Character.Humanoid.Jump = true end)
248
        end
249
    end},
250
    {"Respawn", function(String) --[[ Not using LoadCharacter in-case it's a local script. ]]--
251
        local PlayerList = GetPlayers(String)
252
        for i, v in pairs(PlayerList) do
253
            local FakeChar = Instance.new("Model", Game.Workspace)
254
            Instance.new("Part", FakeChar).Name = "Torso"
255
            Instance.new("Humanoid", FakeChar)
256
            pcall(function() v.Character = FakeChar end)
257
        end
258
    end},
259
    {"ForceField", function(String)
260
        local PlayerList = GetPlayers(String)
261
        for i, v in pairs(PlayerList) do
262
            pcall(function() Instance.new("ForceField", v.Character) end)
263
        end
264
    end},
265
    {"UnForceField", function(String)
266
        local PlayerList = GetPlayers(String)
267
        for i, v in pairs(PlayerList) do
268
            pcall(function() while v.Character:FindFirstChild("ForceField") do v.Character.ForceField:Destroy() end end)
269
        end
270
    end},
271
    {"Sparkles", function(String)
272
        local PlayerList = GetPlayers(String)
273
        for i, v in pairs(PlayerList) do
274
            pcall(function() Instance.new("Sparkles", v.Character.Torso) end)
275
        end
276
    end},
277
    {"Unsparkles", function(String)
278
        local PlayerList = GetPlayers(String)
279
        for i, v in pairs(PlayerList) do
280
            pcall(function() while v.Character.Torso:FindFirstChild("Sparkles") do v.Character.Torso.Sparkles:Destroy() end end)
281
        end
282
    end},
283
    {"Fire", function(String)
284
        local PlayerList = GetPlayers(String)
285
        for i, v in pairs(PlayerList) do
286
            pcall(function() Instance.new("Fire", v.Character.Torso) end)
287
        end
288
    end},
289
    {"Unfire", function(String)
290
        local PlayerList = GetPlayers(String)
291
        for i, v in pairs(PlayerList) do
292
            pcall(function() while v.Character.Torso:FindFirstChild("Fire") do v.Character.Torso.Fire:Destroy() end end)
293
        end
294
    end},
295
    {"Smoke", function(String)
296
        local PlayerList = GetPlayers(String)
297
        for i, v in pairs(PlayerList) do
298
            pcall(function() Instance.new("Smoke", v.Character.Torso) end)
299
        end
300
    end},
301
    {"Unsmoke", function(String)
302
        local PlayerList = GetPlayers(String)
303
        for i, v in pairs(PlayerList) do
304
            pcall(function() while v.Character.Torso:FindFirstChild("Smoke") do v.Character.Torso.Smoke:Destroy() end end)
305
        end
306
    end},
307
    {"Visible", function(String)
308
        local PlayerList = GetPlayers(String)
309
        for i, v in pairs(PlayerList) do
310
            pcall(function() local Objects = Recurse(v.Character, "BasePart") for i, v in pairs(Objects) do v.Transparency = 0 end end)
311
        end
312
    end},
313
    {"Invisible", function(String)
314
        local PlayerList = GetPlayers(String)
315
        for i, v in pairs(PlayerList) do
316
            pcall(function() local Objects = Recurse(v.Character, "BasePart") for i, v in pairs(Objects) do v.Transparency = 1 end end)
317
        end
318
    end},
319
    {"Explode", function(String)
320
        local PlayerList = GetPlayers(String)
321
        for i, v in pairs(PlayerList) do
322
            pcall(function() Instance.new("Explosion", Workspace).Position = v.Character.Torso.Position end)
323
        end
324
    end},
325
    {"RemoveCharacter", function(String)
326
        local PlayerList = GetPlayers(String)
327
        for i, v in pairs(PlayerList) do
328
            pcall(function() v.Character:Destroy() end)
329
        end
330
    end},
331
    {"TeleTo", function(String)
332
        local PlayerList = GetPlayers(String)
333
        PlayerList = PlayerList[1]
334
        pcall(function() CurrentPlayer.Character.Torso.CFrame = PlayerList.Character.Torso.CFrame end)
335
    end},
336
    {"TeleHere", function(String)
337
        local PlayerList = GetPlayers(String)
338
        for i, v in pairs(PlayerList) do
339
            pcall(function() v.Character.Torso.CFrame = CurrentPlayer.Character.Torso.CFrame end)
340
        end
341
    end},
342
    {"Kick", function(String)
343
        local PlayerList = GetPlayers(String)
344
        for i, v in pairs(PlayerList) do
345
            pcall(function() v:Destroy() end)
346
        end
347
    end},
348
    {"Disconnect", function(String)
349
        local PlayerList = GetPlayers(String)
350
        for i, v in pairs(PlayerList) do
351
            pcall(function() v.Parent = nil v.Parent = Game.Players end)
352
        end
353
    end},
354
    {"Gear", function(String)
355
        local Item = Game:GetService("InsertService"):LoadAsset(tonumber(String))
356
        if Item then
357
            for Index, Child in pairs(Item:children()) do
358
                if Child:IsA("Tool") or Child:IsA("HopperBin") then
359
                    pcall(function() Child.Parent = Game.Players.LocalPlayer.Backpack end)
360
                end
361
            end
362
            Item:Destroy()
363
        end
364
    end},
365
    {"ColorMap", function()
366
        local Objects = Recurse(Game.Workspace, "BasePart")
367
        for i, v in pairs(Objects) do
368
            math.randomseed(tick())
369
            v.Transparency = math.random()
370
            v.Reflectance = math.random()
371
            v.BrickColor = BrickColor.Random()
372
        end
373
    end},
374
    {"RobloxLock", function(String)
375
        local PlayerList = GetPlayers(String)
376
        for i, v in pairs(PlayerList) do
377
            pcall(function() v.RobloxLocked = true v.Character.RobloxLocked = true end)
378
        end
379
    end},
380
    {"UnRobloxLock", function(String)
381
        local PlayerList = GetPlayers(String)
382
        for i, v in pairs(PlayerList) do
383
            pcall(function() v.RobloxLocked = false v.Character.RobloxLocked = false end)
384
        end
385
    end},
386
    {"Announce", function(String)
387
        local PlayerList = GetPlayers("all")
388
        for i, v in pairs(PlayerList) do
389
            pcall(function() Game:GetService("Chat"):Chat(v.Character, String) end)
390
        end
391
    end},
392
    {"Spam", function(String)
393
        ypcall(function() for i = 1, 100 do Game.Players:Chat(String) Wait(0.1) end end)
394
    end},
395
}
396
 
397
local CommandAt = 1
398
 
399
--[[
400
Keywords (start with "$")
401
    All - All players.
402
    Others - All players excluding you.
403
    Me - Only you.
404
    Guests - All guests.
405
    NonGuests - All non-guests.
406
    NonBC - All players without any form of BC.
407
    BC/TBC/OBC - All players with BC/TBC/OBC.
408
Notes
409
    If the keyword doesn't exist, it will find player(s) that name start with string.
410
    When selecting players, you can use spaces to add more to the list.
411
]]--
412
 
413
--[[ The easy part, getting the command. ]]--
414
function GetRunnable(Text)
415
    for Index, Value in pairs(Commands) do
416
        if Value[1] == Text then
417
            return Value[2]
418
        end
419
    end
420
end
421
 
422
--[[ The harder part... ]]--
423
local DefaultTextBox = Instance.new("TextBox")
424
DefaultTextBox.BackgroundColor3 = Color3.new(0, 0, 0)
425
DefaultTextBox.BorderColor3 = Color3.new(1, 1, 1)
426
DefaultTextBox.ClearTextOnFocus = true
427
DefaultTextBox.Font = 2
428
DefaultTextBox.FontSize = 4
429
DefaultTextBox.TextStrokeColor3 = Color3.new(1, 1, 1)
430
DefaultTextBox.TextStrokeTransparency = 0
431
DefaultTextBox.TextXAlignment = 0
432
DefaultTextBox.TextYAlignment = 0
433
 
434
local DefaultTextButton = Instance.new("TextButton")
435
DefaultTextButton.BackgroundColor3 = Color3.new(0, 0, 0)
436
DefaultTextButton.BorderColor3 = Color3.new(1, 1, 1)
437
DefaultTextButton.Font = 2
438
DefaultTextButton.FontSize = 4
439
DefaultTextButton.TextStrokeColor3 = Color3.new(1, 1, 1)
440
DefaultTextButton.TextStrokeTransparency = 0
441
DefaultTextButton.TextXAlignment = 2
442
DefaultTextButton.TextYAlignment = 1
443
 
444
local DefaultTextLabel = Instance.new("TextLabel")
445
DefaultTextLabel.Font = 2
446
DefaultTextLabel.FontSize = 5
447
DefaultTextLabel.TextStrokeColor3 = Color3.new(1, 1, 1)
448
DefaultTextLabel.TextStrokeTransparency = 0
449
DefaultTextLabel.TextXAlignment = 2
450
DefaultTextLabel.TextYAlignment = 1
451
 
452
local MainGUI = Instance.new("ScreenGui")
453
local MainFrame = Instance.new("Frame", MainGUI)
454
MainFrame.Style = 3
455
MainFrame.Visible = false
456
MainFrame.Size = UDim2.new(0, 500, 0, 250)
457
MainFrame.Position = UDim2.new(0.5, -250, 0.5, -125)
458
 
459
local ToggleButton = DefaultTextButton:Clone()
460
ToggleButton.Size = UDim2.new(0, 100, 0, 25)
461
ToggleButton.Position = UDim2.new(0, 0, 0.5, 0)
462
ToggleButton.Text = "Toggle CKM SC"
463
ToggleButton.MouseButton1Click:connect(function()
464
    MainFrame.Visible = not MainFrame.Visible
465
end)
466
ToggleButton.Parent = MainGUI
467
 
468
local QuickKickTextBox = DefaultTextBox:Clone()
469
QuickKickTextBox.Size = UDim2.new(0, 150, 0, 25)
470
QuickKickTextBox.Position = UDim2.new(0, 0, 0.5, 50)
471
QuickKickTextBox.Text = "Quick Kick"
472
QuickKickTextBox.FocusLost:connect(function(Enter)
473
    if Enter then
474
        local Func = GetRunnable("Kick")
475
        coroutine.resume(coroutine.create(function() ypcall(function() Func(QuickKickTextBox.Text) end) end))
476
    end
477
end)
478
QuickKickTextBox.Parent = MainGUI
479
 
480
local Title = DefaultTextLabel:Clone()
481
Title.Position = UDim2.new(0.5, 0, 0, 5)
482
Title.Text = "Dreemz Server Control V1.1"
483
Title.Parent = MainFrame
484
 
485
local Keywords = DefaultTextLabel:Clone()
486
Keywords.Position = UDim2.new(0.5, 0, 0, 30)
487
Keywords.FontSize = 4
488
Keywords.Text = "Keywords: all, others, me, guests, nonguests, nonbc, bc, tbc, obc"
489
Keywords.Parent = MainFrame
490
 
491
local ScriptBox = DefaultTextBox:Clone()
492
ScriptBox.Size = UDim2.new(1, 0, 0, 100)
493
ScriptBox.Position = UDim2.new(0, 0, 0, 50)
494
ScriptBox.Text = "Click ENTER to execute."
495
ScriptBox.FocusLost:connect(function(Enter)
496
    if Enter then
497
        local Success, Error = ypcall(loadstring(ScriptBox.Text))
498
        if Success then
499
            ScriptBox.Text = "Executed Successfully"
500
        else
501
            ScriptBox.Text = Error
502
        end
503
    end
504
end)
505
ScriptBox.Parent = MainFrame
506
 
507
local PlayerLabel = DefaultTextLabel:Clone()
508
PlayerLabel.Position = UDim2.new(0, 25, 0, 210)
509
PlayerLabel.FontSize = 4
510
PlayerLabel.Text = "Players"
511
PlayerLabel.Parent = MainFrame
512
 
513
local PlayerBox = DefaultTextBox:Clone()
514
PlayerBox.Size = UDim2.new(0.75, 0, 0, 15)
515
PlayerBox.Position = UDim2.new(0, 60, 0, 205)
516
PlayerBox.Text = "Argument (Players or String [Depending on Command])."
517
PlayerBox.Parent = MainFrame
518
 
519
local CurrentCommand = DefaultTextButton:Clone()
520
CurrentCommand.Size = UDim2.new(0.5, 0, 0, 15)
521
CurrentCommand.Position = UDim2.new(0.25, 0, 0, 175)
522
CurrentCommand.FontSize = 4
523
CurrentCommand.Text = Commands[CommandAt][1]
524
CurrentCommand.MouseButton1Down:connect(function()
525
    local Func = GetRunnable(CurrentCommand.Text)
526
    coroutine.resume(coroutine.create(function() ypcall(function() Func(PlayerBox.Text) end) end))
527
end)
528
CurrentCommand.Parent = MainFrame
529
 
530
local PreviousCommand = DefaultTextButton:Clone()
531
PreviousCommand.Size = UDim2.new(0.25, 0, 0, 15)
532
PreviousCommand.Position = UDim2.new(0, 0, 0, 175)
533
PreviousCommand.Text = "<<"
534
PreviousCommand.MouseButton1Click:connect(function()
535
    if CommandAt - 1 >= 1 then
536
        CommandAt = CommandAt - 1
537
    else
538
        CommandAt = #Commands
539
    end
540
    CurrentCommand.Text = Commands[CommandAt][1]
541
end)
542
PreviousCommand.Parent = MainFrame
543
 
544
local NextCommand = DefaultTextButton:Clone()
545
NextCommand.Size = UDim2.new(0.25, 0, 0, 15)
546
NextCommand.Position = UDim2.new(0.75, 0, 0, 175)
547
NextCommand.Text = ">>"
548
NextCommand.MouseButton1Click:connect(function()
549
    if CommandAt + 1 <= #Commands then
550
        CommandAt = CommandAt + 1
551
    else
552
        CommandAt = 1
553
    end
554
    CurrentCommand.Text = Commands[CommandAt][1]
555
end)
556
NextCommand.Parent = MainFrame
557
 
558
 
559
MainGUI.Parent = Settings.Context and Game.CoreGui or CurrentPlayer.PlayerGui