View difference between Paste ID: 3wZCN5uc and CM24xQM0
SHOW: | | - or go back to the newest paste.
1-
---[[mediafire]]---
1+
--https://github.com/Mokiros/roblox-FE-compatibility
2
if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
3
local Player,Mouse,mouse,UserInputService,ContextActionService = owner
4
local RealPlayer = Player
5
do print("FE Compatibility code by Mokiros")local a=RealPlayer;script.Parent=a.Character;local b=Instance.new("RemoteEvent")b.Name="UserInput_Event"local function c()local d={_fakeEvent=true,Functions={},Connect=function(self,e)table.insert(self.Functions,e)end}d.connect=d.Connect;return d end;local f={Target=nil,Hit=CFrame.new(),KeyUp=c(),KeyDown=c(),Button1Up=c(),Button1Down=c(),Button2Up=c(),Button2Down=c()}local g={InputBegan=c(),InputEnded=c()}local CAS={Actions={},BindAction=function(self,h,i,j,...)CAS.Actions[h]=i and{Name=h,Function=i,Keys={...}}or nil end}CAS.UnbindAction=CAS.BindAction;local function k(self,l,...)local d=f[l]if d and d._fakeEvent then for m,e in pairs(d.Functions)do e(...)end end end;f.TrigEvent=k;g.TrigEvent=k;b.OnServerEvent:Connect(function(n,o)if n~=a then return end;f.Target=o.Target;f.Hit=o.Hit;if not o.isMouse then local p=o.UserInputState==Enum.UserInputState.Begin;if o.UserInputType==Enum.UserInputType.MouseButton1 then return f:TrigEvent(p and"Button1Down"or"Button1Up")end;if o.UserInputType==Enum.UserInputType.MouseButton2 then return f:TrigEvent(p and"Button2Down"or"Button2Up")end;for m,d in pairs(CAS.Actions)do for m,q in pairs(d.Keys)do if q==o.KeyCode then d.Function(d.Name,o.UserInputState,o)end end end;f:TrigEvent(p and"KeyDown"or"KeyUp",o.KeyCode.Name:lower())g:TrigEvent(p and"InputBegan"or"InputEnded",o,false)end end)b.Parent=NLS([==[local a=game:GetService("Players").LocalPlayer;local b=script:WaitForChild("UserInput_Event")local c=a:GetMouse()local d=game:GetService("UserInputService")local e=function(f,g)if g then return end;b:FireServer({KeyCode=f.KeyCode,UserInputType=f.UserInputType,UserInputState=f.UserInputState,Hit=c.Hit,Target=c.Target})end;d.InputBegan:Connect(e)d.InputEnded:Connect(e)local h,i;while wait(1/30)do if h~=c.Hit or i~=c.Target then h,i=c.Hit,c.Target;b:FireServer({isMouse=true,Target=i,Hit=h})end end]==],Player.Character)local r=game;local s={__index=function(self,q)local t=rawget(self,"_RealService")if t then return typeof(t[q])=="function"and function(m,...)return t[q](t,...)end or t[q]end end,__newindex=function(self,q,u)local t=rawget(self,"_RealService")if t then t[q]=u end end}local function v(d,w)d._RealService=typeof(w)=="string"and r:GetService(w)or w;return setmetatable(d,s)end;local x={GetService=function(self,t)return rawget(self,t)or r:GetService(t)end,Players=v({LocalPlayer=v({GetMouse=function(self)return f end},Player)},"Players"),UserInputService=v(g,"UserInputService"),ContextActionService=v(CAS,"ContextActionService"),RunService=v({_btrs={},RenderStepped=r:GetService("RunService").Heartbeat,BindToRenderStep=function(self,h,m,i)self._btrs[h]=self.Heartbeat:Connect(i)end,UnbindFromRenderStep=function(self,h)self._btrs[h]:Disconnect()end},"RunService")}rawset(x.Players,"localPlayer",x.Players.LocalPlayer)x.service=x.GetService;v(x,game)game,owner=x,x.Players.LocalPlayer end ---[[mediafire]]---
6
7
8
ply = game.Players.LocalPlayer
9
char = ply.Character
10
name = "Hat"
11
m = Instance.new("Model",char) m.Name = "clowe"
12
local originalsubject = Workspace.CurrentCamera.CameraSubject
13
function upd()
14
torso = char.Torso
15
holding = false
16
shoulder = nil
17
body = {["Head"] = char.Head,["Torso"] = char.Torso}
18
body.A = {["R"] = char["Right Arm"], ["L"] = char["Left Arm"]}
19
body.L = {["R"] = char["Right Leg"], ["L"] = char["Left Leg"]}
20
end
21
upd()
22
23
24
------TOOOOOLS------
25
T = {["P"] = function(x,y,z,color,transparency,cancollide,anchored,parent)
26
c = Instance.new("Part",m)
27
c.TopSurface,c.BottomSurface = 0,0
28
c.formFactor = "Custom"
29
c.Size = Vector3.new(x,y,z)
30
c.BrickColor = BrickColor.new(color)
31
c.Transparency = transparency
32
c.CanCollide = cancollide
33
if anchored ~= nil then c.Anchored = anchored end
34
if parent ~= nil then c.Parent = parent end
35
return c
36
37
end
38
,
39
["R"] = function(part,x,y,z)
40
if part == "lleg" then
41
legw[1].C1 = CFrame.new(.5,-1.5,0)*ang(x,y,z)
42
elseif part == "rleg" then
43
legw[2].C1 = CFrame.new(-.5,-1.5,0)*ang(x,y,z)
44
elseif part == "larm" then
45
armw[1].C1 = CFrame.new(1.5,.5,0)*ang(x,y,z)
46
elseif part == "rarm" then
47
armw[2].C1 = CFrame.new(-1.5,.5,0)*ang(x,y,z)
48
end
49
end
50
,
51
["C"] = function(func) coroutine.resume(coroutine.create(func)) end
52
,
53
["W"] = function(part0,part1,x,y,z,rx,ry,rz)
54
w = Instance.new("Weld",m)
55
w.Part0,w.Part1 = part0,part1
56
w.C1 = CFrame.new(x,y,z) * CFrame.Angles(rx,ry,rz)
57
return w
58
end
59
,
60
["BG"] = function(parent)
61
local c = Instance.new("BodyGyro",parent)
62
c.P = 20e+003
63
c.cframe = parent.CFrame
64
c.maxTorque = Vector3.new(c.P,c.P,c.P)
65
return c
66
end
67
,
68
["BP"] = function(parent,position)
69
local bp = Instance.new("BodyPosition",parent)
70
bp.maxForce = Vector3.new()*math.huge
71
bp.position = position
72
return bp
73
end
74
,
75
["F"] = function(parent,size,heat,color,secondcolor,enabled)
76
f = Instance.new("Fire",parent)
77
f.Size = size
78
f.Heat = heat
79
if enabled ~= nil then f.Enabled = enabled end
80
if color ~= nil then f.Color = BrickColor.new(color).Color end
81
if secondcolor ~= nil then f.SecondaryColor = BrickColor.new(secondcolor).Color end
82
return f
83
end
84
,
85
["Track"] = function(bol,obj,s,t,lt,color,fade)
86
bol = true
87
coroutine.resume(coroutine.create(function()
88
while bol do
89
old = obj.Position
90
wait()
91
new = obj.Position
92
93
mag = (old-new).magnitude
94
dist = (old+new)/2
95
96
local ray = T.P(s,mag+.2,s,obj.Color,t,false,true)
97
Instance.new("CylinderMesh",ray)
98
ray.CFrame = CFrame.new(dist,old)*ang(math.pi/2,0,0)
99
if fade ~= nil then
100
delay(lt,function()
101
for i = t,1,fade do wait() ray.Transparency = i end ray:Remove() end)
102
else
103
game:GetService("Debris"):AddItem(ray,lt)
104
end
105
if color ~= nil then ray.BrickColor = BrickColor.new(color) end
106
107
end
108
end)) end,
109
110
111
["D"] = function(hit) if hit.Parent:findFirstChild("Humanoid") then h=hit.Parent.Humanoid h.Health = h.Health -dmg end end
112
,
113
["FM"] = function(parent,meshid,x,y,z,meshtexture)
114
if meshid == "cylinder" then
115
mesh = Instance.new("CylinderMesh",parent)
116
mesh.Scale = Vector3.new(x,y,z)
117
return mesh
118
else
119
mesh = Instance.new("SpecialMesh",parent)
120
121
if meshid ~= "sphere" then
122
if type(meshid) == "number" then mesh.MeshId = "rbxassetid://"..meshid else
123
mesh.MeshId = "rbxassetid://"..meshids[meshid]
124
end
125
126
else mesh.MeshType = 3 end
127
128
mesh.Scale = Vector3.new(x,y,z)
129
130
if meshtexture ~= nil then
131
if type(meshtexture) == "number" then mesh.TextureId = "rbxassetid://"..meshtexture else
132
mesh.TextureId = "rbxassetid://"..textureids[meshtexture] end
133
134
end
135
136
return mesh
137
end
138
end
139
}
140
--------------------------------------------------
141
pcall(function() char:FindFirstChild("Suit"):remove() end)
142
suit = Instance.new("Model",m) suit.Name = "Suit"
143
function damage(hit,amount,show,del)
144
for i,v in pairs(hit:GetChildren()) do
145
if v:IsA("Humanoid") and v.Parent ~= char then
146
147
amo = 0
148
function showa(p)
149
if show == true then
150
for i,o in pairs(p:GetChildren()) do
151
if o:IsA("BillboardGui") and o.Name == "satuttava" then
152
amo = amo+1
153
end end
154
155
156
local bbg = Instance.new("BillboardGui",p)
157
bbg.Adornee = p.Torso
158
bbg.Name = "satuttava"
159
bbg.Size = UDim2.new(2,0,2,0)
160
bbg.StudsOffset = Vector3.new(0,6+amo*2,0)
161
162
local box = Instance.new("TextLabel",bbg)
163
box.Size = UDim2.new(1,0,1,0)
164
box.BackgroundColor = BrickColor.new("White")
165
box.Text = amount
166
box.Position = UDim2.new(0,0,0,0)
167
box.TextScaled = true
168
game:GetService("Debris"):AddItem(bbg,.5)
169
end
170
end
171
172
if del ~= nil then
173
local find = v.Parent:FindFirstChild("hitted")
174
if find == nil then
175
v.Health=v.Health - amount
176
showa(v.Parent)
177
val = Instance.new("BoolValue",v.Parent)val.Name="hitted"
178
game:GetService("Debris"):AddItem(val,del)
179
end
180
elseif del == nil then
181
v.Health = v.Health - amount
182
showa(v.Parent)
183
184
end
185
186
end
187
end
188
end
189
190
meshids = {["penguin"] = 15853464, ["ring"] = 3270017,
191
["spike"] = 1033714,["cone"] = 1082802,["crown"] = 20329976,["crossbow"] = 15886761,
192
["cloud"] = 1095708,["mjolnir"] = 1279013,["diamond"] = 9756362, ["hand"] = 37241605,
193
["fist"] = 65322375,["skull"] = 36869983,["totem"] = 35624068,["spikeb"] = 9982590,["dragon"] = 58430372,["fish"] = 31221717, ["coffee"] = 15929962,["spiral"] = 1051557,
194
["ramen"] = 19380188}---some meshids
195
textureids = {["cone"] = 1082804,["rainbow"] = 28488599,["fish"] = 31221733, ["coffee"] = 24181455,["monster"] = 33366441,["ramen"] = 19380153}
196
197
cfn,ang = CFrame.new,CFrame.Angles
198
v3n = Vector3.new
199
200
---MATH SHORTENINGS---
201
M = {["R"] = function(a,b) return math.random(a,b) end,
202
["Cos"] = function(a) return math.cos(a) end,
203
["Sin"] = function(a) return math.sin(a) end,
204
["D"] = function(a) return math.rad(a) end
205
}
206
holding = false
207
208
function explode()
209
e = Instance.new("Explosion",Workspace)
210
e.Position = torso.Position
211
e.BlastPressure = 0
212
e.Hit:connect(function(hit) damage(hit.Parent,5,true) end)
213
end
214
215
216
function fire()
217
p = T.P(1,1,1,"Deep blue",0,false,false,suit)
218
p2 = T.P(1,1,1,"Deep blue",0,false,false,suit)
219
220
stick = T.P(.5,2,.5,"Nougat",0,false,false,suit)
221
T.FM(stick,"cylinder",1,1,1)
222
T.W(stick,body.Head,0,1,0,0,0,0)
223
224
spike = T.P(3,1,3,"White",0,false,false,suit)
225
T.FM(spike,"spike",3,1,3)
226
T.W(spike,stick,0,.8,0,0,0,0)
227
228
r = -2
229
for i = 20,360+20,360/5 do
230
231
skull = T.P(1,1,1,"Black",0,false,false,suit)
232
T.FM(skull,"skull",.5,.5,.5)
233
234
T.W(skull,spike,M.Cos(M.D(i))*r,.15,M.Sin(M.D(i))*r,M.D(-20),0,0)
235
236
end
237
r = 5
238
for i = 1,360,3 do
239
c = T.P(.5,.5,.5,"Magenta",0,false,false,suit)
240
241
T.W(c,torso,M.Cos(M.D(i))*r,M.Sin(i*100/3),M.Sin(M.D(i))*r,0,0,0)
242
if M.Sin(i*100/3) > .85 then T.F(c,1,1,"White","New Yeller") end
243
end
244
245
T.FM(p,"diamond",1,1,1)
246
T.FM(p2,"diamond",1,1,1)
247
T.F(p,2,1,"Magenta","Olive")
248
T.F(p2,2,1,"Magenta","Olive")
249
250
T.W(p,body.A.R,0,-1,0,0,0,0)
251
T.W(p2,body.A.L,0,-1,0,0,0,0)
252
end
253
254
function pillars(mouse)
255
r = 5
256
local pos = cfn(mouse.hit.p)
257
local tar = mouse.Target
258
for i = 1,360,15 do
259
wait()
260
local c = T.P(2,.5,2,"Magenta",.3,true,true)
261
c.Size = v3n(2,20+M.Sin(i*300/15),2)
262
T.FM(c,"cylinder",1,1,1)
263
c.CFrame = pos*cfn(M.Cos(M.D(i))*r,0,M.Sin(M.D(i))*r) + v3n(0,c.Size.y/2,0)
264
end
265
266
end
267
268
function plague(mouse)
269
local touching = false
270
c = T.P(50,.1,50,"White",1,false,true)
271
c.CFrame = cfn(mouse.hit.p)
272
c.Name = "plague"
273
274
local dec = Instance.new("Decal",c)
275
dec.Face = "Top"
276
dec.Texture = 'http://www.roblox.com/asset/?id=23862105'
277
dec.Transparency = 1
278
for i = 1,0,-.05 do
279
wait()
280
dec.Transparency = i
281
end
282
c.Touched:connect(function(hit)
283
damage(hit.Parent,10,true,.05)
284
end)
285
286
end
287
288
---GUI---
289
gui = Instance.new("ScreenGui")
290
291
mfr = Instance.new("Frame",gui)
292
mfr.Size = UDim2.new(.2,0,.2,0)
293
mfr.Position = UDim2.new(0,0,.5,0)
294
fr = Instance.new("Frame",mfr)
295
fr.Size = UDim2.new(.8,0,.8,0)
296
fr.BackgroundColor = BrickColor.new("Earth green")
297
fr.ClipsDescendants = true
298
fr.Position = UDim2.new(0,0,.1,0)
299
300
center = UDim2.new(.5,0,.5,0)
301
dist = 100
302
303
lista = Instance.new("Frame",mfr)
304
lista.Size = UDim2.new(.2,0,.9,0)
305
lista.Position = UDim2.new(.8,0,0,0)
306
307
inf = Instance.new("TextLabel",mfr)
308
inf.Size = UDim2.new(1,0,.1,0)
309
310
torp = Instance.new("Frame",fr)
311
torp.Size = UDim2.new(.1,0,.1,0)
312
torp.Position = center
313
torp.BackgroundColor = BrickColor.new("Deep blue")
314
315
T.C(function()
316
while wait() do
317
wait()
318
poa = torso.Position
319
for _,v in pairs(fr:GetChildren()) do if v ~= torp then v:Remove() end end
320
for _,v in pairs(lista:GetChildren()) do v:Remove() end
321
for i,v in pairs(clowns) do
322
323
local b = Instance.new("TextLabel",fr)
324
b.Size = UDim2.new(.05,0,.05,0)
325
b.Position = UDim2.new(center.X.Scale + (v.Torso.Position.x-poa.x)/dist/2+.025,0,center.Y.Scale+(v.Torso.Position.z-poa.z)/dist/2+.025,0)
326
b.TextScaled = true
327
b.Text = 'C'..i
328
329
o = 1/#clowns
330
opfr = Instance.new("Frame",lista)
331
opfr.Size = UDim2.new(1,0,o,0)
332
opfr.BackgroundColor = BrickColor.new("White")
333
opfr.Position = UDim2.new(0,0,-o,0) + UDim2.new(0,0,o*i,0)
334
local b2 = Instance.new("TextButton",opfr)
335
b2.Size = UDim2.new(.5,0,1,0)
336
b2.Text = "C"..i
337
b2.BackgroundTransparency = 1
338
b2.BackgroundColor = BrickColor.new("White")
339
b2.TextScaled = true
340
341
b3 = b2:Clone()
342
b3.Parent = opfr
343
b3.Position = UDim2.new(.5,0,0,0)
344
b3.Text = "T"
345
b2.MouseButton1Down:connect(function() Workspace.CurrentCamera.CameraSubject = v.Humanoid
346
Workspace.CurrentCamera.CameraType = 4 end)
347
b3.MouseButton1Down:connect(function() char:MoveTo(v.Torso.Position) end)
348
349
end
350
351
352
353
for i,v in pairs(clowns) do
354
if ply.PlayerGui:FindFirstChild("C"..i) == nil then
355
bbg = Instance.new("BillboardGui",ply.PlayerGui)
356
bbg.Name = "C"..i
357
bbg.Adornee = v.Torso
358
bbg.StudsOffset = v3n(0,5,0)
359
bbg.Size = UDim2.new(2,0,2,0)
360
361
lab = Instance.new("TextLabel",bbg)
362
lab.Size = UDim2.new(1,0,1,0)
363
lab.BackgroundTransparency = 1
364
lab.FontSize = 6
365
366
lab.Text = 'C'..i
367
end
368
end
369
end
370
end)
371
372
resetbut = Instance.new("TextButton",mfr)
373
resetbut.Size = UDim2.new(1,0,.1,0)
374
resetbut.Position = UDim2.new(0,0,.9,0)
375
resetbut.Text = "RESET"
376
resetbut.TextScaled = true
377
resetbut.MouseButton1Down:connect(function()Workspace.CurrentCamera.CameraSubject = originalsubject Workspace.CurrentCamera.CameraType = 5 plae = nil end)
378
379
-------
380
381
function point(mouse)
382
if char ~= ply.Character then char = ply.Character upd()
383
elseif char == ply.Character then
384
if mouse.Target ~= nil then
385
laz = T.P(1,1,1,"Deep blue",0,false,true)
386
T.C(function()
387
while true do
388
for i = 0,.5,.05 do
389
wait()
390
laz.Transparency = i
391
end
392
for i = .5,0,-.05 do
393
wait()
394
laz.Transparency = i
395
end
396
end
397
end)
398
T.FM(laz,"cylinder",1,1,1)
399
holding = true
400
while holding do
401
wait()
402
if mouse.Target ~= nil then
403
mag = (mouse.hit.p-torso.Position).magnitude
404
laz.Size = v3n(1,mag,1)
405
laz.CFrame = (cfn(torso.Position,mouse.hit.p)*cfn(0,0,-mag/2))*ang(math.pi/2,0,0)
406
end
407
end
408
laz:Remove()
409
410
local tar = mouse.Target
411
if tar.Parent:FindFirstChild("Humanoid") ~= nil then
412
char = tar.Parent
413
upd()
414
end
415
416
end
417
end
418
end
419
420
flbp = nil
421
422
function levitate()
423
if flbp == nil then
424
flbp = T.BP(torso,torso.Position)
425
elseif flbp ~= nil then
426
flbp:Remove() flbp = nil
427
end
428
end
429
430
clowns = {}
431
function decoy(a)
432
if a == 1 then
433
char.Archivable = true
434
local clown = char:Clone()
435
clown.Parent = Workspace
436
437
clown.Humanoid.Died:connect(function() clown:Remove() end)
438
Workspace.ChildRemoved:connect(function(child) if child == clown then for i,v in pairs(clowns) do if v == clown then table.remove(clowns,i) end end end end)
439
for i,v in pairs(clown["clowe"]:GetChildren()) do
440
if v.Name ~= "Suit" and v.className ~= "Weld" then
441
v:Remove()
442
end
443
end
444
table.insert(clowns,clown)
445
char.Archivable = false
446
elseif a == 0 then
447
for i,v in pairs(clowns) do v:Remove() end
448
end
449
end
450
451
function dragon(mouse)
452
local wp = mouse.hit.p
453
local tp = torso.Position
454
unit = (tp-wp).unit*-1
455
hed = T.P(10,10,10,"Magenta",.5,false,true)
456
hed.Name = "dragon"
457
hed.Touched:connect(function(hit) damage(hit.Parent,50,true,.5) end)
458
T.FM(hed,"dragon",10,10,10)
459
pos = cfn(tp)  + unit*5 + v3n(0,-2,0)
460
pos2 = cfn(pos.p,wp)
461
for i = 5,10 do
462
wait()
463
hed.CFrame = (pos2 + unit * i) + v3n(0,i,0)
464
end
465
end
466
467
function fly(mouse)
468
if flbp ~= nil and holding == false then
469
holding = true
470
while holding do
471
wait()
472
flbp.position = torso.Position + (torso.Position-mouse.hit.p).unit*-10
473
end
474
475
end
476
end
477
478
function hide()
479
local namn = hop.Name
480
if char.Parent ~= Workspace.CurrentCamera then
481
char.Parent = Workspace.CurrentCamera
482
hop.Name = name..'(Invisible)'
483
elseif char.Parent == Workspace.CurrentCamera then
484
char.Parent = Workspace
485
hop.Name = name
486
end
487
end
488
489
function clear()
490
for i,v in pairs(m:GetChildren()) do
491
if v.className ~= "Weld" and v.Name ~= "Suit" then
492
v:Remove()
493
end
494
end
495
end
496
497
chage = false
498
klist = {
499
{"r",function(a) plague(a) end},
500
{"e",function(a) point(a) end,true},
501
{"q",function() levitate() end},
502
{"f",function(a) fly(a) end,true},
503
{"v",function() hide() end},
504
{"c",function(a) dragon(a) end},
505
{"x",function() decoy(1) end},{"z",function() decoy(0) end},
506
{"h",function() clear() end},
507
{string.char(48), function() explode() end},
508
{"g",function() if gui.Parent ~= nil then gui.Parent = nil elseif gui.Parent == nil then gui.Parent = ply.PlayerGui end end},
509
{"n",function() if chage == true then chage = false char = Workspace.CurrentCamera.CameraSubject.Parent elseif chage == false then chage = true char = ply.Character end end}
510
}
511
512
fire()
513
hop = Instance.new("HopperBin",ply.Backpack)
514
hop.Name = name
515
hop.Selected:connect(function(mouse)
516
mouse.Button1Down:connect(function() pillars(mouse) end)
517
mouse.KeyDown:connect(function(key)
518
for i,v in pairs(klist) do
519
if key == v[1] then v[2](mouse) end
520
end
521
end)
522
mouse.KeyUp:connect(function(a) for i,v in pairs(klist) do if a == v[1] and v[3] ~= nil then holding = false end end upd() end)
523
end)
524
525
ply.Character.Humanoid.Died:connect(function() Workspace.CurrentCamera:ClearAllChildren() end)