Hidden Base Door Control

--Redstone In Motion Hidden Door Control Program by VirtualDXS
modem = peripheral.wrap("left")
modem.open(1337)
openCommand = "open"

a = peripheral.wrap("JAKJ_RIM_CarriageController_0")
b = peripheral.wrap("JAKJ_RIM_CarriageController_1")
c = peripheral.wrap("JAKJ_RIM_CarriageController_2")
d = peripheral.wrap("JAKJ_RIM_CarriageController_3")


--0:Down
--1:Up
--2:North
--3:South
--4:West
--5:East

function open ()
  a.move(1,false,true)
  sleep(1)
  b.move(1,false,true)
  sleep(1)
  c.move(1,false,true)
  sleep(10)
  d.move(0,false,true)
  sleep(1)
  c.move(0,false,true)
  sleep(1)
  b.move(0,false,true)
  sleep(1)
end

open()

while 1 do
  evt,cmd,_,_,msg = os.pullEvent()
  if evt == "chat_command" then
    if cmd == openCommand then open() end
  elseif evt == "modem_message"then
    if msg == "m80" then open() end
  end
end