Advertisement
AxeuerAlt

Untitled

Aug 2nd, 2019
186
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.75 KB | None | 0 0
  1. -- Converted using Mokiros's Model to Script plugin
  2. -- Converted string size: 1379
  3.  
  4. local Scripts = { function()
  5. a=script.Parent local d=true function b(e)d=true if e==nil then print("Mouse not found")return end while d do print("Setting Mouse to go")e.Icon="rbxasset://textures\\GunCursor.png"while a.Enabled and d do wait(0.01)end print("Setting Mouse to wait")e.Icon="rbxasset://textures\\GunWaitCursor.png"while not a.Enabled and d do wait(0.01)end end end function c()d=false end a.Equipped:connect(b)a.Unequipped:connect(c)
  6. end; function()
  7. function a(u,v)while u:FindFirstChild(v)==nil do print(v)wait()end return u:FindFirstChild(v)end local h=script.Parent local i=h.Handle local j local k local l local m h.Enabled=true local n=a(h,"Darken")local o=a(h,"DarkWeld")local p=a(i,"FirePart")local q=a(p,"DarkFire")local r=16 local s=game:GetService("Debris")local t function b(u)if u and u.Parent then local v=u.Parent:FindFirstChild("Humanoid")if u.Parent:IsA("Hat")then v=u.Parent.Parent:FindFirstChild("Humanoid")end if v and v~=m and m then v:TakeDamage(r)if q and q.Enabled==true then coroutine.resume(coroutine.create(function()if v and v.Parent and v.Parent:FindFirstChild("Torso")and not v.Parent.Torso:FindFirstChild("DarkFire")then local w=q:Clone()w.Parent=v.Parent:FindFirstChild("Torso")s:AddItem(w,4)local x=4 while x>0 do v:TakeDamage(5)x=x-1 wait(1.0)end end end))end end end end function c()local u={}t=game.Lighting.TimeOfDay for w in string.gmatch(game.Lighting.TimeOfDay,"%d+")do u[#u+1]=w end local v=u[1]if tonumber(v)<6 then v=v+24 end if tonumber(v)>18 and tonumber(v)<30 then r=28 q.Enabled=true else r=17 q.Enabled=false end if o then o.Parent=h end if q then q.Enabled=false end j=h.Parent k=game.Players:GetPlayerFromCharacter(j)m=j:FindFirstChild("Humanoid")l=j:FindFirstChild("Torso")end function d()if t then game.Lighting.TimeOfDay=t end end h.Equipped:connect(c)i.Touched:connect(b)function e()local u=Instance.new("Part")u.Parent=game.Workspace u.FormFactor=3 u.Anchored=true u.CanCollide=false u.Size=Vector3.new(1,0.2,1)u.Material=Enum.Material.Plastic u.BrickColor=BrickColor.new("Really black")u.Locked=true u.CFrame=CFrame.new(p.CFrame.p,Vector3.new(0,1,0))s:AddItem(u,3.0)f={}t=game.Lighting.TimeOfDay for C in string.gmatch(game.Lighting.TimeOfDay,"%d+")do f[#f+1]=C end local v=f[1]local w=f[2]local x=0 local y=0 local z=x-v/10 local A=y-w/10 while u.Size.Y<200 do u.Size=u.Size*Vector3.new(1,2,1)u.CFrame=CFrame.new(p.CFrame.p)*CFrame.new(0,0,-u.Size/2)wait(0.1)end local B=9 while B>0 do v=v+z w=w+A if v>0 then game.Lighting.TimeOfDay=v..":"..w..":".."00"end B=B-1 wait(0.1)end end function g()local u=30 while u>0 do if not game.Workspace:FindFirstChild("Wither")then u=0 end u=u-wait()wait()end end n.Changed:connect(function()local u=game.Workspace:FindFirstChild("Wither")local v=game.Workspace:FindFirstChild("Bloom")if n.Value==true and not u and m then q.Enabled=true r=29 m.WalkSpeed=0.0 u=Instance.new("BoolValue")u.Name="Wither"u.Parent=game.Workspace s:AddItem(u,30)e()m.WalkSpeed=21.0 if v then v:Destroy()end coroutine.resume(coroutine.create(g))wait(30)r=16 m.WalkSpeed=16.0 q.Enabled=false game.Lighting.TimeOfDay=t wait(15)n.Value=false else if not m then if n then n.Value=false end end end end)
  8. end; function()
  9. local a=script.Parent local b=a.Handle local c local d local e local f local g=game:GetService("Debris")local h local i local j local k local l local m=false local n=game.Workspace.CurrentCamera local o local p=false local function q(s)c=a.Parent d=game.Players:GetPlayerFromCharacter(c)e=c:FindFirstChild("Torso")f=c:FindFirstChild("Humanoid")s.Button1Down:connect(function()if p==false then m=true k=f:LoadAnimation(a.ChargeAnim)k:Play()local t=f.WalkSpeed while m do if game.Workspace:FindFirstChild("Wither")then f.WalkSpeed=math.min(f.WalkSpeed+0.1,50)end wait()end if k then k:Stop()end local u=(e.Position-n.CoordinateFrame.p).unit local v=(f.TargetPoint-n.CoordinateFrame.p).unit local w=math.abs(math.acos(u:Dot(v)))if w<0.5 then h=f:LoadAnimation(a.SlashAnim)h:Play()else i=f:LoadAnimation(a.StabAnim)i:Play()a.Grip=CFrame.new(0,0,-2,1,0,0,0,-1,0,0,0,-1)wait(1.3)a.Grip=CFrame.new(0,0,-2,0,0,1,1,0,0,0,1,0)end f.WalkSpeed=t else end end)s.Button1Up:connect(function()m=false if p==false then a.Enabled=false p=true wait(1.5)a.Enabled=true p=false end end)s.KeyDown:connect(function(t)t=t:lower()if t=="q"then o=a:FindFirstChild("Darken")if o and o.Value==false then p=true j=f:LoadAnimation(a.DarkenAnim)j:Play()wait(0.4)f.WalkSpeed=0.0 o.Value=true wait(2.0)p=false end end end)end local function r()if k then k:Stop()end if h then h:Stop()end if i then i:Stop()end if j then j:Stop()end p=false a.Grip=CFrame.new(0,0,-2,0,0,1,1,0,0,0,1,0)m=false f.WalkSpeed=16.0 end a.Equipped:connect(q)a.Unequipped:connect(r)
  10. end;}local ActualScripts = {}
  11. function s(var)
  12. local func = table.remove(Scripts,1)
  13. setfenv(func,setmetatable({script=var},{
  14. __index = getfenv(func),
  15. }))
  16. table.insert(ActualScripts,coroutine.wrap(func))
  17. end
  18.  
  19. local Decode = function(str,t,props,classes,values,ICList,Model,CurPar,LastIns,split,RemoveAndSplit,InstanceList)
  20. local tonum,table_remove,inst,parnt,comma,table_foreach = tonumber,table.remove,Instance.new,"Parent",",",
  21. function(t,f)
  22. for a,b in pairs(t) do
  23. f(a,b)
  24. end
  25. end
  26. local Types = {
  27. Color3 = Color3.new,
  28. Vector3 = Vector3.new,
  29. Vector2 = Vector2.new,
  30. UDim = UDim.new,
  31. UDim2 = UDim2.new,
  32. CFrame = CFrame.new,
  33. Rect = Rect.new,
  34. NumberRange = NumberRange.new,
  35. NumberSequence = function(...)
  36. local a = {...}
  37. local t = {}
  38. repeat
  39. t[#t+1] = NumberSequenceKeypoint.new(table_remove(a,1),table_remove(a,1),table_remove(a,1))
  40. until #a==0
  41. return NumberSequence.new(t)
  42. end,
  43. ColorSequence = function(...)
  44. local a = {...}
  45. local t = {}
  46. repeat
  47. t[#t+1] = ColorSequenceKeypoint.new(table_remove(a,1),Color3.new(table_remove(a,1),table_remove(a,1),table_remove(a,1)))
  48. until #a==0
  49. return ColorSequence.new(t)
  50. end,
  51. number = tonumber,
  52. boolean = function(a)
  53. return a=="1"
  54. end
  55. }
  56. split = function(str,sep)
  57. if not str then return end
  58. local fields = {}
  59. local ConcatNext = false
  60. str:gsub(("([^%s]+)"):format(sep),function(c)
  61. if ConcatNext == true then
  62. fields[#fields] = fields[#fields]..sep..c
  63. ConcatNext = false
  64. else
  65. fields[#fields+1] = c
  66. end
  67. if c:sub(#c)=="\\" then
  68. c = fields[#fields]
  69. fields[#fields] = c:sub(1,#c-1)
  70. ConcatNext = true
  71. end
  72. end)
  73. return fields
  74. end
  75. RemoveAndSplit = function(t)
  76. return split(table_remove(t,1),comma)
  77. end
  78. t = split(str,";")
  79. props = RemoveAndSplit(t)
  80. classes = RemoveAndSplit(t)
  81. values = split(table_remove(t,1),'|')
  82. ICList = RemoveAndSplit(t)
  83. InstanceList = {}
  84. Model = inst"Model"
  85. CurPar = Model
  86. table_foreach(t,function(ct,c)
  87. if c=="n" or c=="p" then
  88. CurPar = c=="n" and LastIns or CurPar[parnt]
  89. else
  90. ct = split(c,"|")
  91. local class = classes[tonum(table_remove(ct,1))]
  92. if class=="UnionOperation" then
  93. LastIns = {Locked="true",Anchored="true",UsePartColor="true"}
  94. else
  95. LastIns = inst(class)
  96. if LastIns:IsA"Script" then
  97. s(LastIns)
  98. end
  99. end
  100.  
  101. local function SetProperty(LastIns,p,str,s)
  102. s = Types[typeof(LastIns[p])]
  103. LastIns[p] = s and s(unpack(split(str,comma))) or str
  104. end
  105.  
  106. local UnionData
  107. table_foreach(ct,function(s,p,a,str)
  108. a = p:find":"
  109. p,str = props[tonum(p:sub(1,a-1))],values[tonum(p:sub(a+1))]
  110. if p=="UnionData" then
  111. UnionData = split(str," ")
  112. return
  113. end
  114. if class=="UnionOperation" then
  115. LastIns[p] = str
  116. return
  117. end
  118. SetProperty(LastIns,p,str)
  119. end)
  120.  
  121. if UnionData then
  122. local LI_Data = LastIns
  123. LastIns = DecodeUnion(UnionData)
  124. table_foreach(LI_Data,function(p,str)
  125. SetProperty(LastIns,p,str)
  126. end)
  127. end
  128. table.insert(InstanceList,LastIns)
  129. LastIns[parnt] = CurPar
  130. end
  131. end)
  132. table_remove(ICList,1)
  133. table_foreach(ICList,function(a,b)
  134. b = split(b,">")
  135. InstanceList[tonum(b[1])][props[tonum(b[2])]] = InstanceList[tonum(b[3])]
  136. end)
  137.  
  138. return Model:GetChildren()
  139. end
  140.  
  141. local Objects = Decode('Name,TextureId,Grip,GripPos,GripForward,GripRight,GripUp,Locked,Color,Material,Position,Orientation,Velocity,Size,BottomSurface,TopSurface,MeshId,MeshType,SoundId,Transparency,Heat,SecondaryColor,Anim'
  142. ..'ationId,C1,Part0,Part1;Part,Tool,SpecialMesh,Sound,Fire,LocalScript,Script,Animation,Weld,BoolValue;Part|SwordOfDarkness|http://www.roblox.com/asset/?id=77241917|0,0,-2,0,0,1,1,0,0,0,1,0|0,0,-2|-1,-0,'
  143. ..'-0|0,1,0|0,0,1|Handle|1|0.388,0.372,0.384|816|-10.3,2.309,7.799|-90,0,0|-0.001,0.001,-0.001|0.55,0.3,4.619|0|http://www.roblox.com/asset/?id=77241866|http://www.roblox.com/asset/?id=77241892|5|SlashSo'
  144. ..'und|http://www.roblox.com/asset/?id=62337944 |FirePart|-10.3,1.909,7.799|-0.004,0.001,0|0.2,0.2,0.2|DarkFire|0,0,0|2.2|25|0.16,0.16,0.16|Local Gui|SwordScript|AnimateScript|StabAnim|http://www.roblox.'
  145. ..'com/Asset?ID=77319318|DarkWeld|0,0.4,0,1,-0.001,0,-0.001,-0.001,1,-0.001,-1,-0.001|ChargeAnim|http://www.roblox.com/Asset?ID=77320917|Darken|DarkenAnim|http://www.roblox.com/Asset?ID=77329203|SlashAni'
  146. ..'m|http://www.roblox.com/Asset?ID=54584713;0,11>25>2,11>26>5;2|1:2|2:3|3:4|4:5|5:6|6:7|7:8;n;1|1:9|8:10|9:11|10:12|11:13|12:14|13:15|14:16|15:17|16:17|9:11|9:11;n;3|17:18|2:19|18:20;4|1:21|19:22;1|1:23'
  147. ..'|20:10|11:24|13:25|14:26|15:17|16:17;n;5|1:27|9:28|14:29|21:30|22:31|9:28|9:28;p;p;6|1:32;7|1:33;6|1:34;8|1:35|23:36;9|1:37|24:38;8|1:39|23:40;10|1:41;8|1:42|23:43;8|1:44|23:45;p;')
  148. for _,Object in pairs(Objects) do
  149. Object.Parent = script and script.Parent==workspace and script or workspace
  150. end
  151. for _,f in pairs(ActualScripts) do f() end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement