GriefDrone: Bios

drone = component.proxy(component.list("drone")())
modem = component.proxy(component.list("modem")())
leash = component.proxy(component.list("leash")())
fluid = component.proxy(component.list("tank_controller")())
chest = component.proxy(component.list("inventory_controller")())

drone.setStatusText("Let's\ngrief!")

modem.open(27)

add = -50

function rgb2hex(r,g,b)
  return r*65536+g*256+b
end

while true do
  name, _, sender, _, _, message, a, b, c, d, e = computer.pullSignal(0.2)
  if name == "modem_message" then
    if message == 'move' then
      x, y, z = tonumber(a),tonumber(b),tonumber(c)
      if x ~= nil and y ~= nil and z ~= nil then
        drone.move(x, y, z)
      end
    elseif message == "suck" then
      side = tonumber(a)
      if side == nil or side > 6 or side < 0 then side = 0 end
      size, err = chest.getInventorySize(side)
      if size ~= nil then
        for i=1, size do
          chest.suckFromSlot(side, i)
        end
        modem.broadcast(27, side..": Done!")
      else
        modem.broadcast(27, side..' '..err)
      end
    elseif message == "drop" then
      side = tonumber(a)
      if side == nil or side > 6 or side < 0 then side = 0 end
      for i=1, drone.inventorySize() do
        drone.select(i)
        drone.drop(side)
        modem.broadcast(27, side..": Done!")
      end
    elseif message == "drain" then
      side = tonumber(a)
      if side == nil or side > 6 or side < 0 then side = 0 end
      drone.drain(side)
      modem.broadcast(27, side..": Done!")
    elseif message == "fill" then
      side = tonumber(a)
      if side == nil or side > 6 or side < 0 then side = 0 end
      drone.fill(side)
      modem.broadcast(27, side..": Done!")
    elseif message == "clist" then
      for a,b in pairs(drone) do
        modem.broadcast(27, a..": ")
        if type(b) == 'table' then
          for c,d in pairs(b) do
            modem.broadcast(27, '> '..c..": "..d)
          end
        else
          modem.broadcast(27, ": "..b)
        end
      end
    end
  end
  -- :P
  drone.setLightColor(rgb2hex(200+add, add/2, 30))
  add = add+10
  if add > 50 then add = -50 end
end

modem.close()