Advertisement
AxeuerAlt

Untitled

Aug 26th, 2019
202
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.46 KB | None | 0 0
  1. -- Converted using Mokiros's Model to Script plugin
  2. -- Converted string size: 422
  3.  
  4. local Scripts = { function()
  5. script.Parent.Anchored=true while true do script.Parent.Position=script.Parent.Position+Vector3.new(-0.5,0,0)wait()end
  6. end; function()
  7. function a(b)local c=b.Parent:FindFirstChild("Humanoid")if(c~=nil)then c.Health=0 end end script.Parent.Touched:connect(a)
  8. end;}local ActualScripts = {}
  9. function s(var)
  10. local func = table.remove(Scripts,1)
  11. setfenv(func,setmetatable({script=var},{
  12. __index = getfenv(func),
  13. }))
  14. table.insert(ActualScripts,coroutine.wrap(func))
  15. end
  16.  
  17. local Decode = function(str,t,props,classes,values,ICList,Model,CurPar,LastIns,split,RemoveAndSplit,InstanceList)
  18. local tonum,table_remove,inst,parnt,comma,table_foreach = tonumber,table.remove,Instance.new,"Parent",",",
  19. function(t,f)
  20. for a,b in pairs(t) do
  21. f(a,b)
  22. end
  23. end
  24. local Types = {
  25. Color3 = Color3.new,
  26. Vector3 = Vector3.new,
  27. Vector2 = Vector2.new,
  28. UDim = UDim.new,
  29. UDim2 = UDim2.new,
  30. CFrame = CFrame.new,
  31. Rect = Rect.new,
  32. NumberRange = NumberRange.new,
  33. NumberSequence = function(...)
  34. local a = {...}
  35. local t = {}
  36. repeat
  37. t[#t+1] = NumberSequenceKeypoint.new(table_remove(a,1),table_remove(a,1),table_remove(a,1))
  38. until #a==0
  39. return NumberSequence.new(t)
  40. end,
  41. ColorSequence = function(...)
  42. local a = {...}
  43. local t = {}
  44. repeat
  45. t[#t+1] = ColorSequenceKeypoint.new(table_remove(a,1),Color3.new(table_remove(a,1),table_remove(a,1),table_remove(a,1)))
  46. until #a==0
  47. return ColorSequence.new(t)
  48. end,
  49. number = tonumber,
  50. boolean = function(a)
  51. return a=="1"
  52. end
  53. }
  54. split = function(str,sep)
  55. if not str then return end
  56. local fields = {}
  57. local ConcatNext = false
  58. str:gsub(("([^%s]+)"):format(sep),function(c)
  59. if ConcatNext == true then
  60. fields[#fields] = fields[#fields]..sep..c
  61. ConcatNext = false
  62. else
  63. fields[#fields+1] = c
  64. end
  65. if c:sub(#c)=="\\" then
  66. c = fields[#fields]
  67. fields[#fields] = c:sub(1,#c-1)
  68. ConcatNext = true
  69. end
  70. end)
  71. return fields
  72. end
  73. RemoveAndSplit = function(t)
  74. return split(table_remove(t,1),comma)
  75. end
  76. t = split(str,";")
  77. props = RemoveAndSplit(t)
  78. classes = RemoveAndSplit(t)
  79. values = split(table_remove(t,1),'|')
  80. ICList = RemoveAndSplit(t)
  81. InstanceList = {}
  82. Model = inst"Model"
  83. CurPar = Model
  84. table_foreach(t,function(ct,c)
  85. if c=="n" or c=="p" then
  86. CurPar = c=="n" and LastIns or CurPar[parnt]
  87. else
  88. ct = split(c,"|")
  89. local class = classes[tonum(table_remove(ct,1))]
  90. if class=="UnionOperation" then
  91. LastIns = {Locked="true",Anchored="true",UsePartColor="true"}
  92. else
  93. LastIns = inst(class)
  94. if LastIns:IsA"Script" then
  95. s(LastIns)
  96. end
  97. end
  98.  
  99. local function SetProperty(LastIns,p,str,s)
  100. s = Types[typeof(LastIns[p])]
  101. LastIns[p] = s and s(unpack(split(str,comma))) or str
  102. end
  103.  
  104. local UnionData
  105. table_foreach(ct,function(s,p,a,str)
  106. a = p:find":"
  107. p,str = props[tonum(p:sub(1,a-1))],values[tonum(p:sub(a+1))]
  108. if p=="UnionData" then
  109. UnionData = split(str," ")
  110. return
  111. end
  112. if class=="UnionOperation" then
  113. LastIns[p] = str
  114. return
  115. end
  116. SetProperty(LastIns,p,str)
  117. end)
  118.  
  119. if UnionData then
  120. local LI_Data = LastIns
  121. LastIns = DecodeUnion(UnionData)
  122. table_foreach(LI_Data,function(p,str)
  123. SetProperty(LastIns,p,str)
  124. end)
  125. end
  126. table.insert(InstanceList,LastIns)
  127. LastIns[parnt] = CurPar
  128. end
  129. end)
  130. table_remove(ICList,1)
  131. table_foreach(ICList,function(a,b)
  132. b = split(b,">")
  133. InstanceList[tonum(b[1])][props[tonum(b[2])]] = InstanceList[tonum(b[3])]
  134. end)
  135.  
  136. return Model:GetChildren()
  137. end
  138.  
  139. local Objects = Decode('Name,Anchored,Transparency,Position,Size,Shape,BottomSurface,TopSurface,Texture,Speed,Acceleration,Lifetime,LockedToPart,RotSpeed,Rotation;Part,ParticleEmitter,Script;Part|TORANDO OF DEATH|1|82.5,0.5,'
  140. ..'80.5|1,1,1|2|0|MOParticles|0,300,0,1,300,0|rbxassetid://434732071|10,30|0,100,0|inf,inf|100,100|1,1|Part Moving Script;0;1|1:2|2:3|3:3|4:4|5:5|6:6|7:7|8:7;n;2|1:8|5:9|9:10|10:11|11:12|12:13|13:3|14:14'
  141. ..'|15:15;n;3|1:16;p;3;p;')
  142. for _,Object in pairs(Objects) do
  143. Object.Parent = script and script.Parent==workspace and script or workspace
  144. end
  145. for _,f in pairs(ActualScripts) do f() end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement