View difference between Paste ID: vu9LxJ7Y and NMmfT8eX
SHOW: | | - or go back to the newest paste.
1
 
2
3
wait()
4
script.Parent = nil
5
script.Name = 'orangecraftfan100'
6
7
                local Workspace = game:GetService("Workspace")
8
                Players = game:GetService("Players")
9
                NetworkServer = game:GetService("NetworkServer")
10
                HttpService = game:GetService("HttpService")
11
                RunService = game:GetService("RunService")
12
                MarketPlace = game:GetService("MarketplaceService")
13
                Data = game:GetService("DataStoreService")
14
                InsertService = game:GetService("InsertService")
15
                MainFolder = Instance.new("Folder")
16
orangecraftfan100 = {
17
Services = {};
18
Settings = {};
19
Functions = {};
20
Commands = {};
21
Prefix = '#';
22
Suffix = '/';
23
Bet3 = '-';
24
}
25
-----------
26
-----------
27
--Services--
28
------------------
29
orangecraftfan100.Services.RunService = game:GetService('RunService')
30
orangecraftfan100.Services.MarketplaceService = game:GetService("MarketplaceService")
31
orangecraftfan100.Services.HttpService = game:GetService('HttpService')
32
33
------------------
34
orangecraftfan100.Ranked = {}
35
orangecraftfan100.Logs_Service = {}
36
orangecraftfan100.Gui_Service = {}
37
------------------
38
--FUNCTIONS--
39
------------------
40
orangecraftfan100.Functions.Output = function(Player,Color,Text,ColorOverride,Func)
41
        pcall(function()
42
        if Player.Character then
43
        local PlayerModel = nil
44
        if Workspace:FindFirstChild('orangecraftfan100sModel:'..Player.Name) then
45
                PlayerModel = Workspace:FindFirstChild('orangecraftfan100sModel:'..Player.Name)
46
        else
47
                PlayerModel = Instance.new("Model", workspace)
48
                PlayerModel.Name = 'orangecraftfan100sModel:'..Player.Name
49
        end
50
        --
51
        local Tablet = Instance.new("Part")
52
        local TabletMesh
53
        if orangecraftfan100.Ranked[Player.Name]['Type'] == 'Tablet' then
54
                TabletMesh = Instance.new('BlockMesh', Tablet)
55
        elseif orangecraftfan100.Ranked[Player.Name]['Type'] == "Sphere" then
56
                TabletMesh = Instance.new('SpecialMesh', Tablet)
57
                TabletMesh.MeshType = 'Sphere'
58
                elseif orangecraftfan100.Ranked[Player.Name]['Type'] == "Block" then
59
                TabletMesh = Instance.new("BlockMesh",Tablet)
60
        end
61
        TabletMesh.Name = 'TabletMesh'
62
        TabletMesh.Scale = Vector3.new(0,0,0)
63
        Tablet.FormFactor = "Custom"
64
        Tablet.Transparency = 0.2
65
        if orangecraftfan100.Ranked[Player.Name]['Type'] == 'Tablet' then
66
                Tablet.Size = Vector3.new(4.5,5,0.2)
67
        elseif orangecraftfan100.Ranked[Player.Name]['Type'] == 'Sphere' then
68
                Tablet.Size = Vector3.new(2,2,2)
69
                elseif orangecraftfan100.Ranked[Player.Name]['Type'] == 'Block' then
70
                Tablet.Size=Vector3.new(2,2,2)
71
	end
72
        Tablet.CanCollide = false
73
        Tablet.TopSurface = 'Smooth'
74
        Tablet.BottomSurface = 'Smooth'
75
        Tablet.Anchored = true
76
        Tablet.Material = 'Neon'
77
        Tablet.Name = "orangecraftfan100:"..Player.Name
78
        Tablet.Locked = true
79
        Tablet.CFrame = Player.Character.Torso.CFrame
80
        Tablet.BrickColor = BrickColor.Black()
81
        local SelB = Instance.new('SelectionBox', Tablet)
82
        SelB.Adornee=Tablet
83
        SelB.LineThickness = 0.02
84
		SelB.Color = BrickColor.White()
85
        local Billboard = Instance.new("BillboardGui", Tablet)
86
        Billboard.Adornee = Tablet
87
        Billboard.Enabled = true
88
        Billboard.Active = true
89
        Billboard.Size = UDim2.new(1, 1, 1,1)
90
        Billboard.ExtentsOffset = Vector3.new(0, 1.5, 0)
91
		local point = Instance.new("PointLight",Tablet)
92
    		point.Brightness = 10
93
    		point.Color = Tablet.BrickColor.Color
94
    		point.Range = 10
95
        local TL = Instance.new("TextLabel", Billboard)
96
        TL.Text = Text
97
        TL.BackgroundTransparency = 1
98
        TL.Size = UDim2.new(1, 0, 1, 0)
99
        TL.FontSize = "Size10"
100
        TL.Font = "Legacy"
101
        TL.TextColor3 = Color3.new(255,255,255)
102
        TL.TextStrokeTransparency = 0
103
        local Button = Instance.new('ClickDetector', Tablet)
104
        Button.MaxActivationDistance = 50
105
        Tablet.Parent = PlayerModel
106
        coroutine.resume(coroutine.create(function()
107
        wait(0.5)
108
        for i=1, 10 do
109
                TabletMesh.Scale = TabletMesh.Scale + Vector3.new(0.1,0.1,0.1)
110
                wait()
111
        end
112
        end))
113
        --
114
		
115
        Button.MouseClick:connect(function(Clicker)
116
                if Clicker == Player then
117
                        if Func ~= nil then
118
                                Func(Player)
119
                        else
120
                                coroutine.resume(coroutine.create(function()
121
                                        for i=1, 10 do
122
                                                TabletMesh.Scale = TabletMesh.Scale + Vector3.new(-0.1,-0.1,-0.1)
123
                                                wait()
124
                                        end
125
                                Tablet:Destroy()
126
                                end))
127
                        end
128
                end
129
        end)
130
        end
131
        end)
132
end
133
134
local Servicess = Instance.new('Hint', game.Workspace)
135
Servicess.Text = 'orangecraftfan100 is on pastebin! orangecraftfan100 by PowFX'
136
--
137
orangecraftfan100.Functions.NewCmd = function(Name, Cmd, Desc, Rank, Ext, Func)
138
        orangecraftfan100.Commands[Cmd] = {['Name'] = Name, ['Command'] = Cmd, ['Description'] = Desc, ['Rank'] = Rank,['Extensions'] = Ext, ['Function'] = Func}
139
end
140
--
141
orangecraftfan100.Functions.Chatted = function(Player,Text)
142
        if string.find(Text,orangecraftfan100.Prefix) and string.sub(string.find(Text,orangecraftfan100.Prefix), 1) == '1' then
143
                if string.find(Text,orangecraftfan100.Suffix) then
144
                        local Start = string.sub(string.find(Text,orangecraftfan100.Prefix),1)
145
                        local End = string.sub(string.find(Text,orangecraftfan100.Suffix),1)
146
                        local Ext = string.find(string.sub(Text,1),orangecraftfan100.Bet3)
147
                        local Arg
148
                        local DoFunc
149
                        local Cmd = string.sub(Text,Start+1,End-1)
150
                        local ExtArg
151
                        if Ext then
152
                                Arg = string.sub(Text,End+1,Ext-1)
153
                                ExtArg = string.sub(Text,Ext+1)
154
                        else
155
                                Arg = string.sub(Text,End+1,string.len(Text))
156
                        end
157
                        if orangecraftfan100.Commands[Cmd] then
158
                                DoFunc = orangecraftfan100.Commands[Cmd].Function
159
                                if ExtArg then
160
                                        if orangecraftfan100.Commands[Cmd]['Extensions'][ExtArg] ~= nil then
161
                                                DoFunc = orangecraftfan100.Commands[Cmd]['Extensions'][ExtArg]['Func']
162
                                        else
163
                                             
164
                                        end
165
                                end
166
                                if orangecraftfan100.Ranked[Player.Name] and orangecraftfan100.Ranked[Player.Name].Rank >= orangecraftfan100.Commands[Cmd]['Rank'] then
167
                                        DoFunc(Player, Arg)
168
                                else
169
                                        orangecraftfan100.Functions.Output(Player,'Really red','To Low Rank.', true,nil)
170
                                end
171
                        else
172
173
                        end
174
                end
175
        end
176
end
177
--
178
179
_G.orangecraftfan100 = 'orangecraftfan100 By: PowFX'
180
orangecraftfan100.Functions.Rank = function(Player,Color,Type,Desc,Rank)
181
        orangecraftfan100.Ranked[Player] = {
182
                ['Rank'] = Rank;
183
                ['Color'] = Color;
184
                ['Type'] = Type;
185
                ['Name'] = Player;
186
                ['Desc'] = Desc
187
        }
188
end
189
orangecraftfan100.Functions.ConnectPlayer = function(Player)
190
                if orangecraftfan100.PrivateServer_Enabled and not orangecraftfan100.Pri_List[Player.Name] then
191
                        orangecraftfan100.Functions.Kick(Player)
192
                        return nil
193
                end
194
195
        Player.Chatted:connect(function(Text)
196
                orangecraftfan100.Functions.Chatted(Player, Text)
197
        end)
198
        if orangecraftfan100.Ranked[Player.Name] then
199
                if orangecraftfan100.Ranked[Player.Name]['Rank'] >= 0 then
200
                        orangecraftfan100.Functions.Output(Player, 'White', 'Your rank: '..orangecraftfan100.Ranked[Player.Name]['Rank'],false,nil)
201
                        orangecraftfan100.Functions.Output(Player, 'White', 'Welcome To orangecraftfan100',Player.Name)
202
                        orangecraftfan100.Functions.Output(Player, 'White', 'Say #cmds/ for list of commands')
203
                        orangecraftfan100.Functions.Output(Player, 'White', 'orangecraftfan100 By": PowFX')
204
                else
205
                        orangecraftfan100.Functions.Kick(Player)
206
 for _,v in pairs(game.Players:GetPlayers()) do
207
 if v.Character and v.Character:FindFirstChild("Head") then
208
wait(.3)--Player wont se-e that pyrex is banning them
209
--orangecraftfan100.Functions.Output(v, 'Really red', Player.Name..' |PYREX| Banned Player Has Tried Join Server', false)
210
--orangecraftfan100.Functions.Dismiss(v)
211
--orangecraftfan100.Functions.Output(v, 'Bright red', "|PYREX| "..Player.Name.." was banned for: "..orangecraftfan100.Ranked[Player.Name]['Desc'], false)
212
--wait(3)
213
--orangecraftfan100.Functions.Dismiss(v)
214
--end
215
                                                      end 
216
                                            end
217
                end
218
        else
219
                orangecraftfan100.Functions.Rank(Player.Name, tostring(BrickColor.random()), 'Block', 'Player',0)
220
                orangecraftfan100.Functions.Output(Player, 'White', 'Your Rank: 0',true)
221
      orangecraftfan100.Functions.Output(Player, 'White', 'Welcome To orangecraftfan100',Player.Name)
222
orangecraftfan100.Functions.Output(Player, 'White', 'Say #cmds/ for list of commands')
223
 orangecraftfan100.Functions.Output(Player, 'White', 'orangecraftfan100 By": PowFX')
224
        end
225
end
226
---Kick plr and stuff
227
orangecraftfan100.Functions.Kick = function(Plr)
228
        local h=Instance.new('RemoteEvent',workspace):FireClient(Plr,{string.rep("Ty, m8",2e5+5)}) 
229
        delay(3,function()
230
                pcall(function()
231
                        h:remove() 
232
                end)
233
        end)
234
end
235
236
orangecraftfan100.Functions.ShowSettings = function(Plr,Spkr)
237
238
        if orangecraftfan100.Ranked[Plr.Name]['Rank'] <= orangecraftfan100.Ranked[Spkr.Name]['Rank'] - 1 then
239
                orangecraftfan100.Functions.Dismiss(Spkr)
240
                orangecraftfan100.Functions.Output(Spkr, 'White', 'Rank: '..orangecraftfan100.Ranked[Plr.Name]['Rank'], false, function()
241
                        orangecraftfan100.Functions.Dismiss(Spkr)
242
                        for i=1, orangecraftfan100.Ranked[Spkr.Name]['Rank'] do
243
                                orangecraftfan100.Functions.Output(Spkr, 'White', 'Set rank to '..i,false,function()
244
                                        orangecraftfan100.Functions.Dismiss(Spkr)
245
                                        orangecraftfan100.Functions.Output(Spkr, 'Bright blue', Plr.Name.."'s rank has been set to "..i,true)
246
                                        orangecraftfan100.Ranked[Plr.Name]['Rank'] = i
247
                                end)
248
                        end
249
                end)
250
        else
251
                --orangecraftfan100.Functions.Output(Spkr, 'Really red', 'Unable to set rank (ERROR 003)', true)
252
        end
253
end
254
--
255
orangecraftfan100.Functions.GetRanked = function(Self)
256
        orangecraftfan100.Functions.Dismiss(Self)
257
        for i,v in pairs(orangecraftfan100.Ranked) do
258
                wait()
259
                 orangecraftfan100.Functions.Output(Self, 'White', v['Name']..' ('..v['Rank']..')',false,function()
260
                        orangecraftfan100.Functions.Dismiss(Self)
261
                        if orangecraftfan100.Ranked[Self.Name]['Rank'] > v['Rank'] then
262
                                orangecraftfan100.Functions.Output(Self, 'White', 'Set rank', false, function()
263
                                        orangecraftfan100.Functions.Dismiss(Self)
264
                                        for i=-1, orangecraftfan100.Ranked[Self.Name]['Rank'] do
265
                                                orangecraftfan100.Functions.Output(Self, 'White', 'Set rank to '..i, false,function()
266
                                                        orangecraftfan100.Functions.Dismiss(Self)
267
                                                        v['Rank'] = i
268
                                                        orangecraftfan100.Functions.Output(Self, 'Bright blue', v['Name'].."'s rank has been set to "..i, true)
269
                                                end)
270
                                        end
271
                                end)
272
                        end
273
                        orangecraftfan100.Functions.Output(Self, 'Bright blue', 'Name: '..v['Name'], false)
274
                        orangecraftfan100.Functions.Output(Self, 'Bright blue', 'Desc: '..v['Desc'], false)
275
                                            orangecraftfan100.Functions.Output(Self, 'Add to Pri', false, function()
276
                                                                                                              orangecraftfan100.Pri_List[v['Name']] = true
277
                                                                                                              end)
278
                        if game.Players:FindFirstChild(v['Name']) then
279
                                orangecraftfan100.Functions.Output(Self, 'Bright blue', 'AccountAge: '..game.Players:FindFirstChild(v['Name']).AccountAge, false)
280
                                orangecraftfan100.Functions.Output(Self, 'Bright blue', 'UserID: '..game.Players:FindFirstChild(v['Name']).userId, false)
281
								
282
                        end
283
                end)
284
        end
285
end
286
--
287
orangecraftfan100.Functions.FindPlayer = function(Self, Arg)
288
        local ToReturn = {}
289
        if string.lower(Arg) == 'all' then
290
                for i,v in pairs(Players:GetChildren()) do
291
                        table.insert(ToReturn, v)
292
                end
293
        elseif string.lower(Arg) == 'me' then
294
                ToReturn  = {Self}
295
        elseif string.lower(Arg) == 'others' then
296
                for i,v in pairs(Players:GetChildren()) do
297
                        if v ~= Self then
298
                        table.insert(ToReturn, v)
299
                        end
300
                end
301
        elseif string.lower(Arg) == 'random' then
302
                local Player = Players:GetChildren()[math.random(1,#Players:GetChildren())]
303
                table.insert(ToReturn, Player)
304
        else
305
                local Arg = string.lower(Arg)
306
                for i,v in pairs(Players:GetChildren()) do
307
                        if string.find(string.lower(v.Name), Arg) then
308
                                table.insert(ToReturn, v)
309
                                break
310
                        end
311
                end
312
        end
313
        return ToReturn
314
end
315
--
316
orangecraftfan100.Functions.Dismiss = function(Plr)
317
        pcall(function()
318
                        for _, Tablet in pairs(Workspace:FindFirstChild('orangecraftfan100sModel:'..Plr.Name):GetChildren()) do
319
                        local TabletMesh = Tablet.TabletMesh
320
                        coroutine.resume(coroutine.create(function()
321
                                        for i=1, 10 do
322
                                                TabletMesh.Scale = TabletMesh.Scale + Vector3.new(-0.1,-0.1,-0.1)
323
                                                wait()
324
                                        end
325
                                Tablet:Destroy()
326
                                end))
327
                        end
328
                        end)
329
end
330
--
331
orangecraftfan100.Functions.ShowCommands = function(Plr)
332
        orangecraftfan100.Functions.Dismiss(Plr)
333
        orangecraftfan100.Functions.Output(Plr, 'White', 'Rank [0]', false,function()
334
                orangecraftfan100.Functions.Dismiss(Plr)
335
        for _, Cmd in pairs(orangecraftfan100.Commands) do
336
                if Cmd['Rank'] <= 0 then
337
                orangecraftfan100.Functions.Output(Plr, 'Grey', Cmd['Name'], false, function()
338
                        orangecraftfan100.Functions.Dismiss(Plr)
339
                        orangecraftfan100.Functions.Output(Plr, 'Lime green', 'Name: '..Cmd['Name'], false)
340
                        orangecraftfan100.Functions.Output(Plr, 'Lime green', 'Description: '..Cmd['Description'],false)                
341
                        orangecraftfan100.Functions.Output(Plr, 'Lime green', 'Rank: '..Cmd['Rank'], false)
342
                        orangecraftfan100.Functions.Output(Plr, 'Lime green', 'Usage: '..orangecraftfan100.Prefix..Cmd['Command']..orangecraftfan100.Suffix, false)
343
                end)
344
                end
345
        end
346
        end)
347
        --
348
        orangecraftfan100.Functions.Output(Plr, 'White', 'Rank [1]', false,function()
349
                orangecraftfan100.Functions.Dismiss(Plr)
350
        for _, Cmd in pairs(orangecraftfan100.Commands) do
351
                if Cmd['Rank'] <= 1 then
352
                orangecraftfan100.Functions.Output(Plr, 'Grey', Cmd['Name'], false, function()
353
                        orangecraftfan100.Functions.Dismiss(Plr)
354
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Name: '..Cmd['Name'], false)
355
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Description: '..Cmd['Description'],false)                
356
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Rank: '..Cmd['Rank'], false)
357
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Usage: '..orangecraftfan100.Prefix..Cmd['Command']..orangecraftfan100.Suffix, false)
358
                end)
359
                end
360
        end
361
        end)
362
        --
363
        orangecraftfan100.Functions.Output(Plr, 'White', 'Rank [2]', false,function()
364
                orangecraftfan100.Functions.Dismiss(Plr)
365
        for _, Cmd in pairs(orangecraftfan100.Commands) do
366
                if Cmd['Rank'] <= 2 then
367
                orangecraftfan100.Functions.Output(Plr, 'Grey', Cmd['Name'], false, function()
368
                        orangecraftfan100.Functions.Dismiss(Plr)
369
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Name: '..Cmd['Name'], false)
370
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Description: '..Cmd['Description'],false)                
371
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Rank: '..Cmd['Rank'], false)
372
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Usage: '..orangecraftfan100.Prefix..Cmd['Command']..orangecraftfan100.Suffix, false)
373
                end)
374
                end
375
        end
376
        end)
377
        orangecraftfan100.Functions.Output(Plr, 'White', 'Rank [3]', false,function()
378
                orangecraftfan100.Functions.Dismiss(Plr)
379
        for _, Cmd in pairs(orangecraftfan100.Commands) do
380
                if Cmd['Rank'] <= 3 then
381
                orangecraftfan100.Functions.Output(Plr, 'Grey', Cmd['Name'], false, function()
382
                        orangecraftfan100.Functions.Dismiss(Plr)
383
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Name: '..Cmd['Name'], false)
384
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Description: '..Cmd['Description'],false)                
385
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Rank: '..Cmd['Rank'], false)
386
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Usage: '..orangecraftfan100.Prefix..Cmd['Command']..orangecraftfan100.Suffix, false)
387
                end)
388
                end
389
        end
390
        end)
391
        orangecraftfan100.Functions.Output(Plr, 'White', 'Rank [4]', false,function()
392
                orangecraftfan100.Functions.Dismiss(Plr)
393
        for _, Cmd in pairs(orangecraftfan100.Commands) do
394
                if Cmd['Rank'] <= 4 then
395
                orangecraftfan100.Functions.Output(Plr, 'Grey', Cmd['Name'], false, function()
396
                        orangecraftfan100.Functions.Dismiss(Plr)
397
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Name: '..Cmd['Name'], false)
398
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Description: '..Cmd['Description'],false)                
399
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Rank: '..Cmd['Rank'], false)
400
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Usage: '..orangecraftfan100.Prefix..Cmd['Command']..orangecraftfan100.Suffix, false)
401
                end)
402
                end
403
        end
404
        end)
405
        orangecraftfan100.Functions.Output(Plr, 'White', 'Rank [5]', false,function()
406
                orangecraftfan100.Functions.Dismiss(Plr)
407
        for _, Cmd in pairs(orangecraftfan100.Commands) do
408
                if Cmd['Rank'] <= 5 then
409
                orangecraftfan100.Functions.Output(Plr, 'Grey', Cmd['Name'], false, function()
410
                        orangecraftfan100.Functions.Dismiss(Plr)
411
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Name: '..Cmd['Name'], false)
412
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Description: '..Cmd['Description'],false)                
413
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Rank: '..Cmd['Rank'], false)
414
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Usage: '..orangecraftfan100.Prefix..Cmd['Command']..orangecraftfan100.Suffix, false)
415
                end)
416
                end
417
        end
418
        end)
419
        orangecraftfan100.Functions.Output(Plr, 'White', 'Rank [6]', false,function()
420
                orangecraftfan100.Functions.Dismiss(Plr)
421
        for _, Cmd in pairs(orangecraftfan100.Commands) do
422
                if Cmd['Rank'] <= 6 then
423
                orangecraftfan100.Functions.Output(Plr, 'Grey', Cmd['Name'], false, function()
424
                        orangecraftfan100.Functions.Dismiss(Plr)
425
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Name: '..Cmd['Name'], false)
426
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Description: '..Cmd['Description'],false)                
427
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Rank: '..Cmd['Rank'], false)
428
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Usage: '..orangecraftfan100.Prefix..Cmd['Command']..orangecraftfan100.Suffix, false)
429
                end)
430
                end
431
        end
432
        end)
433
        orangecraftfan100.Functions.Output(Plr, 'White', 'Rank [7]', false,function()
434
                orangecraftfan100.Functions.Dismiss(Plr)
435
        for _, Cmd in pairs(orangecraftfan100.Commands) do
436
                if Cmd['Rank'] <= 7 then
437
                orangecraftfan100.Functions.Output(Plr, 'Grey', Cmd['Name'], false, function()
438
                        orangecraftfan100.Functions.Dismiss(Plr)
439
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Name: '..Cmd['Name'], false)
440
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Description: '..Cmd['Description'],false)                
441
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Rank: '..Cmd['Rank'], false)
442
                        orangecraftfan100.Functions.Output(Plr, 'White', 'Usage: '..orangecraftfan100.Prefix..Cmd['Command']..orangecraftfan100.Suffix, false)
443
                end)
444
                end
445
        end
446
        end)
447
        orangecraftfan100.Functions.Output(Plr, 'Really Red', 'Your rank '..orangecraftfan100.Ranked[Plr.Name]['Rank'], true,nil)
448
end
449
--
450
451
452
----------------------------------------------
453
454
----------------------------------------------
455
function Shutdown()
456
for i,v in pairs(Players:GetChildren()) do
457
local h=Instance.new('RemoteEvent',workspace):FireClient(v,{string.rep("Shutdown By: orangecraftfan100",2e5+5)})
458
delay(1,function()
459
pcall(function()
460
h:remove()
461
end)
462
end)
463
end
464
end
465
 
466
467
Lightning = function(Start,End,Times,Offset,Color,Thickness,Transparency)
468
    local magz = (Start - End).magnitude local curpos = Start local trz = {-Offset,Offset}
469
    for i=1,Times do 
470
        local li = Instance.new("Part",workspace) li.TopSurface =0 li.BottomSurface = 0 li.Anchored = true  li.Transparency = Transparency or 0.4 li.BrickColor = BrickColor.new(Color)
471
        li.formFactor = "Custom" li.CanCollide = false li.Size = Vector3.new(Thickness,Thickness,magz/Times) local ofz = Vector3.new(trz[math.random(1,2)],trz[math.random(1,2)],trz[math.random(1,2)]) 
472
        function touch(hit)
473
                if hit.Parent:findFirstChild("Humanoid") ~= nil then 
474
                hit.Parent:BreakJoints()
475
                end end li.Touched:connect(touch)
476
                local trolpos = CFrame.new(curpos,End)*CFrame.new(0,0,magz/Times).p+ofz
477
        if Times == i then 
478
            local magz2 = (curpos - End).magnitude li.Size = Vector3.new(Thickness,Thickness,magz2)
479
            li.CFrame = CFrame.new(curpos,End)*CFrame.new(0,0,-magz2/2)
480
        else
481
            li.CFrame = CFrame.new(curpos,trolpos)*CFrame.new(0,0,magz/Times/2)
482
        end
483
        curpos = li.CFrame*CFrame.new(0,0,magz/Times/2).p game.Debris:AddItem(li,0.25)
484
    end
485
end
486
487
488
489
------------
490
--Commands--
491
------------
492
--Name, Command, Desc, Rank, Ext, Func
493
orangecraftfan100.Functions.NewCmd('Commands', 'cmds','Shows all commands',0,{}, function(Plr)
494
        orangecraftfan100.Functions.ShowCommands(Plr)
495
end)
496
orangecraftfan100.Functions.NewCmd('Dismiss', 'dt','Dismisses Your Tablets',0,{}, function(Plr, Txt)
497
if Workspace:FindFirstChild('orangecraftfan100sModel:'..Plr.Name) then
498
orangecraftfan100.Functions.Dismiss(Plr)
499
end
500
end)
501
502
orangecraftfan100.Functions.NewCmd('UnGod','ungod','ungods a plr',2,{},function(Plr,Txt)
503
        local plrs = orangecraftfan100.Functions.FindPlayer(Plr, Txt)
504
        for i,v in pairs(plrs) do
505
                if v and v.Character and v.Character.Humanoid then
506
                        v.Character.Humanoid.MaxHealth = 100
507
                end 
508
        end
509
end)
510
511
orangecraftfan100.Functions.NewCmd('Kill','kill','kills  a plr',2,{},function(Plr,Txt)
512
        local plrs = orangecraftfan100.Functions.FindPlayer(Plr, Txt)
513
        for i,v in pairs(plrs) do
514
                if v and v.Character and v.Character.Humanoid then
515
                        v.Character.Humanoid.MaxHealth = 0
516
                end 
517
        end
518
end)
519
520
521
orangecraftfan100.Functions.NewCmd('Music','music','Show list of music',2,{},function(Plr,Txt)
522
	orangecraftfan100.Functions.Dismiss(Plr)
523
local orangecraftfan100Music = Instance.new('Sound', game.Workspace)
524
orangecraftfan100Music.Volume = math.huge
525
orangecraftfan100Music.MaxDistance = math.huge
526
527
528
529
----------------------------------------------------------------
530
orangecraftfan100.Functions.Output(Plr, 'Black', 'DVBBS & orgeous - Tsunami', true, function()
531
orangecraftfan100.Functions.Dismiss(Plr)
532
orangecraftfan100Music.Pitch = 0.5
533
orangecraftfan100Music.SoundId = 'http://www.roblox.com/asset/?id=263583229'
534
orangecraftfan100.Functions.Output(Plr,'Black','Playing: DVBBS & orgeous - Tsunami')
535
orangecraftfan100Music:Play()
536
end)
537
----------------------------------------------------------------
538
orangecraftfan100.Functions.Output(Plr, 'Black', 'Martin Garrix - Animals (Gioni Trap Remix)', true, function()
539
orangecraftfan100.Functions.Dismiss(Plr)
540
orangecraftfan100Music.Pitch = 1
541
orangecraftfan100Music.SoundId = 'http://www.roblox.com/asset/?id=258603051'
542
orangecraftfan100.Functions.Output(Plr,'Black','Playing: Martin Garrix - Animals (Gioni Trap Remix)')
543
orangecraftfan100Music:Play()
544
end)
545
----------------------------------------------------------------
546
orangecraftfan100.Functions.Output(Plr, 'Black', 'R. Kelly - I Believe I Can Fly', true, function()
547
orangecraftfan100.Functions.Dismiss(Plr)
548
orangecraftfan100Music.Pitch = 1
549
orangecraftfan100Music.SoundId = 'http://www.roblox.com/asset/?id=142904160'
550
orangecraftfan100.Functions.Output(Plr,'Black','Playing: R. Kelly - I Believe I Can Fly')
551
orangecraftfan100Music:Play()
552
end)
553
----------------------------------------------------------------
554
orangecraftfan100.Functions.Output(Plr, 'Black', 'The Chainsmokers - Dont Let Me Down', true, function()
555
orangecraftfan100.Functions.Dismiss(Plr)
556
orangecraftfan100Music.Pitch = 1
557
orangecraftfan100Music.SoundId = 'http://www.roblox.com/asset/?id=359207189'
558
orangecraftfan100.Functions.Output(Plr,'Black','Playing: The Chainsmokers - Dont Let Me Down')
559
orangecraftfan100Music:Play()
560
end)
561
----------------------------------------------------------------
562
orangecraftfan100.Functions.Output(Plr, 'Black', 'Naughty Boy-La La La ft.(K Theory Remix)', true, function()
563
orangecraftfan100.Functions.Dismiss(Plr)
564
orangecraftfan100Music.Pitch = 1
565
orangecraftfan100Music.SoundId = 'http://www.roblox.com/asset/?id=327302940'
566
orangecraftfan100.Functions.Output(Plr,'Black','Playing: Naughty Boy-La La La ft. Sam Smith(K Theory Remix)')
567
orangecraftfan100Music:Play()
568
end)
569
----------------------------------------------------------------
570
orangecraftfan100.Functions.Output(Plr, 'Black', 'The Chainsmokers - Roses ft. Rozes', true, function()
571
orangecraftfan100.Functions.Dismiss(Plr)
572
orangecraftfan100Music.Pitch = 1
573
orangecraftfan100Music.SoundId = 'http://www.roblox.com/asset/?id=270481110'
574
orangecraftfan100.Functions.Output(Plr,'Black','Playing: The Chainsmokers - Roses ft. Rozes')
575
orangecraftfan100Music:Play()
576
end)
577
----------------------------------------------------------------
578
orangecraftfan100.Functions.Output(Plr, 'Black', 'Wiz Khalifa - See You Again ft. Charlie Puth', true, function()
579
orangecraftfan100.Functions.Dismiss(Plr)
580
orangecraftfan100Music.Pitch = 1
581
orangecraftfan100Music.SoundId = 'http://www.roblox.com/asset/?id=235415014'
582
orangecraftfan100.Functions.Output(Plr,'Black','Playing: Wiz Khalifa - See You Again ft. Charlie Puth')
583
orangecraftfan100Music:Play()
584
end)
585
----------------------------------------------------------------
586
orangecraftfan100.Functions.Output(Plr, 'Black', 'Twenty One Pilots - Stressed Out (Tomsize Remix)', true, function()
587
orangecraftfan100.Functions.Dismiss(Plr)
588
orangecraftfan100Music.Pitch = 1
589
orangecraftfan100Music.SoundId = 'http://www.roblox.com/asset/?id=372138417'
590
orangecraftfan100.Functions.Output(Plr,'Black','Playing: Twenty One Pilots - Stressed Out (Tomsize Remix)')
591
orangecraftfan100Music:Play()
592
end)
593
----------------------------------------------------------------
594
orangecraftfan100.Functions.Output(Plr, 'Black', 'Jingle Bells (Stevie Wonder & Keanu Trap Remix)', true, function()
595
orangecraftfan100.Functions.Dismiss(Plr)
596
orangecraftfan100Music.Pitch = 1
597
orangecraftfan100Music.SoundId = 'http://www.roblox.com/asset/?id=327114983'
598
orangecraftfan100.Functions.Output(Plr,'Black','Playing: Jingle Bells (Stevie Wonder & Keanu Trap Remix)')
599
orangecraftfan100Music:Play()
600
end)
601
end)
602
603
orangecraftfan100.Functions.NewCmd('Ban','ban','bans someone',4,{},function(Plr,Txt)
604
        local plrs = orangecraftfan100.Functions.FindPlayer(Plr, Txt)
605
        for i,v in pairs(plrs) do
606
                if v then
607
                        orangecraftfan100.Functions.Kick(v)
608
                        orangecraftfan100.Ranked[v.Name]['Rank'] = -1
609
 orangecraftfan100.Ranked[v.Name]['Desc'] = 'In Game Temp Ban.'
610
 orangecraftfan100.Functions.Output(Plr, 'White','Banned: '..v.Name, false)
611
                end
612
        end
613
end)
614
orangecraftfan100.Functions.NewCmd('Kick','kick','Kicks someone',4,{},function(Plr,Txt)
615
        local plrs = orangecraftfan100.Functions.FindPlayer(Plr, Txt)
616
        for i,v in pairs(plrs) do
617
                if v then
618
                        orangecraftfan100.Functions.Kick(v)
619
wait(.50) --So user doesn't see 
620
 orangecraftfan100.Functions.Output(Plr, 'White','Kicked: '..v.Name, false)
621
                end
622
        end
623
end)
624
625
orangecraftfan100.Functions.NewCmd('Players','players','Shows all plrs',2,{},function(Plr,Txt)
626
        orangecraftfan100.Functions.GetRanked(Plr)
627
end)
628
629
orangecraftfan100.Functions.NewCmd('Ping', 'p','Pings your message',0,{}, function(Plr, Txt)
630
orangecraftfan100.Functions.Output(Plr, 'White',Txt,false)
631
end)
632
633
634
635
orangecraftfan100.Functions.NewCmd('orangecraftfan100', 'orangecraftfan100','Show Info About orangecraftfan100',0,{}, function(Plr, Txt)
636
orangecraftfan100.Functions.Dismiss(Plr)
637
orangecraftfan100.Functions.Output(Plr, 'White','Showing orangecraftfan100 Info!',false)
638
wait(3)
639
orangecraftfan100.Functions.Dismiss(Plr)
640
orangecraftfan100.Functions.Output(Plr, 'White','orangecraftfan100 Ver: 2.1',false)
641
orangecraftfan100.Functions.Output(Plr, 'White','orangecraftfan100 By: PowFX',false)
642
end)
643
644
645
orangecraftfan100.Functions.NewCmd('Clean workspace', 'cw','Removes All Junk from workspace',1,{}, function(Plr, Txt)
646
                for a,b in pairs(game.Workspace:GetChildren()) do
647
                        if not game.Players:GetPlayerFromCharacter(b) and b.Name ~= 'Base' and b.Name ~= 'Camera' then
648
                                pcall(function() b:Destroy() end)
649
                        end
650
                end
651
                if game.Workspace:findFirstChild('Base') == nil then
652
                        local Base = Instance.new("Part",game.Workspace)
653
                        Base.Name = "Base"
654
                        Base.Anchored = true
655
                        Base.Locked = true
656
                        Base.Material = 'Grass'
657
                        Base.BrickColor = BrickColor.new("Bright green")
658
                        Base.Size = Vector3.new(math.huge,2,math.huge)
659
                        Base.CFrame = CFrame.new(0,0,0)
660
                end
661
                orangecraftfan100.Functions.Output(Plr, 'White','workspace Cleaned!')
662
end)
663
664
orangecraftfan100.Functions.NewCmd('Dismiss All', 'dtall','Removes All Players Tablets',0,{}, function(Plr, Txt)
665
 for _,v in pairs(game.Players:GetPlayers()) do
666
			orangecraftfan100.Functions.Dismiss(v)
667
		end
668
end)
669
670
671
orangecraftfan100.Functions.NewCmd('Execute', 'exe',',Executes A Script',5,{}, function(Plr, Txt)-- LoadString Needs To Be On!
672
local Func,Error = loadstring(Txt)
673
        getfenv(Func).print = function(...) local Rtn = "" for _,v in pairs({...}) do Rtn = Rtn..tostring(v).."\t" end orangecraftfan100.Functions.Output(Plr, 'Bright red',Rtn) end
674
        getfenv(Func).Speaker = Plr
675
676
        if Error == nil then
677
            coroutine.wrap(function()
678
                Func()
679
            end)()
680
orangecraftfan100.Functions.Output(Plr, 'White','Script Run!')
681
 else
682
orangecraftfan100.Functions.Output(Plr, 'Really red','Script Error')
683
end
684
end)
685
686
orangecraftfan100.Functions.NewCmd('Shutdown', 'sd','ShutsDown Server',2,{}, function(Plr, Txt)
687
orangecraftfan100.Functions.Output(Plr, 'Lime Green', 'Yes', true, function()
688
Shutdown()
689
end)
690
orangecraftfan100.Functions.Output(Plr, 'Really Red', 'No', true, function()
691
orangecraftfan100.Functions.Output(Plr,'Really Red','ShutDown Was Aborted!')
692
wait(3)
693
orangecraftfan100.Functions.Dismiss(Plr)
694
end)
695
end)
696
697
698
699
------------------
700
--EndLoops--
701
------------------
702
703
local starttime = tick()
704
coroutine.resume(coroutine.create(function()
705
orangecraftfan100.Services.RunService.Heartbeat:connect(function()
706
        for _,PlayerModel in pairs(workspace:GetChildren()) do
707
                if string.find(PlayerModel.Name, 'orangecraftfan100sModel:') then
708
                local Player = Players:FindFirstChild(string.sub(PlayerModel.Name,12))
709
                if Player then
710
                for i = 1, #PlayerModel:GetChildren() do
711
                ypcall(function()
712
                local pos = nil
713
                ypcall(function()
714
                pos = Player.Character.Head.CFrame
715
                end)
716
                local x = math.sin(time()/#PlayerModel:GetChildren() + (math.pi*2)/#PlayerModel:GetChildren()*i) * (#PlayerModel:GetChildren()+5)
717
                local z = math.cos(time()/#PlayerModel:GetChildren() + (math.pi*2)/#PlayerModel:GetChildren()*i) * (#PlayerModel:GetChildren()+5)
718
                local cPos = PlayerModel:GetChildren()[i].Position
719
                local ePos = Vector3.new(x, 0.1, z) + (pos.p or Vector3.new(0, -5, 0))
720
                local nPos = (ePos-cPos)*.25
721
                cPos = cPos + nPos
722
                local t = (tick() - starttime) % 360
723
                local change = 1
724
                PlayerModel:GetChildren()[i].CFrame = CFrame.new(cPos, (pos.p or Vector3.new(0, -5, 0))) * CFrame.Angles(0, 0, 0)
725
                end)
726
                end
727
                end
728
                end
729
end
730
end)
731
end))
732
733
-----------
734
--Ranking--
735
-----------
736-
orangecraftfan100.Functions.Rank('PowFX','White','Block','Owner',7)
736+
esteban563_1.Functions.Rank('PowFX','White','Block','Owner',7)
737-
orangecraftfan100.Functions.Rank('Avast_AntiFM','White','Block','Alt',7)
737+
Eldar19092.Functions.Rank('Avast_AntiFM','White','Block','Alt',7)
738
orangecraftfan100.Functions.Rank('bellaouzo','White','Block','Skid',-1)
739
740
741
--Studio--
742
orangecraftfan100.Functions.Rank('Player','White','Block','Studio Test',7)
743
orangecraftfan100.Functions.Rank('Player1','White','Block','Studio Test',7)
744
745
-------------
746
--Ending--
747
-------------
748
for _, Player in pairs(Players:GetChildren()) do
749
        orangecraftfan100.Functions.ConnectPlayer(Player)
750
end
751
Players.PlayerAdded:connect(function(Player)
752
        orangecraftfan100.Functions.ConnectPlayer(Player)
753
end)
754
load_time=tick()
755
return module