Advertisement
refrop

fuse button

Mar 2nd, 2018
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.45 KB | None | 0 0
  1. -- Objects
  2. plr = game.Players.LocalPlayer
  3. ControlGui = Instance.new("ScreenGui")
  4. Frame = Instance.new("Frame")
  5. TextButton = Instance.new("TextButton")
  6. TextBox = Instance.new("TextBox")
  7.  
  8. -- Properties
  9.  
  10. ControlGui.Name = "ControlGui"
  11. ControlGui.Parent = plr.PlayerGui
  12.  
  13. Frame.Parent = ControlGui
  14. Frame.BackgroundColor3 = Color3.new(170, 0, 255)
  15. Frame.BorderColor3 = Color3.new(0, 0, 0)
  16. Frame.BorderSizePixel = 5
  17. Frame.BackgroundTransparency = 0.5
  18. Frame.Position = UDim2.new(0, 300, 0, 200)
  19. Frame.Size = UDim2.new(0, 300, 0, 150)
  20. Frame.Active = true
  21. Frame.Draggable = true
  22.  
  23. TextButton.Parent = Frame
  24. TextButton.BackgroundColor3 = Color3.new(1, 1, 1)
  25. TextButton.BorderColor3 = Color3.new(0, 0, 0)
  26. TextButton.BorderSizePixel = 5
  27. TextButton.Position = UDim2.new(0, 50, 0, 90)
  28. TextButton.Size = UDim2.new(0, 200, 0, 50)
  29. TextButton.BackgroundTransparency = 0.5
  30. TextButton.Font = Enum.Font.SourceSans
  31. TextButton.FontSize = Enum.FontSize.Size32
  32. TextButton.Text = "Fuse"
  33. TextButton.TextSize = 30
  34. TextButton.MouseButton1Down:connect(function()
  35. if TextButton.Text == "Fuse" then
  36. TextButton.Text = "UnFuse"
  37. workspace[TextBox.Text].Humanoid.PlatformStand = true
  38. W1 = Instance.new("Weld",workspace)
  39. W1.Name = "Weld1"
  40. W1.Part0 = plr.Character.Torso
  41. W1.Part1 = workspace[TextBox.Text].Torso
  42. W2 = Instance.new("Weld",workspace)
  43. W2.Name = "Weld2"
  44. W2.Part0 = plr.Character.Head
  45. W2.Part1 = workspace[TextBox.Text].Head
  46. W3 = Instance.new("Weld",workspace)
  47. W3.Name = "Weld3"
  48. W3.Part0 = plr.Character.HumanoidRootPart
  49. W3.Part1 = workspace[TextBox.Text].HumanoidRootPart
  50. W4 = Instance.new("Weld",workspace)
  51. W4.Name = "Weld4"
  52. W4.Part0 = plr.Character["Left Arm"]
  53. W4.Part1 = workspace[TextBox.Text]["Left Arm"]
  54. W5 = Instance.new("Weld",workspace)
  55. W5.Name = "Weld5"
  56. W5.Part0 = plr.Character["Left Leg"]
  57. W5.Part1 = workspace[TextBox.Text]["Left Leg"]
  58. W6 = Instance.new("Weld",workspace)
  59. W6.Name = "Weld6"
  60. W6.Part0 = plr.Character["Right Arm"]
  61. W6.Part1 = workspace[TextBox.Text]["Right Arm"]
  62. W7 = Instance.new("Weld",workspace)
  63. W7.Name = "Weld7"
  64. W7.Part0 = plr.Character["Right Leg"]
  65. W7.Part1 = workspace[TextBox.Text]["Right Leg"]
  66. for i,v in pairs(plr.Character:GetChildren()) do
  67. if v.ClassName == "Part" then
  68. v.Transparency = 0
  69. end
  70. plr.Character.HumanoidRootPart.Transparency = 1
  71. if v.ClassName == "Accessory" then
  72. v.Handle.Transparency = 1
  73. end
  74. plr.Character.Humanoid.NameOcclusion = "NoOcclusion"
  75. end
  76. elseif TextButton.Text == "UnFuse" then
  77. TextButton.Text = "Control"
  78. workspace[TextBox.Text].Humanoid.PlatformStand = false
  79. workspace.Weld1:Remove()
  80. workspace.Weld2:Remove()
  81. workspace.Weld3:Remove()
  82. workspace.Weld4:Remove()
  83. workspace.Weld5:Remove()
  84. workspace.Weld6:Remove()
  85. workspace.Weld7:Remove()
  86. for i,v in pairs(plr.Character:GetChildren()) do
  87. if v.ClassName == "Part" then
  88. v.Transparency = 0
  89. end
  90. plr.Character.HumanoidRootPart.Transparency = 1
  91. if v.ClassName == "Accessory" then
  92. v.Handle.Transparency = 0
  93. end
  94. plr.Character.Humanoid.NameOcclusion = "OccludeAll"
  95. end
  96. end
  97. end)
  98.  
  99. TextBox.Parent = Frame
  100. TextBox.BackgroundColor3 = Color3.new(1, 1, 1)
  101. TextBox.BorderColor3 = Color3.new(0, 0, 0)
  102. TextBox.BorderSizePixel = 5
  103. TextBox.BackgroundTransparency = 0.5
  104. TextBox.Position = UDim2.new(0, 50, 0, 20)
  105. TextBox.Size = UDim2.new(0, 200, 0, 30)
  106. TextBox.Font = Enum.Font.SourceSans
  107. TextBox.FontSize = Enum.FontSize.Size28
  108. TextBox.Text = "Name"
  109. TextBox.TextSize = 25
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement