initial commit

This commit is contained in:
officereso 2020-04-10 15:47:38 -05:00
commit 990e1a16da
466 changed files with 1165722 additions and 0 deletions

2
.gitignore vendored Normal file
View File

@ -0,0 +1,2 @@
/Tardis Testing Grounds/rojo.exe
/ageTestingGrounds/ageTestingGrounds.rbxlx.lock

2
.idea/.gitignore generated vendored Normal file
View File

@ -0,0 +1,2 @@
# Default ignored files
/workspace.xml

View File

@ -0,0 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<module type="LUA_MODULE" version="4">
<component name="NewModuleRootManager" inherit-compiler-output="true">
<exclude-output />
<content url="file://$MODULE_DIR$">
<sourceFolder url="file://$MODULE_DIR$" isTestSource="false" />
<sourceFolder url="file://$MODULE_DIR$/ageTestingGrounds/src" isTestSource="false" />
<sourceFolder url="file://$MODULE_DIR$/Tardis Testing Grounds/src" isTestSource="false" />
</content>
<orderEntry type="inheritedJdk" />
<orderEntry type="sourceFolder" forTests="false" />
</component>
</module>

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,16 @@
{
"name": "project",
"tree": {
"$className": "DataModel",
"StarterPack": {
"$className": "StarterPack",
"$ignoreUnknownInstances": true,
"$path": "src/StarterPack"
},
"Workspace": {
"$className": "Workspace",
"$ignoreUnknownInstances": true,
"$path": "src/Workspace"
}
}
}

Binary file not shown.

View File

@ -0,0 +1 @@
rojo serve

View File

@ -0,0 +1,47 @@
function Up()
script.Parent.Holding.Value = true
wait(0.2)
if script.Parent.Holding.Value == true then
script.Parent.Handle.Sound.Volume = 0.2
script.Parent.CrystalUp.Material = Enum.Material.Neon
script.Parent.CrystalDown.Material = Enum.Material.Neon
else
if script.Parent.Extended.Value == false then
script.Parent.Extended.Value = true
script.Parent.Handle.Extend:Play()
script.Parent.Handle.Sound.Pitch = 1.1
script.Parent.CrystalDown.Transparency = 1
script.Parent.CrystalUp.Transparency = 0
script.Parent.SilverClosed.Transparency = 1
script.Parent.SilverOpen.Transparency = 0
else
script.Parent.Extended.Value = false
script.Parent.Handle.Sound.Pitch = 1
script.Parent.CrystalDown.Transparency = 0
script.Parent.CrystalUp.Transparency = 1
script.Parent.SilverClosed.Transparency = 0
script.Parent.SilverOpen.Transparency = 1
end
end
end
function Down()
script.Parent.Holding.Value = false
script.Parent.Handle.Sound.Volume = 0
script.Parent.CrystalUp.Material = Enum.Material.SmoothPlastic
script.Parent.CrystalDown.Material = Enum.Material.SmoothPlastic
end
script.Parent.Activated:connect(Up)
script.Parent.Deactivated:connect(Down)

View File

@ -0,0 +1 @@
script.Parent:Play()

View File

@ -0,0 +1,4 @@
{
"className": "Sound",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "UnionOperation",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Tool",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,11 @@
function Toggle()
if script.Parent.Neon.Material == Enum.Material.SmoothPlastic then
script.Parent.Neon.Material = Enum.Material.Neon
script.Parent.Neon.Sound:Play()
else
script.Parent.Neon.Material = Enum.Material.SmoothPlastic
end
end
script.Parent.Use.MouseClick:connect(Toggle)

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,8 @@
while true do
script.Parent.Material = Enum.Material.Neon
wait(0.5)
script.Parent.Material = Enum.Material.SmoothPlastic
wait(0.5)
end

View File

@ -0,0 +1,4 @@
{
"className": "Part",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,10 @@
function Used()
--script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,-0.03,0)
script.Parent.Push:Play()
wait(0.1)
--script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0.03,0)
end
script.Parent.Use.MouseClick:connect(Used)

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,3 @@
{
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,23 @@
local dataLink = script["Data Link"].Value
local parts = {}
for _,child in pairs(script.Parent:GetChildren()) do
if tonumber(child.Name) ~= nil then
table.insert(parts, child)
end
end
dataLink.dataSaveLocationSelected.changed:Connect(function()
if dataLink.dataSaveLocationSelected.Value == 0 then
for _, part in pairs(parts) do
part.Material = Enum.Material.SmoothPlastic
end
else
for _, part in pairs(parts) do
part.Material = Enum.Material.SmoothPlastic
end
script.Parent[tostring(dataLink.dataSaveLocationSelected.Value)].Material = Enum.Material.Neon
end
end)

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,3 @@
{
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,7 @@
local dataLink = script["Data Link"].Value
script.Parent.UseBox.Use.MouseClick:connect(function()
if dataLink.dataSaveLocationSelected.Value >=1 then
dataLink.dataSaveLocationSelected.Value = dataLink.dataSaveLocationSelected.Value-1
end
end)

View File

@ -0,0 +1,4 @@
{
"className": "UnionOperation",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,17 @@
function Boop()
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,-0.05,0)
script.Parent.Sound:Play()
wait(0.1)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0.05,0)
wait(1)
if game.Workspace.Glass.Warning.Disabled == true then
game.Workspace.Glass.Warning.Disabled = false
else
game.Workspace.Glass.Warning.Disabled = true
end
end
script.Parent.Use.MouseClick:connect(Boop)

View File

@ -0,0 +1,4 @@
{
"className": "UnionOperation",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,3 @@
{
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,7 @@
local dataLink = script["Data Link"].Value
script.Parent.UseBox.Use.MouseClick:connect(function()
if dataLink.dataSaveLocationSelected.Value <=23 then
dataLink.dataSaveLocationSelected.Value = dataLink.dataSaveLocationSelected.Value+1
end
end)

View File

@ -0,0 +1,4 @@
{
"className": "UnionOperation",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,3 @@
{
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,3 @@
local dataLink = script["Data Link"].Value

View File

@ -0,0 +1,4 @@
{
"className": "UnionOperation",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,19 @@
local dataLink = script["Data Link"].Value
local button = script.Parent.Parent.SearchButton
script.Parent.Use.MouseClick:Connect(function()
if dataLink.isDataSingleSearchActive.Value == false then
button.Position = Vector3.new(button.Position.X+0.02, button.Position.Y-0.065, button.Position.Z-0.011)
dataLink.isDataSingleSearchActive.Value = true
script.Parent.Parent.Parent.LED.Bulb.Color = Color3.fromRGB(0, 255, 0)
elseif dataLink.isDataSingleSearchActive.Value then
button.Position = Vector3.new(button.Position.X-0.02, button.Position.Y+0.065, button.Position.Z+0.011)
dataLink.isDataSingleSearchActive.Value = false
script.Parent.Parent.Parent.LED.Bulb.Color = Color3.fromRGB(196, 40, 28)
dataLink.isDataScanningForTardis.Value = false
dataLink.isDataScanningForMisc.Value = false
dataLink.isDataScanningForSonic.Value = false
end
end)

View File

@ -0,0 +1,4 @@
{
"className": "Part",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,3 @@
{
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,85 @@
local dataLink = script:WaitForChild("Data Link").Value
local mouseDown = false
local center = script.Parent:GetModelCFrame()
function rotateMod(part,rotation)
part.CFrame = (center*rotation*(center:inverse()*part.CFrame))
end
local knob = script.Parent.Knob
function goForward()
while mouseDown do
if dataLink.singleSendFrequency.Value >= 127 then
knob.Break.Playing = true
rotateMod(knob, CFrame.Angles(0, -0.3, 0))
wait(.4)
rotateMod(knob, CFrame.Angles(0, 0.3, 0))
dataLink.singleSendFrequency.Value = 127
Leave()
return
end
dataLink.singleSendFrequency.Value = dataLink.singleSendFrequency.Value + 1
local step = 1
for i = 0,5,step do
rotateMod(knob, CFrame.Angles(0, -0.2, 0))
wait()
end
end
end
function goBack()
while mouseDown do
if dataLink.singleSendFrequency.Value <= 0 then
knob.Break.Playing = true
rotateMod(knob, CFrame.Angles(0, 0.3, 0))
wait(.4)
rotateMod(knob, CFrame.Angles(0, -0.3, 0))
dataLink.singleSendFrequency.Value = 0
Leave()
return
end
dataLink.singleSendFrequency.Value = dataLink.singleSendFrequency.Value - 1
local step = 1
for i = 0,5,step do
rotateMod(knob, CFrame.Angles(0, 0.2, 0))
wait()
end
end
end
function leftClick()
if mouseDown then
return
end
mouseDown = true
knob.Sound.PlaybackSpeed = 1
knob.Sound.Volume = 0.5
goForward()
end
function rightClick()
if mouseDown then
return
end
mouseDown = true
knob.Sound.PlaybackSpeed = 0.8
knob.Sound.Volume = 0.6
goBack()
end
function Leave()
mouseDown = false
knob.Sound.Volume = 0
end
script.Parent.Use.MouseClick:connect(leftClick)
script.Parent.Use.RightMouseClick:Connect(rightClick)
script.Parent.Use.MouseHoverLeave:connect(Leave)

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,10 @@
local isDataScanningForMisc = script["Data Link"].Value.isDataScanningForMisc
isDataScanningForMisc.Changed:Connect(function()
if isDataScanningForMisc.Value == true then
script.Parent.Color = Color3.fromRGB(0, 255, 0)
end
if isDataScanningForMisc.Value == false then
script.Parent.Color = Color3.fromRGB(196, 40, 28)
end
end)

View File

@ -0,0 +1,4 @@
{
"className": "Part",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,45 @@
local dataLink = script["Data Link"].Value
local knob = script.Parent.Parent.ScanForMisc
local TweenService = game:GetService("TweenService")
local tweeningInfo = TweenInfo.new(.3, Enum.EasingStyle.Linear, Enum.EasingDirection.In, 0, false, 0)
local properties = {CFrame = CFrame.new(-2.98338127, 7.02398014, 56.8125648, -0.500016093, -0.295258641, 0.814129233, 0, 0.940085471, 0.340938956, -0.86601615, 0.170474961, -0.470057875);}
local tweenActivate = TweenService:Create(knob, tweeningInfo, properties)
local tweeningInfo = TweenInfo.new(.3, Enum.EasingStyle.Linear, Enum.EasingDirection.In, 0, false, 0)
local properties = {CFrame = CFrame.new(-3.04474592, 7.00790024, 56.7949562, 0.814128757, -0.295259625, 0.500016212, 0.340939641, 0.940085173, 8.57199439e-07, -0.470058113, 0.170474648, 0.86601603);}
local tweenDeactivate = TweenService:Create(knob, tweeningInfo, properties)
local running = false
function leftClick()
if dataLink.isDataSingleSearchActive.Value then
if dataLink.isDataScanningForMisc.Value == false then
running = true
tweenActivate:Play()
dataLink.isDataScanningForMisc.Value = true
elseif dataLink.isDataScanningForMisc.Value then
running = true
tweenDeactivate:Play()
dataLink.isDataScanningForMisc.Value = false
end
running = false
--script.Parent.Sound.Playing = true
end
end
script.Parent.Use.MouseClick:connect(leftClick)
dataLink.isDataScanningForMisc.Changed:Connect(function()
if not running then
if dataLink.isDataScanningForMisc.Value then
tweenActivate:Play()
elseif not dataLink.isDataScanningForMisc.Value then
tweenDeactivate:Play()
end
end
end)

View File

@ -0,0 +1,4 @@
{
"className": "Part",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,10 @@
local isDataScanningForSonic = script["Data Link"].Value.isDataScanningForSonic
isDataScanningForSonic.Changed:Connect(function()
if isDataScanningForSonic.Value == true then
script.Parent.Color = Color3.fromRGB(0, 255, 0)
end
if isDataScanningForSonic.Value == false then
script.Parent.Color = Color3.fromRGB(196, 40, 28)
end
end)

View File

@ -0,0 +1,4 @@
{
"className": "Part",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,45 @@
local dataLink = script["Data Link"].Value
local knob = script.Parent.Parent.ScanForSonic
local TweenService = game:GetService("TweenService")
local tweeningInfo = TweenInfo.new(.3, Enum.EasingStyle.Linear, Enum.EasingDirection.In, 0, false, 0)
local properties = {CFrame = CFrame.new(-2.82422209, 7.09105492, 56.7183418, -0.500016093, -0.295259684, 0.814128816, 0, 0.940084994, 0.340940207, -0.86601615, 0.170475572, -0.470057636);}
local tweenActivate = TweenService:Create(knob, tweeningInfo, properties)
local tweeningInfo = TweenInfo.new(.3, Enum.EasingStyle.Linear, Enum.EasingDirection.In, 0, false, 0)
local properties = {CFrame = CFrame.new(-2.8819201, 7.07608795, 56.700943, 0.814128757, -0.295259625, 0.500016212, 0.340939641, 0.940085173, 8.57199439e-07, -0.470058113, 0.170474648, 0.86601603);}
local tweenDeactivate = TweenService:Create(knob, tweeningInfo, properties)
local running = false
function leftClick()
if dataLink.isDataSingleSearchActive.Value then
if dataLink.isDataScanningForSonic.Value == false then
running = true
tweenActivate:Play()
dataLink.isDataScanningForSonic.Value = true
elseif dataLink.isDataScanningForSonic.Value then
running = true
tweenDeactivate:Play()
dataLink.isDataScanningForSonic.Value = false
end
running = false
--script.Parent.Sound.Playing = true
end
end
script.Parent.Use.MouseClick:connect(leftClick)
dataLink.isDataScanningForSonic.Changed:Connect(function()
if not running then
if dataLink.isDataScanningForSonic.Value then
tweenActivate:Play()
elseif not dataLink.isDataScanningForSonic.Value then
tweenDeactivate:Play()
end
end
end)

View File

@ -0,0 +1,4 @@
{
"className": "Part",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,10 @@
local isDataScanningForTardis = script["Data Link"].Value.isDataScanningForTardis
isDataScanningForTardis.Changed:Connect(function()
if isDataScanningForTardis.Value == true then
script.Parent.Color = Color3.fromRGB(0, 255, 0)
end
if isDataScanningForTardis.Value == false then
script.Parent.Color = Color3.fromRGB(196, 40, 28)
end
end)

View File

@ -0,0 +1,4 @@
{
"className": "Part",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,45 @@
local dataLink = script["Data Link"].Value
local knob = script.Parent.Parent.ScanForTardis
local TweenService = game:GetService("TweenService")
local tweeningInfo = TweenInfo.new(.3, Enum.EasingStyle.Linear, Enum.EasingDirection.In, 0, false, 0)
local properties = {CFrame = CFrame.new(-3.15021491, 6.95428562, 56.907917, -0.500016809, -0.295259267, 0.814128518, 0, 0.940085232, 0.34093985, -0.866015673, 0.170475677, -0.470058411);}
local tweenActivate = TweenService:Create(knob, tweeningInfo, properties)
local tweeningInfo = TweenInfo.new(.3, Enum.EasingStyle.Linear, Enum.EasingDirection.In, 0, false, 0)
local properties = {CFrame = CFrame.new(-3.20756507, 6.93971252, 56.888958, 0.814128757, -0.295259625, 0.500016212, 0.340939641, 0.940085173, 8.57199439e-07, -0.470058113, 0.170474648, 0.86601603);}
local tweenDeactivate = TweenService:Create(knob, tweeningInfo, properties)
local running = false
function leftClick()
if dataLink.isDataSingleSearchActive.Value then
if dataLink.isDataScanningForTardis.Value == false then
running = true
tweenActivate:Play()
dataLink.isDataScanningForTardis.Value = true
elseif dataLink.isDataScanningForTardis.Value then
running = true
tweenDeactivate:Play()
dataLink.isDataScanningForTardis.Value = false
end
running = false
--script.Parent.Sound.Playing = true
end
end
script.Parent.Use.MouseClick:connect(leftClick)
dataLink.isDataScanningForTardis.Changed:Connect(function()
if not running then
if dataLink.isDataScanningForTardis.Value then
tweenActivate:Play()
elseif not dataLink.isDataScanningForTardis.Value then
tweenDeactivate:Play()
end
end
end)

View File

@ -0,0 +1,4 @@
{
"className": "Part",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,12 @@
function Start()
script.Parent.Move.Disabled = false
end
function Stop()
script.Parent.Move.Disabled = true
end
script.Parent.Use.MouseHoverEnter:connect(Start)
script.Parent.Use.MouseHoverLeave:connect(Stop)

View File

@ -0,0 +1,28 @@
knob = 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
while true do
local mod = knob
local step = 1
for i = 0,40,step do
rotateMod(mod,mod:GetModelCFrame(),CFrame.Angles(0,0,0.2))
wait()
end
end

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,33 @@
local dataLink = script["Data Link"].Value
local button = script.Parent.Parent.SingleListenAutoTravel
local bulb = script.Parent.Parent.ActiveLED.Bulb
local bits = {}
local running = false
script.Parent.Use.MouseClick:Connect(function()
if dataLink.isDataSingleSendReverseActive.Value then
running = true
if dataLink.isDataSingleListenAutoTravelActive.Value == false then
button.Position = Vector3.new(button.Position.X+0.02, button.Position.Y-0.065, button.Position.Z-0.011)
dataLink.isDataSingleListenAutoTravelActive.Value = true
elseif dataLink.isDataSingleListenAutoTravelActive.Value then
button.Position = Vector3.new(button.Position.X-0.02, button.Position.Y+0.065, button.Position.Z+0.011)
dataLink.isDataSingleListenAutoTravelActive.Value = false
end
running = false
end
end)
dataLink.isDataSingleListenAutoTravelActive.Changed:Connect(function()
if not running then
if dataLink.isDataSingleListenAutoTravelActive.Value then
button.Position = Vector3.new(button.Position.X+0.02, button.Position.Y-0.065, button.Position.Z-0.011)
elseif dataLink.isDataSingleListenAutoTravelActive.Value == false then
button.Position = Vector3.new(button.Position.X-0.02, button.Position.Y+0.065, button.Position.Z+0.011)
end
end
end)

View File

@ -0,0 +1,4 @@
{
"className": "Part",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,51 @@
local dataLink = script["Data Link"].Value
local button = script.Parent.Parent.SingleSendReversePolarity
local bulb = script.Parent.Parent.ActiveLED.Bulb
local bits = {}
local running = false
for _,part in pairs(script.Parent.Parent:GetChildren()) do
if part.Name == string.match(part.Name, '^Bit.*$') then
table.insert(bits, part)
end
end
script.Parent.Use.MouseClick:Connect(function()
if dataLink.isDataSingleSendActive.Value then
running = true
if dataLink.isDataSingleSendReverseActive.Value == false then
button.Position = Vector3.new(button.Position.X+0.02, button.Position.Y-0.065, button.Position.Z-0.011)
dataLink.isDataSingleSendReverseActive.Value = true
dataLink.singleSendFrequency.Value = 0
for _,part in pairs(bits) do
part.Bulb.Material = Enum.Material.Plastic
end
bulb.Color = Color3.fromRGB(245, 205, 48)
elseif dataLink.isDataSingleSendReverseActive.Value then
button.Position = Vector3.new(button.Position.X-0.02, button.Position.Y+0.065, button.Position.Z+0.011)
dataLink.isDataSingleSendReverseActive.Value = false
dataLink.isDataSingleListenAutoTravelActive.Value = false
for _,part in pairs(bits) do
part.Bulb.Material = Enum.Material.Plastic
end
bulb.Color = Color3.fromRGB(0, 255, 0)
end
running = false
end
end)
dataLink.isDataSingleSendReverseActive.Changed:Connect(function()
if not running then
if dataLink.isDataSingleSendReverseActive.Value then
button.Position = Vector3.new(button.Position.X+0.02, button.Position.Y-0.065, button.Position.Z-0.011)
bulb.Color = Color3.fromRGB(245, 205, 48)
elseif dataLink.isDataSingleSendReverseActive.Value == false then
button.Position = Vector3.new(button.Position.X-0.02, button.Position.Y+0.065, button.Position.Z+0.011)
bulb.Color = Color3.fromRGB(0, 255, 0)
end
end
end)

View File

@ -0,0 +1,4 @@
{
"className": "Part",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,33 @@
local dataLink = script["Data Link"].Value
local button = script.Parent.Parent.SingleSendActivate
local bulb = script.Parent.Parent.ActiveLED.Bulb
local bits = {}
for _,part in pairs(script.Parent.Parent:GetChildren()) do
if part.Name == string.match(part.Name, '^Bit.*$') then
table.insert(bits, part)
end
end
script.Parent.Use.MouseClick:Connect(function()
if dataLink.isDataSingleSendActive.Value == false then
button.Position = Vector3.new(button.Position.X+0.02, button.Position.Y-0.065, button.Position.Z-0.011)
dataLink.isDataSingleSendActive.Value = true
dataLink.singleSendFrequency.Value = 0
for _,part in pairs(bits) do
part.Bulb.Material = Enum.Material.Plastic
end
bulb.Color = Color3.fromRGB(0, 255, 0)
elseif dataLink.isDataSingleSendActive.Value then
button.Position = Vector3.new(button.Position.X-0.02, button.Position.Y+0.065, button.Position.Z+0.011)
dataLink.isDataSingleSendActive.Value = false
dataLink.isDataSingleSendReverseActive.Value = false
dataLink.isDataSingleListenAutoTravelActive.Value = false
for _,part in pairs(bits) do
part.Bulb.Material = Enum.Material.Plastic
end
bulb.Color = Color3.fromRGB(196, 40, 28)
end
end)

View File

@ -0,0 +1,4 @@
{
"className": "Part",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,3 @@
{
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,40 @@
local dataLink = script.DataLink.Value
local frequency = dataLink.singleSendFrequency
local bits = {}
function toBits(num)
-- returns a table of bits, least significant first.
local t={} -- will contain the bits
while num>0 do
local rest=math.fmod(num,2)
t[#t+1]=rest
num=(num-rest)/2
end
while table.getn(t) < 7 do
table.insert(t, 0)
end
return t
end
for i,part in pairs(script.Parent:GetChildren()) do
if part.Name == string.match(part.Name, '^Bit.*$') then
bits[tonumber(string.match(part.Name, '%d'))] = part
end
end
function connect()
if dataLink.isDataSingleSendActive.Value then
for i, bit in pairs(toBits(frequency.Value))do
if bit == 0 then
bits[i].Bulb.Material = Enum.Material.Plastic
end
if bit == 1 then
bits[i].Bulb.Material = Enum.Material.Neon
end
end
end
end
frequency.Changed:Connect(connect)

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,54 @@
function onClicked()
wait(0.1)
if script.Parent.Up.Value == false then
script.Parent.Up.Value = true
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,0.05)
wait(0.02)
script.Parent.Sound:Play()
else
script.Parent.Up.Value = false
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,-0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,-0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,-0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,-0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,-0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,-0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,-0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,-0.05)
wait(0.02)
script.Parent.CFrame = script.Parent.CFrame * CFrame.new(0,0,-0.05)
wait(0.02)
script.Parent.Sound:Play()
end
end
script.Parent.Use.MouseClick:connect(onClicked)

View File

@ -0,0 +1,4 @@
{
"className": "UnionOperation",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,37 @@
pointer= 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
while true do
local mod = pointer
local step = 1
for i = 0,10,step do
local randomizer = math.random(1,3)
local choice = 1
if randomizer == 1 then
choice = 0.1
else
choice = -0.1
end
rotateMod(mod,mod:GetModelCFrame(),CFrame.Angles(0,choice,0))
wait()
end
end

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,16 @@
function Used()
wait(0.4)
if script.Parent.Up.Value == true then
script.Parent.Parent.LED.Material = Enum.Material.Neon
else
script.Parent.Parent.LED.Material = Enum.Material.SmoothPlastic
end
end
script.Parent.Use.MouseClick:connect(Used)

View File

@ -0,0 +1,42 @@
lever = 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 Used()
if script.Parent.Up.Value == false then
script.Parent.Up.Value = true
local mod = lever
local step = 1
for i = 0,10,step do
rotateMod(mod,mod:GetModelCFrame(),CFrame.Angles(0.1,0,0))
wait()
end
else
script.Parent.Up.Value = false
local mod = lever
local step = 1
for i = 0,10,step do
rotateMod(mod,mod:GetModelCFrame(),CFrame.Angles(-0.1,0,0))
wait()
end
end
end
script.Parent.Use.MouseClick:connect(Used)

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,20 @@
function Used()
wait(0.2)
if script.Parent.LeverUp.Value == true then
script.Parent.Main.Up:Play()
script.Parent.Parent.Bulb1.Material = Enum.Material.Neon
script.Parent.Parent.Bulb2.Material = Enum.Material.Neon
else
script.Parent.Main.Down:Play()
script.Parent.Parent.Bulb1.Material = Enum.Material.SmoothPlastic
script.Parent.Parent.Bulb2.Material = Enum.Material.SmoothPlastic
end
end
script.Parent.Use.MouseClick:connect(Used)

View File

@ -0,0 +1,42 @@
lever = 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 Used()
if script.Parent.LeverUp.Value == false then
script.Parent.LeverUp.Value = true
local mod = lever
local step = 1
for i = 0,5,step do
rotateMod(mod,mod:GetModelCFrame(),CFrame.Angles(0,0,-0.3))
wait()
end
else
script.Parent.LeverUp.Value = false
local mod = lever
local step = 1
for i = 0,5,step do
rotateMod(mod,mod:GetModelCFrame(),CFrame.Angles(0,0,0.3))
wait()
end
end
end
script.Parent.Use.MouseClick:connect(Used)

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,4 @@
{
"className": "Model",
"ignoreUnknownInstances": true
}

View File

@ -0,0 +1,20 @@
function Used()
wait(0.2)
if script.Parent.LeverUp.Value == true then
script.Parent.Main.Up:Play()
script.Parent.Parent.Bulb1.Material = Enum.Material.Neon
script.Parent.Parent.Bulb2.Material = Enum.Material.Neon
else
script.Parent.Main.Down:Play()
script.Parent.Parent.Bulb1.Material = Enum.Material.SmoothPlastic
script.Parent.Parent.Bulb2.Material = Enum.Material.SmoothPlastic
end
end
script.Parent.Use.MouseClick:connect(Used)

View File

@ -0,0 +1,42 @@
lever = 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 Used()
if script.Parent.LeverUp.Value == false then
script.Parent.LeverUp.Value = true
local mod = lever
local step = 1
for i = 0,5,step do
rotateMod(mod,mod:GetModelCFrame(),CFrame.Angles(0,0,-0.3))
wait()
end
else
script.Parent.LeverUp.Value = false
local mod = lever
local step = 1
for i = 0,5,step do
rotateMod(mod,mod:GetModelCFrame(),CFrame.Angles(0,0,0.3))
wait()
end
end
end
script.Parent.Use.MouseClick:connect(Used)

Some files were not shown because too many files have changed in this diff Show More