Advertisement
Guest User

D

a guest
Jun 25th, 2018
290
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.85 KB | None | 0 0
  1. repeat wait() until game.Players.LocalPlayer.Character
  2. --
  3.  
  4. local Players = game:GetService("Players");
  5. local MartketPlace = game:GetService("MarketplaceService");
  6. local ReplicatedStorage = game:GetService("ReplicatedStorage");
  7.  
  8. --
  9. local FirstScreen = script.Parent:WaitForChild("FirstScreen");
  10. local SecScreen = script.Parent:WaitForChild("SecScreen");
  11. local LoadingScreen = script.Parent:WaitForChild("LoadingScreen");
  12. local RemoteFolder = ReplicatedStorage:WaitForChild("Remotes");
  13. local SetNameF = RemoteFolder:WaitForChild("setName");
  14. local giveCard = RemoteFolder:WaitForChild("giveCard")
  15. --
  16. function Player(peep,PlayerObject,...)
  17. if peep == "poop" then -- testing ovb lol
  18. if PlayerObject:GetRankInGroup(3490896) <= 251 then -- its 251 (testing 252)
  19. return true
  20. else
  21. return false
  22.  
  23. end
  24. end
  25. end
  26.  
  27.  
  28.  
  29. FirstScreen.StartButton.MouseButton1Click:Connect(function(plr)
  30. if Player("poop",Players.LocalPlayer) == true then
  31. print(Players.LocalPlayer.Name.." is a high rank")
  32. SetNameF:InvokeServer("!!!!!!!",game.Players.LocalPlayer.Name.." | "..game.Players.LocalPlayer:GetRoleInGroup(3490896))
  33. giveCard:FireServer("Economy")
  34. LoadingScreen.Visible = true
  35. wait(4)
  36. LoadingScreen:TweenPosition(UDim2.new(1.272, 10000,0.189, 0))
  37. SecScreen:TweenPosition(UDim2.new(1.272, 10000,0.189, 0))
  38. FirstScreen:TweenPosition(UDim2.new(1.272, 10000,0.189, 0))
  39. script.Parent.Parent.SelfCheckIn:Destroy()
  40. else
  41. SecScreen.Visible = true
  42.  
  43. print("Is not 251 or higher")
  44. end
  45. end)
  46.  
  47.  
  48. SecScreen.Economy.MouseButton1Click:Connect(function()
  49. SetNameF:InvokeServer("!!!!!!!",game.Players.LocalPlayer.Name.." | ".."Economy Class")
  50. giveCard:FireServer("Economy")
  51. SecScreen.Visible = true
  52. LoadingScreen.Visible = true
  53. wait(4)
  54. LoadingScreen:TweenPosition(UDim2.new(1.272, 10000,0.189, 0))
  55. SecScreen:TweenPosition(UDim2.new(1.272, 10000,0.189, 0))
  56. FirstScreen:TweenPosition(UDim2.new(1.272, 10000,0.189, 0))
  57. script.Parent.Parent.SelfCheckIn:Destroy()
  58. end)
  59.  
  60. SecScreen.Residence.MouseButton1Click:Connect(function()
  61. if MartketPlace:PlayerOwnsAsset(game.Players.LocalPlayer,1069595559) then
  62. SetNameF:InvokeServer("!!!!!!!",Players.LocalPlayer.Name.." | ".."Residence")
  63. giveCard:FireServer("Residence")
  64. LoadingScreen.Visible = true
  65. wait(4)
  66. LoadingScreen:TweenPosition(UDim2.new(1.272, 10000,0.189, 0))
  67. SecScreen:TweenPosition(UDim2.new(1.272, 10000,0.189, 0))
  68. FirstScreen:TweenPosition(UDim2.new(1.272, 10000,0.189, 0))
  69. script.Parent.Parent.SelfCheckIn:Destroy()
  70. else
  71. MartketPlace:PromptPurchase(Players.LocalPlayer,1069595559)
  72. end
  73. end)
  74.  
  75. SecScreen.Business.MouseButton1Click:Connect(function()
  76. if MartketPlace:PlayerOwnsAsset(game.Players.LocalPlayer,1077643497) then
  77. SetNameF:InvokeServer("!!!!!!!",Players.LocalPlayer.Name.." | ".."Business Class")
  78. giveCard:FireServer("Business Class")
  79.  
  80. LoadingScreen.Visible = true
  81. wait(4)
  82. LoadingScreen:TweenPosition(UDim2.new(1.272, 10000,0.189, 0))
  83. SecScreen:TweenPosition(UDim2.new(1.272, 10000,0.189, 0))
  84. FirstScreen:TweenPosition(UDim2.new(1.272, 10000,0.189, 0))
  85. script.Parent.Parent.SelfCheckIn:Destroy()
  86.  
  87. else
  88. MartketPlace:PromptPurchase(Players.LocalPlayer,1077643497)
  89. end
  90. end)
  91.  
  92.  
  93.  
  94.  
  95. SecScreen.FirstClass.MouseButton1Click:Connect(function()
  96. if MartketPlace:PlayerOwnsAsset(game.Players.LocalPlayer,1069588967) then
  97. SetNameF:InvokeServer("!!!!!!!",Players.LocalPlayer.Name.." | ".."First Class")
  98. giveCard:FireServer("First Class")
  99.  
  100. LoadingScreen.Visible = true
  101. wait(4)
  102. LoadingScreen:TweenPosition(UDim2.new(1.272, 10000,0.189, 0))
  103. SecScreen:TweenPosition(UDim2.new(1.272, 10000,0.189, 0))
  104. FirstScreen:TweenPosition(UDim2.new(1.272, 10000,0.189, 0))
  105. script.Parent.Parent.SelfCheckIn:Destroy()
  106.  
  107. else
  108. MartketPlace:PromptPurchase(Players.LocalPlayer,1069588967)
  109. end
  110. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement