Advertisement
nguyenminhnghia

lưu ý làm gui new

Feb 12th, 2019
281
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.99 KB | None | 0 0
  1. --Nhấp vào gui sẽ đổi màu script:
  2. PLMain = Main
  3. PLCgui = TextButton
  4.  
  5.  
  6. if PLMain.BackgroundTransparency == 0 then
  7. PLMain.BackgroundTransparency = 0.5
  8. elseif
  9. PLMain.BackgroundTransparency == 0.5 then
  10. PLMain.BackgroundTransparency = 0
  11. end
  12.  
  13. if PLCgui.BackgroundTransparency == 0 then
  14. PLCgui.BackgroundTransparency = 0.5
  15. elseif
  16. PLCgui.BackgroundTransparency == 0.5 then
  17. PLCgui.BackgroundTransparency = 0
  18. end
  19.  
  20.  
  21. end)
  22.  
  23. Open New
  24.  
  25. Main.Visible = true
  26.  
  27. Main:TweenPosition(UDim2.new(0.345, 0,0.204, 0), 'Out', 'Bounce', 3)
  28. end)
  29.  
  30. Execute sẽ có chữ hiện lên xong tự tắt
  31.  
  32. wait(0.5)
  33. Dino.Visible = true
  34. Dino.TextTransparency = 0.8
  35. Dino.TextStrokeTransparency = 0.8
  36. wait(0.1)
  37. Dino.TextTransparency = 0.7
  38. Dino.TextStrokeTransparency = 0.7
  39. wait(0.1)
  40. Dino.TextTransparency = 0.6
  41. Dino.TextStrokeTransparency = 0.6
  42. wait(0.1)
  43. Dino.TextTransparency = 0.5
  44. Dino.TextStrokeTransparency = 0.5
  45. wait(0.1)
  46. Dino.TextTransparency = 0.4
  47. Dino.TextStrokeTransparency = 0.4
  48. wait(0.1)
  49. Dino.TextTransparency = 0.3
  50. Dino.TextStrokeTransparency = 0.3
  51. wait(0.1)
  52. Dino.TextTransparency = 0.2
  53. Dino.TextStrokeTransparency = 0.2
  54. wait(0.1)
  55. Dino.TextTransparency = 0.1
  56. Dino.TextStrokeTransparency = 0.1
  57.  
  58. wait(5)
  59.  
  60. Dino.TextTransparency = 0.1
  61. Dino.TextStrokeTransparency = 0.1
  62. wait(0.1)
  63. Dino.TextTransparency = 0.2
  64. Dino.TextStrokeTransparency = 0.2
  65. wait(0.1)
  66. Dino.TextTransparency = 0.3
  67. Dino.TextStrokeTransparency = 0.3
  68. wait(0.1)
  69. Dino.TextTransparency = 0.4
  70. Dino.TextStrokeTransparency = 0.4
  71. wait(0.1)
  72. Dino.TextTransparency = 0.5
  73. Dino.TextStrokeTransparency = 0.5
  74. wait(0.1)
  75. Dino.TextTransparency = 0.6
  76. Dino.TextStrokeTransparency = 0.6
  77. wait(0.1)
  78. Dino.TextTransparency = 0.7
  79. Dino.TextStrokeTransparency = 0.7
  80. wait(0.1)
  81. Dino.TextTransparency = 0.8
  82. Dino.TextStrokeTransparency = 0.8
  83. wait(0.1)
  84. Dino.Visible = false
  85.  
  86. Move gui new
  87.  
  88. function dragify(Main)
  89. dragToggle = nil
  90. dragSpeed = .20 -- You can edit this.
  91. dragInput = nil
  92. dragStart = nil
  93. dragPos = nil
  94.  
  95. function updateInput(input)
  96. Delta = input.Position - dragStart
  97. Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + Delta.X, startPos.Y.Scale, startPos.Y.Offset + Delta.Y)
  98. game:GetService("TweenService"):Create(Main, TweenInfo.new(.25), {Position = Position}):Play()
  99. end
  100.  
  101. Main.InputBegan:Connect(function(input)
  102. if (input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch) then
  103. dragToggle = true
  104. dragStart = input.Position
  105. startPos = Main.Position
  106. input.Changed:Connect(function()
  107. if (input.UserInputState == Enum.UserInputState.End) then
  108. dragToggle = false
  109. end
  110. end)
  111. end
  112. end)
  113.  
  114. Main.InputChanged:Connect(function(input)
  115. if (input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch) then
  116. dragInput = input
  117. end
  118. end)
  119.  
  120. game:GetService("UserInputService").InputChanged:Connect(function(input)
  121. if (input == dragInput and dragToggle) then
  122. updateInput(input)
  123. end
  124. end)
  125. end
  126.  
  127. dragify(Main)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement