API tools faq
paste
Advertisement
AxeuerAlt

Untitled

AxeuerAlt
Jun 23rd, 2019
182
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 15.45 KB | None | 0 0
raw download clone embed print report
  1. -- Converted using Mokiros's Model to Script plugin
  2. -- Converted string size: 822
  3.  
  4. local Scripts = { function()
  5.  
  6. end; function()
  7. a=game:service("RunService")b=script.Parent c=b.Handle local k=Instance.new("Part")k.formFactor=2 k.Size=Vector3.new(100,100,100)k.Anchored=true k.Locked=true k.CanCollide=false k.archivable=false k.TopSurface=0 k.BottomSurface=0 k.Transparency=1 local l=Instance.new("Decal")l.Face=1 l.Texture="http://www.roblox.com/asset/?version=1&id=1280730"l.Parent=k local m=l:Clone()m.Face=4 m.Parent=k function d(n)local o=n.Parent:findFirstChild("Humanoid")local p=b.Parent local q=game.Players:playerFromCharacter(p)local r=p:findFirstChild("Humanoid")if o~=nil and o~=r and r~=nil then e(o,q)o:TakeDamage(o.MaxHealth)if o.Health<=0 then local s=n.CFrame n.CFrame=CFrame.new(n.Position)n.CFrame=s end delay(1,function()f(o)end)else local s=n.CFrame n:BreakJoints()n.CFrame=CFrame.new(n.Position)n.CFrame=s end end function e(n,o)local p=Instance.new("ObjectValue")p.Value=o p.Name="creator"p.Parent=n end function f(n)if n~=nil then local o=n:findFirstChild("creator")if o~=nil then o.Parent=nil end end end function g(n,o,p)if(n~=p)then if(n.className=="Part")or(n.className=="Seat")then if(not n.Anchored)and(((o-n.Position)*Vector3.new(1,0,1)).magnitude<96)and(o.y<=n.Position.y+8)and(o.y>=n.Position.y-8)then delay((o-n.Position).magnitude/96,function()d(n)n.Velocity=((n.Position-o).unit+Vector3.new(0,0.5,0))*96+n.Velocity n.RotVelocity=n.RotVelocity+Vector3.new(n.Position.z-o.z,0,o.x-n.Position.x).unit*40 end)end elseif(n.className=="Model")or(n.className=="Hat")or(n.className=="Tool")or(n==workspace)then local q=n:GetChildren()for r=1,#q do g(q[r],o,p)end end end end function h()i=slash_damage local n=Instance.new("StringValue")n.Name="toolanim"n.Value="Slash"n.Parent=b wait(0.2)print("Blasting!")local o=c.CFrame*(Vector3.new(0,1.4,0)*c.Mesh.Scale)g(workspace,o,b.Parent)k.CFrame=CFrame.new(o)for p=1,29 do delay(p/30,function()k.Parent=nil k.Size=Vector3.new(0,0.4,0)+Vector3.new(6.4,0,6.4)*p k.Parent=b end)end delay(1,function()k.Parent=nil end)end b.Enabled=true function j()if not b.Enabled then return end b.Enabled=false local n=b.Parent local o=n.Humanoid if o==nil then print("Humanoid not found")return end c.Boom:Play()h()wait(0.5)b.Enabled=true end script.Parent.Activated:connect(j)
  8. end; function()
  9. a=nil b,c=nil,nil d=nil e,f=Instance.new("Weld"),Instance.new("Weld")g="none"script.Parent.Equipped:connect(function()a=game.Players:playerFromCharacter(script.Parent.Parent)local n=script.Parent.Parent b=n.Torso["Right Shoulder"]c=n.Torso["Left Shoulder"]d=n["Right Arm"].RightGrip b.Parent=nil c.Parent=nil e.Part0=n.Torso e.C0=CFrame.new(1.5,0.5,0)e.C1=CFrame.new(0,0.5,0)e.Part1=n["Right Arm"]e.Parent=n.Torso _G.R=e f.Part0=n.Torso f.C0=CFrame.new(-1.5,0.5,0)f.C1=CFrame.new(0,0.5,0)f.Part1=n["Left Arm"]f.Parent=n.Torso _G.L=f d.C0=CFrame.new(0,-1,0)*CFrame.fromEulerAnglesXYZ(-1,0,0)for o=0,1,0.05 do wait()e.C0=CFrame.new(1.5,0.5,0)*CFrame.fromEulerAnglesXYZ(1.3*o,0,-0.5*o)f.C0=CFrame.new(-1.5,0.5,0)*CFrame.fromEulerAnglesXYZ(1.7*o,0,0.8*o)f.C1=CFrame.new(-0.3*o,0.5+1.2*o,0)end end)script.Parent.Unequipped:connect(function()for n=1,0,-0.05 do wait()e.C0=CFrame.new(1.5,0.5,0)*CFrame.fromEulerAnglesXYZ(1.3*n,0,-0.5*n)f.C0=CFrame.new(-1.5,0.5,0)*CFrame.fromEulerAnglesXYZ(1.7*n,0,0.8*n)f.C1=CFrame.new(-0.3*n,0.5+1.2*n,0)end e.Parent=nil f.Parent=nil b.Parent=a.Character.Torso c.Parent=a.Character.Torso end)function h(n)local o=(n.Parent or game):FindFirstChild("Humanoid")if o then o.Sit=true wait()o.Jump=true o.Parent.Torso.Velocity=(CFrame.new(script.Parent.Handle.Position,o.Parent.Torso.Position).lookVector*100)+Vector3.new(0,30,0)o.Parent.Torso.RotVelocity=Vector3.new(math.random(-100,100),math.random(-100,100),math.random(-100,100))end end function i()for o=0,1,0.1 do if g~="homerun"then return end wait()e.C0=CFrame.new(1.5,0.5,0)*CFrame.fromEulerAnglesXYZ(1.3+1.2*o,-0.5*o,-0.5+o)f.C0=CFrame.new(-1.5+0.5*o,0.5,-0.5*o)*CFrame.fromEulerAnglesXYZ(1.7,0,0.8)end local n=script.Parent.Handle.Touched:connect(h)for o=0,1,0.2 do wait()e.C0=CFrame.new(1.5,0.5,0)*CFrame.fromEulerAnglesXYZ(2.5,-0.5-1.7*o,0.5+0.5*o)f.C0=CFrame.new(-1-0.5*o,0.5,-0.5+0.5*o)*CFrame.fromEulerAnglesXYZ(1.7,0,0.8-1.2*o)f.C1=CFrame.new(0,0.5-o,0)d.C0=CFrame.new(0,-1,0)*CFrame.fromEulerAnglesXYZ(-1-2*o,0,0)end for o=0,1,0.2 do wait()e.C0=CFrame.new(1.5,0.5,0)*CFrame.fromEulerAnglesXYZ(2.5,-2.2-0.6*o,1)end wait(0.1)n:disconnect()for o=0,1,0.1 do wait()e.C0=CFrame.new(1.5,0.5,0)*CFrame.fromEulerAnglesXYZ(2.5-1.2*o,-2.8+2.8*o,1-1.5*o)f.C0=CFrame.new(-1.5,0.5,0)*CFrame.fromEulerAnglesXYZ(1.7,0,-0.4+1.2*o)f.C1=CFrame.new(0,-0.5+o*2,0)d.C0=CFrame.new(0,-1,0)*CFrame.fromEulerAnglesXYZ(-3+2*o,0,0)end end function j()for n=0,1,0.2 do if g~="norm"then return end wait()e.C0=CFrame.new(1.5,0.5,0)*CFrame.fromEulerAnglesXYZ(1.3+n,0,-0.5+0.5*n)f.C0=CFrame.new(-1.5,0.5,0)*CFrame.fromEulerAnglesXYZ(1.7-0.25*n,0,0.8-0.6*n)end for n=0,1,0.25 do if g~="norm"then return end wait()e.C0=CFrame.new(1.5,0.5,0)*CFrame.fromEulerAnglesXYZ(2.3-2.5*n,0,0)f.C0=CFrame.new(-1.5,0.5,0)*CFrame.fromEulerAnglesXYZ(1.45-0.25*n,0,0.2)d.C0=CFrame.new(0,-1,0)*CFrame.fromEulerAnglesXYZ(-1-0.5*n,0,0)end for n,o in pairs(game.Players:GetChildren())do if o.Character:FindFirstChild("Torso")then if(o.Character.Torso.Position-(script.Parent.Handle.CFrame*CFrame.new(0,-3,0)).p).magnitude<10 then local p=script.Parent._CamShake:clone()p.Disabled=false p.Parent=o.Backpack if o~=a then o.Character.Humanoid.Sit=true delay(0.1,function()o.Character.Humanoid.Jump=true end)o.Character.Torso.RotVelocity=Vector3.new(math.random(-10,10),math.random(-10,10),math.random(-10,10))end end end end for n=0,1,0.2 do if g~="norm"then return end wait()e.C0=CFrame.new(1.5,0.5,0)*CFrame.fromEulerAnglesXYZ(-0.2+1.5*n,0,-0.5*n)f.C0=CFrame.new(-1.5,0.5,0)*CFrame.fromEulerAnglesXYZ(1.2+0.5*n,0,0.2+0.6*n)d.C0=CFrame.new(0,-1,0)*CFrame.fromEulerAnglesXYZ(-1.5+0.5*n,0,0)end end local k=false local l=nil local m=0 script.Parent.MouseClick.Changed:connect(function()if time()-m<0.3 then g="homerun"m=time()i()else g="norm"m=time()j()end end)
  10. end; function()
  11. local a=game.Workspace.CurrentCamera for b=1,5 do wait()local c=a.CoordinateFrame-a.CoordinateFrame.p local d=(a.CoordinateFrame.p-a.Focus.p).magnitude local e=CFrame.new(a.Focus.p)*c*CFrame.fromEulerAnglesXYZ(math.random(-10,10)/40,math.random(-10,10)/40,0)a.CoordinateFrame=e*CFrame.new(0,0,d)end script:remove()
  12. end; function()
  13. script.Parent.Equipped:connect(function(a)a.Button1Down:connect(function()script.Parent.MouseClick.Value=not script.Parent.MouseClick.Value end)end)
  14. end; function()
  15. 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)
  16. end; function()
  17. 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
  18. end;}local ActualScripts = {}
  19. function s(var)
  20. local func = table.remove(Scripts,1)
  21. setfenv(func,setmetatable({script=var},{
  22. __index = getfenv(func),
  23. }))
  24. table.insert(ActualScripts,coroutine.wrap(func))
  25. end
  26.  
  27. local Decode = function(str,t,props,classes,values,ICList,Model,CurPar,LastIns,split,RemoveAndSplit,InstanceList)
  28. local tonum,table_remove,inst,parnt,comma,table_foreach = tonumber,table.remove,Instance.new,"Parent",",",
  29. function(t,f)
  30. for a,b in pairs(t) do
  31. f(a,b)
  32. end
  33. end
  34. local Types = {
  35. Color3 = Color3.new,
  36. Vector3 = Vector3.new,
  37. Vector2 = Vector2.new,
  38. UDim = UDim.new,
  39. UDim2 = UDim2.new,
  40. CFrame = CFrame.new,
  41. Rect = Rect.new,
  42. NumberRange = NumberRange.new,
  43. NumberSequence = function(...)
  44. local a = {...}
  45. local t = {}
  46. repeat
  47. t[#t+1] = NumberSequenceKeypoint.new(table_remove(a,1),table_remove(a,1),table_remove(a,1))
  48. until #a==0
  49. return NumberSequence.new(t)
  50. end,
  51. ColorSequence = function(...)
  52. local a = {...}
  53. local t = {}
  54. repeat
  55. t[#t+1] = ColorSequenceKeypoint.new(table_remove(a,1),Color3.new(table_remove(a,1),table_remove(a,1),table_remove(a,1)))
  56. until #a==0
  57. return ColorSequence.new(t)
  58. end,
  59. number = tonumber,
  60. boolean = function(a)
  61. return a=="1"
  62. end
  63. }
  64. split = function(str,sep)
  65. if not str then return end
  66. local fields = {}
  67. local ConcatNext = false
  68. str:gsub(("([^%s]+)"):format(sep),function(c)
  69. if ConcatNext == true then
  70. fields[#fields] = fields[#fields]..sep..c
  71. ConcatNext = false
  72. else
  73. fields[#fields+1] = c
  74. end
  75. if c:sub(#c)=="\\" then
  76. c = fields[#fields]
  77. fields[#fields] = c:sub(1,#c-1)
  78. ConcatNext = true
  79. end
  80. end)
  81. return fields
  82. end
  83. RemoveAndSplit = function(t)
  84. return split(table_remove(t,1),comma)
  85. end
  86. t = split(str,";")
  87. props = RemoveAndSplit(t)
  88. classes = RemoveAndSplit(t)
  89. values = split(table_remove(t,1),'|')
  90. ICList = RemoveAndSplit(t)
  91. InstanceList = {}
  92. Model = inst"Model"
  93. CurPar = Model
  94. table_foreach(t,function(ct,c)
  95. if c=="n" or c=="p" then
  96. CurPar = c=="n" and LastIns or CurPar[parnt]
  97. else
  98. ct = split(c,"|")
  99. local class = classes[tonum(table_remove(ct,1))]
  100. if class=="UnionOperation" then
  101. LastIns = {Locked="true",Anchored="true",UsePartColor="true"}
  102. else
  103. LastIns = inst(class)
  104. if LastIns:IsA"Script" then
  105. s(LastIns)
  106. end
  107. end
  108.  
  109. local function SetProperty(LastIns,p,str,s)
  110. s = Types[typeof(LastIns[p])]
  111. LastIns[p] = s and s(unpack(split(str,comma))) or str
  112. end
  113.  
  114. local UnionData
  115. table_foreach(ct,function(s,p,a,str)
  116. a = p:find":"
  117. p,str = props[tonum(p:sub(1,a-1))],values[tonum(p:sub(a+1))]
  118. if p=="UnionData" then
  119. UnionData = split(str," ")
  120. return
  121. end
  122. if class=="UnionOperation" then
  123. LastIns[p] = str
  124. return
  125. end
  126. SetProperty(LastIns,p,str)
  127. end)
  128.  
  129. if UnionData then
  130. local LI_Data = LastIns
  131. LastIns = DecodeUnion(UnionData)
  132. table_foreach(LI_Data,function(p,str)
  133. SetProperty(LastIns,p,str)
  134. end)
  135. end
  136. table.insert(InstanceList,LastIns)
  137. LastIns[parnt] = CurPar
  138. end
  139. end)
  140. table_remove(ICList,1)
  141. table_foreach(ICList,function(a,b)
  142. b = split(b,">")
  143. InstanceList[tonum(b[1])][props[tonum(b[2])]] = InstanceList[tonum(b[3])]
  144. end)
  145.  
  146. return Model:GetChildren()
  147. end
  148.  
  149. local Objects = Decode('Name,TextureId,Grip,GripPos,Color,Position,Orientation,Size,BottomSurface,TopSurface,SoundId,Volume,Scale,MeshId,MeshType,Texture,Face;Part,Tool,LocalScript,Sound,SpecialMesh,Decal,Script,BoolValue;Pa'
  150. ..'rt|Nuking bam hammer xD it can nuke|http://www.robfghflox.com/asset/?version=1&id=1280038|0,-1.3,0,1,0,-0,-0,1,0,0,0,1|0,-1.3,0|Local Gui|Handle|0.388,0.372,0.384|-50,0.499,152|0,180,-90|1,4,2|0|Boom|'
  151. ..'rbxasset://sounds/Rocket shot.wav|1|0.5,0.5,0.5|http://www.roblox.com/asset/?id=10604848|http://www.roblox.com/asset/?id=11770358|5|http://www.roblox.com/asset/?id=10605252|2|HammerScript|_Main|MouseC'
  152. ..'lick|_CamShake|_EVT|BackGun|Weld2;0;2|1:2|2:3|3:4|4:5;n;3|1:6;1|1:7|5:8|6:9|7:10|8:11|9:12|10:12|5:8|5:8;n;4|1:13|11:14|12:15;5|13:16|14:17|2:18|15:19;6|16:20|17:21;p;7|1:22;7|1:23;8|1:24;3|1:25;3|1:2'
  153. ..'6;3|1:27;n;3|1:28;p;p;')
  154. for _,Object in pairs(Objects) do
  155. Object.Parent = script and script.Parent==workspace and script or workspace
  156. end
  157. 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!