API tools faq
paste
Advertisement
AxeuerAlt

Overseer Tools weld

AxeuerAlt
Jun 11th, 2019
179
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 22.45 KB | None | 0 0
raw download clone embed print report
  1. -- Converted using Mokiros's Model to Script plugin
  2. -- Converted string size: 2196
  3.  
  4. local Scripts = { function()
  5. a=script.Parent b=game:service("RunService")c=game:GetService("Debris")d={"RightSlash","LeftSlash","OverHeadSwing","LeftSwingFast","RightSwingFast"}e=5 f=20 g=50 h=e i=a.Handle a.Taunting.Value=false local r=Instance.new("Sound")r.SoundId="rbxasset://sounds\\swordslash.wav"r.Parent=i r.Volume=.7 local s=Instance.new("Sound")s.SoundId="http://www.roblox.com/asset/?id=28257433"s.Parent=i s.Volume=1 function j(t,u)while true do local v=t:FindFirstChild(u)if v~=nil then return v end wait()end end j(a,"Taunting")j(a,"RunAnim")k=j(i,"Sparkles")function l(t)if t.Parent~=nil then local u=t.Parent:findFirstChild("Humanoid")local v=a.Parent if v~=nil then local w=game.Players:playerFromCharacter(v)if w~=nil then local x=v:findFirstChild("Humanoid")if u~=nil then if x~=nil and u~=x then local y=v:FindFirstChild("Right Arm")if y~=nil then local z=y:FindFirstChild("RightGrip")if z~=nil and(z.Part0==i or z.Part1==i)then k.Enabled=true m(u,w)u:TakeDamage(h)wait(.3)k.Enabled=false end end end end end end if t.Name=="Handle"then k.Enabled=true wait(.3)k.Enabled=false end end end function m(t,u)for w,x in ipairs(t:GetChildren())do if x.Name=="creator"then x:remove()end end local v=Instance.new("ObjectValue")v.Value=u v.Name="creator"v.Parent=t c:AddItem(v,1)end a.Enabled=true function n()if a.Enabled and not a.Taunting.Value then a.Enabled=false local t=a.Parent local u=t.Humanoid if u==nil then print("Humanoid not found")return end r:play()o=d[math.random(1,#d)]while o==a.RunAnim.Value do o=d[math.random(1,#d)]end a.RunAnim.Value=o if o=="OverHeadSwing"then h=g else h=f end wait(.75)h=e a.Enabled=true end end function p()s:play()k.Enabled=false end a.Activated:connect(n)a.Equipped:connect(p)q=i.Touched:connect(l)
  6. end; function()
  7. local m=script.Parent a=CFrame.new(.15,-2,0)*CFrame.Angles(0,math.pi/2,0)b=a c=true d=false function e(n,o)while true do local p=n:FindFirstChild(o)if p~=nil then return p end wait()end end e(m,"Handle")function f(n)if not c then return end c=false n.Icon="rbxasset://textures\\GunWaitCursor.png"wait(.75)n.Icon="rbxasset://textures\\GunCursor.png"c=true end function g()b=a end function h()b=a*CFrame.Angles(math.pi/4,.4,0)end function i(n)delay(0,function()local o=tick()local p=o+n while tick()<p do m.Grip=b*CFrame.Angles(math.pi*2*((tick()-o)/n),0,0)wait()end m.Grip=b end)end function j(n)local o=lastequipped if n==nil then print("Mouse not found")return end n.Icon="rbxasset://textures\\GunCursor.png"n.Button1Down:connect(function()f(n)end)e(m,"Taunting")e(m,"Taunt")n.KeyDown:connect(function(p)p=string.lower(p)if p=="l"or p=="t"or p=="g"then local q=m.Parent:FindFirstChild("Humanoid")if q~=nil then m.Taunting.Value=true q.WalkSpeed=0 k=q:LoadAnimation(m.Taunt)k:Play()wait(1)h()m.Grip=b wait(1.4)g()m.Grip=b wait(1)q.WalkSpeed=16 m.Taunting.Value=false end end end)end m.Equipped:connect(j)e(m,"RunAnim")m.RunAnim.Changed:connect(function()local n=m.Parent:FindFirstChild("Humanoid")local o=m.Parent:FindFirstChild("Torso")local p=m:FindFirstChild(m.RunAnim.Value)if p and o and n then l=n:LoadAnimation(p)if l and n.Health>0 then l:Play()if m.RunAnim.Value=="RightSlash"or m.RunAnim.Value=="LeftSlash"or m.RunAnim.Value=="OverHeadSwing"then i(.5)end if m.RunAnim.Value=="OverHeadSwing"then wait(.25)h()wait(.5)g()m.Grip=b elseif m.RunAnim.Value=="OverHeadSwingFast"then wait(.125)h()wait(.25)g()m.Grip=b end end end end)
  8. end; function()
  9. a=1 b=3 c=nil d=0.75 e=45 f=0 g=0 h={}local k=1 function i(l)if c==nil then k=1 local m=Instance.new("Model")local n=script.Parent:GetChildren()for o=1,#n do if n[o].className=="Part"then h[k]=n[o].Transparency local p=n[o]:clone()p.Parent=m k=k+1 end end wait()if c==nil then local o=script:FindFirstChild("Weld2")if o~=nil then local p=o:clone()p.Disabled=false p.Parent=m m.Name=script.Parent.Name m.Parent=script.Parent.Parent c=m local q=c:FindFirstChild("Handle")if q~=nil then if a==1 then local r=c.Parent:FindFirstChild("Torso")if r~=nil then if b==1 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d*-1,0.25+f,-0.75+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e*-1),(math.pi/2),0)elseif b==2 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d,0.25+f,-0.75+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e*-1),(math.pi/2)*-1,0)elseif b==3 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d*-1,-0.1+f,0.2+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e),(math.pi/2),-1.5)elseif b==4 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d,0.25+f,-0.75+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e),(math.pi/2+e)*-1.1,1)end end elseif a==2 then local r=c.Parent:FindFirstChild("Torso")if r~=nil then if b==1 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d*-1,0.25+f,-0.5+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e*-1),math.pi/2,0)elseif b==2 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d,0.25+f,-0.5+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e*-1),math.pi/2*-1,0)elseif b==3 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d*-1,0.25+f,-0.5+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e),math.pi/2,0)elseif b==4 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d,0.25+f,-0.5+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e),math.pi/2*-1,0)end end elseif a==3 then local r=c.Parent:FindFirstChild("Left Leg")local s=c.Parent:FindFirstChild("Right Leg")if r~=nil and s~=nil then if b==1 then local t=Instance.new("Weld")t.Part0=s t.Parent=t.Part0 t.Part1=q t.C1=CFrame.new(d*-1,0+f,-0.25+g*-1)*CFrame.fromEulerAnglesXYZ(math.pi/2,0,0)elseif b==2 then local t=Instance.new("Weld")t.Part0=r t.Parent=t.Part0 t.Part1=q t.C1=CFrame.new(d,0+f,-0.25+g*-1)*CFrame.fromEulerAnglesXYZ(math.pi/2,0,0)elseif b==3 then local t=Instance.new("Weld")t.Part0=torso t.Parent=t.Part0 t.Part1=q t.C1=CFrame.new(d*-1,0+f,0.25+g)*CFrame.fromEulerAnglesXYZ(math.pi/2,math.pi/2,0)elseif b==4 then local t=Instance.new("Weld")t.Part0=torso t.Parent=t.Part0 t.Part1=q t.C1=CFrame.new(d,0+f,0.25+g)*CFrame.fromEulerAnglesXYZ(math.pi/2,math.pi/2*-1,0)end end elseif a==4 then local r=c.Parent:FindFirstChild("Left Leg")local s=c.Parent:FindFirstChild("Right Leg")local t=c.Parent:FindFirstChild("Torso")if r~=nil and s~=nil and t~=nil then if b==1 then local u=Instance.new("Weld")u.Part0=s u.Parent=u.Part0 u.Part1=q u.C1=CFrame.new(d*-1,0.15+f,-0.25+g*-1)*CFrame.fromEulerAnglesXYZ(math.pi,0,0)elseif b==2 then local u=Instance.new("Weld")u.Part0=r u.Parent=u.Part0 u.Part1=q u.C1=CFrame.new(d,0.15+f,-0.25+g*-1)*CFrame.fromEulerAnglesXYZ(math.pi,0,0)elseif b==3 then local u=Instance.new("Weld")u.Part0=t u.Parent=u.Part0 u.Part1=q u.C1=CFrame.new(d*-1,0+f,0.25+g)*CFrame.fromEulerAnglesXYZ(math.pi,math.pi/2,0)elseif b==4 then local u=Instance.new("Weld")u.Part0=t u.Parent=u.Part0 u.Part1=q u.C1=CFrame.new(d,0+f,0.25+g)*CFrame.fromEulerAnglesXYZ(math.pi,math.pi/2*-1,0)end end end end end end end if c~=nil then k=1 local m=c:GetChildren()for n=1,#m do if m[n].className=="Part"then m[n].Transparency=1 end end end end function j(l)if c~=nil then k=1 local m=c:GetChildren()for n=1,#m do if m[n].className=="Part"then m[n].Transparency=h[k]local o=true if o then o=false k=k+1 end end end end end script.Parent.Equipped:connect(i)script.Parent.Unequipped:connect(j)
  10. end; function()
  11. function a(f,g)local h=Instance.new("Weld")h.Part0=f h.Part1=g local i=CFrame.new(f.Position)local j=f.CFrame:inverse()*i local k=g.CFrame:inverse()*i h.C0=j h.C1=k h.Parent=f end function b(f)if f.className=="Part"then a(script.Parent.Handle,f)f.Anchored=false else local g=f:GetChildren()for h=1,#g do b(g[h])end end end local e=true if e then e=false b(script.Parent)end function c()script.Parent.Parent=nil end d=script.Parent.Parent:FindFirstChild("Humanoid")if d~=nil then d.Died:connect(c)end
  12. end; function()
  13. a=script.Parent while true do if a.Parent.Parent.Name=="Workspace"then local b=a.Parent:FindFirstChild("Left Arm")local c=a.Parent:FindFirstChild("Left Arm")local d=a.Parent:FindFirstChild("Torso")if b~=nil and d~=nil and c~=nil then local e=d:FindFirstChild("Left Shoulder")local f=d:FindFirstChild("Right Shoulder")if e~=nil and f~=nil then e.CurrentAngle=f.CurrentAngle*-1 e.MaxVelocity=0 end end end wait(.05)end
  14. end; function()
  15. a=script.Parent b=a:WaitForChild("Handle")c={a:WaitForChild("LeftSwing"),a:WaitForChild("RightSwing")}d=a:WaitForChild("Taunt")e=a:WaitForChild("PlaySound")f=b:WaitForChild("Slash")g=a:WaitForChild("SpecialEnabled")h=game:GetService("Debris")i=game:GetService("Players")j=game:GetService("InsertService")k=10 l=8 function m(y,z)local A=Instance.new("ObjectValue")A.Name="creator"A.Value=z h:AddItem(A,2)A.Parent=y end function n(y)for z,A in pairs(y:GetChildren())do if A:IsA("ObjectValue")and A.Name=="creator"then A:Destroy()end end end function o(y)local z={}local function A(B)for C,D in pairs(B:GetChildren())do A(D)if D:IsA("BasePart")then table.insert(z,D)end end end A(y)return z end function p(y)if y and y.Parent then local z=y.Parent:FindFirstChild("Humanoid")if q and r and s and z and z~=s and z.Health>0 and s.Health>0 then local A=q:FindFirstChild("Right Arm")if A then local B=A:FindFirstChild("RightGrip")if B and(B.Part0==b or B.Part1==b)then n(z)m(z,r)z:TakeDamage(l)end end end end end function t()if a.Enabled then local y=c[math.random(1,#c)]u=s:LoadAnimation(y)e.Value=f.Name a.Enabled=false u:Play(nil,nil,0.8)wait(0.5)a.Enabled=true end end function v(y)q=a.Parent r=i:GetPlayerFromCharacter(q)s=q:FindFirstChild("Humanoid")w=q:FindFirstChild("Torso")if not a.Enabled then wait(0.5)a.Enabled=true end y.KeyDown:connect(function(z)local A=z:lower()if A=="q"and a.Enabled and g.Value then if r and q and s and w then g.Value=false a.Enabled=false u=s:LoadAnimation(d)u:Play()wait(5)for B=1,5 do local C=j:LoadAsset(156242272)local D=C:GetChildren()[1]:Clone()C:Destroy()D.Creator.Value=r D:FindFirstChild("Humanoid").Died:connect(function()wait(1)local I=o(D)for J,K in pairs(I)do if K and K.Parent then K.Anchored=true end end for J=1,100 do for K,L in pairs(I)do if L and L.Parent then L.Transparency=L.Transparency+0.01 end end wait(0.05)end for J,K in pairs(I)do if K and K.Parent then local L=Instance.new("Part")L.Name="Effect"L.Transparency=1 L.FormFactor=Enum.FormFactor.Custom L.Size=Vector3.new(0.2,0.2,0.2)L.Anchored=true L.CanCollide=false local M=Instance.new("Fire")M.Color=Color3.new(0,0,0)M.SecondaryColor=Color3.new(0,1,0)M.Size=10 M.Heat=100 M.Parent=L h:AddItem(L,2)L.Parent=game:GetService("Workspace")L.CFrame=K.CFrame K:Destroy()end end D:Destroy()end)h:AddItem(D,(60*2))D.Parent=game:GetService("Workspace")wait()D:MakeJoints()local E=D:FindFirstChild("Torso")E.Anchored=true Delay(1,function()E.Anchored=false end)local F=Vector3.new(w.Position.X+math.random(-k,k),w.Position.Y,w.Position.Z+math.random(-k,k))D:MoveTo(F)local G=Instance.new("Part")G.Name="Effect"G.Transparency=1 G.FormFactor=Enum.FormFactor.Custom G.Size=Vector3.new(0.2,0.2,0.2)G.Anchored=true G.CanCollide=false local H=Instance.new("Fire")H.Color=Color3.new(0,0,0)H.SecondaryColor=Color3.new(0,1,0)H.Size=10 H.Heat=100 H.Parent=G h:AddItem(G,2)G.Parent=game:GetService("Workspace")G.CFrame=CFrame.new(F)-Vector3.new(0,((D:GetModelSize().y/2)+(G.Size.Y/2)),0)Delay(1,function()if H and H.Parent then H.Enabled=false end end)end u:Stop()a.Enabled=true end end end)end function x()if u then u:Stop()end end b.Touched:connect(p)a.Activated:connect(t)a.Equipped:connect(v)a.Unequipped:connect(x)
  16. end; function()
  17. a="rbxasset://textures/GunCursor.png"b="rbxasset://textures/GunWaitCursor.png"c=script.Parent d=nil function e()if d then d.Icon=c.Enabled and a or b end end function f(h)d=h e()end function g(h)if h=="Enabled"then e()end end c.Equipped:connect(f)c.Changed:connect(g)
  18. end; function()
  19. a=script.Parent b=a:WaitForChild("Handle")c=a:WaitForChild("PlaySound")c.Value=""c.Changed:connect(function()if c.Value~=""then local d=b:FindFirstChild(c.Value)if d then d:Play()end c.Value=""end end)
  20. end; function()
  21. a=script.Parent b=a:WaitForChild("Handle")c=a:WaitForChild("SpecialEnabled")c.Value=true c.Changed:connect(function()if not c.Value then wait(30)c.Value=true end end)
  22. end; function()
  23. a=3 b=1 c=nil d=0.75 e=45 f=0 g=0 h={}local k=1 function i(l)if c==nil then k=1 local m=Instance.new("Model")local n=script.Parent:GetChildren()for o=1,#n do if n[o].className=="Part"then h[k]=n[o].Transparency local p=n[o]:clone()p.Parent=m k=k+1 end end wait()if c==nil then local o=script:FindFirstChild("Weld2")if o~=nil then local p=o:clone()p.Disabled=false p.Parent=m m.Name=script.Parent.Name m.Parent=script.Parent.Parent c=m local q=c:FindFirstChild("Handle")if q~=nil then if a==1 then local r=c.Parent:FindFirstChild("Torso")if r~=nil then if b==1 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d*-1,0.25+f,-0.75+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e*-1),(math.pi/2),0)elseif b==2 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d,0.25+f,-0.75+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e*-1),(math.pi/2)*-1,0)elseif b==3 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d*-1,0.25+f,-0.75+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e),(math.pi/2),0)elseif b==4 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d,0.25+f,-0.75+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e),(math.pi/2+e)*-1,0)end end elseif a==2 then local r=c.Parent:FindFirstChild("Torso")if r~=nil then if b==1 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d*-1,0.25+f,-0.5+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e*-1),math.pi/2,0)elseif b==2 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d,0.25+f,-0.5+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e*-1),math.pi/2*-1,0)elseif b==3 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d*-1,0.25+f,-0.5+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e),math.pi/2,0)elseif b==4 then local s=Instance.new("Weld")s.Part0=r s.Parent=s.Part0 s.Part1=q s.C1=CFrame.new(d,0.25+f,-0.5+g*-1)*CFrame.fromEulerAnglesXYZ(math.rad(e),math.pi/2*-1,0)end end elseif a==3 then local r=c.Parent:FindFirstChild("Left Leg")local s=c.Parent:FindFirstChild("Right Leg")if r~=nil and s~=nil then if b==1 then local t=Instance.new("Weld")t.Part0=s t.Parent=t.Part0 t.Part1=q t.C1=CFrame.new(d*-1,0+f,-0.25+g*-1)*CFrame.fromEulerAnglesXYZ(math.pi/2,0,0)elseif b==2 then local t=Instance.new("Weld")t.Part0=r t.Parent=t.Part0 t.Part1=q t.C1=CFrame.new(d,0+f,-0.25+g*-1)*CFrame.fromEulerAnglesXYZ(math.pi/2,0,0)elseif b==3 then local t=Instance.new("Weld")t.Part0=torso t.Parent=t.Part0 t.Part1=q t.C1=CFrame.new(d*-1,0+f,0.25+g)*CFrame.fromEulerAnglesXYZ(math.pi/2,math.pi/2,0)elseif b==4 then local t=Instance.new("Weld")t.Part0=torso t.Parent=t.Part0 t.Part1=q t.C1=CFrame.new(d,0+f,0.25+g)*CFrame.fromEulerAnglesXYZ(math.pi/2,math.pi/2*-1,0)end end elseif a==4 then local r=c.Parent:FindFirstChild("Left Leg")local s=c.Parent:FindFirstChild("Right Leg")local t=c.Parent:FindFirstChild("Torso")if r~=nil and s~=nil and t~=nil then if b==1 then local u=Instance.new("Weld")u.Part0=s u.Parent=u.Part0 u.Part1=q u.C1=CFrame.new(d*-1,0.15+f,-0.25+g*-1)*CFrame.fromEulerAnglesXYZ(math.pi,0,0)elseif b==2 then local u=Instance.new("Weld")u.Part0=r u.Parent=u.Part0 u.Part1=q u.C1=CFrame.new(d,0.15+f,-0.25+g*-1)*CFrame.fromEulerAnglesXYZ(math.pi,0,0)elseif b==3 then local u=Instance.new("Weld")u.Part0=t u.Parent=u.Part0 u.Part1=q u.C1=CFrame.new(d*-1,0+f,0.25+g)*CFrame.fromEulerAnglesXYZ(math.pi,math.pi/2,0)elseif b==4 then local u=Instance.new("Weld")u.Part0=t u.Parent=u.Part0 u.Part1=q u.C1=CFrame.new(d,0+f,0.25+g)*CFrame.fromEulerAnglesXYZ(math.pi,math.pi/2*-1,0)end end end end end end end if c~=nil then k=1 local m=c:GetChildren()for n=1,#m do if m[n].className=="Part"then m[n].Transparency=1 end end end end function j(l)if c~=nil then k=1 local m=c:GetChildren()for n=1,#m do if m[n].className=="Part"then m[n].Transparency=h[k]local o=true if o then o=false k=k+1 end end end end end script.Parent.Equipped:connect(i)script.Parent.Unequipped:connect(j)
  24. end; function()
  25. function a(f,g)local h=Instance.new("Weld")h.Part0=f h.Part1=g local i=CFrame.new(f.Position)local j=f.CFrame:inverse()*i local k=g.CFrame:inverse()*i h.C0=j h.C1=k h.Parent=f end function b(f)if f.className=="Part"then a(script.Parent.Handle,f)f.Anchored=false else local g=f:GetChildren()for h=1,#g do b(g[h])end end end local e=true if e then e=false b(script.Parent)end function c()script.Parent.Parent=nil end d=script.Parent.Parent:FindFirstChild("Humanoid")if d~=nil then d.Died:connect(c)end
  26. end;}local ActualScripts = {}
  27. function s(var)
  28. local func = table.remove(Scripts,1)
  29. setfenv(func,setmetatable({script=var},{
  30. __index = getfenv(func),
  31. }))
  32. table.insert(ActualScripts,coroutine.wrap(func))
  33. end
  34.  
  35. local Decode = function(str,t,props,classes,values,ICList,Model,CurPar,LastIns,split,RemoveAndSplit,InstanceList)
  36. local tonum,table_remove,inst,parnt,comma,table_foreach = tonumber,table.remove,Instance.new,"Parent",",",
  37. function(t,f)
  38. for a,b in pairs(t) do
  39. f(a,b)
  40. end
  41. end
  42. local Types = {
  43. Color3 = Color3.new,
  44. Vector3 = Vector3.new,
  45. Vector2 = Vector2.new,
  46. UDim = UDim.new,
  47. UDim2 = UDim2.new,
  48. CFrame = CFrame.new,
  49. Rect = Rect.new,
  50. NumberRange = NumberRange.new,
  51. NumberSequence = function(...)
  52. local a = {...}
  53. local t = {}
  54. repeat
  55. t[#t+1] = NumberSequenceKeypoint.new(table_remove(a,1),table_remove(a,1),table_remove(a,1))
  56. until #a==0
  57. return NumberSequence.new(t)
  58. end,
  59. ColorSequence = function(...)
  60. local a = {...}
  61. local t = {}
  62. repeat
  63. t[#t+1] = ColorSequenceKeypoint.new(table_remove(a,1),Color3.new(table_remove(a,1),table_remove(a,1),table_remove(a,1)))
  64. until #a==0
  65. return ColorSequence.new(t)
  66. end,
  67. number = tonumber,
  68. boolean = function(a)
  69. return a=="1"
  70. end
  71. }
  72. split = function(str,sep)
  73. if not str then return end
  74. local fields = {}
  75. local ConcatNext = false
  76. str:gsub(("([^%s]+)"):format(sep),function(c)
  77. if ConcatNext == true then
  78. fields[#fields] = fields[#fields]..sep..c
  79. ConcatNext = false
  80. else
  81. fields[#fields+1] = c
  82. end
  83. if c:sub(#c)=="\\" then
  84. c = fields[#fields]
  85. fields[#fields] = c:sub(1,#c-1)
  86. ConcatNext = true
  87. end
  88. end)
  89. return fields
  90. end
  91. RemoveAndSplit = function(t)
  92. return split(table_remove(t,1),comma)
  93. end
  94. t = split(str,";")
  95. props = RemoveAndSplit(t)
  96. classes = RemoveAndSplit(t)
  97. values = split(table_remove(t,1),'|')
  98. ICList = RemoveAndSplit(t)
  99. InstanceList = {}
  100. Model = inst"Model"
  101. CurPar = Model
  102. table_foreach(t,function(ct,c)
  103. if c=="n" or c=="p" then
  104. CurPar = c=="n" and LastIns or CurPar[parnt]
  105. else
  106. ct = split(c,"|")
  107. local class = classes[tonum(table_remove(ct,1))]
  108. if class=="UnionOperation" then
  109. LastIns = {Locked="true",Anchored="true",UsePartColor="true"}
  110. else
  111. LastIns = inst(class)
  112. if LastIns:IsA"Script" then
  113. s(LastIns)
  114. end
  115. end
  116.  
  117. local function SetProperty(LastIns,p,str,s)
  118. s = Types[typeof(LastIns[p])]
  119. LastIns[p] = s and s(unpack(split(str,comma))) or str
  120. end
  121.  
  122. local UnionData
  123. table_foreach(ct,function(s,p,a,str)
  124. a = p:find":"
  125. p,str = props[tonum(p:sub(1,a-1))],values[tonum(p:sub(a+1))]
  126. if p=="UnionData" then
  127. UnionData = split(str," ")
  128. return
  129. end
  130. if class=="UnionOperation" then
  131. LastIns[p] = str
  132. return
  133. end
  134. SetProperty(LastIns,p,str)
  135. end)
  136.  
  137. if UnionData then
  138. local LI_Data = LastIns
  139. LastIns = DecodeUnion(UnionData)
  140. table_foreach(LI_Data,function(p,str)
  141. SetProperty(LastIns,p,str)
  142. end)
  143. end
  144. table.insert(InstanceList,LastIns)
  145. LastIns[parnt] = CurPar
  146. end
  147. end)
  148. table_remove(ICList,1)
  149. table_foreach(ICList,function(a,b)
  150. b = split(b,">")
  151. InstanceList[tonum(b[1])][props[tonum(b[2])]] = InstanceList[tonum(b[3])]
  152. end)
  153.  
  154. return Model:GetChildren()
  155. end
  156.  
  157. local Objects = Decode('Name,TextureId,Grip,GripPos,GripForward,GripRight,Color,Material,Position,Orientation,Size,BottomSurface,TopSurface,Scale,MeshId,MeshType,Heat,SecondaryColor,SoundId,Volume,Enabled,SparkleColor,Bright'
  158. ..'ness,Value,AnimationId,CanBeDropped,Locked;Part,Model,Tool,SpecialMesh,Fire,Sound,Sparkles,PointLight,StringValue,Script,BoolValue,LocalScript,Animation;Part|OverseerSword|http://www.roblox.com/asset/'
  159. ..'?id=101420051|-0,-2,0.1,0.954,0,0.298,0,1,-0,-0.299,0,0.954|-0,-2,0.1|-0.299,0,-0.955|0.954,0,-0.299|Handle|0.066,0.066,0.066|800|5.677,2.449,2.663|-28.861,-180,180|0.26,5.24,0.639|0|0.75,0.75,0.75|ht'
  160. ..'tp://www.roblox.com/asset/?id=94840342|http://www.roblox.com/asset/?id=250727362|5|0,0.501,0|4|6|0,0.2,0|rbxasset://sounds/swordslash.wav|0.699|http://www.roblox.com/asset/?id=28257433|1|0,2.04,0|0|0,'
  161. ..'0.666,0|2|RunAnim|RightSwingFast|SwordScript|Taunting|Local Gui|LeftSlash|http://www.roblox.com/Asset?ID=74894663|LeftSwingFast|http://www.roblox.com/Asset?ID=86313418|OverHeadSwing|http://www.roblox.'
  162. ..'com/Asset?ID=74897796|RightSlash|http://www.roblox.com/Asset?ID=74813494|http://www.roblox.com/Asset?ID=86313260|Taunt|http://www.roblox.com/Asset?ID=74901237|BackGun|Weld2|Duel Weild|http://www.roblo'
  163. ..'x.com/asset?id=156092257 |0.061,-1,0.2,1,0,0,0,1,0,0,0,1|0.061,-1,0.2|2.314,1.55,7.438|0,-180,0|0.5,3.099,1|http://www.roblox.com/asset?id=156092238|http://www.roblox.com/asset?id=156092253 |Slash|Lef'
  164. ..'tSwing|RightSwing|MouseIcon|http://www.roblox.com/Asset?ID=93693205|PlaySound|SoundManager|SpecialHandler|SpecialEnabled|Sidegun(goes on your leg);0;2;n;3|1:2|2:3|3:4|4:5|5:6|6:7;n;1|1:8|7:9|8:10|9:11'
  165. ..'|10:12|11:13|12:14|13:14|7:9|7:9;n;4|14:15|15:16|2:17|16:18;5|7:19|11:20|17:21|18:22|7:19|7:19;6|19:23|20:24;6|19:25|20:26;6|19:25|20:26;7|7:27|21:28|22:22|7:27|7:27;6|19:23|20:24;6|19:25|20:26;8|7:29'
  166. ..'|23:30|7:29|7:29;p;9|1:31|24:32;10|1:33;11|1:34;12|1:35;13|1:36|25:37;13|1:38|25:39;13|1:40|25:41;13|1:42|25:43;13|1:32|25:44;13|1:45|25:46;12|1:47;n;12|1:48;p;10|1:49;p;3|1:2|2:50|26:28|3:51|4:52;n;1'
  167. ..'|1:8|27:26|9:53|10:54|11:55|12:14|13:14;n;4|15:56|2:57|16:18;6|1:58|19:23|20:24;p;13|1:59|25:39;13|1:60|25:44;12;12|1:61;13|1:45|25:62;9|1:63;10|1:64;10|1:65;11|1:66|24:26;12|1:67;n;12|1:48;p;p;p;')
  168. for _,Object in pairs(Objects) do
  169. Object.Parent = script and script.Parent==workspace and script or workspace
  170. end
  171. for _,f in pairs(ActualScripts) do f() end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!