button_crafter.lua

local sides = {
  forward = 3
}

local function primary(name)
    return component.proxy(component.list(name)())
end

local crafting=primary("crafting")
local eeprom=primary("eeprom")
local robot=primary("robot")
local inv=primary("inventory_controller")
local modem=primary("modem")

modem.open(111)

local crafting_time=0.05
local offset=0.25

local slot=tonumber(eeprom.getLabel())
local side=sides.forward

do
    local start=false
    while not start do
        local eventName = computer.pullSignal()
        start = eventName=="modem_message"
    end
end

function sleep(timeout)
  local deadline = computer.uptime() + (timeout or 0)
  repeat
    computer.pullSignal(deadline - computer.uptime())
  until computer.uptime() >= deadline
end

sleep(1+offset)

robot.select(4)
while true do
    crafting.craft(64)
    inv.dropIntoSlot(sides.forward, slot, 64)
    sleep(0.5-crafting_time)
end