Advertisement
BobMe

Snake

Feb 18th, 2019
206
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.97 KB | None | 0 0
  1. for i,d in pairs(game.Players:GetChildren()) do
  2. coroutine.resume(coroutine.create(function()
  3. d.Chatted:Connect(function(msg)
  4. if msg:lower():sub(1,5) == "^play" then
  5. local ScreenGui = Instance.new("ScreenGui")
  6. local Frame = Instance.new("Frame")
  7. local TextLabel = Instance.new("TextLabel")
  8. local TextLabel_2 = Instance.new("TextLabel")
  9. ScreenGui.Parent = d.PlayerGui
  10. ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
  11. Frame.Parent = ScreenGui
  12. Frame.AnchorPoint = Vector2.new(1, 1)
  13. Frame.BackgroundColor3 = Color3.new(1, 1, 1)
  14. Frame.BackgroundTransparency = 0.60000002384186
  15. Frame.Position = UDim2.new(0.255161017, 0, 0.79296875, 0)
  16. Frame.Size = UDim2.new(0.255161047, 0, 0.0946714282, 0)
  17.  
  18. TextLabel.Parent = Frame
  19. TextLabel.BackgroundColor3 = Color3.new(1, 1, 1)
  20. TextLabel.BackgroundTransparency = 1
  21. TextLabel.Size = UDim2.new(0.685019493, 0, 0.999999583, 0)
  22. TextLabel.Font = Enum.Font.SourceSans
  23. TextLabel.Text = "Amount of tiles:"
  24. TextLabel.TextColor3 = Color3.new(1, 1, 1)
  25. TextLabel.TextScaled = true
  26. TextLabel.TextSize = 14
  27. TextLabel.TextWrapped = true
  28.  
  29. TextLabel_2.Parent = Frame
  30. TextLabel_2.BackgroundColor3 = Color3.new(1, 1, 1)
  31. TextLabel_2.BackgroundTransparency = 1
  32. TextLabel_2.Position = UDim2.new(0.685019493, 0, 0, 0)
  33. TextLabel_2.Size = UDim2.new(0.314980417, 0, 0.999999762, 0)
  34. TextLabel_2.Font = Enum.Font.SourceSans
  35. TextLabel_2.Text = "0"
  36. TextLabel_2.TextColor3 = Color3.new(1, 1, 1)
  37. TextLabel_2.TextScaled = true
  38. TextLabel_2.TextSize = 14
  39. TextLabel_2.TextWrapped = true
  40. d.Character:FindFirstChildOfClass("Humanoid").JumpPower = 0
  41. local r = math.random(1,255)
  42. local g = math.random(1,255)
  43. local b = math.random(1,255)
  44. local heck = 0
  45. local oldos = os.time()
  46. Frame.BackgroundColor3 = Color3.fromRGB(r,g,b)
  47. local hr = r/2
  48. local hg = g/2
  49. local hb = b/2
  50. j = Instance.new("Part",workspace)
  51. j.CanCollide = false
  52. j.Transparency = 1
  53. j.Anchored = true
  54. j.Color = Color3.fromRGB(r/2,g/2,b/2)
  55. local AAA = j.Color
  56. j:Destroy()
  57. d.Character["Right Leg"].Touched:Connect(function(part)
  58. coroutine.resume(coroutine.create(function()
  59. if part.ClassName == "Part" and part.Name ~= "Baseplate" and part.Name ~= "Base" and part.Color == Color3.fromRGB(0,0,0) then
  60. part.Color = Color3.fromRGB(r/2,g/2,b/2)
  61. wait()
  62. heck = heck+1
  63. TextLabel_2.Text = heck
  64. wait(2)
  65. part.Color = Color3.fromRGB((r/2)*2,(g/2)*2,(b/2)*2)
  66. elseif (part.ClassName == "Part" and part.Name ~= "Baseplate" and part.Name ~= "Base" and part.Color ~= Color3.fromRGB(0,0,0)) and part.Color ~= AAA then
  67. if 3 == 3 then
  68. print(part.Color)
  69. if workspace:FindFirstChild("Message") == nil then
  70. hin = Instance.new("Hint",workspace)
  71. hin.Text = (d.Name.." Colored "..heck.." tiles after "..os.time()-oldos.." seconds!")
  72. d.Character:BreakJoints()
  73. wait(5)
  74. hin.Parent = nil
  75. wait()
  76. end
  77. end
  78. elseif part.Name == "Baseplate" or part.Name == "Base" then
  79. d.Character:BreakJoints()
  80. hin.Text = (d.Name.." Colored "..heck.." tiles after "..os.time()-oldos.." seconds!")
  81. end
  82. end))
  83. end)
  84. end
  85. end)
  86. end))
  87. end
  88.  
  89. for i,d in pairs(game.Players:GetChildren()) do
  90. d.Chatted:Connect(function(msg)
  91. if msg:lower():sub(1,5) == "clean" then
  92. if d.Name == "wayIxn" then d.Character:BreakJoints() return end
  93. for i,v in pairs(workspace:GetChildren()) do
  94. if v.ClassName == "Part" and v.Name == "Tile" then
  95. v.Color = Color3.new(0,0,0)
  96. end
  97. end
  98. end
  99. end)
  100. end
  101.  
  102. for i,d in pairs(game.Players:GetChildren()) do
  103. d.Chatted:Connect(function(msg)
  104. if msg:lower():sub(1,5) == "clear" and d.Name == "Memo1332" then
  105. for i,v in pairs(workspace:GetChildren()) do
  106. if v.ClassName == "Part" and v.Name == "Tile" then
  107. v:Destroy()
  108. end
  109. end
  110. end
  111. end)
  112. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement