2020-04-10 18:31:04 -05:00

112 lines
2.7 KiB
Lua

swivler = script.Parent
function rotateMod(mod, center, rotation)
local parts = {}
local function scan(parent)
for _, obj in pairs(parent:GetChildren()) do
if (obj:IsA("BasePart")) then
table.insert(parts, obj)
end
scan(obj)
end
end
scan(mod)
for _, part in pairs(parts) do
part.CFrame = (center * rotation * (center:inverse() * part.CFrame))
end
end
function Left()
script.Parent.Left.Use.MaxActivationDistance = 0
script.Parent.Left.Use.MaxActivationDistance = 0
if script.Parent.Swivelspot.Value == 1 then
if script.Parent.Parent.ScreenA.Swivelspot.Value == 2 then
else
script.Parent.Base.Move:Play()
script.Parent.Swivelspot.Value = 2
local mod = swivler
local step = 1
for i = 0, 13.5, step do
rotateMod(mod, mod:GetModelCFrame(), CFrame.Angles(0, -0.075, 0))
wait()
end
end
else if script.Parent.Swivelspot.Value == 2 then
if script.Parent.Parent.ScreenA.Swivelspot.Value == 3 then
else
script.Parent.Base.Move:Play()
script.Parent.Swivelspot.Value = 3
local mod = swivler
local step = 1
for i = 0, 13.5, step do
rotateMod(mod, mod:GetModelCFrame(), CFrame.Angles(0, -0.075, 0))
wait()
end
end
else if script.Parent.Swivelspot.Value == 3 then
if script.Parent.Parent.ScreenA.Swivelspot.Value == 4 then
else
script.Parent.Base.Move:Play()
script.Parent.Swivelspot.Value = 4
local mod = swivler
local step = 1
for i = 0, 13.5, step do
rotateMod(mod, mod:GetModelCFrame(), CFrame.Angles(0, -0.075, 0))
wait()
end
end
else if script.Parent.Swivelspot.Value == 4 then
if script.Parent.Parent.ScreenA.Swivelspot.Value == 5 then
else
script.Parent.Base.Move:Play()
script.Parent.Swivelspot.Value = 5
local mod = swivler
local step = 1
for i = 0, 13.5, step do
rotateMod(mod, mod:GetModelCFrame(), CFrame.Angles(0, -0.075, 0))
wait()
end
end
else if script.Parent.Swivelspot.Value == 5 then
if script.Parent.Parent.ScreenA.Swivelspot.Value == 6 then
else
script.Parent.Base.Move:Play()
script.Parent.Swivelspot.Value = 6
local mod = swivler
local step = 1
for i = 0, 13.5, step do
rotateMod(mod, mod:GetModelCFrame(), CFrame.Angles(0, -0.075, 0))
wait()
end
end
else if script.Parent.Swivelspot.Value == 6 then
if script.Parent.Parent.ScreenA.Swivelspot.Value == 1 then
else
script.Parent.Base.Move:Play()
script.Parent.Swivelspot.Value = 1
local mod = swivler
local step = 1
for i = 0, 13.5, step do
rotateMod(mod, mod:GetModelCFrame(), CFrame.Angles(0, -0.075, 0))
wait()
end
end
end
end
end
end
end
end
script.Parent.Left.Use.MaxActivationDistance = 10
script.Parent.Left.Use.MaxActivationDistance = 10
end
script.Parent.Left.Use.MouseClick:connect(Left)