BunkerDoor

NAME= 'door_1'
MODEMSIDE= 'bottom'
DOORSIDE= 'top'
tu= textutils.unserialize
ts= textutils.serialize
function createPackage(datas)
   data= {}
   data[1]= NAME
   data[2]= datas
   tmp= ts(data)
   return tmp
end

function transmitPackage(package)
   m.transmit(CHANNELSEND,CHANNELSEND,package)
end

m= peripheral.wrap(MODEMSIDE)
CHANNELSEND= 2
CHANNELRECEIVE= 1
DOORSTATUS= false
m.open(CHANNELSEND)
m.open(CHANNELRECEIVE)
os.startTimer(5)
while true do
   event,a,b,c,d= os.pullEvent()
   if (event == 'modem_message') then
      data= {}
      datas= {}
      data= tu(d)
      if (data[1] == NAME) then
         datas= tu(data[2])
         if (datas[1]) == 'open' then
            rs.setOutput(DOORSIDE,false)
            sleep(1)
            rs.setOutput(DOORSIDE,true)
            DOORSTATUS= true
         end
         if (datas[1] == 'close') then
            sleep(1)
            rs.setOutput(DOORSIDE,false)
            DOORSTATUS= false
         end
      end
   end
   if (event == 'timer') then
      os.startTimer(5)
      transmitPackage(createPackage(ts({'ping',DOORSTATUS})))
   end
end