TurtleTicket

modem = peripheral.wrap("left")
modem.open(10)
rs = "back"

while (true) do
  event = os.pullEvent("redstone")
  if (redstone.getInput(rs)) then
    modem.transmit(10,10,"train")
    print("Train")
  end

  while (redstone.getInput(rs)) do
    event, modemSide, senderChannel,
    replyChannel, message,
    senderDistance =
    os.pullEvent("modem_message")

    print(event)
    print(modemSide)
    print(senderChannel)
    print(replyChannel)
    print(message)
    print(senderDistance)
    print()

    if (message == "issueTicket") then
      turtle.select(1)
      turtle.suck(1)
      turtle.dropDown(1)

      redstone.setOutput("bottom",true)
      sleep(0.5)
      redstone.setOutput("bottom",false)
    elseif (message == "supplyMachine") then
      turtle.select(13)
      turtle.drop(1)

      turtle.select(14)
      turtle.drop(1)

      turtle.select(1)
    end
  end
  --sleep(0.1)
end