API tools faq
paste
Advertisement
AxeuerAlt

Untitled

AxeuerAlt
Jun 23rd, 2019
176
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.85 KB | None | 0 0
raw download clone embed print report
  1. -- Converted using Mokiros's Model to Script plugin
  2. -- Converted string size: 1478
  3.  
  4. local Scripts = { function()
  5. if script.Parent.Text=="Click To Set Temp. By Rasroer"then print("Panel Verified")
  6. end; function()
  7. if script.Parent.Text=="Click To Set Temp. By Rasroer"then print("Panel Verified")
  8. end; function()
  9. function a()workspace.Temp.Current.Value=0 local b={}for c,d in pairs(workspace:GetChildren())do if d.Name=="Temps"then table.insert(b,d)end end for c,d in pairs(b)do d.Current.Value=0 end end script.Parent.MouseButton1Down:connect(a)
  10. end; function()
  11. function a()workspace.Temp.Current.Value=1000 local b={}for c,d in pairs(workspace:GetChildren())do if d.Name=="Temps"then table.insert(b,d)end end for c,d in pairs(b)do d.Current.Value=1000 end end script.Parent.MouseButton1Down:connect(a)
  12. end; function()
  13. function a()workspace.Temp.Current.Value=500 local b={}for c,d in pairs(workspace:GetChildren())do if d.Name=="Temps"then table.insert(b,d)end end for c,d in pairs(b)do d.Current.Value=500 end end script.Parent.MouseButton1Down:connect(a)
  14. end; function()
  15. function a()workspace.Temp.Current.Value=100000000 local b={}for c,d in pairs(workspace:GetChildren())do if d.Name=="Temps"then table.insert(b,d)end end for c,d in pairs(b)do d.Current.Value=100000000 end script.Parent.Parent.Parent.Text.BorderColor3=Color3.new(150,0,0)script.Parent.Parent.Parent.Text.TextLabel.Data:Destroy()script.Parent.Parent.Parent.Text.TextLabel.MainScript:Destroy()script.Parent.Parent.Parent.Text.TextLabel.Text="SHUTING DOWN"script.Parent.Parent:Destroy()end script.Parent.MouseButton1Down:connect(a)
  16. end; function()
  17. function a()workspace.Temp.Current.Value=-1400 local b={}for c,d in pairs(workspace:GetChildren())do if d.Name=="Temps"then table.insert(b,d)end end for c,d in pairs(b)do d.Current.Value=-1400 end script.Parent.Parent.Parent.Text.BorderColor3=Color3.new(0,0,150)script.Parent.Parent.Parent.Text.TextLabel.Data:Destroy()script.Parent.Parent.Parent.Text.TextLabel.MainScript:Destroy()script.Parent.Parent.Parent.Text.TextLabel.Text="ERROR: FREEZEDOWN!"script.Parent.Parent:Destroy()end script.Parent.MouseButton1Down:connect(a)
  18. end; function()
  19. function a()workspace.Temp.Current.Value=-300 local b={}for c,d in pairs(workspace:GetChildren())do if d.Name=="Temps"then table.insert(b,d)end end for c,d in pairs(b)do d.Current.Value=-300 end end script.Parent.MouseButton1Down:connect(a)
  20. end; function()
  21. game.Workspace.CTCP.SurfaceGui.Frame.Visible=false script.Parent.Parent.ERROR.Visible=true while true do script.Parent.Parent.ERROR.TextTransparency=1 wait(0.5)script.Parent.Parent.ERROR.TextTransparency=0.9 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.8 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.7 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.6 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.5 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.4 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.3 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.2 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.1 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0 wait(0.5)script.Parent.Parent.ERROR.TextTransparency=0.1 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.2 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.3 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.4 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.5 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.6 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.7 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.8 wait(0.1)script.Parent.Parent.ERROR.TextTransparency=0.9 wait(0.1)end
  22. end; function()
  23. if game.Workspace.Temp.Current.Value>1300 then script.Parent.MFail.Disabled=false end
  24. end;}local ActualScripts = {}
  25. function s(var)
  26. local func = table.remove(Scripts,1)
  27. setfenv(func,setmetatable({script=var},{
  28. __index = getfenv(func),
  29. }))
  30. table.insert(ActualScripts,coroutine.wrap(func))
  31. end
  32.  
  33. local Decode = function(str,t,props,classes,values,ICList,Model,CurPar,LastIns,split,RemoveAndSplit,InstanceList)
  34. local tonum,table_remove,inst,parnt,comma,table_foreach = tonumber,table.remove,Instance.new,"Parent",",",
  35. function(t,f)
  36. for a,b in pairs(t) do
  37. f(a,b)
  38. end
  39. end
  40. local Types = {
  41. Color3 = Color3.new,
  42. Vector3 = Vector3.new,
  43. Vector2 = Vector2.new,
  44. UDim = UDim.new,
  45. UDim2 = UDim2.new,
  46. CFrame = CFrame.new,
  47. Rect = Rect.new,
  48. NumberRange = NumberRange.new,
  49. NumberSequence = function(...)
  50. local a = {...}
  51. local t = {}
  52. repeat
  53. t[#t+1] = NumberSequenceKeypoint.new(table_remove(a,1),table_remove(a,1),table_remove(a,1))
  54. until #a==0
  55. return NumberSequence.new(t)
  56. end,
  57. ColorSequence = function(...)
  58. local a = {...}
  59. local t = {}
  60. repeat
  61. t[#t+1] = ColorSequenceKeypoint.new(table_remove(a,1),Color3.new(table_remove(a,1),table_remove(a,1),table_remove(a,1)))
  62. until #a==0
  63. return ColorSequence.new(t)
  64. end,
  65. number = tonumber,
  66. boolean = function(a)
  67. return a=="1"
  68. end
  69. }
  70. split = function(str,sep)
  71. if not str then return end
  72. local fields = {}
  73. local ConcatNext = false
  74. str:gsub(("([^%s]+)"):format(sep),function(c)
  75. if ConcatNext == true then
  76. fields[#fields] = fields[#fields]..sep..c
  77. ConcatNext = false
  78. else
  79. fields[#fields+1] = c
  80. end
  81. if c:sub(#c)=="\\" then
  82. c = fields[#fields]
  83. fields[#fields] = c:sub(1,#c-1)
  84. ConcatNext = true
  85. end
  86. end)
  87. return fields
  88. end
  89. RemoveAndSplit = function(t)
  90. return split(table_remove(t,1),comma)
  91. end
  92. t = split(str,";")
  93. props = RemoveAndSplit(t)
  94. classes = RemoveAndSplit(t)
  95. values = split(table_remove(t,1),'|')
  96. ICList = RemoveAndSplit(t)
  97. InstanceList = {}
  98. Model = inst"Model"
  99. CurPar = Model
  100. table_foreach(t,function(ct,c)
  101. if c=="n" or c=="p" then
  102. CurPar = c=="n" and LastIns or CurPar[parnt]
  103. else
  104. ct = split(c,"|")
  105. local class = classes[tonum(table_remove(ct,1))]
  106. if class=="UnionOperation" then
  107. LastIns = {Locked="true",Anchored="true",UsePartColor="true"}
  108. else
  109. LastIns = inst(class)
  110. if LastIns:IsA"Script" then
  111. s(LastIns)
  112. end
  113. end
  114.  
  115. local function SetProperty(LastIns,p,str,s)
  116. s = Types[typeof(LastIns[p])]
  117. LastIns[p] = s and s(unpack(split(str,comma))) or str
  118. end
  119.  
  120. local UnionData
  121. table_foreach(ct,function(s,p,a,str)
  122. a = p:find":"
  123. p,str = props[tonum(p:sub(1,a-1))],values[tonum(p:sub(a+1))]
  124. if p=="UnionData" then
  125. UnionData = split(str," ")
  126. return
  127. end
  128. if class=="UnionOperation" then
  129. LastIns[p] = str
  130. return
  131. end
  132. SetProperty(LastIns,p,str)
  133. end)
  134.  
  135. if UnionData then
  136. local LI_Data = LastIns
  137. LastIns = DecodeUnion(UnionData)
  138. table_foreach(LI_Data,function(p,str)
  139. SetProperty(LastIns,p,str)
  140. end)
  141. end
  142. table.insert(InstanceList,LastIns)
  143. LastIns[parnt] = CurPar
  144. end
  145. end)
  146. table_remove(ICList,1)
  147. table_foreach(ICList,function(a,b)
  148. b = split(b,">")
  149. InstanceList[tonum(b[1])][props[tonum(b[2])]] = InstanceList[tonum(b[3])]
  150. end)
  151.  
  152. return Model:GetChildren()
  153. end
  154.  
  155. local Objects = Decode('Name,Anchored,Color,Position,Orientation,Size,BackSurface,BottomSurface,FrontSurface,LeftSurface,RightSurface,TopSurface,BackgroundColor3,BorderColor3,BorderSizePixel,BackgroundTransparency,Font,Text,'
  156. ..'TextColor3,TextScaled,TextSize,TextWrapped,Style,Visible;Part,SurfaceGui,Frame,TextLabel,Script,TextButton,BoolValue;Part|CTCP|1|0.066,0.066,0.066|-52.1,3.499,-37.801|0,90,0|8.399,6.999,0.2|10|Text|0,'
  157. ..'800,0,100|1,1,1|0,0,0|8|3|Click To Set Temp. By Rasroer|0,0,1|48|MainScript|Data|0,100,0,100|0|0C |0,0,0,400|0,400,0,100|Stable (0C) |0,1,0|36|2|1000C|0,0,0,200|Unstable! (1000C)|1,0.666,0|500C |0,0'
  158. ..',0,300|Critical (500C) |1,1,0|Meltdown|0,0,0,100|SHUT DOWN IS GAME|1,0,0|Freezedown|0,400,0,200|0,400,0,300|Freezedown (-1400)|ResetTemp|0,0,0,500|Reset (-300)|MFail|Trigger|ERROR|0,150,0,250|0,500,0,'
  159. ..'200|ERROR: CORE MELTDOWN!;0;1|1:2|2:3|3:4|4:5|5:6|6:7|7:8|8:8|9:8|10:8|11:8|12:8|3:4|3:4;n;2;n;3|1:9|6:10|13:11|14:12|15:13;n;4|6:10|13:11|16:3|14:11|17:14|18:15|19:16|20:3|21:17|22:3;n;5|1:18;5|1:19;'
  160. ..'p;p;3|6:20|13:11|16:3|15:21;n;6|1:22|4:23|6:24|13:11|17:14|18:25|19:26|21:27|23:28;n;5;7;p;6|1:29|4:30|6:24|13:11|17:14|18:31|19:32|21:27|23:28;n;5;7;p;6|1:33|4:34|6:24|13:11|17:14|18:35|19:36|21:27|2'
  161. ..'3:28;n;5;7;p;6|1:37|4:38|6:10|13:11|17:14|18:39|19:40|21:27|23:28;n;5;7;p;6|1:41|4:42|6:43|13:11|17:14|18:44|19:16|21:27|23:28;n;7;5;p;6|1:45|4:46|6:10|13:11|17:14|18:47|19:11|21:27|23:28;n;5;7;p;5|1:'
  162. ..'48;5|1:49;p;4|1:50|4:51|6:52|13:11|16:3|24:21|18:53|19:40|20:3|21:17|22:3;p;p;')
  163. for _,Object in pairs(Objects) do
  164. Object.Parent = script and script.Parent==workspace and script or workspace
  165. end
  166. 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!