Edward1221

Untitled

May 27th, 2017
143
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.84 KB | None | 0 0
  1. pcall(function() workspace["castle"]:remove() end)
  2. workspac = Instance.new("Model")
  3. workspac.Parent = workspace
  4. workspac.Name = "castle"
  5. script.Parent = workspac
  6. doing = false
  7. closed = true
  8. function new(part, x, y, z, xx, yy, zz, parent, color)
  9. local brick = part
  10. brick.formFactor = "Custom"
  11. brick:BreakJoints()
  12. brick.Anchored = true
  13. brick.CanCollide = true
  14. brick.Size = Vector3.new(x, y, z)
  15. brick.Parent = parent
  16. brick.CFrame = CFrame.new(xx, yy, zz)
  17. brick.BrickColor = BrickColor.new(color)
  18. return brick
  19. end
  20. b = Instance.new("Part")
  21. new(b, 5, 25, 35, 35, 12.5, 0, workspac, "Dark grey")
  22. b = Instance.new("Part")
  23. new(b, 5, 25, 35, 35, 12.5, 55, workspac, "Dark grey")
  24. b = Instance.new("Part")
  25. new(b, 70, 25, 5, 67.5, 12.5, 75, workspac, "Dark grey")
  26. b = Instance.new("Part")
  27. new(b, 70, 25, 5, 67.5, 12.5, -20, workspac, "Dark grey")
  28. b = Instance.new("Part")
  29. new(b, 5, 25, 91, 100, 12.5, 27.5, workspac, "Dark grey")
  30. bu1 = Instance.new("Part")
  31. bu1.Name = "Button1"
  32. new(bu1, 2, 2, 2, 39, 1, 16, workspac, "Bright green")
  33. c1 = Instance.new("ClickDetector", bu1)
  34. bu2 = Instance.new("Part")
  35. bu2.Name = "Button2"
  36. c2 = Instance.new("ClickDetector", bu2)
  37. new(bu2, 2, 2, 2, 39, 1, 13, workspac, "Bright red")
  38. for i = 0, 19, 1 do
  39. local g = Instance.new("Part")
  40. new(g, 1, 25, 1, 35, 12.5, 18, workspac, "Dark grey")
  41. g.Name = "g" ..i.. ""
  42. g.CFrame = g.CFrame + Vector3.new(0, 0, i)
  43. wait()
  44. end
  45. function gate()
  46. for _, v in pairs(workspac:GetChildren()) do
  47. if v.Name ~= "g" then
  48. print("open")
  49. v.Transparency = 1
  50. v.CanCollide = false
  51. else
  52. print("NO")
  53. end
  54. end
  55. end
  56. function gatec()
  57. for _, v in pairs(workspac:GetChildren()) do
  58. for i = 1, 19 do
  59. if v.Name ~= "g" then
  60. v.Transparency = 1
  61. v.CanCollide = true
  62. end
  63. end
  64. end
  65. end
  66. c1.Clicked:connect(gate)
  67. c2.Clicked:connect(gatec)
Advertisement
Add Comment
Please, Sign In to add comment