LandingGear

for a,b in pairs(rs.getSides()) do
  if peripheral.getType(b) == 'modem' then
   rednet.open(b)
   break
  end
end


gear = "up"

result = fs.exists("gear")
if result == true then
  file = io.open("gear", "r")
  gear = file.read()
  file:close()
  if gear == "down" then
    rs.setOutput("bottom", true)   elseif gear == "up" then
    rs.setOutput("bottom", false)
  end
else
  gear = "up"
  file = fs.open("gear", "w")
  file.write(gear)
  file:close()
  rs.setOutput("bottom", false)
end

while true do
  id, message = rednet.receive()
  if message == "gear" then
    if gear == "up" then
      rs.setOutput("bottom", true)
      gear = "down"
    elseif gear == "down" then
      rs.setOutput("bottom", false)
      gear = "up"
    end
    file = fs.open("gear", "w")
    file.write(gear)
    file:close()
  elseif message == "gStatus" then
    rednet.send(id, gear)
    print("sent")
  end
end