Advertisement
TROLERMASTERH

Yay

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