Guest User

Untitled

a guest
Nov 15th, 2019
137
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. -- Made by SegFault. v3rmillion.net
  2.  
  3. openkey = "y"
  4.  
  5. closing=false
  6. function doclose() if not closing and not opening then closing=true
  7. if exe.Rotation == 0 then
  8. for i=0,-360,-20 do
  9. exe.Rotation=i wait()
  10. end
  11. exe.Rotation = 0
  12. for i=1,20 do
  13. exe.Position = exe.Position + UDim2.new(-0.1,0,0,0) wait()
  14. end
  15. exe.Visible=false show.Visible=true
  16. exe.Position = UDim2.new(0.5, -291, 0.5, -157)
  17. for _,mpops in pairs(CodeExecutorLocal.Parent:GetChildren()) do
  18. if mpops:IsA("ScreenGui") and mpops.Name == "MessagePopup" then
  19. mpops:Destroy()
  20. end
  21. end wait()
  22. end
  23. closing=false end
  24. end
  25.  
  26. opening=false
  27. function doopen() if not opening and not closing then opening=true
  28. exe.Visible = true
  29. show.Visible=false
  30. for i=0,360,20 do
  31. exe.Rotation = i wait()
  32. end
  33. exe.Rotation = 0
  34. if not viewed then viewed=true wait(3)
  35. for i=1,55 do
  36. V3Logo.Position = V3Logo.Position + UDim2.new(0,0,-0.02,0) wait()
  37. end
  38. V3Logo:Destroy()
  39. end
  40. end
  41. opening=false
  42. end
  43. function guimsg(header,message,duration,daddy)
  44. MessagePopup = Instance.new("ScreenGui", daddy)
  45. MessagePopup.Name = "MessagePopup"
  46.  
  47. bg = Instance.new("Frame", MessagePopup)
  48. bg.Name = "bg"
  49. bg.Position = UDim2.new(0.5, -200, 0.20000000298023, 0)
  50. bg.Size = UDim2.new(0, 400, 0, 140)
  51. bg.BackgroundColor3 = Color3.new(0, 0, 0)
  52. bg.BorderSizePixel = 0
  53. bg.Style = Enum.FrameStyle.RobloxRound
  54. bg.ZIndex = 9
  55.  
  56. title = Instance.new("TextBox", bg)
  57. title.Name = "title"
  58. title.Size = UDim2.new(1, 0, 0, 50)
  59. title.BackgroundColor3 = Color3.new(0.66666668653488, 0, 0)
  60. title.BackgroundTransparency = 1
  61. title.BorderSizePixel = 0
  62. title.Text = header
  63. title.Font = Enum.Font.SourceSansBold
  64. title.FontSize = Enum.FontSize.Size48
  65. title.TextScaled = true
  66. title.TextWrapped = true
  67. title.TextColor3 = Color3.new(0.66666668653488, 0, 0)
  68. title.ZIndex = 10
  69.  
  70. desc = Instance.new("TextBox", bg)
  71. desc.Name = "desc"
  72. desc.Position = UDim2.new(0, 0, 0, 60)
  73. desc.Size = UDim2.new(1, 0, 0, 50)
  74. desc.BackgroundColor3 = Color3.new(0.66666668653488, 0, 0)
  75. desc.BackgroundTransparency = 1
  76. desc.BorderSizePixel = 0
  77. desc.Text = message
  78. desc.Font = Enum.Font.SourceSansBold
  79. desc.FontSize = Enum.FontSize.Size36
  80. desc.TextScaled = true
  81. desc.TextWrapped = true
  82. desc.TextColor3 = Color3.new(1, 1, 1)
  83. desc.ZIndex = 10
  84. wait(duration) MessagePopup:Destroy()
  85. end
  86. function lodecode(daddy)
  87. CodeExecutorLocal = Instance.new("ScreenGui", daddy)
  88. CodeExecutorLocal.Name = "CodeExecutorLocal"
  89.  
  90. exe = Instance.new("Frame", CodeExecutorLocal)
  91. exe.Name = "exe"
  92. exe.Position = UDim2.new(0.5, -291, 0.5, -157)
  93. exe.Size = UDim2.new(0, 600, 0, 300)
  94. exe.BackgroundColor3 = Color3.new(0, 1, 0)
  95. exe.BackgroundTransparency = 0.5
  96. exe.BorderSizePixel = 0
  97. exe.Visible = false
  98. exe.Active = true
  99. exe.ZIndex = 7
  100. exe.Draggable = true
  101.  
  102. run = Instance.new("TextButton", exe)
  103. run.Name = "run"
  104. run.Position = UDim2.new(0, 0, 1, -30)
  105. run.Size = UDim2.new(0, 140, 0, 30)
  106. run.BackgroundColor3 = Color3.new(1, 1, 1)
  107. run.BorderSizePixel = 0
  108. run.Text = "Execute"
  109. run.Font = Enum.Font.ArialBold
  110. run.FontSize = Enum.FontSize.Size24
  111. run.TextColor3 = Color3.new(0, 1, 0)
  112. run.ZIndex = 10
  113.  
  114. clear = Instance.new("TextButton", exe)
  115. clear.Name = "clear"
  116. clear.Position = UDim2.new(0, 460, 1, -30)
  117. clear.Size = UDim2.new(0, 140, 0, 30)
  118. clear.BackgroundColor3 = Color3.new(1, 1, 1)
  119. clear.BorderSizePixel = 0
  120. clear.Text = "Clear"
  121. clear.Font = Enum.Font.ArialBold
  122. clear.FontSize = Enum.FontSize.Size24
  123. clear.TextWrapped = true
  124. clear.TextColor3 = Color3.new(1, 0, 0)
  125. clear.ZIndex = 10
  126.  
  127. code = Instance.new("TextBox", exe)
  128. code.Name = "code"
  129. code.Size = UDim2.new(1, 0, 0.89999997615814, 0)
  130. code.BackgroundColor3 = Color3.new(0, 0, 0)
  131. code.BorderSizePixel = 0
  132. code.Text = "print(\"Hello Local World!\")"
  133. code.FontSize = Enum.FontSize.Size11
  134. code.TextWrapped = true
  135. code.TextXAlignment = Enum.TextXAlignment.Left
  136. code.TextYAlignment = Enum.TextYAlignment.Top
  137. code.TextColor3 = Color3.new(0, 1, 0)
  138. code.ClearTextOnFocus = false
  139. code.ZIndex = 8
  140.  
  141. hide = Instance.new("TextButton", exe)
  142. hide.Name = "hide"
  143. hide.Position = UDim2.new(0.5, -70, 1, -30)
  144. hide.Size = UDim2.new(0, 140, 0, 30)
  145. hide.BackgroundColor3 = Color3.new(1, 1, 1)
  146. hide.BorderSizePixel = 0
  147. hide.Text = "Hide"
  148. hide.Font = Enum.Font.ArialBold
  149. hide.FontSize = Enum.FontSize.Size24
  150. hide.TextColor3 = Color3.new(0, 0, 0)
  151. hide.ZIndex = 10
  152.  
  153. V3Logo = Instance.new("ImageLabel", exe)
  154. V3Logo.Name = "V3Logo"
  155. V3Logo.Position = UDim2.new(0.10000000149012, 0, 0.20000000298023, 0)
  156. V3Logo.Size = UDim2.new(0.80000001192093, 0, 0.30000001192093, 0)
  157. V3Logo.BackgroundColor3 = Color3.new(1, 1, 1)
  158. V3Logo.Image = "rbxassetid://175142002"
  159. V3Logo.ZIndex = 10
  160. V3Logo.BackgroundTransparency = 1
  161. V3Logo.BorderSizePixel = 0
  162.  
  163. show = Instance.new("TextButton", CodeExecutorLocal)
  164. show.Name = "show"
  165. show.Position = UDim2.new(-0.0099999997764826, 0, 1, -30)
  166. show.Size = UDim2.new(0, 140, 0, 30)
  167. show.BackgroundColor3 = Color3.new(1, 1, 1)
  168. show.BorderSizePixel = 0
  169. show.Text = "Show "
  170. show.Font = Enum.Font.ArialBold
  171. show.FontSize = Enum.FontSize.Size24
  172. show.TextXAlignment = Enum.TextXAlignment.Right
  173. show.TextColor3 = Color3.new(0, 1, 0)
  174. show.ZIndex = 10
  175.  
  176. append = Instance.new("TextButton", exe)
  177. append.Name = "append"
  178. append.Position = UDim2.new(0.5, -70, 1, 0)
  179. append.Size = UDim2.new(0, 140, 0, 30)
  180. append.BackgroundColor3 = Color3.new(1, 1, 1)
  181. append.BorderColor3 = Color3.new(0.10588235408068, 0.16470588743687, 0.20784313976765)
  182. append.Text = "Append Code"
  183. append.Font = Enum.Font.ArialBold
  184. append.FontSize = Enum.FontSize.Size24
  185. append.TextColor3 = Color3.new(0, 0, 0)
  186. append.ZIndex = 10
  187.  
  188. nl = Instance.new("TextButton", exe)
  189. nl.Name = "nl"
  190. nl.Position = UDim2.new(0.5, -70, 1, 30)
  191. nl.Size = UDim2.new(0, 140, 0, 30)
  192. nl.BackgroundColor3 = Color3.new(1, 1, 1)
  193. nl.Text = "New Line"
  194. nl.Font = Enum.Font.ArialBold
  195. nl.FontSize = Enum.FontSize.Size24
  196. nl.TextColor3 = Color3.new(0, 0, 0)
  197. nl.ZIndex = 10
  198.  
  199. end
  200.  
  201. if pcall(function()lodecode(game.CoreGui) end) then hascore=true else
  202. pcall(function()lodecode(game.Players.LocalPlayer.PlayerGui) end) hascore=false
  203. end
  204. wait()
  205. savecode = Instance.new("StringValue") savecode.Parent = exe savecode.Name="AppendedCode" savecode.Value=""
  206.  
  207. appe=false
  208. append.MouseButton1Down:connect(function() if not appe then appe=true
  209. savecode.Value = savecode.Value..code.Text wait() append.Text = "Appended" code.Text="" wait(3) append.Text = "Append Code" appe=false end
  210. end)
  211.  
  212. nl.MouseButton1Down:connect(function() code.Text = code.Text.."\n" end)
  213.  
  214. local cl = true viewed=false
  215. show.MouseButton1Down:connect(function() if cl then cl=false
  216. doopen()
  217. cl=true end
  218. end)
  219.  
  220. hide.MouseEnter:connect(function()
  221. hide.BackgroundColor3 = Color3.new(1,0,0)
  222. end)
  223. hide.MouseLeave:connect(function()
  224. hide.BackgroundColor3 = Color3.new(1,1,1)
  225. end)
  226. run.MouseEnter:connect(function()
  227. run.BackgroundColor3 = Color3.new(0,1,0)
  228. run.TextColor3 = Color3.new(1,1,1)
  229. end)
  230. run.MouseLeave:connect(function()
  231. run.BackgroundColor3 = Color3.new(1,1,1)
  232. run.TextColor3 = Color3.new(0,1,0)
  233. end)
  234. clear.MouseEnter:connect(function()
  235. clear.BackgroundColor3 = Color3.new(1,0,0)
  236. clear.TextColor3 = Color3.new(1,1,1)
  237. end)
  238. clear.MouseLeave:connect(function()
  239. clear.BackgroundColor3 = Color3.new(1,1,1)
  240. clear.TextColor3 = Color3.new(1,0,0)
  241. end)
  242. clear.MouseButton1Down:connect(function()
  243. code.Text = "" savecode.Value=""
  244. end)
  245. show.MouseEnter:connect(function()
  246. show.BackgroundColor3 = Color3.new(0,1,0)
  247. show.TextColor3 = Color3.new(1,1,1)
  248. end)
  249. show.MouseLeave:connect(function()
  250. show.BackgroundColor3 = Color3.new(1,1,1)
  251. show.TextColor3 = Color3.new(0,1,0)
  252. end)
  253.  
  254. cl2=true
  255. hide.MouseButton1Down:connect(function() if cl2 then cl2=false
  256. doclose()
  257. cl2=true end
  258. end)
  259.  
  260. function keycheck(keyy)
  261. if type(keyy)=="string" and string.byte(string.lower(keyy)) then
  262. return string.lower(keyy)
  263. else return false end
  264. end
  265.  
  266.  
  267. game.Players.LocalPlayer:GetMouse().KeyDown:connect(function(key)
  268. if not opening and not closing then if keycheck(key)==openkey then running=true
  269. if exe.Visible then doclose()
  270. else doopen() end
  271. end end
  272. end)
  273.  
  274. local function GetError(not_errored, codee)
  275. if not_errored then
  276. codee = "Executing Code..."
  277. end
  278. for _,mpops in pairs(CodeExecutorLocal.Parent:GetChildren()) do
  279. if mpops:IsA("ScreenGui") and mpops.Name == "MessagePopup" then
  280. mpops:Destroy()
  281. end
  282. end wait()
  283. if not_errored and code.Text:match("%S+") and savecode.Value:match("%S") then
  284. guimsg('Vermillion: ',codee,3,CodeExecutorLocal.Parent)
  285. elseif not code.Text:match("%S+") and not savecode.Value:match("%S+") then
  286. guimsg('Error:',"Did not enter code.",3,CodeExecutorLocal.Parent)
  287. else
  288. guimsg('Vermillion: ',codee,3,CodeExecutorLocal.Parent)
  289. end
  290. end
  291.  
  292. deb = true
  293. run.MouseButton1Down:connect(function()
  294. if deb then deb=false
  295. coroutine.resume(coroutine.create(function(codee)
  296. local errored,output = ypcall(loadstring(savecode.Value..code.Text))
  297. GetError(errored,output)
  298. errored,output = nil
  299. end),codee)
  300. wait(1)
  301. deb=true end
  302. end)
RAW Paste Data