--Made by Superluck, Uploaded by FederalSignal_QCB.
--Made by Superluck, Uploaded by FederalSignal_QCB.
--Made by Superluck, Uploaded by FederalSignal_QCB.

function Cancel()
wait(0.1)
script.Timer.Disabled = true
script.Timer.Disabled = false
script.Parent.Parent.Sound.Sound2.SoundId = script.Parent.Parent.Sound.Sound.SoundId
if bingbong == 0 then
bingbong = 0
script.Parent.Parent.Scripts.Scripts.Aux.Disabled = true
script.Parent.Parent.Scripts.Scripts.Off.Disabled = false
script.Parent.Parent.Scripts.Scripts.On.Disabled = true
script.Parent.Parent.Sound.Sound.EmitterSize = script.Parent.SoundblockSize.Value/10
script.Parent.Parent.Sound.Sound2.EmitterSize = script.Parent.SoundblockSize.Value/10
script.Wail.Disabled = true 
script.Parent.Parent.Scripts.Scripts.Hilo.Disabled = true
script.Parent.Parent.Scripts.Scripts.Pulse.Disabled = true
else
bingbong = 0
script.Parent.Parent.Scripts.Scripts.Aux.Disabled = true
script.Parent.Parent.Scripts.Scripts.Off.Disabled = true
script.Parent.Parent.Scripts.Scripts.On.Disabled = true
script.Parent.Parent.Sound.Sound.EmitterSize = 0
script.Parent.Parent.Sound.Sound2.EmitterSize = 0
script.Parent.Parent.Sound.Sound.PlaybackSpeed = 0.25
script.Parent.Parent.Sound.Sound2.PlaybackSpeed = 0.25
script.Wail.Disabled = true 
script.Parent.Parent.Scripts.Scripts.Hilo.Disabled = true
script.Parent.Parent.Scripts.Scripts.Pulse.Disabled = true
script.Parent.Amp.Value = false
end
end

function Wail()
script.Timer.Disabled = false
script.Parent.Scripts.On.MaxPitch.Value = 1
bingbong = 0
script.Parent.Parent.Sound.Sound.EmitterSize = script.Parent.SoundblockSize.Value/10
script.Parent.Parent.Sound.Sound2.EmitterSize = script.Parent.SoundblockSize.Value/10
script.Parent.Amp.Value = true
script.Parent.Parent.Scripts.Scripts.Off.Disabled = false
script.Parent.Parent.Scripts.Scripts.On.Disabled = true
script.Wail.Disabled = false
end
function Alert()
script.Timer.Disabled = false
script.Parent.Scripts.On.MaxPitch.Value = 1
bingbong = 0
script.Parent.Parent.Sound.Sound.EmitterSize = script.Parent.SoundblockSize.Value/10
script.Parent.Parent.Sound.Sound2.EmitterSize = script.Parent.SoundblockSize.Value/10
script.Parent.Amp.Value = true
script.Parent.Parent.Scripts.Scripts.Off.Disabled = true
script.Parent.Parent.Scripts.Scripts.On.Disabled = false
end
function Alt(tone)
bingbong = 0
script.Parent.Amp.Value = true
if tone == 1 then
script.Parent.Parent.Scripts.Scripts.Hilo.Disabled = false
script.Parent.Parent.Scripts.Scripts.Pulse.Disabled = true
elseif tone == 0 then
script.Parent.Parent.Scripts.Scripts.Hilo.Disabled = true
script.Parent.Parent.Scripts.Scripts.Pulse.Disabled = false
end
end
function Aux()
script.Parent.Amp.Value = true
bingbong = 1
script.Parent.Parent.Scripts.Scripts.Aux.Disabled = false
end