ScriptCrew

sad

Mar 24th, 2018
411
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.86 KB | None | 0 0
  1. -- Farewell infortality
  2. -- Revamp by ImFrostic, Version 2.8
  3.  
  4. -- Objects
  5.  
  6. local Cash = Instance.new("ScreenGui")
  7. local Frame = Instance.new("Frame")
  8. local TextButton = Instance.new("TextButton")
  9. local TextLabel = Instance.new("TextLabel")
  10.  
  11. -- Properties
  12.  
  13. Cash.Name = "Cash"
  14. Cash.Parent = game.CoreGui
  15.  
  16. Frame.Parent = Cash
  17. Frame.BackgroundColor3 = Color3.new(1, 1, 1)
  18. Frame.Position = UDim2.new(0, 0,0.415, 0)
  19. Frame.Size = UDim2.new(0, 220, 0, 70)
  20. Frame.BackgroundTransparency = 1
  21. TextButton.Parent = Frame
  22. TextButton.BackgroundColor3 = Color3.new(0.92549, 0.0941177, 1)
  23. TextButton.Position = UDim2.new(0, 0, 0.514285743, 0)
  24. TextButton.Size = UDim2.new(0, 220, 0, 34)
  25. TextButton.Font = Enum.Font.SourceSans
  26. TextButton.Text = "Goto Cash"
  27. TextButton.TextColor3 = Color3.new(1, 1, 1)
  28. TextButton.TextSize = 18
  29. TextButton.MouseButton1Click:connect(function()
  30. game:GetService("Players").LocalPlayer.Character.HumanoidRootPart.CFrame = workspace.DroppedCash.Cash.Part.CFrame
  31. end)
  32. TextLabel.Parent = Frame
  33. TextLabel.BackgroundColor3 = Color3.new(0.2, 0.2, 0.2)
  34. TextLabel.Size = UDim2.new(0, 220, 0, 36)
  35. TextLabel.Font = Enum.Font.SourceSans
  36. TextLabel.Text = "No Cash is dropped..."
  37. TextLabel.TextColor3 = Color3.new(1, 1, 1)
  38. TextLabel.TextSize = 17
  39.  
  40. -- Scripts
  41. function Tp(...)
  42. plr = game:GetService("Players").LocalPlayer
  43. local char = plr.Character
  44. local root = char.HumanoidRootPart
  45. local args = {...}
  46. for i=0,1,0.06 do
  47. wait()
  48. root.CFrame = root.CFrame:lerp(CFrame.new(unpack(args,1,3)), i)
  49. end
  50. end
  51. while wait() do
  52. if workspace.DroppedCash:FindFirstChild('Cash') then
  53. Frame:TweenPosition(UDim2.new(0, 0,0.415, 0),"In","Quad")
  54.  
  55. TextLabel.Text = workspace.DroppedCash.Cash.PlayerName.Value .. " Just dropped $".. workspace.DroppedCash.Cash.Amount.Value
  56.  
  57. else
  58.  
  59. Frame:TweenPosition(UDim2.new(0, 0,0.-715, 0),"In","Quad")
  60.  
  61.  
  62. end
  63. end
Advertisement
Add Comment
Please, Sign In to add comment