door

s=peripheral.wrap("bottom")

function pulse(freq)
s.setFreq(freq)
redstone.setOutput("bottom", true)
sleep(0.25)
redstone.setOutput("bottom", false)
sleep(0.5)
end

function tripulse(freq)
s.setFreq(freq)
for i=1, 3 do
redstone.setOutput("bottom", true)
sleep(0.5)
redstone.setOutput("bottom", false)
sleep(0.5)
end
end

while true do
os.pullEvent("redstone")
pulse(1)
tripulse(3)
sleep(3)
tripulse(4)
pulse(2)
end