Advertisement
subaru112g

test

Apr 27th, 2019
254
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.59 KB | None | 0 0
  1. local char = owner.Character
  2.  
  3. ArtificialHB = Instance.new("BindableEvent", script)
  4. ArtificialHB.Name = "Heartbeat"
  5. script:WaitForChild("Heartbeat")
  6. frame = 0.03333333333333
  7. tf = 0
  8. allowframeloss = false
  9. tossremainder = false
  10. lastframe = tick()
  11. script.Heartbeat:Fire()
  12. game:GetService("RunService").Heartbeat:connect(function(s, p)
  13. tf = tf + s
  14. if tf >= frame then
  15. if allowframeloss then
  16. script.Heartbeat:Fire()
  17. lastframe = tick()
  18. else
  19. for i = 1, math.floor(tf / frame) do
  20. script.Heartbeat:Fire()
  21. end
  22. lastframe = tick()
  23. end
  24. if tossremainder then
  25. tf = 0
  26. else
  27. tf = tf - frame * math.floor(tf / frame)
  28. end
  29. end
  30. end)
  31.  
  32. function swait(num)
  33. if num == 0 or num == nil then
  34. ArtificialHB.Event:wait()
  35. else
  36. for i = 0, num do
  37. ArtificialHB.Event:wait()
  38. end
  39. end
  40. end
  41.  
  42.  
  43. local r = 255
  44. local g = 0
  45. local b = 0
  46.  
  47. spawn(function()
  48. while wait() do
  49. for i = 0, 254/5 do
  50. swait()
  51. g = g + 5
  52. end
  53. for i = 0, 254/5 do
  54. swait()
  55. r = r - 5
  56. end
  57. for i = 0, 254/5 do
  58. swait()
  59. b = b + 5
  60. end
  61. for i = 0, 254/5 do
  62. swait()
  63. g = g - 5
  64. end
  65. for i = 0, 254/5 do
  66. swait()
  67. r = r + 5
  68. end
  69. for i = 0, 254/5 do
  70. swait()
  71. b = b - 5
  72. end
  73. end
  74. end)
  75.  
  76. for i, v in pairs(char:GetChildren()) do
  77. if v:IsA("Part") then
  78. v.Color = Color3.new(r/255,g/255,b/255)
  79. end
  80. end
  81.  
  82. for i,v in pairs(char:GetChildren()) do
  83. for i,s in pairs(v:GetChildren()) do
  84. if s.ClassName == "Decal" then
  85. s:Destroy()
  86. end
  87. end
  88. if v.ClassName == "Hat" or v.ClassName == "Accessory" and v.Handle then
  89. v = v.Handle
  90. v.Transparency = 0
  91. v.Material = "ForceField"
  92. v.BrickColor = BrickColor.new("Medium stone gray")
  93. end
  94.  
  95. if v.ClassName == "Part" or v.ClassName == "MeshPart" then
  96. if not(v.Name == "HumanoidRootPart") then
  97. v.Transparency = 0
  98. v.Material = "ForceField"
  99. v.BrickColor = BrickColor.new("Medium stone gray")
  100. end
  101. end
  102. end
  103.  
  104. while true do
  105. wait()
  106.  
  107. for i, v in pairs(char:GetChildren()) do
  108. if v:IsA("Part") then
  109. v.Color = Color3.new(r/255,g/255,b/255)
  110. end
  111. end
  112.  
  113. for i,v in pairs(char:GetChildren()) do
  114. for i,s in pairs(v:GetChildren()) do
  115. if s.ClassName == "Decal" then
  116. s:Destroy()
  117. end
  118. end
  119.  
  120. if v.ClassName == "Model" then
  121. for i,s in pairs(v:GetChildren()) do
  122. if s.ClassName == "Part" or s.ClassName == "MeshPart" then
  123. if not(s.Name == "HumanoidRootPart") then
  124. s.Transparency = 0
  125. s.Material = "ForceField"
  126. s.BrickColor = BrickColor.new("Medium stone gray")
  127. end
  128. end
  129. end
  130. end
  131.  
  132. if v.ClassName == "Part" or v.ClassName == "MeshPart" then
  133. if not(v.Name == "HumanoidRootPart") then
  134. v.Transparency = 0
  135. v.Material = "ForceField"
  136. v.BrickColor = BrickColor.new("Medium stone gray")
  137. end
  138. end
  139. end
  140.  
  141. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement